Penggunaan Struktur Kontrol IF

1.1   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..

2. Struktur kontrol pengulangan - digunakan untuk melakukan pengulangan kode program.

Ada dua bentuk struktur kontrol keputusan, yaitu :

1. Struktur IF…THEN.

2. Struktur SELECT…CASE.

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.

1.2   Contoh Program : Struktur IF…THEN

-          Buka 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 :

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

Private Sub Command1_Click()

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

End Sub

Simpan Form1

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 “universitassurakarta” pada TextBox lalu klik tombol OK atau tekan Enter >> gambar

Orang berjalan akan muncul.

Penjelasan kode program :

 

Modifikasi kode programnya menjadi sebagai berikut :

If Text1.Text = "universitassurakarta" 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

Orang berjalan akan muncul. TextBox dan tombol OK menjadi disable (tidak bisan digunakan).

 

Penjelasan kode program :

Catatan tambahan :

-          Teks “universitassurakarta” 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) = "universitassurakarta" Then

Fungsi LCase adalah untuk mengkonversi semua string yang diinput ke Text1.Text menjadi huruf

kecil, walaupun user menginputnya dengan huruf kapital.