Membuat Program Hitung Gaji Karyawan

Pada kesempatan kali ini saya akan share tentang Aplikasi Delphi 7 yang berasal dari tugas makul saya yang berjudul Pemrograman Visual. Disini saya akan membagi ilmu tentang cara membuat Program Hitung Gaji Karyawan dengan menggunakan Aplikasi Delphi 7. Setelah sebelumnya saya share tentang Mencari Nilai Mahasiswa. Untuk lebih jelasnya mari lihat di bawah ini.

unitgaji;

interface

uses

  Windows, Messages, SysUtils, Variants,Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    enama: TEdit;

    epokok: TEdit;

    CJabatan: TComboBox;

    Label4: TLabel;

    Label5: TLabel;

    GroupBox1: TGroupBox;

    etunjangan: TEdit;

    Label6: TLabel;

    ebersih: TEdit;

    BTotal: TButton;

    BIsiLagi: TButton;

    BClose: TButton;

    RBTetap: TRadioButton;

    RBHonorer: TRadioButton;

    procedure CJabatanClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure RBTetapClick(Sender: TObject);

    procedure RBHonorerClick(Sender: TObject);

    procedure BTotalClick(Sender: TObject);

    procedure BIsiLagiClick(Sender: TObject);

    procedure BCloseClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R*.dfm}

procedureTForm1.CJabatanClick(Sender: TObject);

begin

ifcjabatan.Text='Kepala Sekolah'then

epokok.Text:='2500000'

else

ifcjabatan.Text='Guru'then

epokok.Text:='1250000'

else

ifcjabatan.Text='Karyawan'then

epokok.Text:='800000'

else

epokok.Text:='0';

end;

procedureTForm1.FormCreate(Sender: TObject);

begin

cjabatan.Items.Add('KepalaSekolah');

cjabatan.Items.Add('Guru');

cjabatan.Items.Add('Karyawan');

end;

procedureTForm1.RBTetapClick(Sender: TObject);

var

tunjangan,hasil:real;

begin

ifRBtetap.checked=true then

tunjangan:=strtofloat(epokok.text);

hasil:=tunjangan*0.3;

etunjangan.Text:=floattostr(hasil)

end;

procedureTForm1.RBHonorerClick(Sender: TObject);

vartunjangan,hasil:real;

begin

ifRBhonorer.Checked=true then

tunjangan:=strtofloat(epokok.text);

hasil:=tunjangan*0.1;

etunjangan.text:=floattostr(hasil)

end;

procedureTForm1.BTotalClick(Sender: TObject);

vara,b,c:real;

begin

a:=strtofloat(epokok.text);

b:=strtofloat(etunjangan.text);

c:=a+b;

ebersih.text:=floattostr(c);

end;

procedureTForm1.BIsiLagiClick(Sender: TObject);

begin

cjabatan.text:='Jabatan';

enama.Text:='';

ebersih.text:='0';

etunjangan.text:='0';

epokok.Text:='0';

RBtetap.checked:=false;

RBhonorer.checked:=false;

end;

procedureTForm1.BCloseClick(Sender: TObject);

begin

if(application.MessageBox('Do you want to exit ?','Warning !',MB_YESNO)= IDYES)

then

close

end;

end.