Percabangan dan Perulangan pada Visual Basic 6

3/31/2014 07:52:00 PM Salman 0 Comments

Percabangan adalah metode yang ada pada semua bahasa pemrograman yang mengijinkan user untuk memilih dan mengeksekusi blok kode dan mengabaikan blok kode yang lain. Sedangkan Perulangan adalah metode yang terdapat pada semua bahasa pemrograman yang mengijinkan kita untuk mengeksekusi blok code berulang-ulang dalam kurun nilai tertentu.

Macam-macam bentuk percabangan pada Visual Basic 6 :

1. If ....Then

Digunakan untuk memilih dua kondisi atau lebih dengan memeriksa syarat pada tiap kondisi, jika syarat pada kondisi 1 bernilai benar ( True ) maka program akan menjalankan pernyataan 1, jika kondisi 1 bernilai salah ( False ) maka program akan memeriksa kondisi 2, jika syarat pada kondisi 2 benar ( True ) maka program akan menjalankan pernyataan 2 jika kondisi 2 benilai salah ( False ) maka program akan memeriksa kondisi berikutnya dan seterusnya hingga kondisi terakhir pada percabangan.

Bentuk Umum :

If Kondisi1 Then

Statement1

ElseIf Kondisi2 Then

Statement2

Else

Statement3

End if

2.Select Case

Kegunaannya sama dengan bentuk If....Then namun Select Case digunakan dalam alur program yang membutuhkan banyak percabangan.
Bentuk Umum :

Select Case Pilihan

Case 1 Statement1 …

Case 2 Statement2 …

Case 3 Statement3 …

End Select

Macam-macam bentuk perulangan :

1. Do While … Loop

Kata while dalam pernyataan Do While merintahkan program untuk melakukan perulangan apabila kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan bernilai False maka program akan keluar dari perulangan dan berpindah ke kode program berikutnya. Bentuk umum :

Do While Kondisi
Pernyataan
…
Loop

Sintaks di atas adalah bentuk Do While dimana kondisi akhir perulangan terletak di awal sedangkan bentuk Do While yang letak kondisi akhirnya di akhir adalah sbb :

Do
Statement
……
Loop While Kondisi

2. Do Until … Loop

Pada dasarnya, perulangan DO Until adalah sama dengan perulangan DO While. Yang membedakannya adalah pada perulangan Do While perulangan akan terus berjalan selama kondisi bernilai True dan akan berhenti jika kondisi bernilai False sedangkan pada perulangan Do Until perulangan akan terus berjalan apabila kondisi bernilai salah dan akan brhenti jika kondisi bernilai True.

Bentuk Umum :

Do Until Kondisi
Pernyataan
…
Loop

Perulangan Do Until juga memiliki bentuk sintaks yang lain dimana kondisi diletakkan di akhir pernyataan perulangan. Bentuk sintaksnya adalah sbb :

Do
Pernyataan
……
Loop Until Kondisi

3. While … Wend

Perulangan While … Wend digunakan saat kita ingin pernyataan pada program dijalankan selama kondisi ekspresi yang di tetapkan masih bernilai True.

Bentuk Umum :

Pernyataan
…
Wend

4. For … Next
Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah tertentu yang kita kehendaki. Kita harus mendeklarasikan sebuah variabel yang akan digunakan sebagai indeks untuk perulangan.
Bentuk Umum :

For Indeks = NilaiAwal To NilaiAkhir
Pernyataan
…..
Next Indeks

Contoh Programnya pada Visual Basic 6 :

1.Buat Form seperti pada gambar berikut

2. 2X klik pada dimana saja pada form untuk membuka code editor dan tuliskan code :

Private Sub Form_Load()
Combo1.AddItem ("A")
Combo1.AddItem ("B")
Combo1.AddItem ("C")
End Sub

3. 2X klik pada command button "Hitung" untuk membuka code editor

Private Sub Command1_Click()
Dim upah As Long
jk = Text2.Text

If Text1.Text = "" Or Text2.Text = "" Or Combo1.Text = "" Then
MsgBox "data belum lengkap", vbCritical, "error"
Exit Sub
End If

If Not IsNumeric(Text2.Text) Then
MsgBox " Jam kerja harus angka", vbCritical, "error"
Else
Label5.Caption = Text1.Text
Label6.Caption = Combo1.Text
Label7.Caption = Text2.Text
Select Case Combo1.Text
Case "A"
If jk < 48 Then
upah = jk * 2000
Else
upah = Val(48) * 2000 + (jk - 48) * 2000
End If
Label8.Caption = upah
Case "B"
If jk < 48 Then
upah = jk * 3000
Else
upah = Val(48) * 3000 + (jk - 48) * 2000
End If
Label8.Caption = upah
Case "C"
If jk < 48 Then
upah = jk * 4000
Else
upah = Val(48) * 4000 + (jk - 48) * 2000
End If
Label8.Caption = upah
End Select
End If
End Sub

4. 2X Klik pada tombol "Exit: untuk membuka jendela code editor