Belajar Visual Basic 6.0 (Visual Basic Tutorial)

          Assalamualaikum Wr. Wb. Kali ini saya akan memberikan materi tantang VB (Visual Basic) versi 6.0. Ada berbagai macam soal program dalam materi VB. Berikut program beserta kode-kodenya :
Program ke 1 :

          Untuk membuat program seperti pada tampilan diatas caranya :
Buat desain seperti ini :

Kode-kodenya :

1. Merah (OptionButton1)
Private Sub Option1_Click()
Label2.ForeColor = vbRed
End Sub
2. Biru (OptionButton2)
Private Sub Option2_Click()
Label2.ForeColor = vbBlue
End Sub
3. Miring (CheckBox1)
Private Sub Check1_Click()
Label2.FontItalic = Check1.Value
End Sub
4. Tebal (CheckBox2)
Private Sub Check2_Click()
Label2.FontBold = Check2.Value
End Sub
5. OK (CommandButton1)
Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub
6. Keluar (CommandButton2)
Private Sub Command2_Click()
End
End Sub

Program Ke 2 :

          Untuk membuat program seperti pada tampilan diatas caranya :
Buat desain seperti ini :

Kode-kodenya :

1. Daftar nama (ComboBox1) (Klik diarea form)
Private Sub Form_Load()
Combo1.AddItem "Syarifah Aini"
Combo1.AddItem "iTSyarifah"
Combo1.AddItem "Ipeh"
Combo1.AddItem "Ushio"
Combo1.AddItem "Okazaki"
End Sub
2. Add (CommandButton1)
Private Sub Command1_Click()
List1.AddItem Combo1.Text
End Sub
3. Delete (CommandButton2)
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
End Sub
4. Close (CommandButton3)
Private Sub Command3_Click()
End
End Sub

Program ke 3 :

          Untuk membuat program seperti pada tampilan diatas caranya :
Buat desain seperti ini :

 Kode-kodenya :

1. Merah (OptionButton1)
Private Sub Option1_Click()
Form3.BackColor = vbRed
End Sub
2. Hijau (OptionButton2)
Private Sub Option2_Click()
Form3.BackColor = vbGreen
End Sub
3. Kuning (OptionButton3)
Private Sub Option3_Click()
Form3.BackColor = vbYellow
End Sub

Program ke 4 :

          Untuk membuat program seperti pada tampilan diatas caranya :
Buat desain seperti ini :

Kode-kodenya :

1. Rata Kiri (OptionButton1)
Private Sub Option1_Click()
Me.Label1.Alignment = 0
End Sub
2. Rata Tengah (OptionButton2)
Private Sub Option2_Click()
Me.Label1.Alignment = 2
End Sub
3. Rata Kanan (OptionButton3)
Private Sub Option3_Click()
Me.Label1.Alignment = 1
End Sub

Program ke 5 :

          Untuk membuat program seperti pada tampilan diatas caranya :
Buat desain seperti ini :

Kode-kodenya :

1. Daftar menu makanan (ComboBox1)(Klik diarea form)
Daftar menu makanan (ComboBox2)(Klik diarea form)
Private Sub Form_Load()
Form5.BackColor = vbWhite
Combo1.AddItem "Mie Ayam"
Combo1.AddItem "Mie Goreng"
Combo1.AddItem "Bakso"
Combo1.AddItem "Gado-Gado"
Combo2.AddItem "Es Teh"
Combo2.AddItem "Es Doger"
Combo2.AddItem "Es Susu"
Combo2.AddItem "Es Degan"
End Sub
2. Order (CommandButton1)
Private Sub Command1_Click()
Text2.Text = Text1.Text
End Sub
3. Add Makanan (CommandButton2)
Private Sub Command2_Click()
List1.AddItem Combo1.Text
End Sub
4. Add Minuman (CommandButton3)
Private Sub Command3_Click()
List2.AddItem Combo2.Text
End Sub
5. Clear (CommandButton4)
Private Sub Command4_Click()
Text2.Text = ""
List1.Clear
List2.Clear
End Sub
6. Mie Ayam
Private Sub Option1_Click()
Text3.Text = "Rp 5000"
End Sub
7. Mie Goreng
Private Sub Option2_Click()
Text3.Text = "Rp 6000"
End Sub
8. Bakso
Private Sub Option3_Click()
Text3.Text = "Rp 7000"
End Sub
9. Gado-Gado
Private Sub Option4_Click()
Text3.Text = "Rp 8000"
End Sub
10. Es Teh
Private Sub Option5_Click()
Text4.Text = "Rp 1500"
End Sub
11. Es Doger
Private Sub Option6_Click()
Text4.Text = "Rp 2500"
End Sub
12. Es Susu
Private Sub Option7_Click()
Text4.Text = "Rp 3500"
End Sub
13. Es Degan
Private Sub Option8_Click()
Text4.Text = "Rp 4500"
End Sub
14. Close
Private Sub Command5_Click()
End
End Sub

          Sekian penjelasan materi dari saya, apabila ada yang ingin ditanyakan silahkan. Bisa chat akun fb yaw. Semoga bermanfaat ^_^ . Wassalamualaikum Wr. Wb.