Jumat, 15 April 2011

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

Tidak ada komentar:

Posting Komentar