Yuk Kita Bikin Billing Warnet Sendiri (3)

Pengaturan Waktu Billing Server Sederhana

Melanjutkan tulisan aku tempo hari, walaupun agak lambat progresnya.. hehehe... tapi insya Allah pasti nih.. doain aja yach... Idenya kali ini aku mau bikin pengaturan waktu dengan cara mengambil waktu windows terkini dan kemudian timer menambahkannya setiap detik. Kalo
pewaktuan ini sudah berjalan dengan baik, maka kita bisa konversikan ke nilai uang, diskon, atau pun minimal pemakaian. Model pewaktuan yg kita gunakan adalah dalam satuan detik. So, kalo kamu mau tentuin satuannya adalah menit harus konversi lebih lanjut dimana 1 menit sama dengan 60 detik. jadi selama belum satu menit maka pulsa belum jalan atau belum bertambah. Nah, satuannya untuk konversi ke uang kita pake pulsa aja. jgn menit atau detik yach. Nanti kita atur aja 1 pulsa itu untuk member tertentu berapa menit minimalnya. maksudnya kalo dah sampe 'n' menit maka pulsa baru bertambah. Trus jgn lupa juga, 1 pulsanya ditampilkan terlebih dahulu pada detik pertama. hehehe. yach biar yg baru pake kurang dari satu pulsa tetep bayar 1
pulsa dong... hihihi...

Bahasa Vb nya sich gak sulit2 banget kayaknya. VB dah nyediain komponen dan fungsinya lengkap. Kamu gak perlu lagi pake komponen di luar VB. sip kan? Kali ini kita bikin billing server sederhana dengan 12 clients yang dapat menampilkan pulsa yang berjalan dan sekaligus bisa distop secara manual. Indikator warna yang aku pake merah brarti gak ada yg pake, trus kuning lagi dipake, trus kalo hijau udahan.

Fungsi2 yang ada sebagai berikut :

1. Mulai menghitung, dalam fungsi ini perhitungan dimulai untuk display client tertentu. So, kamu harus tentukan dulu display yang mana yang mau dimulai perhitungannya. Fungsinya adalah sebagai berikut :

Private Sub Mulai(indeKs As Integer)
On Error GoTo erh
konterNya(indeKs) = 1
faktorNya(indeKs) = 60 * MenitUlang(Index)
strDate(indeKs) = Now()
Timer1(indeKs).Enabled = True
Nonota(indeKs).Caption = indeks & Format(strDate(indeKs), "ddmmyyhhmmss")
Frame1(indeKs).BackColor = &HC000& 'IJO
Exit Sub
erh:

MsgBox err.Description
End Sub

2. Stop, berfungsi untuk menghentikan timer perhitungan. Kode vb nya adalah sebagai berikut :

Private Sub Brenti(indeKs As Integer)
On Error GoTo erh
Timer1(indeKs).Enabled = False
Frame1(indeKs).BackColor = &H80FFFF 'kuning
Exit Sub
erh:
MsgBox err.Description
End Sub

3. Timer perhitungan, berfungsi menghitung pulsa berjalan. Kode vb nya sebagai berikut :

Private Sub Timer1_Timer(Index As Integer)
On Error GoTo erh
konterNya(Index) = konterNya(Index) + 1
currDate(Index) = DateAdd("s", konterNya(Index), strDate(Index))
PulsaNya(Index) = IIf(konterNya(Index) / faktorNya(Index) - Int(konterNya(Index) / faktorNya(Index)) < caption =" strDate(Index)" caption =" currDate(Index)" caption =" ConvertSeconds(konterNya(Index))" caption = "(1 pulsa="> " & PulsaNya(Index)
lblBesarUang(Index).Caption = Format(subtotalNya(Index), "##,0")
Exit Sub
erh:
MsgBox err.Description
End Sub

4. Print Nota, berfungsi untuk mencetak nota display yang diinginkan. Kode vb nya sebagai berikut :

Sub printNota(indeksNya As Integer)
On Error GoTo erh

Printer.FontSize = 8
' Printer.PaperSize = 256

Printer.Print "Warnetxx"
Printer.Print "Tomang Tinggi xxx"
Printer.Print ""
Printer.Print "No nota : " & Nonota(indeksNya)
Printer.Print ""
Printer.Print "User : " & User(indeksNya).Caption
Printer.Print "Komputer : " & NKomp(indeksNya).Caption
Printer.Print "IP : " & IP(indeksNya).Caption
Printer.Print "Start Time : " & StartTime(indeksNya).Caption
Printer.Print "End Time : " & EndTime(indeksNya).Caption
Printer.Print "Duration : " & lblDurasiLembur(indeksNya).Caption
Printer.Print "Rate : " & RateUser(indeksNya).Caption
Printer.Print "Subtotal : " & lblBesarUang(indeksNya).Caption
Printer.Print " "
Printer.Print ":) " & LoginName
Printer.Print " "
Printer.Print " "
Printer.EndDoc
Exit Sub
erh:
MsgBox err.Description
End Sub

Kode program vb ini hanyalah dasar dari billing server sederhana, aku bikin hanya untuk memberikan gambaran bagaimana cara kerja billing server tsb. Beberapa parameter adalah perumpamaan seperti perhitungan 1 pulsa adalah setiap 15 menit dimana 1 pulsa harganya 1250 rupiah. User2 yang diwakilkan dengan no display pada program diset sebagai 'Guest'. Pada pembahasan selanjutnya di artikel mendatang aku bahas lebih dalam Billing server ini disesuaikan dengan fitur yang diinginkan pada tulisan aku sebelumnya. Perumpamaan2 diganti dengan program sesungguhnya. Sampe sini dulu yach. Nti kapan2 aku lanjutin lagi deh ngetiknya.. capek boo... Gratis gitu loh.... Aku cuma butuh komentar kamu trus jangan lupa isi pollingnya yach..

File Download :
>>Biling Server Sederhana
>>Password : sholat

Wass,


Arnie.