Cara Membuat Aplikasi Billing Warnet Sederhana di VB6 - Pada pertemuan kali ini Saya 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 Saya hanya membuat aplikasi perhitungannya Saja tidak secara lengkap.Untuk membuatnya ikuti langkah-langkah berikut:
Cara Membuat Billing Warnet di VB 6
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 :
CommandButton1 Caption="Star"
CommandButton2 Caption="Stop"
CommandButton3 Caption="Close"
5. Tambahkan 2 Timer pada form :
Timer1 Interval=6000
Timer2 Interval=1
6. Desainlah seperti gambar dibawah ini :
 |
| Desain Form |
7. Lalu copy-paste kode dibawah ini di jendela kode dibagian General-Declarations:
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. Simpanhasil pekerjaan Anda dan jalankan Program.
Demikian tip cara Cara Membuat Aplikasi Billing Warnet Sederhana di VB6. Selamat mencoba semoga berhasil.
2 comments:
Post a Comment