Kode Program Visual Basic

1. Struktur Select Case

Private Sub Command1_Click()
Dim harga As Currency, total As Currency
Dim jumlah As Integer
Dim diskon As Single
Dim satuan As String
If List1.Text = "" Then
MsgBox "Anda belum memilih..!"
List1.ListIndex = 0
Exit Sub
End If
If Text1.Text = "" Then
MsgBox "Anda belum mengisi jumlah barang..!"
Text1.SetFocus
Exit Sub
End If
Select Case List1.Text
Case "Disket"
harga = 35000
satuan = "Box"
Case Is = "Buku"
harga = 20000
satuan = "Lusin"
Case Is = "Kertas"
harga = 25000
satuan = "Rim"
Case Is = "Pulpen"
harga = 10000
satuan = "Pack"
End Select
LABELBARANG.Caption = "Barang:" & List1.Text
LABELHARGA.Caption = "Harga:" & Format(harga, "Currency") & "/" & satuan
LABELJUMLAH.Caption = "Jumlah:" & Text1.Text & "" & satuan
jumlah = Text1.Text
Select Case jumlah
Case Is < 10
diskon = 0
Case 10 To 20
diskon = 0.15
Case Else
diskon = 0.2
End Select
total = jumlah * (harga * (1 - diskon))
LABELDISKON.Caption = "diskon:" & Format(diskon, "0%")
LABELTOTAL.Caption = "Total Bayar:" & Format(total, "Currency")
End Sub


2. Fungsi

contoh fungsi :
dim s as string     --> Variable Global----------------------------------------------------------------------------------------------------------
           [fungsi pertama]

Private Sub Tampil()
Debug.Print "Fungsi Pada Visual Basic"
s = s + "Funsi Pada Visual Basic"
End Sub----------------------------------------------------------------------------------------------------------
              [fungsi kedua]

Private Sub Garis()
Debug.Print "==============="
s = s + "==============="
End Sub----------------------------------------------------------------------------------------------------------
          [program utama]

Private Sub form_load()
Garis
s = s + Chr(13)
Tampil
s = s + Chr(13)
Garis
MsgBox s
Esnd Sub

Selamat Mencoba.

sumber : disini