Program Visual Basic VCD/CD Cartoon

Sintaknya :

Private Sub Timer1_Timer()
txtwaktu = Time
txttanggal = Format(Date, "dddd,d mmmm yyyy")
End Sub
Private Sub Form_Activate()
cmbkode.Text = "--Kode--"
cmbkode.SetFocus
End Sub

Private Sub Form_Load()
cmbkode.AddItem ("001")
cmbkode.AddItem ("002")
cmbkode.AddItem ("003")
cmbkode.AddItem ("004")
cmbkode.AddItem ("005")
End Sub

Private Sub cmbkode_Click()
If cmbkode = "001" Then
txtnama = "Detective Conan Series"
txtharga = 45000
ElseIf cmbkode = "002" Then
txtnama = "Dragon Ball Series"
txtharga = 26000
ElseIf cmbkode = "003" Then
txtnama = "Naruto Shippuden Series"
txtharga = 40000
ElseIf cmbkode = "004" Then
txtnama = "Deathe Note Series"
txtharga = 25000
ElseIf cmbkode = "005" Then
txtnama = "Bleach Series"
txtharga = 32000
End If
End Sub

Private Sub Check1_Click()
If Check1 = 1 And Check2 = 0 Then
txtharga1 = 5000
ElseIf Check1 = 0 And Check2 = 1 Then
txtharga1 = 10000
ElseIf Check1 = 1 And Check2 = 1 Then
txtharga1 = 15000
Else
txtharga1 = 0
txtharga1.SetFocus
End If
End Sub

Private Sub Check2_Click()
If Check1 = 1 And Check2 = 0 Then
txtharga1 = 5000
ElseIf Check1 = 0 And Check2 = 1 Then
txtharga1 = 10000
ElseIf Check1 = 1 And Check2 = 1 Then
txtharga1 = 15000
Else
txtharga1 = 0
End If
End Sub

Private Sub txtharga1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttobay = (Val(txtharga.Text) * Val(txtjumbel.Text)) + Val(txtharga1.Text)
End If
txtbayar.SetFocus
End Sub

Private Sub txtbayar_Change()
txtkembali = Val(txtbayar.Text) - Val(txttobay.Text)
End Sub

Private Sub cmdclear_Click()
cmbkode.Text = "--Kode--"
txtnama.Text = " "
txtharga.Text = " "
txtjumbel.Text = " "
Check1.Value = False
Check2.Value = False
txtharga1.Text = " "
txttobay.Text = " "
txtbayar.Text = " "
txtkembali.Text = " "
cmdexit.SetFocus
End Sub

Private Sub cmdexit_Click()
x = MsgBox("Are Your Sure Exit?", vbQuestion + vbYesNoCancel, "Confrimasi")
If x = vbYes Then
End
End If
End Sub