1.Jalankan terlebih dahulu program Delphi anda
2. Setelah itu kita akan default dibawa ke halaman new form blank..
Edit, dan Button) hingga pada Window Object TreeView terbentuk seperti ini
5.Pada Window Form Double klick Button Proses, munculah window unit1.pas.
Masukkan script dibawah ini
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 :
· Var digunakan untuk merubah Edit1: TEdit1; menjadi variabel nantinya atau Mendefinisikan sebuah variabel
· 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 script namun masih ada lanjutannya
· End. Untuk mengakhiri sebuah script
· If untuk membuat pengandaian atau membuat pernyataan sesuai dengan kondisi
· Begin untuk memulai suatu penulisan script program
Bagikan
Aplikasi Gaji
4/
5
Oleh
Hanya Catatan Pribadi