Pemograman Delphi 7 Part 7

Gambar ini adalah hasil dari tutorial dibawah ini

Aplikasi Hitung Gaji

Langkahnya sebagai berikut:

1.      Buka projek baru dan buat form sebagai berikut:

2.      Atur properti form dan komponen yang ada seperti pada tabel di bawah ini.

3.      Pada procedure btHitungClick, ketikkan kode di bawah ini.

procedure TForm1.btHitungClick(Sender: TObject);

const

Tunak = 10000;

var

Janak :integer;

Gapok, Gatot,Tunj :Real;

begin

Gapok := StrToFloat(edGapok.Text);

Janak := StrToInt(edJanak.Text);

Tunj := Janak*Tunak;

Gatot := Gapok+Tunj;

EdGatot.Text := FloatToStr(Gatot);

end;

4.      Jalankan Projek dengan menekan tombol F9.

5.      Simpan File dengan nama ProHitungGaji.dpr dan file Unit dengan nama UhitungGaji.pas.

Output dari program adalah sebagai berikut.

Wow.... bisa kan kawan.. :D


Create : Abednego,S.T