Percabangan IF dan Case Of

Contoh percabangan IF dan Case of :



A. Contoh design form.

A. Komponen yang dibutuhkan.

1. 1(satu) komponen label (ada di tab standard component pallete).

2. 1(satu) komponen edit (ada di tab standard component pallete).

3. 3(tiga) komponen button (ada di tab standard component pallete).

B. Kode Program

1. Program IF Then

Double Klik button1 atau pilih events onclick pada Objects Inspector, Tuliskan Kode Program Sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);

begin

if strtoint(edit1.Text)>80 then

showmessage('Lulus');

end;

2. Program IF Then Else

Double Klik button2 atau pilih events onclick pada Objects Inspector, Tuliskan Kode Program Sebagai berikut :

procedure TForm1.Button2Click(Sender: TObject);

begin

if strtoint(edit1.Text)>90 then

showmessage('Nilai A')

else

if strtoint(edit1.Text)>70 then

showmessage('Nilai B')

else

if strtoint(edit1.Text)>50 then

showmessage('Nilai C')

else

if strtoint(edit1.Text)>30 then

showmessage('Nilai D')

else

showmessage('Nilai E')

end;

3. Program Case Of

Double Klik button3 atau pilih events onclick pada Objects Inspector, Tuliskan Kode Program Sebagai berikut :

procedure TForm1.Button3Click(Sender: TObject);

var

hasil:integer;

begin

hasil:=strtoint(edit1.Text);

case hasil of

0..30:showmessage('Nilai E');

31..50:showmessage('Nilai D');

51..70:showmessage('Nilai C');

71..90:showmessage('Nilai B');

91..100:showmessage('Nilai A');

end;

end;

Download contoh program