Percabangan mrupakan suatu perintah bersyarat dimana komputer melakukan
suatu aksi tertentu bila suatu kondisi terpenuhi. Bahasa Pascal menyediakan dua
cara penyajian perintah bersyarat, yaitu If…Then…Else dan Case…Of. Namun kali
ini saya akan membahas tentang If ... Then ... Else.
If ... Then ... Else
Perintah bersyarat If umumnya digunakan untuk melakukan pencabangan
sederhana (antara 2 atau lebih cabang). dimana kondisi yang menjadi
prasyaratnya melibatkan lebih dari satu parameter.
Bentuk sintaks dari perintah bersyarat ini adalah :
If <kondisi_pencabangan1> then
Begin
… {aksi-1}
end
else
If <kondisi_pencabangan2> then
Begin
… {aksi-2}
end
else
Begin
… {aksi-3}
End;
Untuk contoh programnya buwat desain form seperti dibawah ini :
Atur propertisnya seperti ini :
nama
|
propertis
|
keterangan
|
Label1
|
Caption
|
NAMA
|
Label2
|
Caption
|
GAJI
|
Label3
|
Caption
|
GOLONGAN
|
Label4
|
Caption
|
TUNJANGAN
|
Label5
|
Caption
|
TOTAL
|
Label6
|
Caption
|
Bonus
|
Edit1
|
Text
|
M. NURFAIZIN
|
Edit2
|
Text
|
Di kosongkan
|
Edit3
|
Text
|
Di kosongkan
|
Button1
|
Caption
|
Proses
|
Button2
|
Caption
|
Exit
|
Klik dua kali pada bagian Button1(Proses) lalu isikan kode seperti
dibawah ini :
procedure TForm1.Button1Click(Sender: TObject);
var
gaji,tot,tunjangan:integer; begin
gaji:=strtoint(Edit2.Text);
if Edit3.Text ='A' then
begin
tunjangan:=10000;
Label9.Caption :='Baju';
end
else if Edit3.Text ='B' then
begin
tunjangan:=20000;
Label9.Caption :='Celana';
end
else if Edit3.Text ='C' then
begin
tunjangan:=30000;
Label9.Caption :='Tas';
end
else
begin
tunjangan:=0;
Label9.Caption :='Tidak ada';
end;
Label7.Caption:=inttostr(tunjangan);
tot:=tunjangan+gaji;
Label8.Caption:=inttostr(tot);
end;
Kemudian klik dua kali pada Button2(Exit) dan isikan :
halt;
Jika di Run(f9) Hasilnya akan seperti ini :
Jika di Run(f9) Hasilnya akan seperti ini :
Sekian dulu untuk Trik dan Tutorial sederhana ini. Semoga bisa membantu.
Terimakasih.
NB : Kritik dan Saran bisa di komentar. - See more at: http://triktutor.blogspot.com/2015/03/navbar-autohide.html#sthash.0uC6Hy5B.dpuf
Sekian dulu untuk Trik dan Tutorial sederhana ini. Semoga bisa membantu.Terimakasih.
NB : Kritik dan Saran bisa di komentar. - See more at: http://triktutor.blogspot.com/2015/03/navbar-autohide.html#sthash.0uC6Hy5B.dpuf
Terimakasih.
NB : Kritik dan Saran bisa di komentar.
Sekian dulu untuk Trik dan Tutorial sederhana ini. Semoga bisa membantu.
Terimakasih.
NB : Kritik dan Saran bisa di komentar. - See more at: http://triktutor.blogspot.com/2015/03/navbar-autohide.html#sthash.0uC6Hy5B.dpu
Terimakasih.
NB : Kritik dan Saran bisa di komentar. - See more at: http://triktutor.blogspot.com/2015/03/navbar-autohide.html#sthash.0uC6Hy5B.dpu
Sekian dulu untuk Trik dan Tutorial sederhana ini. Semoga bisa membantu.
Terimakasih.
NB : Kritik dan Saran bisa di komentar. - See more at: http://triktutor.blogspot.com/2015/03/navbar-autohide.html#sthash.0uC6Hy5B.dpuf
Terimakasih.
NB : Kritik dan Saran bisa di komentar. - See more at: http://triktutor.blogspot.com/2015/03/navbar-autohide.html#sthash.0uC6Hy5B.dpuf
Sekian dulu untuk Trik dan Tutorial sederhana ini. Semoga bisa membantu.
Terimakasih.
NB : Kritik dan Saran bisa di komentar. - See more at: http://triktutor.blogspot.com/2015/03/navbar-autohide.html#sthash.0uC6Hy5B.dpuf
Terimakasih.
NB : Kritik dan Saran bisa di komentar. - See more at: http://triktutor.blogspot.com/2015/03/navbar-autohide.html#sthash.0uC6Hy5B.dpuf
0 komentar:
Post a Comment