Source Code & Tutorial Membuat Program Billing Warnet Sederhana di VB6

Source Code & Tutorial Membuat Program Billing Warnet Sederhana di VB6

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Source Code & Tutorial Membuat Program Billing Warnet Sederhana di VB6.

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.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Source Code & Tutorial Membuat Program Billing Warnet Sederhana di VB6"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel