Program Tiket Pesawat Terbang menggunakan VB 6.0


MEMBUAT PROGRAM TIKET PENERBANGAN DENGAN VB.6
























1.      Memasukkan data ke dalam combocode untuk kode penerbangan

Private Sub Form_Activate()

combocode.Text = ""
combocode.SetFocus
combocode.AddItem "GA219DC9"
combocode.AddItem "GA430DC9"
combocode.AddItem "GA660AB3"
combocode.AddItem "GA898747"
combocode.AddItem "GA958D10"

End Sub

2.      Memasukkan data secara otomatis ke dalam flight type (tflight.text) dan bonus (tbonus.text) ketika combocode selesai diklik

Private Sub combocode_Click()

KODE = combocode.Text

X = Right(KODE, 3)
If X = "DC9" Then
tflight = "DC 9"
ElseIf X = "AB3" Then
tflight = "AIRBUS-3"
ElseIf X = "747" Then
tflight = "BOEING-747"
ElseIf X = "D10" Then
tflight = "DC-10"
End If

Y = Left(KODE, 5)
If Y = "GA219" Then
tbonus.Text = "LUNCH"
ElseIf Y = "GA430" Then
tbonus.Text = "BREAKFAST"
ElseIf Y = "GA660" Then
tbonus.Text = "DINNERS"
ElseIf Y = "GA898" Then
tbonus.Text = "SNACK"
ElseIf Y = "GA958" Then
tbonus.Text = "BREAKFAST"

End If

'agar cursor ada di harga tiket setelah combobox diklik
ttiket.SetFocus

End Sub

3.      Agar harga tiket hanya bisa diisi oleh numeric dan bisa dihapus dengan backspace

Private Sub ttiket_KeyPress(KeyAscii As Integer, Shift As Integer)

If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If

End Sub

4.      Penghitungan total bayar (cmdhitung)

Private Sub CMDHITUNG_Click()

Dim HARGA As String
Dim total As Long
Dim PAJAK As String
HARGA = ttiket.Text

If HARGA < 100000 Then
tpajak.Text = "10%"
ElseIf HARGA >= 100000 And HARGA <= 500000 Then
tpajak.Text = "12%"
ElseIf HARGA > 500000 And HARGA < 1000000 Then
tpajak.Text = "14%"
ElseIf HARGA >= 1000000 Then
tpajak.Text = "15%"
End If

total = HARGA + (HARGA * (Val(Left(tpajak.Text, 2))) / 100)
ttotal.Text = total

End Sub

5.      Menambahkan message box apabila ada data yang belum diisi
Garis tebal adalah perintah untuk message box, berikut cmdhitung setelah divariasi :

Private Sub CMDHITUNG_Click()

'1 untuk message box "ada data yang belum terisi!"
On Error GoTo salah
Call balik      

'untuk message box apabila belum mengisi kode penerbangan
If combocode.Text = "" Then
MsgBox "Ada data yang belum terisi!" And tpajak.Text = ""
ElseIf combocode.Text = "" Then
ttiket.Text = ""
ElseIf combocode.Text = "" Then
tpajak.Text = ""
ElseIf combocode.Text = "" Then
ttotal.Text = ""
End If

…. CODING UNTUK PENGHITUNGAN TOTAL (CODING DIATAS)….


'lanjutan 1 message box apabila ada data yang belum terisi
combocode.SetFocus
Exit Sub
salah:
MsgBox "Ada data yang belum terisi!"
End Sub

Sub balik()
'lanjutan 1 message box apabila ada data yang belum terisi
combocode.SetFocus
End Sub




6.      Mengosongkan data (cmdlagi)

Private Sub CMDLAGI_Click()

combocode.Text = ""
tflight.Text = ""
ttiket.Text = ""
tbonus.Text = ""
tpajak.Text = ""
ttotal.Text = ""

End Sub

7.      Keluar dari program (cmdselesai)

Private Sub CMDSELESAI_Click()
Unload Me
End Sub


Moga bermanfaat ya... E-mail me or add my fb jika punya pertanyaan.  ^_^ by tama beruang kutub
­
---------------------------------------------------------------------------------------------------------------------------------------------------------
Ranking: 5
 
© Bosan Kuliah All Rights Reserved