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
