منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تشغيل كود بعد وقت معين - نسخة قابلة للطباعة

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

تشغيل كود بعد وقت معين - محمد اسماعيل - 10-02-18

عندي تاب بية 6 تاب بداخلة اريد كود لتنقل بين التاب بعد 2 دقيقة تلقائي

استخدمت تايمر واستخدمت الكود التالي ولكن البرنامج يتوقف كلة حتي تنفيذ الكود  والكود يعمل جيدا المشكلة توقف البرنامج حتي تنفيذ لكود

اريد عدم توقف البرنامج والعمل علي باقي اجزاء البرنامج بدون توقف


الكود المستخدم


كود :
Private Sub button1_Click(sender As System.Object, e As System.EventArgs) Handles button1.Click
       Timer1.Enabled = True
       Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
       Select Case x
           Case 1
               TAB.SelectedIndex = 0
               x = 2
               
           Case 2
               Threading.Thread.Sleep(120000)
               TAB.SelectedIndex = 1
               x = 3
           Case 3
               Threading.Thread.Sleep(120000)
               TAB.SelectedIndex = 2
               x = 4
           Case 4
               Threading.Thread.Sleep(120000)
               TAB.SelectedIndex = 3
               x = 5
           Case 5
               Threading.Thread.Sleep(120000)
               TAB.SelectedIndex = 4
               x = 6
           Case 6
               Threading.Thread.Sleep(120000)
               TAB.SelectedIndex = 5
               x = 7
               Timer1.Stop()
               Timer1.Enabled = False
       End Select
   End Sub


RE: تشغيل كود بعد وقت معين - محمود صالح - 10-02-18

اعمل ذلك في الخلفية باستخدام اداة 
Backgroundworker

ابحث عن كيفية استخدامها هتلاقي كثير

RE: تشغيل كود بعد وقت معين - طالب برمجة - 10-02-18

PHP كود :
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
    Timer1.Interval = 120000
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    If TAB.SelectedIndex < TAB.TabCount - 1 Then
        TAB.SelectedIndex += 1
    Else
        TAB.SelectedIndex = 0
    End If
End Sub 


RE: تشغيل كود بعد وقت معين - محمد اسماعيل - 10-02-18

(10-02-18, 04:26 PM)طالب برمجة كتب :
PHP كود :
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
    Timer1.Interval = 120000
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    If TAB.SelectedIndex < TAB.TabCount - 1 Then
        TAB.SelectedIndex += 1
    Else
        TAB.SelectedIndex = 0
    End If
End Sub 

اشكرك اخي الكريم علي المساعدة فعلا هذا هو المطلوب

RE: تشغيل كود بعد وقت معين - وعد مولود - 11-02-18

PHP كود :
Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles form1.load
    Timer1.Interval = 5000   
'كل 1000 يعني ثانية واحدة
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    ***************
'الكود المطلوب
End Sub