Melanjutkan tulisan yang pertama tentang Billing Rental Komputer, maka pada tulisan ini akan dijelaskan bagaimanakah langkah-langkah membuat billing.
Pada prinsipnya, billing adalah counter up waktu dan dikalikan dengan nilai harga sehingga didapatkan sejumlah tagihan. Misalnya, biaya rental komputer sejam adalah Rp. 3000, maka kita akan mendapatkan harga sebesar:
Rp. 3000/60 menit.
Nilai counter waktu misalnya ditetapkan setiap 1 menit. Maka kita dapatkan counter harga sebesar:
Rp. 50/1 menit.
Dengan demikian, kita membuat counter billing dengan nilai up count sebesar Rp. 50/1 menit.
Timer
Pada Visual Basic 6, salah satu fitur yang dapat digunakan adalah Timer, fitur ini menyediakan fasilitas up counter dan interval operasi. Dimana dengan timer, kita bisa melakukan proses secara periodik sesuai dengan nilai interval yang diberikan. Pada properties yang lain, kita bisa memanfaatkan tag, untuk menampung nilai up counter selang tiap interval waktu.
Dengan menggunakan timer, kita juga bisa menampilkan waktu aktual system kedalam display.
Untuk mencoba membuat billing silakan mendownload template disini.
Selanjutnya, mari kita membuat billing dari template di atas.
Bukalah file template billing yang telah Anda download dari link di atas. Kemudian bukalah pada bagian design.
1. Double klik pada form, kemudian copy code berikut pada bagian atas code
Dim Harga As Currency, Bill As Currency
Dim IntervalWaktu As Integer
Public JamMulai As Date
2. Kemudian copy code berikut pada bagian bawah code di atas
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
3. Pada bagian Form_Load, isikan code berikut
Private Sub Form_Load()
Harga = 5
IntervalWaktu = 2000 ‘dalam milidetik
Timer1.Interval = IntervalWaktu
End Sub
4. Klik dua kali pada button start/ Command1, isikan code berikut
Private Sub Command1_Click()
Label6 = “: ” & Format(Time, “hh:mm:ss”)
JamMulai = Format(Time, “hh:mm:ss”)
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Timer2.Enabled = True
End Sub
5. Klik dua kali pada button stop/ Command2, isikan code berikut
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
Timer2.Enabled = False
6. Kemudian pada Command3/button Close, isikan code
Private Sub Command3_Click()
Unload Me
End Sub
7. Pada timer1, isikan code
Private Sub Timer1_Timer()
Timer1.Tag = Bill + Harga
Bill = Timer1.Tag
Label1.Caption = “: Rp. ” & Bill & “,-“
End Sub
8. Pada timer2, ketik code berikut
Label7 = “: ” & Format(Time, “hh:mm:ss”)
lblDurasi = “: ” & DateDiffX(JamMulai, Format(Time, “hh:mm:ss”), True)
Selesai sudah, billing yang kita buat. Untuk mencoba billing, pilih Run/F5.
Untuk mencoba code lengkapnya download disini.
Demikian semoga bermanfaat.
Makasih y mas admin,,,,,,,
Sama-sama. Terima kasih atas kunjungannya.
Semoga bermanfaat.
makasih atas infonya. meski agak bingung tp tetep membantu 🙂
sekali lg makasih buat mas admin n sukses selalu 🙂
Terima kasih saya bisa membuat billing sendiri 🙂
terima kasih atas kunjungan Anda.