Cara Penghitungan Gaji Dan Massage Box

Kali ini  kita akan membuat perhitungan gaji sederhana dengan menggunakan software Dhelpi program ini bisa kita kembangkan lagi lebih komplit dan lebih berfungsi. Okelah untuk membuat langsung ikuti yaa terus fahami dengan baik...

Form Desain

                                Klik Gambar untuk Memperjelas'
Yang di butuhkan dalam Form ini
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
    txtnama: TEdit;
    txtpoko: TEdit;
    txtgjbersih: TEdit; 
    txttunjangan: TEdit;
txtjabatan: TComboBox;
    rtetap: TRadioButton;
    rhonor: TRadioButton;
GroupBox1: TGroupBox;
  
    Button1: TButton; 
    Button2: TButton;
    Button3: TButton;

Saatnya Coding 

Code Untuk tombol Close Klik 2x
procedure TForm1.Button3Click(Sender: TObject);
begin
if (application.MessageBox('Bener Nih Mau Keluar','NGABEJAAN',MB_YESNO)=IDYES)
THEN CLOSE
end;
Code Untuk txtjabatan Klik 2x

procedure TForm1.txtjabatanChange(Sender: TObject);
begin
if txtjabatan.text='Direktur' then
 txtpoko.text:='50000000'
  else
 if txtjabatan.text='Manager' then
 txtPoko.text:='2000000'
  else
 if txtjabatan.text='Karyawan' then
 txtPoko.text:='10000000'
 else
 txtpoko.text:='0'
Hasil Ini Outputnya ada di TxtPoko

end;
Code Untuk Form  Klik 2x

procedure TForm1.FormCreate(Sender: TObject);
begin
txtjabatan.items.add('Direktur');
txtjabatan.items.add('Manager');
txtjabatan.items.add('Karyawan');
end;
Outputnya akan Ada di TxtJabatan

Code Untuk Radiobox Tetap Klik 2x
procedure TForm1.rtetapClick(Sender: TObject);
var
a,hasil:real;
begin
if rtetap.checked=true then
 a:=strtofloat(txtpoko.Text );
 hasil:=a*0.3;
 txttunjangan.text:=floattostr(hasil);
end;Code Untuk Radiobox Honor Klik 2x
procedure TForm1.rhonorClick(Sender: TObject);
var
a,hasil:real;
begin
if rhonor.checked=true then
 a:=strtofloat(txtpoko.Text );
 hasil:=a*0.1;
 txttunjangan.text:=floattostr(hasil);


end;Code Untuk Tobol Total Gaji Klik 2x
procedure TForm1.Button1Click(Sender: TObject);

var
a,b,c:real;
begin

a:=strtofloat(txtpoko.text);
b:=strtofloat(txttunjangan.text);
c:=a+b;
txtgjbersih.text:=floattostr(c);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
txtnama.Text :=' ';
txtjabatan.Text:='Jabatan';
txtpoko.Text:=' ';
txttunjangan.Text:='';
txtgjbersih.Text:=''
end;


Mudah-Mudahan ga di blok(dug) :)