Struktur Kontrol Program

           Struktur kontrol program atau kadang disebut sebagai struktur kendali merupakan penerapan dari algoritma struktur percabangan dan struktur pengulangan. Buka kembali Bab 5 untuk memperjelas kembali tentang struktur algoritma.

• Struktur percabangan.

          Struktur percabangan dalam Visual Basic dapat dilakukan dengan
menggunakan If ... Then dan Select ... Case. If ... then digunakan jika
percabangan tidak terlalu banyak. Sedangkan Select ... Case
digunakan jika ada banyak percabangan. Perhatikan contoh penulisan
If ... Then ini.
Contoh 7.5. Contoh penulisan If .. Then.
' Percabangan/pemilihan satu baris tanpa Else
If x > 0 Then y = x
' Percabangan/pemilihan satu baris dengan Else
If x > 0 Then y = x Else y = 0
' Percabangan/pemilihan satu baris dengan Else dan titik dua
If x > 0 Then y = x: x = 0 Else y = 0
' Percabangan ditulis dengan cara lebih dari satu baris
If x > 0 Then
y = x
x = 0
Else
y = 0
End If
' Penggunaan blok if
If x > 0 Then
y = x
ElseIf x < 0 Then
y = x * x
Else
x = -1
End If
Contoh 7.6. Contoh penulisan Select ... Case.
Dim position As Integer 'Pilihan
position = CInt(txtPosition.Text)
Select Case position
Case 1
txtOutcome.Text = "Menang"
Case 2
txtOutcome.Text = "Kalah"
Case 3
txtOutcome.Text = "Seri"
Case Else
txtOutcome.Text = "Tidak bertanding."
End Select.
Coba perhatikan contoh aplikasi dengan menggunakan If ... Then dan Select ...
Case berikut ini.
Contoh 7.7. Program aplikasi dengan if ... then.
Aktifkan VB 6 kemudian buatlah form sebagai berikut :

 

Atur property untuk masing-masing obyek sebagai berikut :

 

           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
Klik menu Project > Project1 Properties lalu klik tab General. Gantilah
Startup Object-nya menjadi Form5. Coba jalankan Project1 :
o Ketikkan sembarang teks pada TextBox lalu klik tombol OK atau
tekan Enter, tidak terjadi apa-apa.
o Ketikkan “nusantara” pada TextBox lalu klik tombol OK atau tekan
Enter, gambar computer akan muncul.