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.

Iklan