Aplikasi Gaji

Algoritma dan pemrograman kuliah Struktur Data

      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 Hanya Catatan Pribadi

Hanya Catatan Pribadi 23:27 Komentar