Skip Navigation Links.

Percabangan(Branching)                                                                                                                                      

Dim iUmur As Integer
iUmur = 20

If iUmur >= 17 Then
  MsgBox "dewasa"
Else
  MsgBox "masih bau  kencur"
End If

'----------------


Dim iUmur As Integer

iUmur = 20

Select Case iUmur
Case Is >= 17 
  MsgBox "dewasa"
Case Else
  MsgBox "masih bau kencur"
End Select

'------------


Dim iNilai As Integer
Dim sHuruf As String
iNilai = 80

If iNilai >= 50 And iNilai <= 60 Then
  sHuruf = "D"
ElseIf iNilai >= 61 And iNilai <= 70 Then
  sHuruf = "C"
ElseIf iNilai >= 71 And iNilai <= 80 Then
  sHuruf = "B"
ElseIf iNilai >= 81 And iNilai <= 90 Then
  sHuruf = "A"
Else
  sHuruf = "di luar kriteria"
End If

MsgBox sHuruf

'--------------------


Dim iNilai As Integer
Dim sHuruf As String

iNilai = 80

Select Case iNilai
  Case 50 To 60
    sHuruf = "D"
  Case 61 To 70
    sHuruf = "C"
  Case 71 To 80
    sHuruf = "B"
  Case 81 To 90
    sHuruf = "A"
  Case Else
    sHuruf = "di luar kriteria"
End Select

MsgBox sHuruf 


Download contoh source code

Untuk memperoleh penjelasan lebih detail anda bisa baca E-Book saya yang berjudul TRIK DASAR BELAJAR VISUAL BASIC 6.0  klik di sini

                                                                                                                                                                                           
HyperLink Share 
Mau punya penghasilan? ikuti program-program di bawah ini:
xbasicpro.com
HyperLink
counter sejak 5 april 2010
  (C)XBasicPro | XBasicPro di Facebook