Setelah posting sebelumnya saya membahas tentang perulangan menggunakan
(If...Then...Else), sekang saya akan membahas perulangan menggunakan
(Case...Of).
Case...Of
Perintah bersyarat Case umumnya digunakan untuk kondisi dengan banyak pencabangan. Syarat pencabangan pada bentuk ini hanya boleh melibatkan satu buah parameter dengan tipe data bukan Real. Dengan demikian bila parameter bernilai tertentu maka dilakukan suatu aksi terkait, bila bernilai lain maka dilakukan aksi yang lain juga, demikian seterusnya.
Bentuk sintaks dari perintah bersyarat ini adalah:
Case <Parameter> Of
Case <Parameter> Of
<nilai_1> : <aksi_1> ;
<nilai_2> : <aksi_2> ;
…
<nilai_n> : <aksi_n> ;
Else <aksi_n+1> ;
End;
Untuk contoh programnya buwat desain form seperti dibawah ini :
Atur propertisnya seperti ini :
nama
|
propertis
|
keterangan
|
Label1
|
Caption
|
Nama
|
Label2
|
Caption
|
Kelas
|
Label3
|
Caption
|
Nilai
|
Label4
|
Caption
|
Keterangan
|
Edit1
|
Text
|
M. NURFAIZIN
|
Edit2
|
Text
|
2-C
|
Edit3
|
Text
|
Di kosongkan
|
Edit4
|
Text
|
Di kosongkan
|
Button1
|
Caption
|
Proses
|
Klik dua kali Button1(Proses) isikan seperti dibawah ini :
procedure TForm1.Button1Click(Sender: TObject);
var ket:string;
nilai:integer;
begin
nilai:=StrToInt(edit3.Text);
ket:=edit4.Text;
case nilai of
86..100:ket:='Grade (A)';
70..85:ket:='Grade (B)';
51..69:ket:='Grade (C)';
36..50:ket:='Grade (D)';
1..35:ket:='Grade (E)';
else
messageDlg('Pengisian tidak
Lengkap',mtWarning,[mbOK],0);
edit3.SetFocus;
end;
edit4.Enabled:=false;
end;
Sekian dulu untuk Trik dan Tutorial sederhana ini. Semoga bisa membantu.
Terimakasih.
NB : Kritik dan Saran bisa di komentar.
0 komentar:
Post a Comment