Program ini dibuat dengan aplikasi Visual Studio 2013, bertujuan untuk memudahkan pengoperasian billing warnet dimana pengguna bisa mengetahui total harga yang harus dibayar tanpa harus menghitungnya lagi.
Input:
- Tanggal
- Nama Pengguna
- No. Komputer
- Waktu Penggunaan
Output:
- Paket Main
- Subtotal
- Kupon
- Diskon
- Total Biaya
- Biaya Main = 8.000/jam
- Paket Main
Star > 15 jam
Profesional > 8 jam
Newbie > 3 jam
- Kupon
Main > 20 jam = 4 kupon
Main > 15 jam = 3 kupon
Main > 10 jam = 2 kupon
Main > 5 jam = 1 kupon
Selain itu tidak dapat kupon
- Diskon = 5.000 untuk setiap 1 kupon
Screenshot
Cara pengisiannya adalah:
1. Mengisi tanggal, nama, dan nomer komputer yang akan digunakan
2. Mengisi lama waktu penggunaan
3. Setelah itu akan keluar paket main, subtotal, kupon, dan diskon
4. Klik button "Proses" dan akan muncul jumlah harga yang harus dibayarkan
5. Setelah selesai melakukan transaksi, klik button "Keluar" lalu klik "Yes"
Coding
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim tanggal As Integer
tanggal = 1
Do
ComboBox1.Items.Add(tanggal)
tanggal = tanggal + 1
Loop Until tanggal > 31
Dim tahun As Integer
tahun = ComboBox3.Text
For tahun = 2015 to 2000 Step -1
ComboBox3.Items.Add(tahun)
Next
End Sub
Private Sub TextBoxJam_TextChanged(sender As Object, e As EventArgs) Handles
TextBoxJam.TextChanged
If TextBoxJam.Text >= 15 Then
TextBoxPaket.Text = "Star"
ElseIf TextBoxJam.Text >= 8 Then
TextBoxPaket.Text = "Profesional"
ElseIf TextBoxJam.Text >= 3 Then
TextBoxPaket.Text = "Newbie"
End If
Dim vjam As Integer
vjam = TextBoxJam.Text
TextBoxSubtotal.Text = 8000 * vjam
Dim vj As Integer
vj = TextBoxJam.Text
If TextBoxJam.Text >= 20 Then
TextBoxKupon.Text = 4
ElseIf TextBoxJam.Text >= 15 Then
TextBoxKupon.Text = 3
ElseIf TextBoxJam.Text >= 10 Then
TextBoxKupon.Text = 2
ElseIf TextBoxJam.Text >= 5 Then
TextBoxKupon.Text = 1
ElseIf TextBoxJam.Text < 5 Then
TextBoxKupon.Text = 0
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim vkup As Integer
vkup = TextBoxKupon.Text
Select Case vkup
Case "1"
TextBoxDiskon.Text = 5000
Case "2"
TextBoxDiskon.Text = 10000
Case "3"
TextBoxDiskon.Text = 15000
Case "4"
TextBoxDiskon.Text = 20000
Case Else
TextBoxDiskon.Text = 0
End Select
Dim vsub, vdis As Integer
vsub = TextBoxSubtotal.Text
vdis = TextBoxDiskon.Text
TextBoxTOTAL.Text = vsub - vdis
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If MessageBox.Show("Yakin
Keluar?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
= Windows.Forms.DialogResult.Yes Then
Me.Close()
End If
End Sub
End Class
