LATIHAN 1 (IF THEN ELSE)

      Kali ini kita akan membuat aplikasi sederhana penghitungan total gaji karyawan berdasarkan Gaji, Golongan beserta Tunjangan yang telah ditentukan.

Untuk kriteria form sebagai berikut :

Items	Name	Caption	Text
Label1	Label1	Nama	-
Label2	Label2	Gaji	-
Label3	Label3	Golongan	-
Label4	Label4	Tunjangan	-
Edit1	nama	-	{kosongkan}
Edit2	tGaji	-	{kosongkan}
Edit3	tGol	-	{kosongkan}
Label5	Tunjangan	Tunj	-
Label6	Total	Total	-
Button1	Button1	Mulai	-

Listing program (1)

        Pada aplikasi sederhana ini, kita atur untuk golongan dan tunjangan seperti dibawah ini :

-          Jika golongan A, maka tunjangan = 10000;

-          Jika golongan B, maka tunjangan = 20000; dan

-          Jika golongan C, maka tunjangan = 30000.

         Karena perumpamaan kali ini menggunakan kata jika maka untuk listing program pada aplikasi sederhana ini kita memakai struktur IFthen ELSE.

Listing Program (2)

Untuk pengetikan listing program double-klik pada tombol Mulai.

procedure TForm1.Button1Click(Sender: TObject);

var

  Gaji,tot,Tunjang:integer;

begin

  Gaji:=StrToInt(tGaji.Text);

  IF tGol.Text ='A' THEN Tunjang:=10000 ELSE

  IF tGol.Text ='B' THEN Tunjang:=20000 ELSE

  IF tGol.Text ='C' THEN Tunjang:=30000;

  Tunjangan.Caption:=IntToStr(Tunjang);

  tot:=Tunjang+Gaji;

  Total.Caption :=IntToStr(tot);

end;

Setelah pengetikan listing program, lakukan penyimpanan :

·         Save as : untuk menyimpan editor

·         Save Project As : untuk menyimpan project

Hasil Running

            Pada hasil running diatas, kita uji coba listing program apakah telah sesuai dengan rumus atau tidak. Jika gaji = 50000 dan ada pada golongan A, maka tunjangan yg didapatkan dari golongan A adalah 10000 dan hasil total gaji yang didapatkan adalah sebesar 60000 ( gaji + tunjangan).

<contoh program dan script lengkap lihat disini>

{CAUTION!!!}

ð  penyimpanan editor dengan project harus berbeda nama! Misalnya editor = latihan, maka project = latihan1

ð  nama penyimpanan tidak boleh menggunakan kata yang terdapat pada listing program. Seperti procedure, function, public, privatedan lain-lain.

>>>SELAMAT MENCOBA<<<