Cara mengitung hasil gaji dan tunjangan yang berbeda

Gambar disamping adalah program sederhana menghitung gaji dan tunjangan yang berbeda !!

Pada tampilan console Application di delphi, masukkan kode seperti berikut:

Ubahlah properties name-nya sebagai berikut :

Object	Name	Caption
Label1	Label1	Nama
Label2	Label2	Gaji
Label3	Total	Total
Label4	Label4	Golongan
Label5	Tunj	Tunj
Label6	Label6	Tunjangan
Edit1	Edit1	Biarkan Kosong
Edit2	tGaji	Biarkan Kosong
Edit3	tGol	Biarkan Kosong
Button1	Button1	Proses

Kalau sudah di ubah sesuai yang di atas, Double Klick pada Tombol Proses, maka akan muncul Code Editor seperti di bawah ini :

Berikut Script lebih jelasnya.

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Total: TLabel;

    Label4: TLabel;

    Tunj: TLabel;

    Label6: TLabel;

    Edit1: TEdit;

    tGaji: TEdit;

    tGol: TEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

gaji,tot,tunjangan:integer;

begin

gaji:=StrToInt(tGaji.Text);

if tGol.Text = 'A' then tunjangan:=10000;

if tGol.Text = 'B' then tunjangan:=20000;

if tGol.Text = 'C' then tunjangan:=30000;

Tunj.Caption := IntToStr (tunjangan);

tot:=Tunjangan+Gaji;

Total.Caption := IntToStr(Tot);

end;

end.

Dan hasilnya akan seperti berikut :