تشخیص تغییر دقیقه

[saeed_rezaei]

سلام
من می خوام بدون استفاده از تایمر زمان دقیق تغییر دقیقه رو بدونم. آیا راه حلی هست؟

[bad_boy_2007]

سلام
من می خوام بدون استفاده از تایمر زمان دقیق تغییر دقیقه رو بدونم. آیا راه حلی هست؟

حالا چه اصراریه که از تایمر استفاده نکنی ؟؟؟
انتظار مشغولی



while 1<>2
doevents()
شرط چک کردن دقیقه



حتما به سرباری که در نتیجه انتظار مشغولی به سیستم تحمیل میشه توجه داشته باشید

[amirsajjadi]

با سلام


PublicClass Timer
PublicEvent Start_Tick(ByRef Elapse AsLong)
Public Interval AsLong = 100
Private s AsLong
Private bool AsBoolean
''' <summary>
''' شروع به کار تایمر
''' </summary>
''' <remarks></remarks>
PublicSub Start_Timer()
bool = True
TS()
s = 0
RaiseEvent Start_Tick(s)
EndSub
''' <summary>
'''متوقف کردن تایمر
''' </summary>
''' <remarks></remarks>
PublicSub Stop_Timer()
bool = False
EndSub
PrivateSub TS()
While bool
Application.DoEvents()
s += 1
RaiseEvent Start_Tick(s)
Threading.Thread.Sleep(Interval)
EndWhile
EndSub
EndClass