Membuat program hotel VB 6

disini kita akan membuat contoh program hotel yang simple.ini hanya contoh saja ,katena kita beljar dari sesuatu hal yang terkecil.. hehe

pertama-tama buka mikrosoft visual studio 6 -> pilih standard AXE di new project .

kemudian, buat label sebanyak 7 ,  textbox sebanyak 6 ,combobox  1 ,dan command batton sebanyak 2

jika sudah silahkan buat form seperti yang ada pada gambar 1

gambar 1

ganti properties nya :

setelah kalian sudah selesai menyamakan properties nya,silahkan double klik command1 ,lalu ketik kode seperti dibawah ini

Private Sub Command1_Click()

Dim harga As Currency, jumlah As Currency, total As Currency, diskon As Currency, totaldiskon As Currency

Dim fasilitas As String

If Combo1.Text = "" Then

    MsgBox "Anda Belom Masukan Kelas"

    Combo1.ListIndex = 0

ElseIf Text1.Text = "" Then

    MsgBox "Anda Belum Masukan Lama Inap"

    Text1.SetFocus

Exit Sub

End If

'www.alimahmud23.co.cc

Select Case Combo1.ListIndex

    Case 0

    harga = 900000

    fasilitas = "Berakfast and SPA"

    Case 1

    harga = 700000

    fasilitas = "Breakfast"

    Case 2

    harga = 500000

    fasilitas = "Only Room"

End Select

jumlah = Val(Text1.Text * harga)

Text2.Text = Format(harga, "currency")

Text3.Text = Format(jumlah, "currency")

Select Case Text1.Text

    Case Is > 2

    diskon = 0.1

    Case Else

    diskon = 0

End Select

totaldiskon = Val(Text3.Text * diskon)

Text4.Text = Format(totaldiskon, "currency")

total = Val(Text3.Text - Text4.Text)

Text5.Text = Format(total, "currency")

Text6.Text = Format(fasilitas)

End Sub

setelah itu double klik di command2,, ketik kode dibawah ini :

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Combo1.Text = ""

Combo1.SetFocus

End Sub

setelah sobat sudah selesai silahkan run program kalian,,

dan ini contoh running nya :