Contoh Program Delphi Sederhana Untuk Menghitung Gaji Pegawai

Hay teman-teman semua, pada kesempatan  ini saya memberikan cara bagaimana membuat program untuk menghitung gaji pegawai dalam sebuah perusahaan.

1.Bukalah program delphi (dephi 7) .lalu siapkanlah komponen seperti dibawah ini !

2.Setelah itu masuklah coding pada masing komponen
Combobox1
Klik pada properties, lalu klik items (Yang warna kuning)

Setelah itu masukan items seperti gambar dibawah ini . lalu klik Ok

kemudian masukanlah coding pada combobox seperti dibawah ini 

if combobox1.Text='Direktur' then

 begin

  edit3.Text := '5000000';

 end

 else

 if combobox1.Text='Karyawan' then

 begin

 edit3.Text := '100000';

 end

 else

 if combobox1.Text='Manager' then

 begin

 edit3.Text := '200000';

 end;

RadioGroup1

Klik pada properties, lalu klik items (Yang warna kuning)

Lalu masukalah seperti gambar dibawah ini. lalu klik ok 

Setelah itu masukanlah coding pada radiogroup1 seperti dibawah ini.

if radiogroup1.ItemIndex=0 then

 begin

 a:=strtofloat(edit3.Text)*0.3;

 edit5.Text := floattostr(a);

 end

 else

 if radiogroup1.ItemIndex=1 then

 begin

 a:=strtofloat(edit3.Text)*0.1;

 edit5.Text:=floattostr(a);

 end;

Button1(Totalgaji)

b:=strtofloat(edit3.Text)+strtofloat(edit5.Text);

 edit4.Text:= floattostr(b);

Button2(Isi lagi)

edit1.Text:=' ';

 combobox1.ItemIndex:=-1;

 edit3.Text:='0';

 edit4.Text:='0';

 edit5.Text:='0';

 radiogroup1.ItemIndex:=-1;

Button3(Keluar)

if(Application.MessageBox('Anda yakin ingin keluar','INFOMARSI !',MB_YESNO)=IDYES)then

close;

3.Jalankan program tersebut. maka program tersebut sudah bisa digunakan

jika anda ingin mendownload program tersebut silahkan klik disini

Sekian dan terimakasih semoga bermafaat  !!