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.

Yuk Kita Bikin Billing Warnet Sendiri (2)

Fitur-fitur Aplikasi Billing Warnet

Melanjutkan pokok bahasan kita yg lalu, sebelum melangkah pembuatan program billing warnet kita harus tahu dan mengerti betul apa yg akan kita buat. Minimal fitur-fitur apa saja yang harus ada di aplikasi kita. Idenya kali ini adalah mendaftarkan fitur-fitur aplikasi billing warnet yang biasanya ada sebagai berikut:

Fitur2 ini hasil pengamatan ke warnet-warnet terhadap software2 mereka. Karena rata2 mirip2 so, aku ambil sampel aja kayak di bawah ini deh,
1. Pengelompokan pelanggan berdasar tipe keanggotan (member)
2. Diskon. Masing-masing keanggotaan dapat diperlakukan besar diskon yang berbeda-beda, misal:
- UMUM: discount 0%
- SILVER:discount 10%, minimal voucher Rp. 10000
- GOLD:disconut 15%, minimal voucher Rp. 25000
- HappyHour, dapat diatur beban potongan/discount untuk jam yang berbeda-beda, misal:

• 00.00-06.00: discount 25%
• 06.00-08.00: discount 10%
• 08.00-20.00: discount 0%
• 20.00-24.00: discount 25%

perhitungan bisa menyeleksi pemakaian antar waktu, misal mulai jam 07.00 selesai jam 9.00.
3. Tarif. Masing-masing pc.klien bisa beda-beda, misal:

• VIP.01: Rp. 100/menit, minimal pakai 10 menit
  
• KOM.01: Rp. 60/menit, minimal pakai 30 menit

4. Dapat memberikan waktu gratis pada user, misal 10 jam pakai gratis 1 jam.
5. AutoLock (optional), pc.klien otomatis terkunci ketika user logout.
6. AutoPrint (optional), otomatis cetak nota saat user logout.
7. ReLogin, apabila salah satu server/klien billing restart/reboot. Dengan tarif tetap dilanjutkan seperti sebelumnya.
8. Tidak menggunakan file sharing sama sekali. Koneksi menggunakan protokol TCP/IP dengan port yang bisa ditentukan sendiri. Dapat mengirim file antar klien dan server atau sebaliknya.

Segitu dulu deh fiturnya. Kalo kebanyakan soalnya nti gak semangat bikinnya. Udah nyerah duluan.. hehehe. Kalo kita lihat fitur di atas, ujung-ujungnya nih, duit yg keluar dihitung berdasarkan waktu (time based). Nah, kalo aku ngeliat sich secara gitu loh aku ini pelanggan warnet yang setia, ada waktu di mana operator bisa ngakalin jam windows. So, pinter2nya kita deh. kalo gak jam windowsnya di lock atau pas mulai perhitungan ngambil jam windows trus perhitungan waktunya jangan ngambil jam lagi tapi kalo bisa jam berikutnya adalah jam awal ditambah detik yang kita bikin sendiri pake object timernya vb. So, kalo pas software ngitung, trus jam windowsnya diganti si operator jadinya gak ngaruh kaleee... Nah, kalo dari sisi pelanggan nih... biasanya suka ngakalin ngerestart/reboot komputer secara paksa dengan cara mencet tombol power di komputernya. Mereka berharap billing akan relogin dengan perhitungan yg ngaco, atau perhitungan sebelumnya hilang. Atau mereka berharap koneksi billing ke klien terputus so kalo mereka udahan tapi billing masih jalan di server maka mereka bisa komplain gak mau bayar. Yach pokoknya banyak cara deh.. Ribet kan...

Segini dulu yach... Insya Allah pada topik pembahasan selanjutnya kita langsung membahas pake vb. Biar ada yang bisa didownload dan di coba di rumah.. hehehe..


Wass,

Arnie

Yuk Kita Bikin Billing Warnet Sendiri (1)

Banyak Lho warnet-warnet bertebaran di jakarta khususnya di sekitar kampus atau kos-kosan mahasiswa/i. di bandung apalagi. wuihhh buaaanyak banget deh... Blom lagi pada perang tarif 3000/jam. Kita sebagai pelanggan diuntungin banget deh... hehehe... maklum kantong aku gak tebel2 banget.. alias Tongpes.. Gak Punya duit. Ide bikin billing warnet itu begini nih,
Setiap warnet pasti membutuhkan sarana untuk mencatat transaksinya setiap hari yang tidak mungkin dilakukan secara manual. Blom lagi tangan2 jahil operator yang sering ngutilin uang si majikan warnet ditambah lagi pelanggan warnetnya yang pengennya pake lama tapi bayar maunya dikit. Kejadian deh pelanggan ngeboongin operator warnet. hehehe. Saat ini banyak bermunculan software-software billing warnet yang dapat mencatat semua transaksi warnet mulai dari jasa penggunaan internet, scan, print, atau bahkan hingga minuman ringan yang mendukung usaha warnet. Di samping itu, software tersebut juga memberikan fitur-fitur beraneka ragam mulai dari yang berhubungan dengan sistem operasinya, hingga laporan keuangan warnet itu sendiri. Namun harga software billing warnet yang ditawarkan begitu beragam dan cukup mahal.
Kita bisa juga kok bikin sendiri software billing warnet. Gampang kok... cieee... Kalo buat di satu komputer aja sich emang gampang... pake excel juga kelar (Yang excel ini juga boleh kok dijadikan pokok bahasan. Tapi gak di sini yach. Tunggu aja di postingan aku yang lain.. OKE!!!). Yang aku maksud di sini bikinnya untuk smua komputer. So, si operator bisa mengendalikan client, mengobok-obok client, trus ya ngeprint tagihan pemakaian internet si client juga dong...
Yang paling asyik dan menantang..... eng ing eng.... Gimana caranya client gak bisa ngakalin operatornya... seru kan... Makanya ayo kita bikin deh programnya. Orang-orang bilang sich program ini termasuk jenis Client-Server. Untuk memulainya apa aja yang kamu butuhkan???
1. Pengetahuan cara menggunakan Visual basic
2. Pengetahuan Tentang windows Registry
3. Pengetahuan tentang Winsock
4. Pengetahuan tentang Perhitungan waktu dan harga per jam

segitu dulu deh... aku capek hari ini...
Note :
kalo dah jadi kamu bisa jualan seperti situs Billing warnet yang cukup terkenal di http://www.billingexplorer.com.