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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.