MEMBUAT PEMBELIAN TIKET SEDERHANA

Udah lama ni kagak posting sibuk mulu hehehe
Udah sekitar 1 bulan ni kagak coret coret blog baru sempat hari ni, mumpung lagi kosong jadwal kuliah,,,lagian si kawan udah pada maksa ni buat posting hehe

Yaudah langsung aja gak usah banyak basa basi wkwk



Di sini ane mau posting tu sdikit cara membuat pembelian tiket tapi yg sederhana yaaa kn ane masih newbie
langsung aja cekicrot

-Buka vb
kalo gak tau buka vb silahkan googling mbak bro

-Pilih standar exe lalu open

-Siapkan 6 buah label

-1 combo box

-5 text box

-3 command button

- Isi list combo box dengan kota tujuan

Dan desain lah seperti ini

Kemudian masukan koding  :

Private pilihan As String
Private x As Double
Private y As Double


Private Sub CBBANYAKTIKET_Change()
If Val(CBBANYAKTIKET) >= 7 Then
TXTDISKON = "30%"
TXTTOTAL = Val(TXTTARIF.Text) * Val(CBBANYAKTIKET.Text)

ElseIf Val(CBBANYAKTIKET) < 3 Then
TXTTOTAL = Val(TXTTARIF.Text) * Val(CBBANYAKTIKET.Text)


ElseIf Val(CBBANYAKTIKET) >= 3 Then
TXTDISKON = "20%"
TXTTOTAL = Val(TXTTARIF.Text) * Val(CBBANYAKTIKET.Text)

End If

End Sub

 Private Sub CBKOTATUJUAN_Click()
 If CBKOTATUJUAN = "JAMBI - BATAM" Then

 
 
    TXTTARIF = "500000"
 

ElseIf CBKOTATUJUAN = "JAMBI - JAKARTA" Then
    TXTTARIF = 700000
 
ElseIf CBKOTATUJUAN = "JAMBI - MEDAN" Then
    TXTTARIF = 750000
 
End If
End Sub

Private Sub CMDHITUNG_Click()




TXTTOTAL.Text = total


End Sub

Private Sub Command1_Click()
End
End Sub





Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub CMDLAGI_Click()
CBKOTATUJUAN = ""
CBBANYAKTIKET = ""
TXTTARIF = ""
TXTDISKON = ""
TXTTOTAL = ""
TXTLABEL = ""
TXTTOTALBAYAR = ""
End Sub

Private Sub CMDTOTALBAYAR_Click()


Dim TARIF As String
Dim total As Long
Dim TOTALAHIR As String


If Val(TXTDISKON) = 20 Then
TXTTOTALBAYAR = Val(TXTTOTAL.Text) - Val(0.2 * TXTTOTAL)
ElseIf TXTDISKON = "" Then
TXTTOTALBAYAR = TXTTARIF





ElseIf Val(TXTDISKON) = 30 Then
TXTTOTALBAYAR = Val(TXTTOTAL.Text) - Val(0.3 * TXTTOTAL)
  End If


End Sub



Kalo sudah semua langsung saja jalankan programnya
Selamat mencoba :D
Jika terjadi eror silahkan Coment atau PM ane Disini
Regard : Arif