Project Agen Bus (Visual Basic)

Project Agen Bus

Objek	Caption
Label 1	AGEN BUS SEPTIAN LESMANA
Label 2	KODE BUS
Label 3	NAMA BUS
Label 4	WAKTU
Label 5	HARGA TIKET
Label 6	JUMLAH BELI
Label 7	JAM
Label 8	TANGGAL
Label 9	TOTAL BAYAR
Label 10	UANG BAYAR
Label 11	UANG KEMBALI
Label 12	Jalan Pancoran Barat VA Jakarta Telp(021)7584544
COMMAND 1	LAGI
COMMAND 2	KELUAR
COMMBO 1	COMMBO 1
TEXT 1	TEXT 1
FRAME 1	REGISTRASI
FRAME 2	PILIHAN
FRAME 3	TIME
FRAME 4	PEMBAYARAN
TEXT 1	TEXT 1
TEXT 2	TEXT 2
TEXT 3	TEXT 3
TEXT 4	TEXT 4
TEXT 5	TEXT 5
TEXT 6	TEXT 6
TEXT 7	TEXT 7
TEXT 8	TEXT 8

 Coding Project :

Private Sub Combo1_Click() If Combo1.Text = "sj" Then Text1.Text = "sinar jaya" ElseIf Combo1.Text = "dd" Then Text1.Text = "dedy jaya" ElseIf Combo1.Text = "dw" Then Text1.Text = "dewi sri" ElseIf Combo1.Text = "la" Then Text1.Text = "lur agung" Else Text1.Text = "luragung" End If End Sub Private Sub Command1_Click() Combo1.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Option1.Value = False Option2.Value = False Option3.Value = False End Sub Private Sub Command2_Click() a = MsgBox("anda ingin keluar?", vbQuestion + vbYesNo) If a = vbYes Then Unload Me End If End Sub Private Sub option1_click() If Option1.Value = True Then Text2.Text = "30000" End If End Sub Private Sub option2_click() If Option2.Value = True Then Text2.Text = "45000" End If End Sub Private Sub option3_click() If Option3.Value = True Then Text2.Text = "50000" End If End Sub Private Sub Text4_Change() Text4.Text = Val(Text2.Text) * Val(Text3.Text) End Sub Private Sub form_activate() Text7.Text = Date Text6.Text = Time End Sub Private Sub Text8_Change() Text8.Text = Val(Text5.Text) - Val(Text4.Text) End Sub Private Sub form_load() Form1.BackColor = RGB(255, 0, 0) End Sub 

Salam Sahabat,