تقييم الموضوع :
  • 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
جزاك الله خيار
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف ممكن اوقف عدد كبير من BackgroundWorker دفعة واحدة e-coder 2 62 23-05-17, 03:40 AM
آخر رد: silverlight
  ممكن طريقة عمل راديو اذاعات القرآن الكريم عن طريق aassa 5 89 20-05-17, 12:49 AM
آخر رد: alma2
  [سؤال] ممكن مسساعدة في تصدير مشروع بقاعدة بيانات MySql & vb.net2013 فراس الغزي 1 59 19-05-17, 12:45 PM
آخر رد: Adrees
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 206 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  هل هذا ممكن ام لا rabeh.ram 2 63 10-05-17, 12:49 AM
آخر رد: rabeh.ram
  [سؤال] ممكن طريقة اضافة سنوات في التاريخ Abdulaziz Hazazi 2 89 06-05-17, 09:59 PM
آخر رد: أسامة السالمي
Smile ممكن رسم سهم بهذا الكود abdalamask 16 372 02-05-17, 10:50 AM
آخر رد: silverlight
  ممكن شرح هذا الجمله using ابراهيم كركوكي 0 66 29-04-17, 10:50 AM
آخر رد: ابراهيم كركوكي
  [سؤال] حفظ بيانات دفعة واحدة ... هل هذا ممكن ابو محمد القحطاني 2 124 20-04-17, 09:32 PM
آخر رد: Adrees
  [VB.NET] ممكن مساعدتي في DataGridViwe محمد بوقزاحة 0 63 18-04-17, 11:05 AM
آخر رد: محمد بوقزاحة

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


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