AERO MAWAR HOTEL
LISTING CODE / SYNTAX
Dim nilai1, nilai2, nilai3,
nilai4, nilai5, nilai6, nilai7, nilai8 As String
[Dim = digunakan untuk permisalan]
·
Button2
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Dim ab,
cd, ef As String
ab = TextBox5.Text
cd = TextBox3.Text
ef = TextBox4.Text
If ab =
Nothing Or cd =
Nothing Or ef =
Nothing Then
MsgBox("Data
Error" & vbCrLf & vbCrLf & "Lengkapi
Data" & vbCrLf & vbCrLf & vbCrLf & "TRIMAKASIH" & vbCrLf & "+++++++++++++" & vbCrLf & "++++++++++++++", MsgBoxStyle.Critical, "PERINGATAN")
Else
If
ab = ab And cd = cd And
ef = ef Then
Form2.Show()
Me.Hide()
End
If
End If
End Sub
[Dalam Button 2(Proses) jika data belum di
input sepenuhnya maka dalam menggunakan fungsi “IF THEN” akan keluar msgbox yang akan memberikan peringatan sesuai
dengan listing di atas. Dan jika selurah data yang diminta yaitu Nama Depan dan
Nama Belakang serta estimasi waktu maka dapat melanjutkan ke jendela
berikutnya.]
·
Button3
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
Dim
date1 As Date
Dim
date2 As Date
Dim
difference As TimeSpan
date1 = Convert.ToDateTime(DateTimePicker2.Value)
date2 = Convert.ToDateTime(DateTimePicker1.Value)
difference = date2.Subtract(date1)
TextBox3.Text =
FormatNumber(difference.TotalDays, 0)
TextBox2.Text =
FormatNumber(difference.TotalHours, 0)
TextBox1.Text =
FormatNumber(difference.TotalMinutes, 0)
End Sub
Dalam
fungsi button3 (Estimasi waktu) dimasukkan fungsi “Convert.ToDateTime” untuk menyelisihkan lamanya menginap sehingga
menghasilkan sebuah angka.Dan “FormatNumber(difference.TotalDays/Hours/Minutes”)
untuk konversi waktu dalam hari jam dan menit
·
Button1
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
If
MsgBox("Benar Anda akan close Program ini
?", MsgBoxStyle.OkCancel, "aero windows") = MsgBoxResult.Ok = True
Then
Me.Close()
Else
If MsgBoxResult.Cancel = True
Then
Me.Show()
End
If
End If
End Sub
Button1(Exit) ini dilengkapi
fungsi “Me.Show()” yang digunakan
untuk mengakhiri program ini dengan mengkliknya dan memilih OK pada “msgbox” yang keluar.
·
MenuItem
Private Sub
MP3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MP3ToolStripMenuItem.Click
If
MsgBox("Apakah anda membutuhkan bantuan?"
& vbCrLf & vbCrLf & "Anda dapat
menekan tombol 'OK' atau hubungi CP dibawah ini : " & vbCrLf
& "Klmpk3chikichikibambam.tumblr.com",
MsgBoxStyle.OkCancel, "Bantuan") = MsgBoxResult.Ok
= True Then
Form8.Show()
End If
End Sub
[Dengan
fungsi If MsgBox dan “Form8.Show()”, “MP3ToolStripMenuItem” digunakan sebagai jendela untuk menampilkan
bantuan. VbCrLf sebagai fungsi Enter.]
·
RekapKapasitasToolStripMenuItem
Private Sub
RekapKapasitasToolStripMenuItem_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
RekapKapasitasToolStripMenuItem.Click
Form10.Show()
End Sub
Dengan fungsi If MsgBox dan Form10.Show(),RekapKapasitasToolStripMenuItem
digunakan sebagai jendela untuk menampilkan Rekapan Data yang telah berhasil
reservasi melalui program.
Form 2
Dim nilai1, nilai2, nilai3,
nilai4, nilai5, nilai6, nilai7, nilai8 As String
Dim =
digunakan untuk permisalan
·
Button 2
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Dim a,
b, c As String
If
CheckBox1.Checked = True Then
a = CheckBox1.Text
End If
If
CheckBox2.Checked = True Then
c = CheckBox2.Text
End If
If
CheckBox1.Checked And CheckBox3.Checked = True Then
TextBox3.Text = 150000
TextBox2.Text = Val(TextBox6.Text)
+ Val(TextBox3.Text)
ElseIf
CheckBox1.Checked And CheckBox2.Checked = True Then
TextBox3.Text = 100000
TextBox2.Text = Val(TextBox6.Text)
+ Val(TextBox3.Text)
ElseIf
CheckBox3.Checked And CheckBox2.Checked = True Then
TextBox3.Text = 50000
TextBox2.Text = Val(TextBox6.Text)
+ Val(TextBox3.Text)
ElseIf
CheckBox3.Checked And CheckBox2.Checked And CheckBox1.Checked = True
Then
TextBox3.Text = 150000
TextBox2.Text = Val(TextBox6.Text)
+ Val(TextBox3.Text)
ElseIf
CheckBox3.Checked = True Then
b = CheckBox3.Text
TextBox3.Text = 0
TextBox2.Text = Val(TextBox6.Text)
+ Val(TextBox3.Text)
End If
If
CheckBox3.Checked = False Then
MsgBox("Jika
yakin tolong check 'CUKUP'" & vbCrLf & "+++++++++++++++++++++++" & vbCrLf
& "+++++++++++++++++++++++++",
MsgBoxStyle.Critical, "PERHATIAN")
Else
If
MsgBox("Nama Anda : " &
Form1.TextBox5.Text & " "
& Form1.TextBox4.Text & vbCrLf & "Lama
Menginap : " & Form1.TextBox3.Text & "hari" & vbCrLf & "Tipe Kamar : " & ComboBox1.Text
& vbCrLf & "Harga Kamar : "
& TextBox5.Text & vbCrLf & "Nomer
Kamar : " & TextBox4.Text & vbCrLf & "Harga : " & TextBox6.Text &
vbCrLf & "Harga Tambahan : "
& TextBox3.Text & vbCrLf & "Total
Harga : " & TextBox2.Text & vbCrLf & "Tambahan: " & a & " " & "&"
& c & vbCrLf & "++++++++++++++++++"
& vbCrLf & "++++++++++++++",
MsgBoxStyle.Information, "Ingatkan Kembali") = MsgBoxResult.Ok Then
Form1.Show()
Me.Hide()
End
If
End If
End Sub
[Button2 (Proses) ini
menggunakan fungsi “IF” yang
dikaitkan dengan kejadian dari “Checkbox1-3”
dan “Textbox 1-2” dimana menggunakan “IF..TRUE THEN”. Sementara Msgbox juga diikutsertakan untuk menampilkan
jendela tambahan berupa peringatan, yang merupakan hasil dari seluruh keputusan
yang didampingi dengan tulisan Nama, Lama Menginap,dll untuk memudahkan
pembaca. Dan fungsi dari vbCrLf adalah sebagai
enter.]
·
Checkbox1
Private Sub
CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
CheckBox1.CheckedChanged
If
CheckBox1.Checked = True Then
TextBox3.Text = TextBox3.Text +
100000
End If
End Sub
[Checkbox1
(Kasur) Sebagai variabel dalam button Proses , dengan menggunakan fungsi If =
True Then jika checkbox di ceklis akan menambahkan biaya sebesar 100.000].
·
Checkbox2
Private Sub
CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
CheckBox2.CheckedChanged
If
CheckBox2.Checked = True Then
TextBox3.Text = TextBox3.Text +
50000
TextBox2.Text = Val(TextBox6.Text)
+ Val(TextBox3.Text)
End If
End Sub
[Checkbox2
(makan pagi) Sebagai variabel dalam button Proses , dengan menggunakan fungsi
If = True Then jika checkbox di ceklis akan menambahkan biaya sebesar 100.000 ].
·
Checkbox3
Private Sub
CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
CheckBox3.CheckedChanged
If
CheckBox3.Checked = True Then
TextBox3.Text = TextBox3.Text + 0
End If
End Sub
[Checkbox3
(Cukup) Sebagai variabel dalam button Proses , dengan menggunakan fungsi If =
True Then , Checkbox ini sebagai prasyarat agar user dapat memproses form.]
·
Combobox1
Private Sub
ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
If
ComboBox1.Text = "Super VIP" Then
TextBox4.Text = 304
TextBox5.Text = 1500000
Form6.Show()
ElseIf
ComboBox1.Text = "VIP" Then
TextBox4.Text = 302
TextBox5.Text = 1200000
Form4.Show()
ElseIf
ComboBox1.Text = "Deluxe" Then
TextBox4.Text = 202
TextBox4.Text = 1000000
Form3.Show()
ElseIf
ComboBox1.Text = "Standard" Then
TextBox4.Text = 201
TextBox5.Text = 800000
Form5.Show()
ElseIf
ComboBox1.Text = "Ekonomi" Then
TextBox4.Text = 101
TextBox5.Text = 500000
Form7.Show()
End If
TextBox6.Text = Form1.TextBox3.Text * Me.TextBox5.Text
TextBox2.Text = Val(TextBox6.Text) +
Val(TextBox3.Text)
End Sub
[Combobox1
(Tampilan pilihan Kamar) digunakan sebagai kolom untuk menampilkan pilihan
kamar dengan fungsi “form.show()” agar menampilkan preview dari kamar. Dan
fungsi “IF THEN” dimasukkan pada
tiap-tiap pilihan kamar dimana dikaitkan dengan textbox4 dan textbox5
sebagai output, yang besarnya berbeda-beda tergantung dari pilihan kamar]
·
Textbox1
Private Sub
TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
TextBox3.TextChanged
If
CheckBox1.Checked And CheckBox3.Checked And CheckBox2.Checked = True
Or False Then
TextBox2.Text = (Val(TextBox6.Text)
+ Val(TextBox3.Text))
End If
End Sub
[Dengan
fungsi “If True Or False Then” akan
memasukkan biaya tambahan dari checkbox fasilitas tambahan, sementara =
(Val(TextBox6.Text) + Val(TextBox3.Text) untuk
penjumlahan biaya dari masing-masing textbox, Textbox1
(Harga) sebagai output dari hasil biaya]
·
Button1
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Form1.Show()
Me.Hide()
End Sub
[Button1(Back) ini berfungsi sebagai tombol
kembali karena dimasukkan fungsi Me.Hide() untuk menyembunyikan Form2 lalu Form1.Show()
untuk menampilkan Form1 kembali]
·
MenuItem
Private Sub
OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form10.Show()
End Sub
End Class
[Fungsi
Form10.Show()
untuk menampilkan form10 yang mana merupakan jendela Rekapan data.]
KONSEP
Aplikasi
ini merupakan sebuah simulasi dari Reservasi Kamar Hotel lengkap dengan seluruh
elemen nyatanya sebagaimana sebuah aplikasi reservasi pada umumnya. Salah satu
fitur uniknya adalah pengguna dapat melihat preview dari kamar yang akan di
bookingnya dan jika ada hal-hal yang terlupakan aplikasi ini akan memberikan
peringatan otomatis sehingga memberikan keamanan dan kenyamanan bagi si
pengguna. Dan di akhir proses ketika semua form telah diisi sesuai aturan dan
kebutuhan, pengguna pun dapat melihat bahwa data mereka telah berhasil disimpan
database dengan adanya tampilan Message Box dan form database di akhir form.
Walaupun begitu Program Reservasi Hotel kami pun masih banyak kekurangannya
maka dari itu kami mohon maaf atas kekurangan tersebut. Dan tentunya kami akan
terus meng-update program demi kebaikan bersama.
DESKRIPSI
Yang
pertama buatlah dua buah Label untuk membuat kolom Nama dimana Label 1 untuk
Nama Depan dan Label2 untuk Nama Belakang. Untuk pembuatan tanggal booking
buatlah Date Time Picker masing-masing untuk waktu Check-In dan Check-Out dan
untuk mengaktifkan kegunaanya sebagai bagian dari pembayaran, kita akan
menggunakan fungsi DateDiff pada Button(Tombol Estimasi Waktu) guna menyelisihkan antara kedua waktu
tersebut. Selanjutnya buatlah 3 label sebagai hasil output estimasi waktu,
yakni dalam hari, jam dan menit.
Dan sebagai penghubung form buatlah
dua button dengan tulisan Lanjut dan Exit, dan jangan lupa tambahkan wallpaper
pada background agar tampilan program lebih menarik. Jika semua langkah telah
dilaksanakan maka akan menghasilkan form sebagai berikut :
Untuk keamanan jika
seluruh form registrasi tidak diisi kita akan menggunakan messagebox sebagai
peringatan :
Sebelumnya kita
membutuhkan form 2 untuk membuat menu selanjutnya, untuk tipe kamar, gunakan ComboBox, untuk
tambahan gunakan checkbox dan untuk Rooms,harga,dll gunakanlah label seperti
biasa. Dan terakhir tambahkan 2 Button yakni untuk proses dan back. Hasilnya
sebagai berikut :
Cari items
pada properties combobox. Kemudian isikan apa saja yang ingin di inputkan dan setelah
kita menginputkan tipe kamar yang kita inginkan maka, pada subtotal akan muncul
perhitungan lama menginap di kali harga pada kolom Total Harga. dan saat
kita klik tambahan maka pada kolom Total Harga akan muncul biaya tambahan dari
penambahan fasilitas.
Terkahir, saat kita
sudah isi semua data dan klik tombol proses,
maka akan muncul command butoon seperti di atas.
Dan
untuk melihat apakah Form kita sudah tersimpan atau belum, kita dapat check
dengan memilih menu Data à Data
Pengunjung di bagian atas program :
TUTORIAL
1.
Untuk melengkapi
program ini isilah data-data tersebut dengan sistematis dan benar.
2.
Isilah Kolom “Nama
Depan” dengan nama depan anda & “Nama Belakang” dengan nama belakang anda.
3.
Untuk pengisian
tanggal isilah sesuai dengan kapan dan lamanya waktu anda menginap, sesuaikan
dengan urutan tanggal. Setelah selesai maka lamanya anda menginap akan muncul
dalam konversi hari, jam dan menit.
4.
Selanjutnya klik
tombol “Lanjut”, Jika data sudah terisi secara lengkap, maka dapat
melanjutkan proses berikutnya. Tetapi jika data belum terisi semua, anda tidak
bisa melanjutkan ke dalam proses berikutnya.
5.
Selanjutnya
jika Pilih “Type” kamar yang
diinginkan dan tambahan fasilitas-fasilitas yang diinginkan.
6.
Isikan
semua data yang diminta, dan setelah semua
data terisi maka total seluruh biaya akan muncul di kolom “Total Harga”.
Pastikan semua data terisi dengan benar, jika anda sudah yakin maka klik tombol
“Proses”. Dan akan
ditampilkan kembali di massage box.
7.
Tampilan dari pilihan
anda pun akan muncul di layar dan akan tersimpan di rekapan data.
PERINGATAN : Pastikan semua data terisi untuk menghindari “error program”
Gambar Flowchart Aplikasi Reservasi Aero Mawar
Hotel
mau coba aplikasinya? bisa didownload disini
