[ابو روضة]

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

لدى هذا الكود على سبيل المثال

كود :

If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
               Timer1.Stop()
               Label1.Text = ("تم المرور على كل عناصر الليست بوكس")
           Else
               ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
           End If

ما اريده :

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

وبعدها يقوم بالعمل مرة أخرى

[Fareed]

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

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

[ابو روضة]

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

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

بارك الله فيك أخى الكريم...

للأسف لم أعرف التعامل معها لآنها لم تورد علىّ من قبل حقيقة..

[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

[ابو روضة]

(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

لا أدرى لعل فى رأسى ألف حاجة ومش مركز....

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

 ثم يُعاود العمل من نفسه بعد إنتهاء ال خمس دقائق ؟؟

[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

[ابو روضة]

(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

جزاك الله كل خير أخى...

مش عاوزة تظبط معايا لا اعلم لماذا.....

لا تتعب نفسك أكثر من اللازم أخى , ربنا يكرمك ويبارك بعمرك...

[Fareed]

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

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

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

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

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

---

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

[سعود]

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

[ابو روضة]

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

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

ماشاء الله عليك أخى سعود....

تقريباً هذا ما أريده تماماً...

الله يسعدك ويبارك بوقتك وعمرك ويزيدك من واسع علمه...

فقط سؤال: أين أضع الكود تبعى ؟ 

فى أى مكان بالتحديد ؟

وكل الشكر للأخ الفاضل Fareed " لم تُقصر والله " ...