ساخت زمان سنج(تایمر)

[30rabi]

با سلام خدمت اساتید محترم
چه طوری میشه یک تایمر ساخت که زمان استفاده از برنامه را نشان دهد. یعنی در همان ابتدای اجرای برنامه شروع به کار کنه و زمان استفاده از برنامه رو نشون بده . فکر کنم بهش میگن count up
با تشکر

[setroyd]

اول شروع برنامه با تابع time یا .... زمان رو بگیر و در قسمت unload برنامه اختلاف این دو تارو بررسی کن میشه مقدار باز بودن برنامه ی شما . به همین راجتی

[محسن واژدی]

سلام
نمونه زیر را بررسی کنید

موفق باشید

[30rabi]

ممنون ولی اگر میشه کدش رو برام بزارین
بازم تشکر

[محسن واژدی]

کد زیر هم که مربوط به ضمیمه پست 3 است را بررسی کنید:
Private Sub Timer1_Timer()
On Error Resume Next
Static lTmr&
Dim lCNum&
Dim h, m, s
Timer1.Interval = 1000
lTmr& = lTmr& + 1
lCNum& = lTmr&

If lCNum& >= 3600 Then
h = lCNum& / 3600
If h > 0 Then
h = Int(h)
lCNum& = lCNum& - (h * 3600)
Else
h = 0
End If
Else
h = 0
End If
If lCNum& >= 60 Then
m = lCNum& / 60
If m > 0 Then
m = Int(m)
lCNum& = lCNum& - (Int(m) * 60)
Else
m = 0
End If
Else
m = 0
End If


s = Int(lCNum&)

Label1 = IIf(h < 10, "0" & CStr(h), h) & ":" & IIf(m < 10, "0" & CStr(m), m) & ":" & IIf(s < 10, "0" & CStr(s), s)
End Sub

برای استفاده یک Timer1 با interval=1000 و یک Label1 بر روی فرم قرار بدهید

موفق باشید