Source Code Boarding Pesawat Sederhana Menggunakan VB 6.0

Selamat sore temen - temen, kali ini ane ingin berbagi ilmu kepada temen - temen tentang membuat aplikasi sederhana boarding pesawat. nih aplikasi adalah tugas dari dosen ane dengan matakuliah OOP, jadi buat temen - temen yang udah gak sabaran, langsung aja kie tekape... rancanglah sebuah form pada visual basic seperti pada tampilan dibawah ini


Tampilan Form

setelah merancang form, isi pada jendela code. tulis sintaks di bawah ini :

Private Sub keluar_Click()
End
End Sub

Private Sub kodepenerbangan_click()
If kodepenerbangan = "GIA" Then
pesawat = "GARUDA"
ElseIf kodepenerbangan = "MDA" Then
pesawat = "MANDALA"
ElseIf kodepenerbangan = "MNA" Then
pesawat = "MERPATI"
ElseIf kodepenerbangan = "BTV" Then
pesawat = "BATAVIA"
End If
End Sub

Private Sub form_load()
kodepenerbangan.AddItem "GIA"
kodepenerbangan.AddItem "MDA"
kodepenerbangan.AddItem "MNA"
kodepenerbangan.AddItem "BTV"
kodetujuan.AddItem "JKT"
kodetujuan.AddItem "PDG"
kodetujuan.AddItem "MDN"
kodetujuan.AddItem "SNY"
End Sub

Private Sub kodetujuan_click()
If kodetujuan = "JKT" Then
tujuan = "JAKARTA"
ElseIf kodetujuan = "PDG" Then
tujuan = "PADANG"
ElseIf kodetujuan = "MDN" Then
tujuan = "MEDAN"
ElseIf kodetujuan = "SNY" Then
tujuan = "SURABAYA"
End If
End Sub

Private Sub opt1_Click()
If opt1 = True Then
jamberangkat = "08.00 WIB"
End If
End Sub

Private Sub opt2_Click()
If opt2 = True Then
jamberangkat = "09.30 WIB"
End If
End Sub

Private Sub opt3_Click()
If opt3 = True Then
jamberangkat = "10.10 WIB"
End If
End Sub

Private Sub opt4_Click()
If opt4 = True Then
jamberangkat = "12.00 WIB"
End If
End Sub

jika sudah, cob dijalankan dan bagi yang mau file jadinya nih sudah ane sertain..

Download