Ekspresi | Les Private Arab-Inggris via WA dan BBM Gratis | Sunda | Kontak | Google | Gmail | Uang Adsense
Toko Baju Online Abah + Bonus
LP3I Tasikmalaya
Bahasa Arab (Kelas 1 SD sampai Universitas)
Bisnis Bitcoin | Daftar Isi | Tools Penting | PrivacyPolicy | Jago Bahasa Inggris dan Arab | Kamus | Kamus Google

Sunday, March 13, 2016

Menggunakan If Then Else Delphi 7 Untuk Pemula



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….! :)


"Bitcoin and Forex are high risk business. We must join them smartly."
loading...