Aplikasi Sederhana Visual Basic
Aplikasi myHotel
Berikut adalah screenshot aplikasi tersebut :
Pada program ini terdapat beberapa komponen utama yaitu :
1. Text box, digunakan untuk input data
1. Text box, digunakan untuk input data
2. label, title dari data yang di input
3. Button, digunakan untuk memproses perintah
4. checkBox, untuk input data yang bersifat pilihan
5. image, menghias tampilan aplikasi sesuai tema aplikasi tersebut
6. form, untuk meletakkan komponen – komponen tersebut
1. Tombol Mulai digunakan untuk memulai jalannya aplikasi ini. Dengan menekan tombol mulai ini text box yang telah terisi akan otomatis kosong, hal ini dilakukan agar kita sebagai admin dapat menginput data untuk di proses.
2. Terdapat tga jenis kamar pada hotel ini yaitu lavender,ros dan bugenvil. Dalam program ini ketiga jenis kamar tersebut memiliki harga yang berbeda beda yaitu:
Ketiga jenis kamar tersebut menggunakan aplikasi checkbox untuk memilihnya
1. Admin akan memasukkan data dari mulai lama menginap kemudian tarif perhari yang berbeda tiap kamarnya,dan jumlah orang
Kemudian didapatkan hasil total,namun karena hotel tersebut sedang berulangtahun maka terdapat diskon sebesar 20% bagi setiap tamunya.
Maka program akan memproses total harga menjadi harga yang harus di bayar setelah terkena potongan diskon sebesar 20%.
Dan muncullah harga yang harus di bayar. Di aplikasi ini juga terdapat tombol hitung yang digunakan untuk mengkalkulasi uang tunai yang dibayar dengan uang yang harus dibayar oleh tamu.
Berikut ini adalah screenshotnya :
2. Setelah seluruh data lengkap dan muncul angka kembalian,hal yang harus dilakukan adalah meng”click” tombol mulai untuk mengosongkan field dan memulai dari awal lagi.
3. Setelah semua di lakukan maka untuk keluar dari menu aplikasi ini dapat menggunakan tombol”selesai”. Tombol ini digunakan untuk menutup aplikasi,pada saat tombol di tekan akan keluar pesan seperti berikut :
Apabila ingin keluar tekan yes ,dan apabila masih ingin melanjutkan tekan no.
Aplikasi ini adalah salah satu aplikasi sangat sederhana berbasis perhitungan sederhana,dan mudah – mudahan berguna untuk orang banyak.
Terimakasih
Untuk membuat aplikasi seperti ini digunakan source code sebagai brikut :
Public Class HotelUI
Private Sub bhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhitung.Click
ttotal.Text = (tlama.Text * thari.Text * tjum.Text)
End Sub
Private Sub bdiskon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bdiskon.Click
tbayar.Text = ttotal.Text - (ttotal.Text * 20 / 100)
End Sub
Private Sub bhit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhit.Click
tkembali.Text = tduit.Text - tbayar.Text
End Sub
Private Sub bmulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bmulai.Click
tlama.Text = ""
tjum.Text = ""
ttotal.Text = ""
tbayar.Text = ""
tduit.Text = ""
tkembali.Text = ""
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
thari.Text = ""
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
thari.Text = "1205000"
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
thari.Text = "1860000"
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
thari.Text = "2380000"
End Sub
Private Sub bselesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bselesai.Click
Dim y As Integer
y = MsgBox("Yakin Ingin Keluar Aplikasi myHotel UI ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "konfirmasi")
If y = vbYes Then
Me.Close()
End If
End Sub
End Class
Tidak ada komentar:
Posting Komentar