contoh vb 3 (penjualan dvd)

listingnya

Sub aktif()
Combo1.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
End Sub
Sub nonaktif()
Combo1.Enabled
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = True
End Sub
Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub

Private Sub Check1_Click()
Text7.Text = "KTP"

End Sub

Private Sub Check2_Click()
Text9.Text = "KTM"
End Sub

Private Sub cmdinput_Click(Index As Integer)
bersih
End Sub

Private Sub cmdkeluar_Click(Index As Integer)
x = MsgBox("Yakin Keluar?", vbYesNo + vbQuestion, "Penyewaan DVD")
If x = vbYes Then
Unload Me
End If

End Sub

Private Sub Combo1_click()
Text1.Enabled = True
Text2.Enabled = True
If Combo1.Text = "IND" Then '
Text1.Text = "INDONESIA"
Text2.Text = 10000
ElseIf Combo1.Text = "HIN" Then
Text1.Text = "INDIA"
Text2.Text = 20000
ElseIf Combo1.Text = "ENG" Then '
Text1.Text = "INGGRIS"
Text2.Text = 30000
ElseIf Combo1.Text = "ASI" Then
Text1.Text = "ASIA"
Text2.Text = 15000
Else
Text1.Text = "ASIA"
Text2.Text = 25000
End If



End Sub

Private Sub Command1_Click()
List1.AddItem (Text8.Text) & "-" & (Text1.Text) & "-" & (Text3.Text) & "-" & (Text6.Text) & "+jaminan=" & (Text7.Text) & "-" & (Text9.Text)
End Sub

Private Sub Command2_Click()
Text4.Text = Val(Text2.Text) * Val(Text3.Text)
End Sub

Private Sub Command3_Click()
Text6.Text = Val(Text4.Text) - Val(Text5.Text)
End Sub

Private Sub Form_Activate()
bersih
Combo1.Enabled = True

End Sub

Private Sub Option1_Click()
Text5.Text = 0.05 * Val(Text4.Text)
End Sub

Private Sub Option2_Click()
Text5.Text = "0"
End Sub