Bilgisayarda açık kalma süresi

[arslanbey]

Bilgisayar ne kadar açık kaldıgı ve internetde ne kadar zaman geçirdiğim süreyi tutmak istiyorum bu mümkünmüdür.

 

[halit3]

Bilgisayar ne kadar açık kaldıgı ve internetde ne kadar zaman geçirdiğim süreyi tutmak istiyorum bu mümkünmüdür.

İnternet için birşey diyemiyeceğim ama bilgisayarın açık kaldığı süre ile ilgili kod.

Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub aciksure()
Dim h As Single, M As Single, S As Single, MS As Single
Dim strH$, strM$, strS$, strMS$
MS = GetTickCount()
MS = MS / 1000
h = Int(MS / 3600)
MS = MS - h * 3600
M = Int(MS / 60)
MS = MS - M * 60
S = Int(MS)
MS = Int((MS - S) * 10)
strH = CStr(h)
strM = Format(CStr(M), "##00")
strS = Format(CStr(S), "##00")
strMS = Format(CStr(MS), "##00")
MsgBox "Bilgisayarın açık kaldığı süre  " & Chr(10) & Chr(10) & _
strH & ":" & strM & ":" & strS & ":" & strMS, vbInformation, "uyarı"
End Sub

 

[arslanbey]

Teşekkürler hocam bu kodu userfrom userinde label veya textbox nasıl gösterebiliriz.

 

[halit3]

Teşekkürler hocam bu kodu userfrom userinde label veya textbox nasıl gösterebiliriz.

Label1 nesnesi için

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub UserForm_Activate()
Dim h As Single, M As Single, S As Single, MS As Single
Dim strH$, strM$, strS$, strMS$
MS = GetTickCount()
MS = MS / 1000
h = Int(MS / 3600)
MS = MS - h * 3600
M = Int(MS / 60)
MS = MS - M * 60
S = Int(MS)
MS = Int((MS - S) * 10)
strH = CStr(h)
strM = Format(CStr(M), "##00")
strS = Format(CStr(S), "##00")
strMS = Format(CStr(MS), "##00")
Label1 = strH & ":" & strM & ":" & strS & ":" & strMS
End Sub

 

[arslanbey]

Hocam sanaiyesi ilerliye bilirmi rica etsem.

 

[halit3]

Hocam sanaiyesi ilerliye bilirmi rica etsem.

Bunun için en güzel çözüm userformun üzerine 1 adet Timer nesnesi eklemek eğer bu nesne sizde yoksa aşağıdaki linki inceleyin.

http://www.excel.web.tr/f167/timer-nesnesinin-kurulumu-t78713.html

Buda kod

Private Declare Function GetTickCount Lib "kernel32" () As Long
 
 
Private Sub Timer1_Timer()
Dim h As Single, M As Single, S As Single, MS As Single
Dim strH$, strM$, strS$, strMS$
MS = GetTickCount()
MS = MS / 1000
h = Int(MS / 3600)
MS = MS - h * 3600
M = Int(MS / 60)
MS = MS - M * 60
S = Int(MS)
MS = Int((MS - S) * 10)
strH = Format(CStr(h), "##00")
strM = Format(CStr(M), "##00")
strS = Format(CStr(S), "##00")
strMS = Format(CStr(MS), "##00")
Label1 = strH & ":" & strM & ":" & strS
End Sub
 
 
Private Sub UserForm_Activate()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

 

[arslanbey]

Dediğiniz gibi yaptım fakat Timer1 de 'varible not defined' hatası verdi

 

[halit3]

Dediğiniz gibi yaptım fakat Timer1 de 'varible not defined' hatası verdi

Bu dosya bende çalışıyor.

 

[arslanbey]

Tamam çok ama çok teşekkür ederim.Allah razı olsun Halit abicim.

 

[halit3]

Tamam çok ama çok teşekkür ederim.Allah razı olsun Halit abicim.

İyi çalışmalar