program hitung pemakaian komputer

                 Kali ini kita akan sama-sama belajar tentang cara membuat program pengukur waktu lama berjalannya komputer, mungkin nantinya program ini dapat dimodifikasi menjadi sebuah timer, atau bisa juga hanya sekedar ingin mencari tahu lama pemakain komputer kita.

Oke langsung saja, kita akan membuat program ini dengan IDE Microsoft Visual Basic 6.0 dengan memakai fungsi  API ( Application Programming Intarface ) 

1.       Buka VB nya : Start >> All Programs >> Microsoft Visual Basix 6.0 / vb 6.0

2.       Lalu Tambahkan sebuah Form, lalu desain seperti dibawah ini

3.       Tampilan diatas adalah setelah Program dijalankan, tambahkan kedalam form yaitu :

1 buah Label , 1 buah Listbox , 1 buah Timer seperti tampilan diatas

Dan tambahkan 1 buah Module dalam Project , caranya pada MenuBar : klik Project >> Add Module >> Open

4.       ‘Lalu berikut ini untuk source codenya
'untuk form 1

Private Sub Form_Load()

Timer1.Interval = 1000 ' untuk me-refesh timer
nTime = GetTickCount()
End Sub

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

Time = GetTickCount()
detik = Round(Time / 1000)
menit = Round(detik / 60)
jam = Round(menit / 60)
List1.Clear
' List1.AddItem ("Total waktu berjalan = " & vbTab & Time & " millisecond")
List1.AddItem ("")
List1.AddItem (jam & " Jam, atau " & menit & " Menit, atau " & detik & " Detik")
List1.AddItem ""
List1.AddItem "Waktu dari mulai program ini dijalankan: " & Round((Time - nTime) / 1000) & " Detik"
End Sub

' script untuk module
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public nTime As Long

Simpan dengan nama project : prog_waktu.vbp

                                          Form     : form1.frm

                                          Module : module1.bas

Download Source Code yang telah dimodifikasi disni

Posted in: Tutorial VB 6.0