زیاد کردن وقت تایمر

[morteza@z]

سلام مي خواستم بدونم در برنامه ام هر 5 دقيقه يک بار برنامه چک بشود مشکل من در چک مي کند نيست مشکل من در چه جوري وقت تايمر 5 دقيقه کنم است ؟

[مرتضی تقدمی]

سلام
مقدار interval تایمر رو بگیر, مقداری رو که می خوای ازش کم کنی رو به میلی ثانیه تبدیل کن و بعد از مقدار interval تایمر کم کن و بذار توی nterval تایمر.
موفق باشید

[M.T.P]

یه تایمر با اینتروال 1000 بگذارید.



Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim IntInterval As Integer = 0

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If IntInterval = 0 Then IntInterval = Tick()
If Tick() - IntInterval = 300 Then
IntInterval = Tick()
'//your code...
End If
End Sub

Private Function Tick() As Integer
Dim IntRet As Integer
IntRet = (GetTickCount() \ 1000)
Return IntRet
End Function

[M.KH-SH]

دوست عزیز تایمر رو بزار رویintevarl رو برابر با 60000 قرار بده که میشه یک دقیقه

حالا از تو پروپرتیس تایمر enable=true کن یا در فرم لود اصلیت تامیر رو استارت کن ::: timer.star و یا timer.enable=true

فقط دوست عزیز توجه داشته باش منظورم از timer نام کامل تایمر هست که باید وارد کنی
برو تو بخش کد نویسی برنامه و اول یک متغییر از نوع بایت تعریف کن

dim tim as byte=0

حالا برو تو بخش کدنویسی تایمر و در اونجا بنویس

tim+=1
if tim>=5 then

' دستوراتی که میخوای اجرا بشه رو بنویس
tim=0
end if