منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

وعليكم السلام ورحمة الله وبركاته

استخدم Mod لمعرفة باقي القسمه
مثل
Dim m = (SelectedIndex+1) Mod 5
اذا كان m يساوي صفر توقف التايمر لمدة دقيقه

(30-05-21, 07:51 PM)Fareed كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته

استخدم Mod لمعرفة باقي القسمه
مثل
Dim m = (SelectedIndex+1) Mod 5
اذا كان m يساوي صفر توقف التايمر لمدة دقيقه

لا اعرف ما هو درو التايمر في الكود عندك

لكن هذا الذي اقصده
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

(30-05-21, 10:52 PM)Fareed كتب : [ -> ]لا اعرف ما هو درو التايمر في الكود عندك

لكن هذا الذي اقصده
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

ضع 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

(31-05-21, 01:41 AM)Fareed كتب : [ -> ]ضع 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

راح تضبط
لكن نسيت اذكر تشغيل احدهنا في البدايه في حدث اللود
Timer1.Start

وضع الكود اللي تريد تنفيذه داخل حدث التايمر

مفيش تعب ولاحاجه

اذا تحب اشرح الفكره اللي فبالك

ربنا يبارك فيك

---

ربنا يبارك فيك

(31-05-21, 11:56 PM)سعود كتب : [ -> ]

قد لا يكون تماما مثل المطلوب وانما قد يساعد .. فقط مثال تصور للفكرة.