Program Menghitung Gaji Menggunakan Delphi

Assalamu'alaikum wr.wb.
Pada kesempatan kali ini saya akan share program Delphi menghitung gaji dengan desain seperti di bawah.

Baris Program:
procedure TForm1.btn1Click(Sender: TObject);
var gol:Char;
     kel : string;
    JumAnak,JamLembur:Integer;
    GaPok,TunKel,TunAnak,InLembur,Total: Real;
begin
     gol:=cbb1.text[1];
     kel:=cbb2.text;
     JumAnak:=StrToInt(edt1.text);
     JamLembur:=StrToInt(edt2.text);
     case gol of
'A':Begin
     GaPok:=2000000;
     TunKel:=300000;
     TunAnak:=JumAnak*200000;
     InLembur:=JamLembur*50000;
     end;
'B':Begin
     GaPok:=1500000;
     TunKel:=150000;
     TunAnak:=JumAnak*100000;
     InLembur:=JamLembur*40000;
     end;
'C':Begin
     GaPok:=1200000;
     TunKel:=100000;
     TunAnak:=JumAnak*75000;
     InLembur:=JamLembur*30000;
     end;

end;
    if kel='Ya' then
        TunKel:=TunKel*1
    else
        TunKel:=TunKel*0;
    Total:=GaPok+TunKel+TunAnak+InLembur;
    edt3.Text:= FloatToStr(GaPok);
    edt4.Text:= FloatToStr(TunKel);
    edt5.Text:= FloatToStr(TunAnak);
    edt6.Text:= FloatToStr(InLembur);
    edt7.Text:= FloatToStr(Total);
    end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  cbb1.Text:='';
  cbb2.Text:='';
  edt1.Text:='';
  edt2.Text:='';
  edt3.Text:='';
  edt4.Text:='';
  edt5.Text:='';
  edt6.Text:='';
  edt7.Text:='';
  cbb1.SetFocus;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
close;
end;

end.

Demikian yang dapat saya sampaikan tentang program delphi, semoga bermanfaat. Wassalamu'alaikum wr.wb.

Temukan program-program Delphi lainnya.