Percabangan Delphi

 

Ketentuan Dari soal ini adalah :

1. Nama Pegawai diinput sendiri.

2.
Isi dari Combo Jabatan adalah ’Direktur’ , ’Manager’ , ’Karyawan’.

3.  Ketentuan Gaji pokok diambil dari Jabatan sebagai berikut : 

             Jabatan        Gaji Pokok
                 Direktur       5000000
                 Manager      2000000
                 Karyawan    1000000

4. Tunjangan Status diperoleh dari jenis status :

          Jika Status Karyawan ‘Tetap’ maka Tunjangan 30% dari Gaji Pokok
              Jika Status Karyawan ‘Honorer’ maka Tunjangan 10% dari Gaji Pokok

5. Button Hitung untuk menghitung nilai Gaji Bersih = Gaji Pokok + Tunjangan

6. Button Isi Data Lagi maka seluruh edit text kosong


Dan berikut Listingnya :
unit UNusaIndah;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    enama: TEdit;
    ejabatan: TComboBox;
    epokok: TEdit;
    GroupBox1: TGroupBox;
    rtetap: TRadioButton;
    rhonorer: TRadioButton;
    Label4: TLabel;
    etunjangan: TEdit;
    btotal: TButton;
    Label5: TLabel;
    ebersih: TEdit;
    blagi: TButton;
    bclose: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ejabatanClick(Sender: TObject);
    procedure rtetapClick(Sender: TObject);
    procedure rhonorerClick(Sender: TObject);
    procedure btotalClick(Sender: TObject);
    procedure blagiClick(Sender: TObject);
    procedure bcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ejabatan.Items.Add('Direktur');
ejabatan.Items.Add('Manager');
ejabatan.Items.Add('Karyawan');
end;

procedure TForm1.ejabatanClick(Sender: TObject);
begin
if ejabatan.Text ='Direktur' then
   epokok.Text :='5000000'
else if ejabatan.Text ='Manager' then
   epokok.Text :='2000000'
else
   epokok.Text :='1000000';
end;

procedure TForm1.rtetapClick(Sender: TObject);
var a,hasil:real;
begin
if rtetap.Checked = true then
   a:=strtofloat(epokok.Text);
   hasil:=a*0.3;
   etunjangan.Text :=floattostr(hasil)
end;

procedure TForm1.rhonorerClick(Sender: TObject);
var a,hasil:real;
begin
if rhonorer.Checked = true then
   a:=strtofloat(epokok.Text);
   hasil:=a*0.1;
   etunjangan.Text :=floattostr(hasil)
end;

procedure TForm1.btotalClick(Sender: TObject);
var a,b,c:real;
begin
  a:=strtofloat(epokok.Text);
  b:=strtofloat(etunjangan.Text);
  c:=a+b;
  ebersih.Text :=floattostr(c);
end;

procedure TForm1.blagiClick(Sender: TObject);
begin
ejabatan.Text :='';
enama.Text :='';
epokok.Text :='';
ebersih.Text :='';
etunjangan.Text :='';
rtetap.Checked :=false;
rhonorer.Checked :=false;
end;

procedure TForm1.bcloseClick(Sender: TObject);
begin
if (application.MessageBox('Anda Yakin Akan Keluar ?','Informasi',MB_YESNO)=IDYES) then
close;
end;

end.