Tugas Delphi

Sefurizal Maulana

12085740

12.6F.07

Lab A kel B

Tampilan sebelum di running :

Tampilan setelah di running (input nama & pilih jabatan) :

Hasil setelah di pilih status & menekan tombol hitung maka gaji bersih akan keluar :

Sebuah message yang akan muncul ketika di tekan tombol keluar :

Listing (syntax program)

unit rizalmaulana(12085740)delphi;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit1: TEdit;

    jabatan: TComboBox;

    gapok: TEdit;

    GroupBox1: TGroupBox;

    tetap: TRadioButton;

    honorer: TRadioButton;

    Label5: TLabel;

    tunjangan: TEdit;

    hitung: TButton;

    Label6: TLabel;

    gaber: TEdit;

    input: TButton;

    keluar: TButton;

    Timer1: TTimer;

    Label7: TLabel;

    lbltanggal: TLabel;

    tanggal: TLabel;

    lbltgl: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    lbljam: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure keluarClick(Sender: TObject);

    procedure inputClick(Sender: TObject);

    procedure tetapClick(Sender: TObject);

    procedure jabatanClick(Sender: TObject);

    procedure honorerClick(Sender: TObject);

    procedure hitungClick(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  a,b,c,d,hasil:real;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

jabatan.Items.Add('DIREKTUR');

jabatan.Items.Add('MANAGER') ;

jabatan.Items.Add('KARYAWAN');

end;

procedure TForm1.keluarClick(Sender: TObject);

begin

if application.MessageBox('Anda yakin mau keluar ??','keluar',mb_yesno+32)

=idyes then

halt

end;

procedure TForm1.inputClick(Sender: TObject);

begin

edit1.text:='';

jabatan.text:='';

gapok.text:='';

tunjangan.text:='';

gaber.Text:='';

end;

procedure TForm1.tetapClick(Sender: TObject);

begin

if tetap.checked=true then

a:=strtofloat(gapok.Text);

hasil:=(a*0.15);

tunjangan.Text:=floattostr(hasil);

end;

procedure TForm1.jabatanClick(Sender: TObject);

begin

if jabatan.text='DIREKTUR' then

begin

  gapok.text:='6000000';

end

else

if jabatan.text='MANAGER' then

begin

  gapok.text:='2000000';

end

else

  gapok.Text:='1000000';

end;

procedure TForm1.honorerClick(Sender: TObject);

begin

if tetap.checked=true then

a:=strtofloat(gapok.Text);

hasil:=(a*0.05);

tunjangan.Text:=floattostr(hasil);

end;

procedure TForm1.hitungClick(Sender: TObject);

begin

gaber.text:=floattostr(strtofloat(gapok.text)+strtofloat(tunjangan.Text));

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

lbltgl.Caption:=formatdatetime('dd mmmm yyyy',now);

lbljam.Caption:=formatdatetime('H:M:S:',now);

end;

end.