Belajar Autodidak Bahasa Pemrograman Visual Basic 6

Visual Basic adalah Bahasa Pemrograman yang sangat mudah di pahami diantara bahasa pemrograman seperti Visual Foxpro, Turbo Pascal,  Turbo C++ dll. disni kita akan mencoba beberapa kode yang di punyai oleh VB6  diantaranya Select Case Of :
Srib di bawah ini :

Option Explicit
Sub Op1()
List1.Clear
List1.AddItem "Jagung"
List1.AddItem "Kelapa"
List1.AddItem "Kacang"
End Sub
Sub Op2()
List1.Clear
List1.AddItem "Brambang"
List1.AddItem "Bawang"
List1.AddItem "Kedelai"
End Sub

Sub Op3()
List1.Clear
List1.AddItem "Kambil"
List1.AddItem "Obat "
List1.AddItem "Meja"
End Sub

Sub KALI()
Label3 = Format(Label3, "###,###")
Label7 = Format((Label3 * Text1), "####,###")

End Sub

Private Sub List1_Click()
Label2 = List1.Text
Select Case List1.Text
Case "Jagung"
    Label3 = 1500
    KALI
Case "Kelapa"
    Label3 = 2000
     KALI
Case "Kacang"
    Label3 = 4000
     KALI
Case "Brambang"
    Label3 = 5000
      KALI
Case "Bawang"
    Label3 = 10000
      KALI
Case "Kedelai"
    Label3 = 3900
      KALI
Case "Kambil"
    Label3 = 15000
      KALI
Case "Obat"
    Label3 = 95000
      KALI
Case "Meja"
    Label3 = 8700
     KALI
End Select


End Sub

Private Sub Option1_Click()
Label1 = "Pesanan Ke 1"
Op1
End Sub

Private Sub Option2_Click()
Op2
Label1 = "Pesanan Ke 2"
End Sub

Private Sub Option3_Click()
Op3
Label1 = "Pesanan Ke 3"
End Sub

Prevew Yang Di hasilkan dari Code srib Di atas :


Kode Source bisa download disni
Terimakasih Atas Kunjungan Ke Blog ini