Struktur Kontrol Percabangan Dalam Pemprograman VB (Visual Basic)

 Struktur Kontrol Percabangan Dalam Pemprograman VB (Visual Basic)

·         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 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 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 Program aplikasi dengan if ... then.

1.   Aktifkan VB  kemudian buatlah form sebagai berikut:
2.  Atur property untuk masing-masing obyek sebagai berikut:
3.  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.

Penjelasan kode program: 
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 kembali 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 bisa digunakan).

Penjelasan kode program: 

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.

Program aplikasi dengan Select ... Case.
1.       Aktifkan VB  melalui tombol Start, kemudian buat form sebagai berikut:
2.       Atur property untuk masing-masing obyek sebagai berikut: 

3.       Buka Jendela Code dan pada bagian Code Editor, ketikkan kode programnya

sebagai berikut:

Private Sub Form_Load()
List1.AddItem "Disket"
List1.AddItem "Buku"
List1.AddItem "Kertas"
List1.AddItem "Pulpen"
End Sub 

Private Sub Command1_Click()
Dim harga As Currency, total As Currency
Dim jumlah As Integer
Dim diskon As Single
Dim satuan As String
If List1.Text = "" Then
MsgBox "Anda belum memilih barang !!"
List1.ListIndex = 0
Exit Sub
End If
If Text1.Text = "" Then
MsgBox "Anda belum mengisi jumlah barang !!"
Text1.SetFocus
Exit Sub
End If
Select Case List1.Text
Case "Disket"
harga = 35000
satuan = "Box"
Case "Buku"
harga = 20000
satuan = "Lusin
Case "Kertas"
harga = 25000
satuan = "Rim"
Case "Pulpen"
harga = 10000
satuan = "Pak"
End Select

lblBarang.Caption = "Barang : " & List1.Text
lblHarga.Caption = "Harga : " & Format(harga,
"Currency") & "/" & satuan
lblJumlah.Caption = "Jumlah : " & Text1.Text & " " &
satuan
jumlah = Text1.Text
Select Case jumlah
Case Is < 10
diskon = 0
Case 10 To 20
diskon = 0.15
Case Else
diskon = 0.2
End Select
total = jumlah * (harga * (1 - diskon))
lblDiskon.Caption = "Diskon : " & Format(diskon, "0
%")
lblTotal.Caption = "Total Bayar : " & Format(total,
"Currency")
End Sub

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

Coba jalankan Project1: 

o    List1 akan terisi nama-nama barang.

o    Klik tombol OK, akan muncul kotak pesan &quot;Anda belum memilih barang !!&quot;.

o    Klik OK, nama barang pertama akan terpilih secara otomatis. Anda boleh memilih nama barang yang lainnya.

o    Klik tombol OK, akan muncul kotak pesan &quot;Anda belum mengisi jumlah barang !!&quot;.

o    Klik OK, text1 akan menjadi focus. Isi jumlah barangnya, misalnya : 10.

o    Klik tombol OKm akan tampil : nama barang, harga barang (persatuannya), jumlah barang (dengan satuannya), diskon dan total bayar.

o    Coba ganti pilihan nama barang (pada List1) dan jumlah barang (pada Text1) lalu klik lagi tombol OK.

Penjelasan kode program: 

Catatan: 

ü  Bila jumlah barang diisi dengan selain angka akan muncul pesan error.

ü  Untuk mengecek isi Text1 angka atau bukan, tambahkan kode berikut:

If Not IsNumeric(Text1.Text) Then
MsgBox "Isi jumlah barang harus angka !!"
Text1.SetFocus
Exit Sub
End If