24-01-17, 02:04 PM
سلام عليكم
كييف نجعل تايمر يشتغل بعد كل 10 دقائقكمثال
بشرط لا بتقوف اطلاقا يعني كل 10 دقائق تلقائي
يرجع يشتغل
مع توضيح للمستخدم انه تايمر رجع اشتغل
لتنفيذ امر معين
وشكراً
الصفحات : 1 2
24-01-17, 02:04 PM
24-01-17, 02:10 PM
24-01-17, 02:26 PM
24-01-17, 06:09 PM
(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 Sub25-01-17, 01:48 AM
25-01-17, 03:36 AM
(25-01-17, 01:48 AM)3asfa~mdmra كتب : [ -> ]لا اخي مو زابطة
اخي الكريم فهم السؤال نصف الاجابة
هل تريد من التايمر لا يتوقف ابدا
هل تريد من التايمر يعمل 10 دقائق ويتوقف 10 وهكذا......
هل تريد من التايمر يعمل حدث ما كل عشر دقائق
لكي يتضح للاخوة الكرام الاجابة على سؤالك
وشكرا
25-01-17, 06:40 PM
25-01-17, 07:01 PM
25-01-17, 07:42 PM
25-01-17, 10:45 PM
الصفحات : 1 2