1.
Buka program Delphi 7
2.
Setelah itu klik file – new – pilih form
3.
Lalu buat diagram seperti dibawah ini dengan menambahkan buttom,
Edit,label
4.
Kemudian
merubah name (agar lebih mudah teringat)
5.
Jika sudah masukan skripnya dengan kita
klik kiri 2x pada button. Ketikkan
scrip seperti dibawah ini
procedure
TEdit1.Button1Click(Sender: TObject);
var
gaji,tot,tunjang:integer;
begin
gaji:=StrToInt(tGaji.Text);
if tGol.Text ='A' then
tunjang:=10000;
if tGol.Text ='B' then
tunjang:=20000;
if tGol.Text ='C' then
tunjang:=30000;
tunj.Caption :=
IntToStr(tunjang);
tot:=Tunjang+Gaji;
Total.Caption :=
IntToStr(tot);
end;
end.
Keterangan :
·
Integer untuk merubah gaji,tot,tunjang menjadi tipe data bilangan
bulat yang hanya mengenal bilangan decimal dan tidak dapat
mengenal bilangan
pecahan
·
StrToInt digunakan untuk merubah tipe
data string
ke tipe data integer.
·
IntToStr untuk merubah tipe data integer ke tipe data
string.
·
Caption untuk Membuat caption pada table
·
End; untuk mengakhiri sebuah scrip namun masih ada lanjutannya
·
End. Untuk mengakhiri sebuah scrip
·
If untuk membuat pengandaian atau membuat pernyataan sesuai dengan
kondisi
·
Begin untuk memulai suatu penulisan scrip programa
6.
Setelah semuanya selesai maka kita tinggal menjalankan program
tersebut tekan F9 untuk mencobanya, jika program benar maka akan seperti gambar
dibawah ini.
