Tuesday, 22 October 2013

Aplikasi Gaji

      1.Jalankan terlebih dahulu program Delphi anda
      2. Setelah itu kita akan default dibawa ke halaman new form blank..
      3. Nah saya akan membuat program .exe seperti ini 

              4.Buat interfacenya, dengan menggunakan tool yang ada pada tab standart (Label,          

              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


  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 :
·   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

Jangan lewatkan

Aplikasi Gaji
4/ 5
Oleh

Subscribe via email

Suka dengan artikel di atas? Tambahkan email Anda untuk berlangganan.