سوال در مورد Interval تایمر در ویژوال بیسیک

[fuladpanjeh]

سلام به همه دوستان
من یه برنامه میخوام بسازم که هر 4 دقیقه یه برنامه خارجی رو اجرا کنه مشکل اینجاست که Interval تایمر رو بیشتر از 59999 میلی ثانیه نمیشه گذاشت.من میخوام 240000 بزارم
لطفا راهنمایی کنید.ممنون. :قلب:

[amir200h]

سلام دوست من.
با این ترفند ساده می تونی کارتو انجام بدی.
امیدوارم به کارت بیاد.
یا حق

[fuladpanjeh]

سلام.واقعا ممنون خیلی کمکم کردی.دو روزه داشتم رو این کار میکردم به ذهنم رسید تو نت بگردم :قهقهه:

[fuladpanjeh]

سلام دوست عزیز.من میخوام برنامه رو یه جور دیگه تغییر بدم ولی به یک کدی گیر میده.من میخوام وقتی عدد به 227 رسید یه برنامه رو اجرا کنه و وقتی به 232 رسید یه برنامه دیگه رو اجرا کنید .ولی به این کد Dim Scr_hDC As Long دومی گیر میده.لطفا راهنمایی کنید.مرسی
Private Sub Text1_Change()
'sharte zir ham baes mishe ke har 4daghighe ke mosavi mishe ba 240sanie dastori ke mikhaimo ejra kone
If Text1.Text = "227" Then
'be jaye dastore zir dastore morede nazaretono bezarin
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
Call ShellExecute(Scr_hDC, "Open", "dis.bat", "", "C:\adsl", SW_SHOWNORMAL)
'code zir ham baraye sefr kardane textboxe ta 0beshe ke 4daghighe dige dastoremon ejra beshe
Text1.Text = 0
End If
If Text1.Text = "232" Then
'be jaye dastore zir dastore morede nazaretono bezarin
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
Call ShellExecute(Scr_hDC, "Open", "4686.bat", "", "C:\adsl", SW_SHOWNORMAL)
'code zir ham baraye sefr kardane textboxe ta 0beshe ke 4daghighe dige dastoremon ejra beshe
Text1.Text = 0
End If
End Sub

[amir200h]

خوب یه تایمر دیگه بزار با یه تکست باکس دیگه بعد کدهارو توشون کپی کن