Program Visual Basic Cinema 21

Sintaknya :

Dim harga, total As Currency
Dim jumlah As Integer

Sub bersih()
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub

Private Sub Form_Activate()
bersih
cmbjam = "--Pilih--"
Option1.SetFocus
End Sub

Private Sub Option1_Click()
Option1.Value = True
txtjudul.Text = "Iron Man 2"
cmbjam.List(0) = "14:05"
cmbjam.List(1) = "15:55"
cmbjam.List(2) = "17:45"
cmbjam.List(3) = "19:35"
List1.List(0) = "Senin"
List1.List(1) = "Selasa"
List1.List(2) = "Rabu"
List1.List(3) = "Kamis"
List1.List(4) = "Jum'at"
List1.List(5) = "Sabtu"
List1.List(6) = "Minggu"
List2.List(0) = "A"
List2.List(1) = "B"
List2.List(2) = "C"
List2.List(3) = "D"
List2.List(4) = "E"
List2.List(5) = "F"
List2.List(6) = "G"
List2.List(7) = "H"
List2.List(8) = "I"
List2.List(9) = "J"
For s = 1 To 10
List3.AddItem s
Next
End Sub

Private Sub Option2_Click()
Option2.Value = True
txtjudul.Text = "The Book Of Eli"
cmbjam.List(0) = "14:45"
cmbjam.List(1) = "17:00"
cmbjam.List(2) = "19:15"
cmbjam.List(3) = "21:30"
List1.List(0) = "Senin"
List1.List(1) = "Selasa"
List1.List(2) = "Rabu"
List1.List(3) = "Kamis"
List1.List(4) = "Jum'at"
List1.List(5) = "Sabtu"
List1.List(6) = "Minggu"
List2.List(0) = "A"
List2.List(1) = "B"
List2.List(2) = "C"
List2.List(3) = "D"
List2.List(4) = "E"
List2.List(5) = "F"
List2.List(6) = "G"
List2.List(7) = "H"
List2.List(8) = "I"
List2.List(9) = "J"
For s = 1 To 10
List3.AddItem s
Next
End Sub

Private Sub Option3_Click()
Option3.Value = True
txtjudul.Text = "Green Zone"
cmbjam.List(0) = "14:55"
cmbjam.List(1) = "17:05"
cmbjam.List(2) = "19:15"
cmbjam.List(3) = "21:25"
List1.List(0) = "Senin"
List1.List(1) = "Selasa"
List1.List(2) = "Rabu"
List1.List(3) = "Kamis"
List1.List(4) = "Jum'at"
List1.List(5) = "Sabtu"
List1.List(6) = "Minggu"
List2.List(0) = "A"
List2.List(1) = "B"
List2.List(2) = "C"
List2.List(3) = "D"
List2.List(4) = "E"
List2.List(5) = "F"
List2.List(6) = "G"
List2.List(7) = "H"
List2.List(8) = "I"
List2.List(9) = "J"
For s = 1 To 10
List3.AddItem s
Next
End Sub

Private Sub Option4_Click()
Option4.Value = True
txtjudul.Text = "Hurt Locker"
cmbjam.List(0) = "14:25"
cmbjam.List(1) = "16:50"
cmbjam.List(2) = "19:15"
cmbjam.List(3) = "21:40"
List1.List(0) = "Senin"
List1.List(1) = "Selasa"
List1.List(2) = "Rabu"
List1.List(3) = "Kamis"
List1.List(4) = "Jum'at"
List1.List(5) = "Sabtu"
List1.List(6) = "Minggu"
List2.List(0) = "A"
List2.List(1) = "B"
List2.List(2) = "C"
List2.List(3) = "D"
List2.List(4) = "E"
List2.List(5) = "F"
List2.List(6) = "G"
List2.List(7) = "H"
List2.List(8) = "I"
List2.List(9) = "J"
For s = 1 To 10
List3.AddItem s
Next
End Sub

Private Sub cmdbeli_Click()
time.Caption = cmbjam
date.Caption = List1
judulfilm.Caption = txtjudul

jumlah = List3
Select Case List1.ListIndex
Case 0, 1, 2, 3
harga = 20000
total = jumlah * harga
txttotal.Text = total
price.Caption = total
Case 4
harga = 30000
total = jumlah * harga
txttotal.Text = total
price.Caption = total
Case 5, 6
harga = 45000
total = jumlah * harga
txttotal.Text = total
price.Caption = total
End Select
txtcash.SetFocus
End Sub

Private Sub txtcash_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txtkembali = Val(txtcash) - Val(txttotal)
End If
End Sub

Private Sub cmdclear_Click()
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
txtjudul.Text = " "
cmbjam.Clear
List1.Clear
List2.Clear
List3.Clear
judulfilm.Caption = " "
time.Caption = " "
date.Caption = " "
txttotal.Text = " "
txtcash.Text = " "
txtkembali.Text = " "
End Sub

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