Membuat Billing Warnet Sederhana

Hai, hai. Ini adalah postingan pertama saya di blog ini. Karena blog ini dibuat dalam rangka tugas akhir Pemrograman Komputer maka saya akan banyak ngepost tentang VB.

Jadi langsung saja ini saya beri penampakan programnya dulu biar temen2 yang liat tau bayangan billingnya entar seperti apa

Jadi entar di formnya ada textbox sama label 4 buah terus sama buttonnya 3 biji.  

Deskripsi program :

Program ini dibuat sebagai simulasi bagaimana sebuah billing warnet berjalan, logikanya adalah ketika detik telah mencapai angka 60 maka menit akan menambah 1, ketika menit telah mencapai angka 60 maka jam akan menambah satu, dan begitu seterusnya. Lalu harga digunakan untuk menentukan berapa harga perjamnya, ketika jam mulai bertambah satu maka harga akan bertambah sesuai kelipatan dari harga perjamnya. Sebenarnya simpel tapi jika kita tidak mencoba membuatnya kita tidak akan tahu benar2 dari program ini.

 Metodologi :

1. Buat form seperti ini

Yang diperlukan

Label 4 buah dengan isi text : detik, menit, jam, dan harga

Textbox 4 buah dengan rincian :

Textbox 1 : untuk yang detik

Textbox 2 : untuk yang menit

Textbox 3 : untuk yang jam

Textbox 4 : untuk yang harga

2. Jangan lupa beri timer

Timer berguna untuk menjalankan detik. Jangan lupa untuk mengatur intervalnya di properties dari timer, interval 1000 sama dengan 1 detik.

Koding :

Kalau semua udah sesuai sama yang diatas tinggal masukin koding berikut

Public Class Form1

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Me.CenterToScreen()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        TextBox1.Text = Val(TextBox1.Text + 1)

        If TextBox1.Text = 60 Then

            TextBox2.Text = Val(TextBox2.Text + 1)

            TextBox1.Text = 0

        End If

        If TextBox2.Text = 60 Then

            TextBox3.Text = Val(TextBox3.Text + 1)

            TextBox4.Text = Val(TextBox4.Text + 3000)

            TextBox2.Text = 0

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Start()

        If TextBox1.Text < 0 Or TextBox1.Text > 60 Then

            Timer1.Stop()

            MsgBox(" salah masukkan data, klik reset ")

        End If

        If TextBox2.Text < 0 Or TextBox2.Text > 60 Then

            Timer1.Stop()

            MsgBox(" salah masukkan data, klik reset ")

        End If

        If TextBox3.Text < 0 Then

            Timer1.Stop()

            MsgBox(" salah masukkan data, klik reset ")

        ElseIf TextBox3.Text > 0 Then

            TextBox4.Text = TextBox3.Text * 3000

        End If

        If TextBox4.Text < 0 Then

            Timer1.Stop()

            MsgBox(" salah masukkan data, klik reset ")

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Stop()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Button1.Enabled = True

        Timer1.Stop()

        TextBox1.Text = "0"

        TextBox2.Text = "0"

        TextBox3.Text = "0"

        TextBox4.Text = "0"

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        If TextBox1.Text = "" Then

            MsgBox("anda belum memasukkan nilai, klik reset atau masukkan nilai kembali")

            Button1.Enabled = False

        ElseIf TextBox1.Text <> "" Then

            Button1.Enabled = True

        End If

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

        If TextBox2.Text = "" Then

            MsgBox("anda belum memasukkan nilai, klik reset atau masukkan nilai kembali")

            Button1.Enabled = False

        ElseIf TextBox2.Text <> "" Then

            Button1.Enabled = True

        End If

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

        If TextBox3.Text = "" Then

            MsgBox("anda belum memasukkan nilai, klik reset atau masukkan nilai kembali")

            Button1.Enabled = False

        ElseIf TextBox3.Text <> "" Then

            Button1.Enabled = True

        End If

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

        If TextBox4.Text = "" Then

            MsgBox("anda belum memasukkan nilai, klik reset atau masukkan nilai kembali")

            Button1.Enabled = False

        ElseIf TextBox4.Text <> "" Then

            Button1.Enabled = True

        End If

    End Sub

End Class

Kesimpulan :

Udah selesai nih tutorial mengenai program billing kali ini, kalau ada yang ditanyakan langsung aja komen di bawah ya..
NB : kalau mau download filenya juga boleh, klik di sini