Posts tagged ‘Timer’

Simulasi Lampu Lalu Lintas Dengan Timer Pada Visual Basic 6


lampu lantas

Source code= timer1.rar

Pada project ini dicontohkan bagaimana menggunakan timer pada VB untuk mengatur sebuah interval proses. Proses yang di atur adalah lama waktu antara lampu hijau, kuning dan merah. Masing-masing lama waktu dapat di atur pada propertis interval.

interval pada timer

 

berikut adalah masing-masing timer yang mengatur proses.

masing-masing timer

 

Demikian semoga bermanfaat.

— Rohmadi —

Membuat Billing Dengan Visual Basic 6


Billing secara sederhana adalah, alat bantu untuk menghitung jumlah tagihan. Billing biasanya digunakan pada warung internet, warung telepon, fax, rental komputer atau rental PS bisa juga digunakan untuk persewaan lain yang perhitungan tagihannya berdasarkan waktu yang digunakan.

Dengan menggunakan visual basic kita bisa membuat sebuah billing secara sederhana dan akurat. Komponen yang digunakan adalah Timer, Label dan Button. Ketiga komponen tersebut memiliki peran dan digunakan untuk membuat sebuah billing.

Timer digunakan sebagai counter waktu dan tagihan. Button digunakan untuk menerima perintah start, stop dan tutup program. Label digunakan untuk menampilkan informasi kepada user.

 

 

 

Bagaimanakah Prinsip Sebuah Billing?

Sebuah tagihan biasanya dibuat berdasarkan satuan jam, bisa satu jam atau setengah jam, atau mungkin kelipatannya. Dari sini, nilai tagihan dibagi menjadi pecahan terkecil yang memiliki KPK dengan satuan waktu. Jadi pertambahan tagihan ekuivalen dengan pertambahan waktu yang dijadikan acuan.

Misalnya, harga sewa selama satu jam adalah Rp. 3.000,- sementara waktu dalam satu jam adalah 60menit atau 3600detik, sehingga didapatkan harga persatuan waktu adalah Rp. 50,-/menit atau Rp. 5,-/ enam detik.

Dari sini kita bisa membuat counter up misalnya pertambahan tagihan adalah Rp 5 setiap 6 detik. Untuk mengatur counter tagihan setiap 6 detik, maka kita menggunakan timer dengan diatur intervalnya 6000. Pada setial 6 detik sekali, tagihan dijumlahkan antara tagihan awal dengan Rp. 5,-

Sementara untuk mengetahui durasi yang telah berlalu, kita gunakan perhitungan selang waktu. Selang waktu/durasi dapat dihitung dengan mengurangi waktu sekarang dengan waktu mulai.

Untuk lebih memahaminya, silakan mempelajari source code.

Semoga bermanfaat.

Membuat Billing Dengan VB 6


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.

%d blogger menyukai ini: