if, then , else ..... again :)

Percabangan Dalam Delphi

PERINTAH PENCABANGAN / STRUKTUR PEMILIHAN

Pada beberapa kasus terkadang kita menginginkan komputer melakukan suatu aksi tertentu bila suatu kondisi terpenuhi. Keberadaan perintah bersyarat pada suatu program memberikan pencabangan proses seperti ditunjukkan oleh Error! Not a valid link.. Bahasa Pascal menyediakan dua cara penyajian perintah bersyarat, yaitu If…Then…Else dan Case…of. Pada prinsipnya pemilihan aksi dapat dikelompokkan menjadi 3 bagian :

Pemilihan 1 pilihan/kasus. Gunakan perintah IF – THEN
Pemilihan 2 pilihan/kasus. Gunakan perintah IF – THEN – ELSE
Pemilihan N pilihan/kasus. Gunakan Case – of (Catatan sebenarnya dapat menggunakan if—then – else bersarang)

I. IF…THEN…ELSE

1. IF … THEN … ELSE : Pemilihan 2 kasus

Perintah bersyarat If umumnya digunakan untuk melakukan pencabangan sederhana (antara 2 atau 3 cabang). Atau untuk pencabangan yang banyak, dimana kondisi yang menjadi prasyaratnya melibatkan lebih dari satu parameter. Bentuk sintaks dari perintah bersyarat ini adalah:
If <kondisi_pencabangan> then
Begin
… {aksi-1}
end
else
Begin
… {aksi-2}
end;

2. IF … THEN … ELSE : Pemilihan N kasus

If <kondisi_pencabangan1> then
Begin
… {aksi-1}
end
else
If <kondisi_pencabangan2> then
Begin
… {aksi-2}
end
else
Begin
… {aksi-3}
End;

Nah, pada semester kali ini.. ratih bakal kasih kalian contoh program menggunakan if then else..

Yuk, mariiii di simak baik - baik yaaaaa.......

:)

Let's begin the program,...

1. Buat dulu form pada delphi kalian seperti tampilan dibawah yaaa...

2. Kalo udah, kalian klik button mulai dan akan muncul worksheet berikut..

3. Setelah itu, kalian coba ketiikan teks dibawah ini guys...
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:=10000 ELSE
  IF tGol.Text ='B' THEN Tunjang:=20000 ELSE
  IF tGol.Text ='C' THEN Tunjang:=30000;
  Tunjangan.Caption:=IntToStr(Tunjang);
  tot:=Tunjang+Gaji;
  Total.Caption :=IntToStr(tot);
end;

end.
4. And then,..... finish kan?????
save dan kemudian coba jalankan program yang udah kalian buat yah guys,...:)

Ketika di run