Membuat Aplikasi Penerbangan Sederhana |visual basic 6.0

Syaloom sobat, teringat ne waktu ujian MID dikampus IPI pada tanggal 09 januari kemaren, membuat aplikasi penerbangan sederhana, tidak jauh beda dengan postingan saya sebelumnya membuat form pemesanan kamar, hanya karena disini ”tidak menggunakan variabel…>>
Langsung aja ya sobat.:::

Langkah-langkahnya sebagai berikut :
1. Buat 2 label “judul” & “Total bayar”
2. Buat 1 frame “tujuan”
3. Buat 2 option button “jakarta” & “batam”
4. Buat 2 check box “snack” & “bagasi”
5. Buat 1 combo box untuk “jenis penerbangan”
6. Buat 1 text box untuk “hasil total bayar”
Kira” seperti ini dia formatnya :
vb1

Langsung saja klik “view code” dibagian pojok atas kanan.
(bukan close ya..) untuk membuat rumus..:
Silahkan copy+pastekan rumus brikut :

Private Sub CMDOK_Click()
If OPTJK.Value = True And CBOJN.Text = “BISNIS” Then
TXTTB.Text = 700000
End If
If OPTJK.Value = True And CBOJN.Text = “EKONOMI” Then
TXTTB.Text = 500000
End If
If OPTBT.Value = True And CBOJN.Text = “BISNIS” Then
TXTTB.Text = 600000
End If
If OPTBT.Value = True And CBOJN.Text = “EKONOMI” Then
TXTTB.Text = 400000
End If
If OPTJK.Value = True And CHKBG.Value = 1 And CBOJN.Text = “BISNIS” Then
TXTTB.Text = 900000
End If
If OPTBT.Value = True And CHKBG.Value = 1 And CBOJN.Text = “BISNIS” Then
TXTTB.Text = 800000
End If
If OPTJK.Value = True And CHKSN.Value = 1 And CBOJN.Text = “BISNIS” Then
TXTTB.Text = 800000
End If
If OPTBT.Value = True And CHKSN.Value = 1 And CBOJN.Text = “BISNIS” Then
TXTTB.Text = 700000
End If
If OPTJK.Value = True And CHKBG.Value = 1 And CBOJN.Text = “EKONOMI” Then
TXTTB.Text = 800000
End If
If OPTBT.Value = True And CHKBG.Value = 1 And CBOJN.Text = “EKONOMI” Then
TXTTB.Text = 600000
End If
If OPTJK.Value = True And CHKSN.Value = 1 And CBOJN.Text = “EKONOMI” Then
TXTTB.Text = 700000
End If
If OPTBT.Value = True And CHKSN.Value = 1 And CBOJN.Text = “EKONOMI” Then
TXTTB.Text = 500000
End If
If OPTJK.Value = True And CHKBG.Value = 1 And CHKSN.Value = 1 And CBOJN.Text = “BISNIS” Then
TXTTB.Text = 1000000
End If
If OPTBT.Value = True And CHKBG.Value = 1 And CHKSN.Value = 1 And CBOJN.Text = “BISNIS” Then
TXTTB.Text = 900000
End If
If OPTJK.Value = True And CHKBG.Value = 1 And CHKSN.Value = 1 And CBOJN.Text = “EKONOMI” Then
TXTTB.Text = 800000
End If
If OPTBT.Value = True And CHKBG.Value = 1 And CHKSN.Value = 1 And CBOJN.Text = “EKONOMI” Then
TXTTB.Text = 700000
End If
End Sub

Private Sub Form_Load()
CBOJN.AddItem “BISNIS”
CBOJN.AddItem “EKONOMI”
End Sub

Catatan : rumus disesuaikan dengan nama yg sudah diset sebelumnya.
Cth : checkbox “bagasi” >> chkBG.

7. Klik tombol “PLAY”
8. Lihat hasilnya :
1

Selamat Mencoba sobat…!

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s