Untitled Document
Untitled Document
Pekanbaru » Posting » Artikel Umum
Membuat aplikasi Penerbangan | visual basic 6.0
Tutor by: RADINAL SIMAMORA dibaca:4489 kali, Posted on 2013-01-25 15:30:43

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”

 

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.

 

  1. Klik tombol “PLAY”
  2. Lihat hasilnya

 

semoga bermanfaat...!

 

sumber : http://radinal.p.ht/v331/?p=632



Loading...
 Komentar Lainnya (0)

Nama : Email : Blog/Web :

:D :P ;;> ;) :) :O :: =s :g :-? :@ :-)) :-bd I-) B-) ):b :-/ :o:
:x =D> :-)/\:-) =)) @_@ o|^_^|o

Untitled Document