Coding Visual Basic .NET

Kumpulan Source Code Cara Cepat Belajar Aplikasi VB.net

Program Aplikasi / Software Reservasi Hotel Sederhana VB.Net

Halo sobat Coding, Posting kali ini yaitu tentang Program Aplikasi Reservasi Hotel Sederhana, Sistem reservasi hotel dapat diartikan juga sebagai sistem pengolahan data tamu hotel meliputi pengolahan data diantaranya data kamar, data check in, data check out, dan juga sebagai manipulasi data, penyimpanan data dan persiapan dokumen untuk pengambilan keputusan yang dilakukan manusia dengan dibantu suatu alat yang berupa mesin computer.

Sistem ini terbatas pada pengelolaan informasi mengenai pemesanan kamar yang ada pada hotel. Tagihan dilakukan pada saat check out, meliputi tagihan sewa kamar yang meliputi Tipe Kamar, Fasilitas (Extrabed, Fitness, Coffee Break, Laundry) dan Diskon (Hari besar, Weekend, Member). Dengan apa dan bagaimana cara sistem aplikasi dapat meningkatkan pelayanan dan memberikan informasi pemesanan kamar dengan lengkap dan cepat terhadap tamu.

Langkah – langkah pembuatan Program Aplikasi / Software Reservasi Hotel Sederhana dengan VB.Net yaitu Masukkan objek yang diperlukan seperti Label,Texbox ,ComboBox ,DateTime dll , untuk membuat Aplikasi tersebut,cara nya masih sama seperti biasa.Dalam pembuatan aplikasi kali ini kita ada penambahan tool nya yaitu CheckBox dan RadioButton.  Cara memasukan objek Checbox dan RadioButton sama seperti objek yang lain,untuk lebih jelas nya perhatikan gambar berikut :

program aplikasi software reservasi hotel sederhana vb.net  500x312 Software Billing Hotel Visual Basic .Net Skripsi Reservasi Hotel dengan VB.Net Program Pembayaran Hotel VB.Net

Program Aplikasi Software Reservasi Hotel dengan Sederhana VB.Net

Untuk Syntax nya tinggal copas aja nih gan… Monggo…

Public Class Hotel
Dim f As Integer
Dim vtarif As Double
Dim vextrabed As Double
Dim vfitnes As Double
Dim vcbreak As Double
Dim vlaundry As Double
Dim vt_fasilitas As Double
Dim vpajak As Double
Dim vharibsr As Double
Dim vweek As Double
Dim vmember As Double
Dim vtotal As Double
Dim vbayar As Double
Dim vkembalian As Double

Private Sub Hotel_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cbo_Tipekamar.Items.Clear()
cbo_Tipekamar.Items.Add(“VIP”)
cbo_Tipekamar.Items.Add(“EKONOMI”)
cbo_Tipekamar.Items.Add(“DELUXE”)
cbo_Tipekamar.Items.Add(“FAMILY”)
End Sub
Private Sub cbo_Tipekamar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_Tipekamar.SelectedIndexChanged
cbo_NOkamr.Items.Clear()
‘Untuk add data ditype tanpa harus mengetik satu persatu.(i) integernya.
If cbo_Tipekamar.Text = “VIP” Then
‘———————————–
For i = 101 To 106
cbo_NOkamr.Items.Add(i)
Next
‘————————————
vtarif = 2000000
ElseIf cbo_Tipekamar.Text = “EKONOMI” Then
vtarif = 500000
For i = 211 To 216
cbo_NOkamr.Items.Add(i)
Next

ElseIf cbo_Tipekamar.Text = “DELUXE” Then
vtarif = 1000000
For i = 321 To 326
cbo_NOkamr.Items.Add(i)
Next
ElseIf cbo_Tipekamar.Text = “FAMILY” Then
vtarif = 1500000
For i = 327 To 332
cbo_NOkamr.Items.Add(i)
Next
End If
txt_tarif.Text = FormatNumber(vtarif, 0, TriState.True, TriState.True, TriState.True)
End Sub
‘Syntax di Extrabet (Cb_Extrabet)
Private Sub cb_Extrabed_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_Extrabed.CheckedChanged
If cb_Extrabed.Checked = True Then
vextrabed = 200000
vt_fasilitas = vt_fasilitas + vextrabed
Else
vt_fasilitas = vt_fasilitas – vextrabed
vextrabed = 0
End If
txt_extrabed.Text = FormatNumber(vextrabed, 0, TriState.True, TriState.True, TriState.True)
txt_total_fasilitas.Text = FormatNumber(vt_fasilitas, 0, TriState.True, TriState.True, TriState.True)
End Sub
‘Syntax di Fitness (cb_Fitnes)
Private Sub cb_Fitnes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_Fitnes.CheckedChanged
If cb_Fitnes.Checked = True Then
vfitnes = 100000
vt_fasilitas = vt_fasilitas + vfitnes
Else
vt_fasilitas = vt_fasilitas – vfitnes
vfitnes = 0
End If
Txt_fitnes.Text = FormatNumber(vfitnes, 0, TriState.True, TriState.True, TriState.True)
txt_total_fasilitas.Text = FormatNumber(vt_fasilitas, 0, TriState.True, TriState.True, TriState.True)
End Sub
‘Syntax di CofeBreak (cb_Cofebreak)
Private Sub cb_Cofebreak_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_CofeBreak.CheckedChanged
If cb_Cofebreak.Checked = True Then
vcbreak = 120000
vt_fasilitas = vt_fasilitas + vcbreak
Else
vt_fasilitas = vt_fasilitas – vcbreak
vcbreak = 0
End If
Txt_cofebreak.Text = FormatNumber(vcbreak, 0, TriState.True, TriState.True, TriState.True)
txt_total_fasilitas.Text = FormatNumber(vt_fasilitas, 0, TriState.True, TriState.True, TriState.True)
End Sub

‘Syntax di Laundry (Cb_Laundry)

Private Sub Cb_Laundry_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_Laundry.CheckedChanged
If cb_Laundry.Checked = True Then
vlaundry = 200000
vt_fasilitas = vt_fasilitas + vlaundry
Else
vt_fasilitas = vt_fasilitas – vlaundry
vlaundry = 0
End If
txt_Laundry.Text = FormatNumber(vlaundry, 0, TriState.True, TriState.True, TriState.True)
txt_total_fasilitas.Text = FormatNumber(vt_fasilitas, 0, TriState.True, TriState.True, TriState.True)
End Sub
Sub caritotal()
vtotal = vtarif * Val(txt_lama.Text) + vt_fasilitas + vpajak – vharibsr – vweek – vmember
txt_total.Text = FormatNumber(vtotal, 0, TriState.True, TriState.True, TriState.True)
End Sub
‘Mengisi syntax di Radio Button
‘Syntax di Haribesar (Rd_haribesar)
Private Sub Rd_haribesar_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rd_haribesar.CheckedChanged
If Rd_haribesar.Checked = True Then
vharibsr = 10 / 100 * vtarif
Else
vharibsr = 0
End If

Txt_haribsr.Text = FormatNumber(vharibsr, 0, TriState.True, TriState.True, TriState.True)
Call caritotal()
End Sub
‘Syntax di weekend (rd_week)
Private Sub rd_week_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rd_week.CheckedChanged
If rd_week.Checked = True Then
vweek = 15 / 100 * vtarif
Else
vweek = 0
End If
Txt_week.Text = FormatNumber(vweek, 0, TriState.True, TriState.True, TriState.True)

Call caritotal()
End Sub

‘Syntax di member (Rd_member)
Private Sub rd_member_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rd_member.CheckedChanged
If rd_member.Checked = True Then
vmember = 25 / 100 * vtarif
Else
vmember = 0
End If
Txt_member.Text = FormatNumber(vmember, 0, TriState.True, TriState.True, TriState.True)
Call caritotal()
End Sub
‘Pengisian syntax di texbox (txt_Lama)
Private Sub txt_lama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_lama.TextChanged
Call caritotal()
End Sub

Private Sub txt_pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_pajak.TextChanged
Call caritotal()
End Sub

Private Sub txt_bayar_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txt_bayar.KeyDown
If e.KeyCode <> Keys.Enter Then Exit Sub
vbayar = txt_bayar.Text
If vbayar >= vtotal Then

vkembalian = vbayar – vtotal
txt_kembalian.Text = FormatNumber(vkembalian, 0, TriState.True, TriState.True, TriState.True)
txt_bayar.Text = FormatNumber(vbayar, 0, TriState.True, TriState.True, TriState.True)
Else

MessageBox.Show(“Uang anda tidak mencukupi untuk melakukan transaksi ini”, “Peringatan”, MessageBoxButtons.OK)
txt_bayar.Clear()
txt_bayar.Focus()

End If
End Sub
‘Pengisian syntax di Tombol / Button(bt_hapus dan bt_keluar)

Private Sub bt_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_hapus.Click
txt_tarif.Clear()
txt_lama.Clear()
txt_pajak.Clear()
txt_total_fasilitas.Clear()
txt_total.Clear()
txt_kembalian.Clear()
txt_extrabed.Clear()
Txt_fitnes.Clear()
Txt_cofebreak.Clear()
Txt_Laundry.Clear()
Txt_haribsr.Clear()
Txt_member.Clear()
Txt_week.Clear()
End Sub

Private Sub bt_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_keluar.Click
If MessageBox.Show(“Apakah anda yakin ingin keluar dari form tersebut?”, “konfirmasi”, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then

End If
Me.Close()
End Sub
End Class

Tulisan Lainnya :

JUAL DVD KUMPULAN PROGRAM APLIKASI DAN SOURCE CODE VB.NET

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Coding Visual Basic .NET © 2014 Frontier Theme