Cara Membuat Program Penghitung Lama Komputer Hidup Dengan Visual Basic

Agus Saputra  - Selamat datang di blogger Agus Saputra  -
Sepertinya saya banyak orang yang butuh program ini, makanya saya berikan code nya .

Ya, kali ini kita belajar membuat program untuk mengetahui lama hidup komputer .
di karenakan saya membuat program ini, yaitu karena adik saya .
Jika saya pergi berangkat sekolah, dia langsung bermain laptop,mainnya main game .
Ketika saya tanya sudah berapa jam main laptop, katanya baru saja .
padahal laptopnya sudah panas banget .
Makanya saya buat program seperti ini .
Dan satu lagi, saya buat code supaya program ini terbuka saat startup ketika windows di hidupkan .

langkah-langkahnya :
1. buat 1 buah Timer, 1 buat label.
2. lalu pada timer, beri intervalnya 1000
3. Lalu masukkan code ini pada form .
  

Private z As Integer
Private Type pewaktu
    I As Integer
    s As String
End Type
Private detik As pewaktu, menit As pewaktu, jam As pewaktu
Private Sub JalankanWaktu()
detik.I = 0
menit.I = 0
jam.I = 0

Timer1.Enabled = True
End Sub

Private Sub Form_Load()
On Error Resume Next
s = Replace(App.Path & "\" & App.EXEName & ".exe", "\\", "\")
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, s


If App.PrevInstance Then
MsgBox "Aplikasi Sedang di Gunakan !!!", vbExclamation, "Running"
End
End If

Msgbox "Credit By Agus Saputra", vbInformation, "Agus Saputra"

End Sub

Private Sub Timer1_Timer()
detik.I = detik.I + 1
If detik.I > 59 Then
    menit.I = menit.I + 1
    detik.I = 0
End If

If menit.I > 59 Then
    jam.I = jam.I + 1
    menit.I = 0
End If

detik.s = detik.I
menit.s = menit.I
jam.s = jam.I

If Len(detik.s) = 1 Then
    detik.s = "0" & detik.s
End If

If Len(menit.s) = 1 Then
    menit.s = "0" & menit.s
End If

If Len(jam.s) = 1 Then
    jam.s = "0" & jam.s
End If
Label1.Caption = "Lama Hidup Komputer : " & jam.s & ":" & menit.s & ":" & detik.s

End Sub
Private Sub Loading()
Timer2.Enabled = True
z = 0

End Sub
Function OnStartup() As Boolean
On Error GoTo Ero
s = Replace(App.Path & "\" & App.EXEName & ".exe", "\\", "\")
Set Reg = CreateObject("WScript.Shell")
OnStartup = (Reg.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName) = s)

Exit Function
Ero:
OnStartup = True
End Function

Nah .
Gampangkan ????
Selamat mencoba, jika ada yang kurang jelas, silahkan berkomentar .