rekayasa perangkat lunak jilid 2 smk - Bursa Open Source

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
Rekayasa Perangkat Lunak 151