Hello Katabah!
Fungsi If…then..else
biasanya menjadi penting untuk sebuah pemrograman. Misalnya, jika angka berisi
0, maka form berwarna merah; jika angka berisi 1, maka form berwarna putih.
Nah, sekarang kita
praktek If-then-else dengan pernyataan “Jika edit1 berisi angka nol, maka
Label1 bertuliskan ‘Ini angka nol’; jika edit1 bukan berisi angka nol, maka
Label1 bertuliskan “ini BUKAN angka nol.”
1. Buka Delphi 7
2. Buatlah desain
seperti ini:
|
Edit1
|
|
Button1
|
|
Label1
|
3. Klik dua kali Button1
pada form
4. Ketik script ini:
var
a:integer;
begin
a:=StrToInt(edit1.Text);
If Edit1.Text = '0' then
Label1.Caption:='Ini angka nol.'
else
Label1.Caption:='Ini bukan angka nol.';
5. Jalankan program
dengan menekan tombol F9 pada keyboard
6. Ketik angka nol (0)
di kotak Edit1
7. Klik tombol Button1
pada form
8. Maka Label1 akan
bertuliskan “Ini angka nol.”
9. Ganti angka nol pada
Edit1 menjadi angka dua (2)
10. Klik tombol Button1
pada form
11. Maka Label1 akan
bertuliskan “Ini bukan angka nol.”
Sekian dan terima
kasih….! :)
|
"Investasi Emas dan Reksadana, Untung Mana?."
|
|
Youtube: Katabah Com: Menuju 1 jt Konten :) |
|
|
