HOME
HEADLINE NEWS :
 

Kamis

Membuat Aplikasi Transaksi Hotel Sederhana di VB

3 komentar
Langsung aja Buat Form dan Tambahan seperti gambar dibawa ini:


















 Setelah selesai dibuat langsung aja masukkan Codex ini...

Private Sub Command1_Click()
Text3.Text = Text1.Text * Text7.Text
If Option1.Value Then
Text6.Text = Text3.Text * 0.3
Else
If Option2.Value Then
Text6.Text = Text3.Text * 0.2
Else
If Option3.Value Then
Text6.Text = Text3.Text * 0.1
End If
End If
End If
Text5.Text = Text3.Text - Text6.Text
End Sub

Private Sub Command2_Click()
MsgBox "terima kasih telah menginap di hotel Ervand S , Anda Yakin Akan Keluar?", vbYesNoCancel, "HOTEL SEEUNGOEV"
End
End Sub

Private Sub Command3_Click()
MsgBox "Nama : Ervanda Saputra Alamat : Jl Iskandar Mida No. 2 Pulau Balai, Kecamatan Pulau Banyak Indonesia Pelerjaan: Mahasiswa Status: Lajang Hobby: Berenang", vbInformation, "TENTANG"
End Sub

Private Sub Command4_Click()
Text9.Text = Text8.Text - Text5.Text
End Sub

Private Sub Option1_Click()

Text4.Text = "diskon 30%"

End Sub

Private Sub Option10_Click()
Text2.Text = "225000"
End Sub

Private Sub Option11_Click()
Text2.Text = "250000"
End Sub

Private Sub Option2_Click()

Text4.Text = "diskon 20%"

End Sub

Private Sub Option3_Click()
Text4.Text = "diskon 10%"
End Sub


Private Sub Option4_Click()
Text2.Text = "VIP"
Text7.Text = "250000"

End Sub

Private Sub Option5_Click()
Text2.Text = "EKONOMI"
Text7.Text = "200000"
End Sub

Private Sub Option6_Click()
Text2.Text = "STANDAR"
Text7.Text = "150000"
End Sub

Private Sub Option7_Click()
Text2.Text = "MINI AC"
Text7.Text = "125000"
End Sub

Private Sub Option8_Click()
Text2.Text = "MINI"
Text7.Text = "200000"
End Sub

Setela selesai semuanya langsung di RUN, semoga Membantu.

Unduh Adobe Flash player
Patut saya ucapkan terima kasih kepada sobat, atas kunjungannya ke Jago Copy Blogspot
  • Oya Sobat Qu, Jangan lupa Komentarnya, Like Facebook Jago Copy dan Follow Twitter saya ya.. dibawa ini

    3 komentar:

    1. kk ajarin saya donk...mohon bimbingannya

      BalasHapus
      Balasan
      1. iya diajarin... makanya sering mampir sini biar diajarin hehhee.

        Hapus
      2. aq sering mampir kq kk... help donk kk

        Hapus

    Terima kasih atas kunjungan, Jangan lupa komentarnya

    Lintas Islam

    Selengkapnya »

    Informasi

    Selengkapnya »

    Lintas Budaya

    Selengkapnya »

    Lintas Makalah

    Selengkapnya »
     

    About Me

    Foto saya

    Ervanda Saputra / Ungo
    Pemilik Webblog ini Ervanda Saputra atau lebih dikenal dengan gelar Ungo, ungo mulai terjun didunia bloging sejak
    pertengahan tahun 2007, awalnya ungo memag tidak mengenal yang namanya internet apalagi dengan bloging ini..! Selengkapnya

    Followers

    Pengikut G+

    Copyright © JAGO COPY BLOGSPOT | All Right Reserved.
    Template By Ervanda.info
    Bloggers - Meet Millions of BloggersHosting Gratis