2.1 Prinsip Percabangan
Percabangan dalam Delphi sebagaimana dalam Pascal memiliki sintaks sebagai berikut:
If kondisi then pernyataan;
If kondisi then
Pernyataan1
Else
Pernyataan2;
If kondisi1 then
Pernyataan1
Else if kondisi2 then
Pernyataan2
Else
Pernyataan3;
Perlu diperhatikan adalah titik koma pada sintaks if hanya satu dan terletak diakhir sintaks, kecuali ketika ada lebih dari 1 pernyataan dalam satu kondisi maka sintaksnya adalah sebagai berikut:
If kondisi1 then
Begin
Pernyataan1;
Pernyataan2;
End
Else if kondisi2 then
Begin
Pernyataan3;
Pernyataan4;
End
Else
Begin
Pernyataan5;
Pernyataan6;
End;
2.2 Praktek II
Buat aplikasi baru dengan komponen seperti pada gambar:
1. Label 3 Buah
2. Edit 2 Buah
3. Button 3 Buah
No
|
Komponen
|
Properties
|
Value
|
1
|
Label1
|
Caption
|
Nama
|
|
|
Font Size
|
10
|
2
|
Label2
|
Caption
|
Nilai
|
|
|
Font Size
|
10
|
3
|
Label3
|
Caption
|
(kosongkan)
|
|
|
Font Size
|
10
|
4
|
Edit1
|
Text
|
(kosongkan)
|
5
|
Edit2
|
Text
|
(kosongkan)
|
6
|
Button1
|
Caption
|
Proses
|
7
|
Button2
|
Caption
|
Baru
|
8
|
Button3
|
Caption
|
Keluar
|
Tombol Proses akan berisi proses pengubahan nilai angka menjadi nilai huruf, tombol baru untuk membersihkan edit, dan tombol keluar untuk menutup aplikasi.
procedure TForm1.Button1Click(Sender: TObject);
var nilai:integer;
begin
nilai:=strtoint(edit2.Text);
if nilai<40 then
label3.Caption:='E'
else if nilai<55 then
label3.Caption:='D'
else if nilai<70 then
label3.Caption:='C'
else if nilai<80 then
label3.Caption:='B'
else if nilai<=100 then
label3.Caption:='A'
else
label3.caption:=’Error’;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Text:='';
label3.Caption:='';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
2.3 Tugas II
Tambahkan satu buah label sebagai keterangan dengan ketentuan:
Nilai<40 = Sangat Kurang
Nilai<55 = Kurang
Nilai<70 = Cukup
Nilai<80 = Baik
Nilai<=100 = Sangat Baik