Windows Tick Count Menggunakan VB 6.0

Project kali ini adalah membuat program Windows Tick Count Menggunakan VB 6.0
Windows Tick Count berguna untuk menghitung lamanya waktu sejak sistem operasi windows dijalankan.
Untuk mengetahuinya kita bisa menggunakan fungsi windows api yang bernama GetTickCount.
Fungsi ini akan mengembalikan nilai waktu dalam satuan milidetik.
Fungsi ini juga yang menggantikan fungsi versi 16bit yaitu GetCurrentTime.

OK lets start to create the project....
Buat sebuah project baru dan tambahkan sebuah form yang didalamnya terdapat sebuah objek listbox, timer dan juga buatlah sebuah module baru.

Tuliskan listing berikut pada module dan simpan dengan nama mdltick :

Public Declare Function GetTickCount Lib "kernel32" () As Long

Pada object timer di form ketikan listing berikut :

Private Sub Timer1_Timer()
Dim Time As Long
Dim detik As Long
Dim menit As Long
Dim jam As Long

Time = GetTickCount()
detik = Time / 1000
menit = detik / 60
jam = menit / 60

List1.Clear
List1.AddItem ("GetTickCount() = " & vbTab & Time & " millisecond")
List1.AddItem ("")
List1.AddItem (jam & vbTab & "Jam")
List1.AddItem (menit & vbTab & "Menit")
List1.AddItem (detik & vbTab & "Detik")
End Sub