[3asfa~mdmra]

سلام عليكم

كييف نجعل تايمر يشتغل بعد كل 10 دقائقكمثال

بشرط لا بتقوف اطلاقا يعني كل 10 دقائق تلقائي

يرجع يشتغل

مع توضيح للمستخدم انه تايمر رجع اشتغل

لتنفيذ امر معين

وشكراً

[مساعدة]

السلام عليكم

يمكنك بتعديل Interval بوضع ناتج العملية1000*×10×60 أي 600000 وتعني 10 دقائق مع التأكد من تفعيل التايمر
ويمكن تضع في أول سطر منه الرسالة للمستخدم.

[3asfa~mdmra]

ولكن انا وضعت هذا الكود واشتغل ولكن المصيبة بعد 15 دقيقة يتوقف تايمر وبذلك

المستخدم بقوم بضغط ع زر تشغبل لمعادوة تشغيل تايمر

وهذا لا اريده ارديد تشغل تلقائي

تفضضل كود

كود :

  Dim duration As Date
Dim ts As TimeSpan = duration - DateTime.Now.AddSeconds(-1)
       Label2.Text = ts.Minutes.ToString("00") & ":" & ts.Seconds.ToString("00")
       If Label2.Text = "00:00" Then
           Timer1.Stop()
         
       End If

كود تشغيل

كود :

 duration = DateTime.Now.AddMinutes(1)
           Timer1.Start()

[bidaya]

(24-01-17, 02:26 PM)3asfa~mdmra كتب :

ولكن انا وضعت هذا الكود واشتغل ولكن المصيبة بعد 15 دقيقة يتوقف تايمر وبذلك

المستخدم بقوم بضغط ع زر تشغبل لمعادوة تشغيل تايمر

وهذا لا اريده ارديد تشغل تلقائي

تفضضل كود

كود :

  Dim duration As Date
Dim ts As TimeSpan = duration - DateTime.Now.AddSeconds(-1)
       Label2.Text = ts.Minutes.ToString("00") & ":" & ts.Seconds.ToString("00")
       If Label2.Text = "00:00" Then
           Timer1.Stop()
         
       End If

كود تشغيل

كود :

 duration = DateTime.Now.AddMinutes(1)
           Timer1.Start()

ارجو المعذرة في التدخل بهذه الطريقة وهي باضافة تايمر ثاني اتمنى انني في الصواب لافادتك

كود :

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Dim duration As Date
       Dim ts As TimeSpan = duration - DateTime.Now.AddSeconds(-1)
       Label1.Text = ts.Minutes.ToString("00") & ":" & ts.Seconds.ToString("00")
       If Label1.Text = "00" Then
           Timer1.Stop()
           Timer2.Start()

       End If
   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Timer1.Start()
   End Sub

   Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
       Timer1.Start()
   End Sub

[3asfa~mdmra]

لا اخي مو زابطة

[bidaya]

(25-01-17, 01:48 AM)3asfa~mdmra كتب : لا اخي مو زابطة

اخي الكريم فهم السؤال نصف الاجابة
هل تريد من التايمر لا يتوقف ابدا
هل تريد من التايمر يعمل 10 دقائق ويتوقف 10    وهكذا......
هل تريد من التايمر يعمل حدث ما كل عشر دقائق
لكي يتضح للاخوة الكرام الاجابة على سؤالك
وشكرا 

[3asfa~mdmra]

اريد من تايمر لا يتوقف ابدأ كل 5 دقائق يشتغل مع اظهار للمستخدم بدئ التشغيل من جديد

[bidaya]

(25-01-17, 06:40 PM)3asfa~mdmra كتب : اريد من تايمر لا يتوقف ابدأ كل 5 دقائق يشتغل مع اظهار للمستخدم بدئ التشغيل من جديد

اخي الكريم انت تقول لا يتوقف ابدا  وتقول كل خمسة دقائق يشتغل !!!!!
هل تقصد كل خمس دقائق يحدث امر ما

[3asfa~mdmra]

اخي لنفرض انه كل 5 دقائق يظهر كلمة emad ما الكود مناسب لذلك وشكراً لتساع صدرك

[bidaya]

(25-01-17, 07:42 PM)3asfa~mdmra كتب : اخي لنفرض انه كل 5 دقائق يظهر كلمة emad ما الكود مناسب لذلك وشكراً لتساع صدرك

اتمنى اني اعطيتك فكرة على الموضوع في هذا المثال المرفق
يمكنك تغيير المدة الزمنية في تايمر 1
If Label1.Text = 5 Then
بتغيير الرقم 5
حيث الرقم 5 هنا 5 دقائق
حظ موفق اخي