Source Code & Tutorial Membuat Program Billing Warnet Sederhana di VB6

Cara Membuat Aplikasi Billing Warnet Sederhana di VB6 - Pada pertemuan kali ini kami akan membuat tutorial Bagaimana Cara membuat Billing Warnet. Bagi Anda sering ke warnet pasti tidak asing lagi yang namanya  billing.Setiap mau mengakses interney di warnet kita diwajibkan ke billing agar bisa mengakses dan menggunakan internet yang nantinya berfungsi untuk membayar tagihan pemakaian internet Anda.

Billing warnet merupakan sistem yang digunakan untuk memonitor penggunaan dan pemasukan warnet.Di billing ini juga kita dapat memantau aktivitas si pengguna internet mulai dari lama waktu pemakaian dan jumlah yang harus dibayar dan masih banyak aktivitas pantauan lainnya.

Dalam Tip ini kami hanya membuat aplikasi perhitungannya Saja tidak secara lengkap.Untuk membuatnya ikuti langkah-langkah berikut:

1. Buka Form VB6 Anda

2. Tanamkan 12 Label di form

3. Label1 s/d Label6 BorderStyle=None, Label7 s/d Label12 BorderStyle=FixedSingle

4. Tambahkan 3 CommandButton :

5. Tambahkan 2 Timer pada form :

6. Desainlah seperti gambar dibawah ini :

Dim harga As Currency, bill As Currency

Dim intervalwaktu As Integer

Public jammulai As Date

Function DateDiffX(dStart As Date, dEnd As Date, Optional bDetailed As Boolean) As Variant

Dim TotalDays

Dim years, months, days, hours, minutes, seconds

If bDetailed Then

TotalDays = dEnd - dStart

hours = Hour(dEnd - dStart)

minutes = Minute(dEnd - dStart)

seconds = Second(dEnd - dStart)

If hours < 10 Then

hours = "0" & hours

ElseIf hours > 9 Then

hours = hours

End If

If minutes < 10 Then

minutes = "0" & minutes

ElseIf minutes > 9 Then

minutes = minutes

End If

If seconds < 10 Then

seconds = "0" & seconds

ElseIf seconds > 9 Then

seconds = seconds

End If

DateDiffX = hours & ":" & minutes & ":" & seconds

Exit Function

End If

End Function

Private Sub Command1_Click()

Timer1.Enabled = True

Command1.Enabled = False

Command2.Enabled = True

Timer2.Enabled = True

Label11.Caption = Format(Time, "hh:mm:ss")

jammulai = Format(Time, "hh:mm:ss")

Label10.Caption = Format(Time, "hh:mm:ss")

End Sub

Private Sub Command2_Click()

Label8.Caption = Format(Val(bill) + Val(Label9), "Rp ###,###,###,###") + ",-"

Timer1.Enabled = False

Command2.Enabled = False

Command1.Enabled = True

Timer2.Enabled = False

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Label8.Caption = 0

Label7.Caption = 0

Label9.Caption = 0

Label10.Caption = "00:00:00"

Label11.Caption = "00:00:00"

Label12.Caption = "00:00:00"

harga = 5

intervalwaktu = 6000

Timer1.Interval = intervalwaktu

End Sub

Private Sub Timer2_Timer()

Label11.Caption = Format(Time, "hh:mm:ss")

Label12.Caption = DateDiffX(jammulai, Format(Time, "hh:mm:ss"), True)

End Sub

Private Sub Timer1_Timer()

Label11.Caption = Format(Time, "hh:mm:ss")

Timer1.Tag = bill + harga

bill = Timer1.Tag

Label7.Caption = Format(bill, "Rp ###,###,###,###") + ",-"

End Sub

8. Simpan hasil pekerjaan Anda dan jalankan Program.

Demikian Source Code Billing Warnet dan Tutorial Membuat Program Billing Warnet Sederhana di VB6. Selamat mencoba semoga berhasil.