Delphi 7

Latihan 1 (mengubah listing program dengan menggunakan struktur IF then Else)

Berikut ini cara membuat aplikasi menghitung gaji dengan buat interface                 seperti berikut , , ,
untuk petunjuk membuat interfacenya coba disini

Aktifkan button/tombol 'Mulai' dengan klik 2 kali




lalu ketik / tulis perintah seperti gambar disamping













Gambar disamping adalah lanjutan perintah gambar diatas.













begin
gaji:=StrToInt(tGaji.Text); ---> nilai gaji akan mengonversi yang bernilai                                                                           string menjadi integer
if tGol.Text='A' THEN Tunjang:=10000 ELSE
if tGol.Text='B' THEN Tunjang:=20000 ELSE
if tGol.Text='C' THEN Tunjang:=30000 
tunj.Caption:=IntToStr(Tunjang); ---> nilai tunj akan mengonversi yang                                                                                      bernilai integer menjadi string
tot:=Tunjang+Gaji;
Total.Caption:=IntToStr(tot); ---> nilai total akan mengonversi yang bernilai                                                                         integer  menjadi  string 
end;

Running Program