Mengontrol Alur Program

7.1 Operator Kondisi

Untuk mengontrol alur program dalam Visual Basic, kita bisa menggunakan bermacam-macam operator kondisi. Pada dasarnya, operator kondisi ini mirip dengan operator aritmatik. Operator kondisi merupakan alat yang sangat hebat, dengan operator tersebut kita dapat melakukan perbandingan untuk memutuskan tindakan selanjutnya. Tabel dibawah ini menunjukan operator kondisi yang digunakan dalam Visual Basic.

OPERATOR	MAKSUD
=	Sama dengan
>	Lebih besar
<	lebih kecil
>=	Lebih besar sama dengan
<=	Lebih kecil sama dengan
<>	Tidak sama dengan

Anda juga dapat membandingkan string dengan menggunakan operator tersebut. Akan tetapi ada aturan-aturan yang telah ditetapkan untuk membandingkan nilai string. Huruf besar lebih kecil dibandingkan huruf kecil, "A"<"B"<"C"...<"Z" dan angka lebih kecil dibandingkan huruf.

7.2 Operator Logika

Sebagai tambahan untuk operator kondisi, ada beberapa operator logika yang ditambahkan pada Visual Basic sehingga memudahkan pembuatan alur program.

OPERATOR	MAKSUD
And	Keduanya harus bernilai True
or	Salah satu saja yang bernilai True
Xor	Salah satu boleh bernilai True tetapi tidak boleh keduanya bernilai True
Not	Bernilai False

7.3 Pernyataan If.....Then.....Else

Untuk mendapatkan hasil yang baik dalam mengontrol alur program, sebaiknya kita menggunakan pernyataan if...then...else digabungkan bersama operator kondisi dan operator logika.

Syntak umum untuk pernyataan if...then...else adalah

If kondisi Then

VB expressions

Else

VB expressions

End If

Pernyataan If..Then..Else harus diakhiri dengan " End If". Pernyataan Else tidak selalu digunakan, ada kalanya kita tidak membutuhkan pernyataan tersebut.

Contoh:

Private Sub OK_Click()

hrgbrg = txtHargaBarang
jmlbrg = txtJumlahBarang
hrgtotal = hrgbrg * jmlbrg
If hrgtotal >= 5000000 And jmlbrg >= 10 0 Then
diskon = 300000
Else
diskon = 0
End If
hrgtotal=hrgtotal-diskon
End Sub

7.4 Select Case

Jika anda mempunya banyak kondisi, pernyataan If..Then..Else kurang efektif. Untuk kondisi yang banyak pernyataan Select Case lebih baik.

Syntax :

Select Case ekspresi

Case nilai1
VB statement
Case nilai2
VB Statement
Case nilai3
VB statement
Case nilai4
.
.
.
Case Else
VB Statement

End Select

Type data pada expression harus sama dengan nilai pada Case.

7.5 Contoh

Contoh 7.5.1

Dim Nilai As String

Private Sub Hitung_Click( )

Nilai = txtNilai.Text

Select Case Nilai
Case "A"
result.Caption="Sangat Baik"
Case "B"
result.Caption="Baik"
Case "C"
result.Caption="Cukup"
Case Else
result.Caption="Buruk"
End Select

End Sub

Catatan : variable nilai adalah string sehingga nilai yang ada pada case seperti "A" adalah tipe data string juga.

Contoh 7.5.2

Dim Nilai As Single

Private Sub Hitung_Click()

Nilai = txtNilai.Text

Select Case Nilai

Case Is >= 85
comment.Caption = "Sangat Bagus"Case Is >= 70
comment.Caption = "Bagus"
Case Is >= 60
comment.Caption = "Rata-Rata"
Case Is >= 50
comment.Caption = "Cukup"
Case Else
comment.Caption = "Blo'on !!!"

End Select

End Sub

Keyword Is disini untuk menentukan kondisi. Biasa digunakan untuk data numeric.

Contoh 7.5.3

Dim Nilai As Single
Private Sub Hitung_Click()

Nilai = txtNilai.Text

Select Case Nilai

Case 0 to 49
comment.Caption = "Blo'on !!!"
Case 50 to 59
comment.Caption = "Rata-Rata"
Case 60 to 69
comment.Caption = "Diatas Rata-rata"
Case 70 to 84
comment.Caption = "Bagus"
Case Else
comment.Caption = "Sangat Bagus"

End Select

End Sub