Source Code & Tutorial Membuat Program Billing Warnet Sederhana di VB6

Pada kesempatan ini Mycoding.net berbagi artikel tentang yang berjudul .

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 :

Source Code Billing Warnet vb6
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. Simpan hasil pekerjaan Anda dan jalankan Program.

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


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :

Kategori artikel yang terkait dengan Visual Basic 6.0

Visual Basic 6.0, Panduan VB6, Belajar VB6 Lengkap, Tutorial VB6, Belajar VB6 Pdf, Pemrograman VB6
Untuk mendapat notifikasi artikel terbaru, masukkan e-mail anda disini :
Selanjutnya cek e-mail untuk verifikasi.
Kincai Coding Panduan Belajar Database dan Tutorial Pemrograman Terlengkap di Indonesia. Dapatkan Kumpulan Source Code Program Aplikasi dan Ebook Secara Gratis. Ikuti kami di Facebook, Instagram & Sosial Media Lainnya.