تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن كود بديل التيمر
#1
السلام عليكم
كيف حالكم
ان شاء الله بخير
ممكن تعطوني كود بديل التيمر
اي
كود يبقى يعمل في التكرار مثل التيمر مع تحديد سرعة التكرار
لو امكن كود التشغيل و كود ايقاف التشغيل
لان التيمر اد كانت كثيرة في البرنامج يصبح البرنامج ثقيل
الرد }}}
تم الشكر بواسطة:
#2
هي اداة اسمها Backgroundworker رائعة جدا تستطيع محاكاة او افضل من التايمر
مثال حفظ الصور (ليس جديد وانما للتسلية جهزت مثال,توجد صورة وفيديو)

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

كود الايقاف
كود :
bgw.CancelAsync()
الرد }}}
تم الشكر بواسطة:
#3
لم اعرف كيف استخدو ممكن مثال
ممكن كود داك الرنامج Smile
الرد }}}
تم الشكر بواسطة:
#4
تفضل اخى

كود :
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
الرد }}}
تم الشكر بواسطة:
#5
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


شكرا لك اخي اشتغل الكود
لكن كيف اضع اكتر من كود واحد
وهل هدا الكود اد اكثرت منه يتقل البرنامج مثل التيمر
الرد }}}
تم الشكر بواسطة:
#6
لا حب لا يثقل الجهاز
الرد }}}
تم الشكر بواسطة:
#7
كي اضع اكثر من كود
حاولت ان اغير الاسماء لكن يظهر لي خطء
الرد }}}
تم الشكر بواسطة:
#8
تفضل حب هذا مشروع فيه 3 تيمرات

http://www.gulfup.com/?lRHZIG
الرد }}}
تم الشكر بواسطة:
#9
جزاك الله خيار
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم