Total Tayangan Halaman

Jumat, 02 Maret 2012

Tugas PB1 - aplikasi visual basic sederhana MyHotel

Aplikasi Sederhana Visual Basic
visual-studio.png





Aplikasi myHotel

Berikut adalah screenshot aplikasi tersebut :

Pada program ini terdapat beberapa komponen utama yaitu :
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