Tugas Delphi 7

Judul           :Penggajian PT.Tirtagraha Lintas Benua

NIM           :12085724

Nama         :Andri

Kelas          :12.6G.07

Kelompok    :B

URL            :shagahood.blogspot.com

Berikut adalah tugas saya yang berjudul Penggajian PT.Tirtagraha lintas benua :

unit slipgaji;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label5: TLabel;

Edit1: TEdit;

ComboBox1: TComboBox;

Label3: TLabel;

Edit2: TEdit;

Label4: TLabel;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

GroupBox1: TGroupBox;

berkeluarga: TRadioButton;

single: TRadioButton;

Label6: TLabel;

Edit4: TEdit;

Label7: TLabel;

Edit5: TEdit;

procedure FormCreate(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure berkeluargaClick(Sender: TObject);

procedure singleClick(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a,hasil:real;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

combobox1.Text:='';

combobox1.Items.add('Direktur');

combobox1.Items.add('Manager');

combobox1.Items.add('Karyawan');

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if combobox1.text='Direktur' then

begin

edit2.Text:='3500000';

end

else

if combobox1.text='Manager' then

begin

edit2.text:='4500000';

end

else

if combobox1.text='Karyawan' then

begin

edit2.text:='1300000';

end

else

edit2.text:='0';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

combobox1.Text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if application.MessageBox('Yakin Mau Keluar?','info',32+4)=6 then

halt

end;

procedure TForm1.berkeluargaClick(Sender: TObject);

begin

if berkeluarga.checked=true then

a:=strtofloat(edit2.text);

hasil:=0.1*a;

edit3.Text:=floattostr(hasil);

edit4.Text:=floattostr(strtofloat(edit2.text)*0.02);

end;

procedure TForm1.singleClick(Sender: TObject);

begin

if single.checked=true then

a:=strtofloat(edit2.text);

hasil:=0.05*a;

edit3.Text:=floattostr(hasil);

edit4.Text:=floattostr(strtofloat(edit2.text)*0.01);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

edit5.text:=floattostr((strtofloat(edit2.text)+strtofloat(edit3.text))-strtofloat(edit4.text));

end;

end.

Untuk Tampilan nya seperti ini :

Keterangan : 

Gaji Pokok : Manager       = 4.500.000

                     Direktur   = 3.500.000

                     Karyawan  = 1.300.000

Gaji Tambahan : Jika berkeluarga maka akan menerima tambahan sebesar 10%,

                          Dan jika single hanya akan menerima tambahan sebesar 5%.

Potongan Jamsostek : Jika berkeluarga maka di potong 2% dari gaji pokok (0.02*Gaji Pokok),Jika Single maka di potong 1% dari gaji pokok (0.01*Gaji pokok).

Command Hitung : menjumlahkan hasil dari Gaji pokok + Gaji tambahan - Potongan jamsostek.

Sekian tugas saya,mohon maaf jika ada kesalahan dalam penulisan.