 | Artikel Visual Basic |
| Basis Data - Database |
| Pemrograman Grafis |
| E-Book Tutorial |
| Video Kursus - Tutorial |
| Software - Open Source code |
| W E B Programming |
| Windows System |
| XBasicFramework |
| Berbagi Pengalaman |
| Quick Basic |
|
Software gratis! Open Source
Code
|
|
|
|
|
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 |
|