Membuat prosedur Tunjangan

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.