Teori Visual Basic

1. Pemilihan

Struktur pemilihan memungkinkan kita melakukan aksi jika suatu syarat dipenuhi..

• IF - Then

if <kondisi> then
     <statement>
     elseif <kondisi> then
          <statement>
endif

contoh :

If na >= 80 Then
    nm = "A"
    ElseIf na >= 70 Then
        nm = "B"
        ElseIf na >= 60 Then
        nm = "C"
            ElseIf na >= 50 Then
            nm = "D"
                Else
                    nm = "E"
End If

• Select Case

select case (variable)

     case nilai 1 : <statement>

     case nilai 2 : <statement>

     case nilai N : <statement>

endselect

contoh :Select Case na

    Case 80 To 100: nm = "A"

    Case Is >= 70: nm = "B"

    Case Is >= 60: nm = "C"

    Case Is >= 50: nm = "D"

    Case 0 To 49: nm = "E"

End Select

2. Pengulangan (Looping)

Struktur loop memperbolehkan anda untuk melakasanakan sekelompok  baris terlebih dari satu kali. 

a. for..next

for <var_index> to <nilai_akhir>

     <kode program>

next <var_index>

contoh :

for i=1 to 10

    list1.additem i

next i

b. do..while

<inisialisasi>

do while <kondisi>

     <kode program>

     <counter>

loop

contoh:

i=1

do while (i<=10)

     list1.additem i

     i=i+1

loop

c. do..until

<inisialisasi>

do

     <kode program>
     <counter>
loop until <kondisi>

contoh:
i=1
do 
    list1.additem i
    i=i+1
loop until (i>10)

3. Procedure

Procedure  adalah blok kode program yang berisi perintah-perintah untuk  mengerjakan tugas tertentu. Bila di dalam kode program yang kita buat ada  perintah-perintah untuk melakukan tugas yang sama di beberapa tempat, maka  akan lebih baik perintah-perintah tersebut dibuat dalam sebuah procedure.  Kemudian, procedure itu bisa di-‘panggil’ bila diperlukan. 

sub nama_procedure(parameter)

    <statement>

end sub

contoh :

Private Sub kosongkan() 'procedure kosongkan

    Text1 = ""

    Text2 = ""

    Text3 = ""

    Text4 = ""

    Text5 = ""

    Text6 = ""

    Text7 = ""

    Text8 = ""

End Sub

'procedure untuk menghitung luas segitiga

Sub LuasSegitiga() 
    alas = Text1
    tinggi = Text2
    luas = (alas * tinggi) / 2
    Text3 = luas
End Sub


Sub LuasSegitga2(alas, tinggi As Integer)
    luas = (alas * tinggi) / 2
    Text3 = luas
End Sub


panggil =  
LuasSegitiga
LuasSegitga2 Text1, Text2

4. Array

Array adalah kelompok berturut-turut lokasi memori yang semua memiliki nama yang sama dan jenis yang sama. Untuk merujuk ke lokasi tertentu atau elemen dalam array, kita tentukan nama array dan nomor elemen array posisi.
Dim nama_array(banyak) as tipe data

contoh:
Dim A(5) as integer

contoh program :

Dim harga(20) As Integer
Dim n As Integer

Private Sub Command1_Click()
    n = n + 1
    harga(n) = Trim(Text1.Text)
    
    Text1.Text = ""
    Text1.SetFocus
    
        List1.Clear
    For i = 1 To n
        List1.AddItem harga(i)
    Next i
End Sub

Private Sub Command2_Click()
    Dim rata As Double
    Dim jumlah As Integer
    jumlah = 0
    For i = 1 To n
        jumlah = harga(i) + jumlah
    Next i
    rata = jumlah / n
    List1.AddItem ""
    List1.AddItem "Rata-Rata = " & rata
End Sub

Private Sub Command3_Click()
angkaMax = harga(1)
For i = 2 To n
If harga(i) > angkaMax Then angkaMax = harga(i)
Next
List1.AddItem ""
List1.AddItem "Harga Maksimum = " & angkaMax

End Sub

Private Sub Command4_Click()
angkaMin = harga(1)
For i = 2 To n
If harga(i) < angkaMin Then angkaMin = harga(i)
Next
List1.AddItem ""
List1.AddItem "Harga Minimum = " & angkaMin
End Sub

Private Sub Form_Load()
   n = 0
End Sub