PROJECT 1

TUNJANGAN GAJI

Contoh dari tunjangan gaji ini menggunakan rumus if ..then else yang untuk mencari suatu yang benar. Di dalam contoh if ini kita menggunakan perbandingan dengan “golongan” yang membandingkan pendapatan tunjangan. 

ini adalah form dari project 1 :

Scripnya adalah sebagai berikut :

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit1: TEdit;

    tgaji: TEdit;

    tGol: TEdit;

    Button1: TButton;

    Tunj: TLabel;

    Total: TLabel;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  gaji,tot,tunjang:integer;

begin

  gaji:=strtoint(tGaji.Text);

  if tGol.Text ='A' then else tunjang:=10000;

  if tGol.Text ='B' then else tunjang:=20000;

  if tGol.Text ='C' then else tunjang:=30000;

  tunj.Caption := IntToStr(Tunjang);

  tot:=Tunjang+Gaji;

  Total.caption := IntToStr(tot);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  halt;

end;

end.

Dan ini adalah hasil running dari project tersebut.

sekian project yang pertama ini,,,selesai untuk mngerjakan tugas mata kuliah!!!!!