المشاركات : 20
المواضيع 0
الإنتساب : May 2021
السمعة :
1
الشكر: 14
تم شكره 21 مرات في 14 مشاركات
وعليكم السلام ورحمة الله وبركاته
استخدم Mod لمعرفة باقي القسمه
مثل
Dim m = (SelectedIndex+1) Mod 5
اذا كان m يساوي صفر توقف التايمر لمدة دقيقه
المشاركات : 20
المواضيع 0
الإنتساب : May 2021
السمعة :
1
الشكر: 14
تم شكره 21 مرات في 14 مشاركات
لا اعرف ما هو درو التايمر في الكود عندك
لكن هذا الذي اقصده
If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
'Timer1.Stop()
Label1.Text = ("تم المرور على كل عناصر الليست بوكس")
ExitSub
End If
Dim m = (SelectedIndex+1) Mod 5
If m= 0 Then
Threading.Thread.Sleep(60000)
Else
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End If
المشاركات : 20
المواضيع 0
الإنتساب : May 2021
السمعة :
1
الشكر: 14
تم شكره 21 مرات في 14 مشاركات
ضع 2 تايمر
بحيث الاول مضبوط على 5 دقايق
والثاني على 10 دقايق
وكل واحد منهم يوقف نفسه ويشغل الاخر
مثال
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Timer1.Interval = 300000
Timer2.Interval = 600000
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
Timer1.Stop()
Timer2.Start()
End Sub
Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer2.Tick
Timer2.Stop()
Timer1.Start()
End Sub
المشاركات : 20
المواضيع 0
الإنتساب : May 2021
السمعة :
1
الشكر: 14
تم شكره 21 مرات في 14 مشاركات
31-05-21, 06:12 AM
(آخر تعديل لهذه المشاركة : 31-05-21, 06:16 AM {2} بواسطة Fareed.)
راح تضبط
لكن نسيت اذكر تشغيل احدهنا في البدايه في حدث اللود
Timer1.Start
وضع الكود اللي تريد تنفيذه داخل حدث التايمر
مفيش تعب ولاحاجه
اذا تحب اشرح الفكره اللي فبالك
ربنا يبارك فيك
ربنا يبارك فيك