PROGRAM PERHITUNGAN GAJI PADA DELPHI 7 Menggunakan IF-THEN-ELSE

PROGRAM PERHITUNGAN GAJI PADA DELPHI 7

Kali ini kita akan membuat Program sederhana menggunakan program Delphi 7 dengan Perintah IF-THEN

Yang dimana desaignnya seperti dibawah ini :

Label1 : Nama Pegawai  = edit1

Label2 : Jabatan                                = Combobox1

Label3 : Gaji Pokok          = Edit2

Groupbox : Status

                RadioButton1 : Tetap

                RadioButton2 : Honorer

Label4 : Tunjangan Status  = edit3

Label5 : Total Gaji = edit5

Button1 : Hitung

Button2 : Hapus

Button3 : Keluar

Klik Pada Menu Combobox kemudian klik 2 kali pada menu items yang tertera pada layer Object Inspector.

 Selanjutnya Isi Ketentuan Sesuai yang di butuhkan seperti Direktur,Manajer dan Sekretaris.

Kemudian OK.

Sintaks sebagai Berikut:

1.Klik Pada Button Hitung  kemudian isi koding sbb:

 procedure TForm1.Button1Click(Sender: TObject);

var p,q,r:integer;

begin

p:= StrToInt(edit2.Text);

q:= StrToInt(edit3.Text);

r:= p+q;

edit4.Text:=IntToStr(r);

end;

2. Pada Button Hapus sbb:

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

comboBox1.Text:='';

radioButton1.Checked:=False;

radioButton2.Checked:=False;

end;

3. Pada Button Keluar sbb:

procedure TForm1.Button3Click(Sender: TObject);

begin

if(Application.MessageBox('Are you sure Quit?','close',mb_yesno)=id_yes) then

begin

close;

end;

end;

4. Kemudian Pada RadioButton Tetap sbb:

procedure TForm1.RadioButton1Click(Sender: TObject);

var

gapok,hasil:real;

begin

gapok:=strtofloat(edit2.Text);

if radiobutton1.Checked=true then

hasil:=0.6*gapok;

edit3.Text:=floattostr(hasil);

end;

5. Kemudian pada RadioButton Honorer sbb:

procedure TForm1.RadioButton2Click(Sender: TObject);

var

gapok,hasil:real;

begin

gapok:=strtofloat(edit2.Text);

if radiobutton2.Checked=true then

hasil:=0.2*gapok;

edit3.Text:=floattostr(hasil);

end;

 

6.kemudian untuk koding combobox-nya kita klik menu events pada layer Object Inspector

Kemudian double klik (klik 2 kali) pada   combobox1click (petunjuk panah)

Kemudian tiknggal kita masukin Koding sbb:

procedure TForm1.ComboBox1Click(Sender: TObject);

begin

if comboBox1.itemindex=0 then

begin

edit2.text:='5000000';

end

else if comboBox1.ItemIndex=1 then

begin

edit2.Text:='3500000';

end

else if comboBox1.ItemIndex=2 then

begin

edit2.Text:='2000000';

end;

end;

Jika Sudah Memasukkan Semua koding Program Perhitungan Gaji Siap dijalankan.

Sebagai Contoh Perhitungan Gaji direktur tetap sbb:

SEMOGA BERMANFAAT ..!! AMIIN

SELAMAT MENCOBA KAWAN SEPERJUANGAN..!!!!!