Praktik Fungsi Perulangan dan Percabangan VB

Pada Pembelajaran kali ini akan dibahas Praktik Fungsi Perulangan Dan Percabangan dengan VB 6. Jika anda telah membaca Fungsi IF dan Percabangan Pada Postingan sebelumnya, kini saatnya kita mempraktikannya.

Objek yang dibutuhkan :

• 1 Form
• 1 List Box
• 2 Text
• 1 Combo
• 2 Command

Setelah anda medesign seperti gambar diatas, anda bisa memasukan listing dibawah ini :

Private Sub Command1_Click()
List1.Clear
For i = 1 To 5
List1.AddItem i
Next i
End Sub

Private Sub Command2_Click()
Combo1.Clear
Dim a As Byte
Do While a < 5
a = a + 1
Combo1.AddItem a
Loop
End Sub

Private Sub List1_Click()
If List1.ListIndex = 0 Then
Text1 = "Satu"
ElseIf List1.ListIndex = 1 Then
Text1 = "Dua"
ElseIf List1.ListIndex = 2 Then
Text1 = "Tiga"
ElseIf List1.ListIndex = 3 Then
Text1 = "Empat"
ElseIf List1.ListIndex = 4 Then
Text1 = "Lima"
End If
End Sub

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Text2 = 1000
Case 1
Text2 = 2000
Case 2
Text2 = 3000
Case 3
Text2 = 4000
Case 4
Text2 = 5000
End Select
End Sub

Tweet

Subscribe to receive free email updates: