منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ممكن كود بديل التيمر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن كود بديل التيمر (/showthread.php?tid=8098)



ممكن كود بديل التيمر - sippar - 23-03-13

السلام عليكم
كيف حالكم
ان شاء الله بخير
ممكن تعطوني كود بديل التيمر
اي
كود يبقى يعمل في التكرار مثل التيمر مع تحديد سرعة التكرار
لو امكن كود التشغيل و كود ايقاف التشغيل
لان التيمر اد كانت كثيرة في البرنامج يصبح البرنامج ثقيل


ممكن كود بديل التيمر - سعود - 23-03-13

هي اداة اسمها Backgroundworker رائعة جدا تستطيع محاكاة او افضل من التايمر
مثال حفظ الصور (ليس جديد وانما للتسلية جهزت مثال,توجد صورة وفيديو)

التاخير في
كود :
threading.thread.sleep(100)
بالملي ثانية يؤخر اعادة عمل ما
كود التشغيل
كود :
bgw.RunWorkerAsync()

كود الايقاف
كود :
bgw.CancelAsync()



ممكن كود بديل التيمر - sippar - 23-03-13

لم اعرف كيف استخدو ممكن مثال
ممكن كود داك الرنامج Smile


ممكن كود بديل التيمر - just.coder - 23-03-13

تفضل اخى

كود :
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



ممكن كود بديل التيمر - sippar - 23-03-13

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


شكرا لك اخي اشتغل الكود
لكن كيف اضع اكتر من كود واحد
وهل هدا الكود اد اكثرت منه يتقل البرنامج مثل التيمر


ممكن كود بديل التيمر - just.coder - 23-03-13

لا حب لا يثقل الجهاز


ممكن كود بديل التيمر - sippar - 23-03-13

كي اضع اكثر من كود
حاولت ان اغير الاسماء لكن يظهر لي خطء


ممكن كود بديل التيمر - just.coder - 23-03-13

تفضل حب هذا مشروع فيه 3 تيمرات

http://www.gulfup.com/?lRHZIG


ممكن كود بديل التيمر - sippar - 23-03-13

جزاك الله خيار