Kontrol if

Penggunaan Struktur Kontrol IF

Mengenal Struktur Kontrol

Struktur kontrol di dalam bahasa pemrograman adalah perintah dengan bentuk (struktur) tertentu yang

digunakan untuk mengatur (mengontrol) jalannya program.

Visual Basic 6 mengenal dua jenis struktur kontrol, yaitu :

1.      Struktur kontrol keputusan - digunakan untuk memutuskan kode program mana yang akan dikerjakan berdasarkan suatu kondisi. Akan dibahas pada bab ini.

2.      Struktur kontrol pengulangan - digunakan untuk melakukan pengulangan kode program. Akan dibahas pada bab selanjutnya.

Ada dua bentuk struktur kontrol keputusan, yaitu :

1.      Struktur IF…THEN. Akan dibahas pada bab ini.

2.      Struktur SELECT…CASE. Akan dibahas pada bab selanjutnya.

Bentuk penulisan (syntax) struktur IF…THEN :

1. IF <kondisi> THEN <kode program>

Bila <kondisi> bernilai True maka <kode program> akan dikerjakan.

2. IF <kondisi> THEN

<blok kode program 1>

ELSE

<blok kode program 2>

END IF

Bila <kondisi> bernilai True maka <blok kode program 1> akan dikerjakan, tetapi bila <kondisi> bernilai False maka <blok kode program 2> yang akan dikerjakan.

Contoh Program : Struktur IF…THEN

Aktifkan VB 6 melalui tombol Start.

Buka kembali project Latihan.vbp.

Tambahkan Form baru ke dalam Project.

Pada Jendela Form buatlah UI seperti ini :

(Gunakan komponen Image, Label, TextBox dan CommandButton)

Pengaturan property setiap object-nya adalah sebagai berikut :

Opject	Properties	Value
Form5	Caption StartUpPosition	Struktur IF…THEN 2 – CenterScreen
Image1	Stretch Picture Visible	True Komputer.wmf False
Label1	Caption	Password :
Text1	PasswordChar Text	* <kosong>
Command1	Caption Default	Ok true

Buka Jendela Code dan pada bagian Code Editor ketikkan kode programnya sebagai berikut :

Private Sub Command1_Click()

If Text1.Text = "nusantara" Then Image1.Visible = True

End Sub

Simpan Form5 (nama file : Lat5.frm).

Catatan :

Anda bisa men-download file Lat5.frm dan Komputer.wmf.

Klik menu Project > Project1 Properties lalu klik tab General. Gantilah Startup Object-nya menjadi

Form5.

Coba jalankan Project1 :

·         Ketikkan sembarang teks pada TextBox lalu klik tombol OK atau tekan Enter 􀃆 tidak terjadi apaapa.

·         Ketikkan “nusantara” pada TextBox lalu klik tombol OK atau tekan Enter 􀃆 gambar computer akan muncul.

Penjelasan kode program :

If Text1.Text = "nusantara" Then Image1.Visible = True

                    Kondisi                            kode program yang dikerjakan

bila kondisi TRUE

Modifikasi kode programnya menjadi sebagai berikut :

Private Sub Command1_Click()

If Text1.Text = "nusantara" Then

Image1.Visible = True

Text1.Enabled = False

Command1.Enabled = False

Else

MsgBox "Passwordnya Salah !"

Text1.Text = ""

Text1.SetFocus

End If

End Sub

Coba jalankan Project1 :

ü  Ketikkan sembarang teks pada TextBox lalu klik tombol OK atau tekan Enter 􀃆 muncul kotak pesan “Passwordnya Salah !”. Klik tombol OK pada kotak pesan tersebut.

ü  Ketikkan “nusantara” pada TextBox lalu klik tombol OK atau tekan Enter 􀃆 gambar computer akan muncul. TextBox dan tombol OK menjadi disable (tidak bisan digunakan).

Penjelasan kode program :

                       Kondisi

 

If Text1.Text = "nusantara" Then

Image1.Visible = True                         blok kode program yang dikerjakan bila kondisi TRUE

Text1.Enabled = False

Command1.Enabled = False

Else

MsgBox "Passwordnya Salah !"

Text1.Text = ""                                                blok kode program yang dikerjakan bila kondisi FALSE

Text1.SetFocus

End I

Catatan tambahan :

ü  Teks “nusantara” harus diketik huruf kecil semua. Ingat : data string bersifat case sensitive !

ü  Agar password-nya tidak bersifat case sensitive, modifikasi pernyataan kondisinya menjadi :

If LCase(Text1.Text) = "nusantara" Then

Fungsi LCase adalah untuk mengkonversi semua string yang diinput ke Text1.Text menjadi huruf kecil, walaupun user menginputnya dengan huruf kapital.

TANTANGAN :

Coba Anda modifikasi struktur kontrol dan kode programnya sehingga seorang user hanya mempunyai 3 kali kesempatan untuk mengetikkan password-nya. Setelah 3 kali kesempatan dan password-nya masih salah maka program akan otomatis berhenti.