PDA

View Full Version : تایمری که از کار نیوفته



tehran2009
چهارشنبه 16 تیر 1389, 20:31 عصر
می خوام یه تایمری باشه که هر وقت شروع کرد شمارش خودشو روی یک لیبل نشون بده (1-2-3-4-5-.....) بعد اگه حین شمارش سیستم خاموش شد وقتی روشن شد از همون جایی که قبل از خاموش شدنش شروع به شمارش کنه ( یعنی اگه توی عدد 15 سیستم خاموش شد وقتی سیستم روشن شد از 15 به بعد بشماره نه از 0 )

امیدوارم سوالم واضح باشه.

M.T.P
چهارشنبه 16 تیر 1389, 20:33 عصر
کانتر رو توی یه فایل متنی کنار برنامه بنویسید و موقع Load شدن بخونید و به Label ست کنید.

M.T.P
چهارشنبه 16 تیر 1389, 20:52 عصر
یه پروژه جدید باز کن.
یه Timer و یه Label رو فرمت بزار.

تمامی این کد رو واسه فرم کپی کن:



Dim C As Long

Private Sub Form_Load()
Dim Fn As Integer
Dim S As String
If Dir(App.Path & "\C.txt") = "" Then Exit Sub
Fn = FreeFile
Open App.Path & "\C.txt" For Input As Fn
Input #Fn, S
Close Fn
C = Val(S)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim Fn As Integer
Dim S As String
Fn = FreeFile
Open App.Path & "\C.txt" For Output As Fn
Print #Fn, Label1.Caption
Close Fn
End Sub

Private Sub Timer1_Timer()
Label1.Caption = C
C = C + 1
End Sub