+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=18937)
الصفحات:
1
2
كيف نخلي تايمير يضل شغال.. - 3asfa~mdmra - 24-01-17
سلام عليكم
كييف نجعل تايمر يشتغل بعد كل 10 دقائقكمثال
بشرط لا بتقوف اطلاقا يعني كل 10 دقائق تلقائي
يرجع يشتغل
مع توضيح للمستخدم انه تايمر رجع اشتغل
لتنفيذ امر معين
وشكراً
RE: كيف نخلي تايمير يضل شغال.. - مساعدة - 24-01-17
السلام عليكم
يمكنك بتعديل Interval بوضع ناتج العملية1000*×10×60 أي 600000 وتعني 10 دقائق مع التأكد من تفعيل التايمر
ويمكن تضع في أول سطر منه الرسالة للمستخدم.
RE: كيف نخلي تايمير يضل شغال.. - 3asfa~mdmra - 24-01-17
ولكن انا وضعت هذا الكود واشتغل ولكن المصيبة بعد 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()RE: كيف نخلي تايمير يضل شغال.. - bidaya - 24-01-17
(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 SubRE: كيف نخلي تايمير يضل شغال.. - 3asfa~mdmra - 25-01-17
لا اخي مو زابطة
RE: كيف نخلي تايمير يضل شغال.. - bidaya - 25-01-17
(25-01-17, 01:48 AM)3asfa~mdmra كتب : لا اخي مو زابطة
اخي الكريم فهم السؤال نصف الاجابة
هل تريد من التايمر لا يتوقف ابدا
هل تريد من التايمر يعمل 10 دقائق ويتوقف 10 وهكذا......
هل تريد من التايمر يعمل حدث ما كل عشر دقائق
لكي يتضح للاخوة الكرام الاجابة على سؤالك
وشكرا
RE: كيف نخلي تايمير يضل شغال.. - 3asfa~mdmra - 25-01-17
اريد من تايمر لا يتوقف ابدأ كل 5 دقائق يشتغل مع اظهار للمستخدم بدئ التشغيل من جديد
RE: كيف نخلي تايمير يضل شغال.. - bidaya - 25-01-17
(25-01-17, 06:40 PM)3asfa~mdmra كتب : اريد من تايمر لا يتوقف ابدأ كل 5 دقائق يشتغل مع اظهار للمستخدم بدئ التشغيل من جديد
اخي الكريم انت تقول لا يتوقف ابدا وتقول كل خمسة دقائق يشتغل !!!!!
هل تقصد كل خمس دقائق يحدث امر ما
RE: كيف نخلي تايمير يضل شغال.. - 3asfa~mdmra - 25-01-17
اخي لنفرض انه كل 5 دقائق يظهر كلمة emad ما الكود مناسب لذلك وشكراً لتساع صدرك
RE: كيف نخلي تايمير يضل شغال.. - bidaya - 25-01-17
(25-01-17, 07:42 PM)3asfa~mdmra كتب : اخي لنفرض انه كل 5 دقائق يظهر كلمة emad ما الكود مناسب لذلك وشكراً لتساع صدرك
اتمنى اني اعطيتك فكرة على الموضوع في هذا المثال المرفق
يمكنك تغيير المدة الزمنية في تايمر 1
If Label1.Text = 5 Then
بتغيير الرقم 5
حيث الرقم 5 هنا 5 دقائق
حظ موفق اخي