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