1. Aktifkan visual studio hingga
muncul tampilan seperti di bawah ini
2. Pilih Visual basic lalu pilih
Windows Form Application dan atur nama menyimpanan dan tempat penyimpanan
3. Buat design form dengan baik.. misal seperti dibawah ini
Toolbox yang digunakan
Label 1 : kamar kelas
Label 2 : tarif kamar
Label 3 : Total Tarif
Label 4 : Potongan
Label 5 : Total Biaya
Label 6 : lama inap
Listbox : VIP, VVIP, Kelas 1, Kelas 2,
Kelas 3
Button1 : Hitung
Button2 : Lagi
Button3 : Selesai
4. Setelah
selesai mendisaign form masukkan codingnya dengan double clik pada button 1
(hitung)
Coding :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tarif As Integer, total As Integer, biaya As Integer
Dim lama As Integer
Dim potongan As Single
If ListBox1.Text = "" Then
MsgBox("Anda belum memiliki kamar ! !")
ListBox1.Text = 0
Exit Sub
End If
If TextBox5.Text = "
" Then
MsgBox("Anda belum mengisi lama inap ! !")
TextBox5.Select()
Exit Sub
End If
Select Case ListBox1.Text
Case "VVIP"
tarif = 700000
Case "VIP"
tarif = 450000
Case "KELAS 1"
tarif = 300000
Case "KELAS 2"
tarif = 200000
Case "KELAS
3"""
tarif = 75000
End Select
lama = TextBox5.Text
TextBox1.Text = Format(tarif, "Rp ###,###,###")
total = tarif * TextBox5.Text
Select Case lama
Case Is < 3
potongan = 0
Case 3 To 5
potongan = 0.1
Case Else
potongan = 0.2
End Select
biaya = total - (total * potongan)
TextBox2.Text = Format(total, "Rp ###,###,###")
TextBox3.Text = Format(potongan, "0 %")
TextBox4.Text = Format(biaya, "Rp ###,###,###")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Text = " "
TextBox1.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = " "
TextBox5.Text = " "
ListBox1.Select()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class
5. Setelah mengisi codingnya lakukan percobaan dengan melakukan Debug (F5)
Hasilnya seperti dibawah ini setelah didebug
6. Cobalah menggunakan Button hitung, lagi dan
Selesai, apakah sudah bisa digunakan atau belum. Inilah tampilan jika button
hitung sudah bisa digunakan.
7. Jika semua button bisa digunakan, maka selesailah sudah
aplikasi menghitung biaya rawat inap dirumah sakit