تغیر زمان تایمر

[hamidscary]

سلام من یک تایمر میخواهم بزارم رو یک برنامه که هر 4 ساعت یک بار دستور عمل کنه اما تایمر بیشتر از 1 دقیقه زمان رو بالاتر نمیبره باید چیکار کنم که 4 ساعت شه؟ . . .

[M.T.P]

یه تایمر بزار که ساعت های
00:00:00
04:00:00
08:00:00
12:00:00
16:00:00
20:00:00
رو چک کنه اگه شرط درست بود دستور شما رو اجرا کنه
نکته: از فرمت زیر برای بدست آوردن Time استفاده کنید.


Time(Format,"HH:MM:SS")

[xxxxx_xxxxx]

interval تایمر رو یک دقیقه بزارید و توی روال تایمر زمان سپری شده رو بر حسب دقیقه توی یک متغیر public ذخیره کنید. هر وقت مقدار اون متغیر به 240 رسید، معنیش این هست که چهار ساعت گذشته.
به این شکل:


Dim Counter As Integer

Private Sub Form_Load()
Counter = 0
Timer1.Interval = 60
End Sub

Private Sub Timer1_Timer()
Me.Caption = Counter
Counter = Counter + 1
If Counter = 240 Then

'Commands
'Commands
'Commands
'Commands
'Commands

Counter = 0
End If
End Sub

[parselearn]

Timer1.Interval = 60000


در صورتي كه Counter به 60 رسيد يعني 1 ساعت گذشته. مي تونيد از يك متغيير ديگه براي ذخيره ساعت استفاده كنيد

از اين كنترل هم مي تونيد استفاده كنيد
http://www.barnamenevis.org/forum/showpost.php?p=804236&postcount=356

[Pr0grammer]

با توجه به اینکه تایمر مربوط به خوده ویژوال بیسیک این مدت رو پشتیبانی نمیکنه! می تونید از ابزار Long Timer استفاده کنید که این زمان رو هم پشتیبانی میکنه :
http://barnamenevis.org/forum/showpost.php?p=631222&postcount=16