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

­