Semua Tutorial Tutorial Visual Basic

1.Fungsi Perulangan 

Fungsi perulangan (interasi) sangat penting dan banyak digunakan dalam pemrograman, diantaranya adalah untuk membaca data secara berulang atau menyimpan data secara berulang.

a) For... Next

For 'variabel' Step 'variabel'

           'pernyataan'        

Next 'variabel'

 

b) Do While... Loop

Do While 'kondisi' 

             'pernyataan'    

Loop

 

c) Do Until... Loop

 

Do Until 'kondisi'

              'pernyataan'   

loop

 

Di bawah ini merupakan Example listing code dari fungsi perulangan di atas:

Private Sub Command1_Click()
'bersihkan list1
List1.Clear
'buat perulangan dari 1 - 10
For baca1 = 1 To 10
    'tambahkan data ke dalam list1
    List1.AddItem baca1
'baca kembali variabel a
Next baca1
End Sub

Private Sub Command2_Click()
'bersihkan isi combo1
Combo1.Clear
'definisikan variabel baca2 sebagai byte
Dim baca2 As Byte
'nilai awal a adalah 0
baca2 = 0
'lakukan perulangan sampai nilai a lebih kecil dari 5
Do While baca2 < 5
    'nilai a yang sudah ada ditambah 1
    baca2 = baca2 + 1
    'tampilkan data di combo1
    Combo1.AddItem baca2
'baca kembali data hingga akhir
Loop
End Sub

Private Sub Command3_Click()
'bersihkan list2
List2.Clear
'definisikan variabel coba3 sebagai byte
Dim baca3 As Byte
'nilai awal baca3 adalah 0
baca3 = 0
'lakukan pembacaan data secara berulang
Do Until baca3 > 5
    'nilai coba3 yang sudah ada ditambah 1
    baca3 = baca3 + 1
    'tampilkan data di list2
    List2.AddItem baca3
'baca terus data hingga nilai terakhir
Loop
End Sub

 

2.Fungsi Percabangan

Fungi percabangan merupakan salah satu kunci pendukung keberhasilan dalam pemrograman.

a) If ... Then

If 'kondisi' Then 'pernyataan'

 

b) If ... Then ... Else ...

IfT 'kondisi  Then 'pernyataan1' Else  'pernyataan2'

 

c) If ... Then ... Elseif 

If 'kondisi1' Then 'pernyataan1'

Elseif 'kondisi2'    Then

         'pernyataan2'       

Else

End if

 

d) Select Case ... End Select

Case 0 

         'pernyataan'

Case 1

          'pernyataan'

End select

Di bawah ini merupakan Example listing code dari fungsi percabangan di atas:

Private Sub Text1_KeyPress(KeyAscii As Integer)
'jika menekan enter (setelah mengisi data di text1), maka...
If KeyAscii = 13 Then
    'jika isi text1 > 100, munculkan pesan...
    If Val(Text1) > 100 Then MsgBox "Nilai tidak boleh melampaui angka 100"
    'jika nilai di text1 antara 100 - 91, maka tampilkan kata "Memuaskan" di label1
    If Val(Text1) = 100 Or Val(Text1) <= 91 Then Label1 = "Memuaskan"
    If Val(Text1) = 90 Or Val(Text1) <= 81 Then Label1 = "Baik"
    If Val(Text1) = 80 Or Val(Text1) <= 71 Then Label1 = "Cukup"
    If Val(Text1) = 70 Or Val(Text1) <= 60 Then Label1 = "Kurang"
    If Val(Text1) <= 60 Then Label1 = "Gagal"
    'jika text1 kosong maka label1 kosong
    If Text1 = "" Then Label1 = ""
End If
'text1 hanya dapat diisi angka 0 - 9
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0
End Sub

'jika isi text2 berubah, maka
Private Sub Text2_Change()
'jika text2 kosong, maka label2 kosong
If Text2 = "" Then
    Label2 = ""
'jika isi text2 a kecil atau A besar maka, tampilkan kata "Memuaskan" di label2
ElseIf Text2 = "a" Or Text1 = "A" Then
    Label2 = "Memuaskan"
ElseIf Text2 = "b" Or Text2 = "B" Then
    Label2 = "Baik"
ElseIf Text2 = "c" Or Text2 = "C" Then
    Label2 = "Cukup"
ElseIf Text2 = "d" Or Text2 = "D" Then
    Label2 = "Kurang"
ElseIf Text2 = "e" Or Text2 = "E" Then
    Label2 = "Gagal"
Else
    'jika isi text2 bukan a,b,c,d,e atau A,B,C,D,E maka
    'tampilkan pesan....
    MsgBox "Abjad yang diketik tidak valid, harusnya A,B,C,D atau E"
    'text2 dikosongkan kembali
    Text2 = ""
End If
End Sub

'pada saat list1 diklik, maka
Private Sub List1_Click()
'baca index list1 (index dimulai dari 0)
Select Case List1.ListIndex
    'jika indexnya 0 = Ar, maka tampilkan kata "Arifyudistira" di label3
    Case 0
        Label3 = "Arifyudistira"
    Case 1
        Label3 = "Rahmathidayat"
    Case 2
        Label3 = "Jonitrimulya"
    Case 3
        Label3 = "Didikpatriota"
End Select
End Sub