LATIHAN 1 (IF THEN ELSE)

      Kali ini kita akan membuat aplikasi tentang  penghitungan total gaji karyawan berdasarkan Gaji, Golongan beserta Tunjangan yang telah ditentukan.

Untuk formnya sebagai berikut :

Items	Name	Caption	Text
Label1	Label1	Nama	-
Label2	Label2	Gaji	-
Label3	Label3	Golongan	-
Label4	Label4	Tunjangan	-
Edit1	Nama	-	{kosongkan}
Edit2	tGaji	-	{kosongkan}
Edit3	tGol	-	{kosongkan}
Label5	Tunjangan	Tunj	-
Label6	Total	Total	-
Button1	Button1	Mulai	-

        Pada aplikasi sederhana ini, kita atur untuk golongan dan tunjangan seperti dibawah ini :

-          Jika golongan A, maka tunjangan = 20000;

-                  Jika golongan B, maka tunjangan = 30000; 

-                   Jika golongan C, maka tunjangan = 40000.

         Karena perumpamaan kali ini menggunakan kata jika maka untuk listing program pada aplikasi sederhana ini kita memakai struktur IFthen ELSE.

untuk mengetik skripnya kita double- klik tombol Mulai dan berikut skripnya:

• unit latihan1;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    tGol: TEdit;

    tGaji: TEdit;

    nama: TEdit;

    Tunjangan: TLabel;

    Total: TLabel;

    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,Tunjang:integer;

begin

  Gaji:=StrToInt(tGaji.Text);

  IF tGol.Text ='A' THEN Tunjang:=20000 ELSE

  IF tGol.Text ='B' THEN Tunjang:=30000 ELSE

  IF tGol.Text ='C' THEN Tunjang:=40000;

  Tunjangan.Caption:=IntToStr(Tunjang);

  tot:=Tunjang+Gaji;

  Total.Caption :=IntToStr(tot);

end;

end.

- setelah pengetikan listing program, simpan lembar kerja kita dengan pilih menu File > Save As simpan sesuai folder yang diinginkan. kemudian simpan juga project dengan pilih menu File > Save Project As.

- kemudian kita running dengan tekan F9

^^ Semoga Berhasill^^