Source Code :
Program Visual Basic: Membuat Aplikasi Pembelian Tiket Bioskop pintarkoding - Uncategorized - 550 views Ini adalah Soal A Ujian tengah semester saya, Ternyata untuk membuat program memang tidak bisa di bataskan waktu hanya 2 jam saja, karena saya baru bisa menyelesaikan soal ini butuh waktu selama 2 hari, mesti belajar lebih giat jadinya. Program Visual Basic: Membuat Aplikasi Pembelian Tiket Bioskop Category: iMe 14 Comments Asalamualaikum.wr.wb. Salam sehat salam merdeka kawan – kawan seperjuangan.
Private Sub Command1_Click()
Dim A, JK, HT, JB As String
A = Left(text1.Text, 3)
If A = “BIM” Then
JK = “BIMA”
HT = “50000”
JB = “16.00 WIB”
ElseIf A = “EKO” Then
JK = “EKONOMI”
HT = “35000”
JB = “19.00 WIB”
ElseIf A = “MUT” Then
JK = “MUTIARA”
HT = “23000”
JB = “17.00 WIB”
ElseIf A = “SEN” Then
JK = “SENJA”
HT = “15000”
JB = “20.00”
End If
text2.Text = HT
text3.Text = JK
text4.Text = JB
text5.SetFocus
End Sub
Contoh Program Penjualan Tiket Dengan Visual Basic 1
Private Sub Command2_Click()
text1.SetFocus
text1.Text = “”
text2.Text = “”
text3.Text = “”
text4.Text = “”
text5.Text = “”
text6.Text = “”
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Activate()
text1.SetFocus
End Sub
Private Sub text5_KeyPress(KeyAscii As Integer)
Contoh Program Penjualan Ticket Dengan Visual Basic Dan
If KeyAscii = 13 Then
text6.Text = Val(text2.Text) * Val(text5.Text)
Contoh Program Penjualan Tiket Dengan Visual Basic 2016
text6.SetFocus
End If
Contoh Program Penjualan Tiket Dengan Visual Basic Online
End Sub