السلام عليكم
كيف حالكم
ان شاء الله بخير
ممكن تعطوني كود بديل التيمر
اي
كود يبقى يعمل في التكرار مثل التيمر مع تحديد سرعة التكرار
لو امكن كود التشغيل و كود ايقاف التشغيل
لان التيمر اد كانت كثيرة في البرنامج يصبح البرنامج ثقيل
لم اعرف كيف استخدو ممكن مثال
ممكن كود داك الرنامج
just.coder كتب :تفضل اخى
كود :
Dim stopp As Boolean = False
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'\\\\تشغيل التايمر
stopp = True
Dim trd As New System.Threading.Thread(AddressOf tick_timer)
trd.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'\\\ ايقاف التايمر
stopp = False
End Sub
Private Sub tick_timer()
While stopp = True
System.Threading.Thread.Sleep(1500)
If stopp = False Then
Exit Sub
End If
MsgBox("it work")
End While
End Sub
شكرا لك اخي اشتغل الكود
لكن كيف اضع اكتر من كود واحد
وهل هدا الكود اد اكثرت منه يتقل البرنامج مثل التيمر
كي اضع اكثر من كود
حاولت ان اغير الاسماء لكن يظهر لي خطء