تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ايقاف التايمر بعد عمل معين
#1
السلام عليكم ورحمة الله وبركاته.
لدى هذا الكود على سبيل المثال

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

ما اريده :
مثلا لو داخل الليست بوكس 100 عنصر يتوقف عند كل خمس عناصر مدة دقيقة مثلا
وبعدها يقوم بالعمل مرة أخرى
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

استخدم Mod لمعرفة باقي القسمه
مثل
Dim m = (SelectedIndex+1) Mod 5
اذا كان m يساوي صفر توقف التايمر لمدة دقيقه
الرد
تم الشكر بواسطة:
#3
(30-05-21, 07:51 PM)Fareed كتب : وعليكم السلام ورحمة الله وبركاته

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

بارك الله فيك أخى الكريم...
للأسف لم أعرف التعامل معها لآنها لم تورد علىّ من قبل حقيقة..
الرد
تم الشكر بواسطة:
#4
لا اعرف ما هو درو التايمر في الكود عندك

لكن هذا الذي اقصده
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
الرد
تم الشكر بواسطة:
#5
(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

لا أدرى لعل فى رأسى ألف حاجة ومش مركز....
هل هناك أمر يجعل التايمر يقف خمس دقائق  بعد أن يعمل عشر دقائق مثلا 
 ثم يُعاود العمل من نفسه بعد إنتهاء ال خمس دقائق ؟؟
الرد
تم الشكر بواسطة:
#6
ضع 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
الرد
تم الشكر بواسطة: ابو روضة
#7
(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
#8
راح تضبط
لكن نسيت اذكر تشغيل احدهنا في البدايه في حدث اللود
Timer1.Start

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

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

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

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

ربنا يبارك فيك
الرد
تم الشكر بواسطة: ابو روضة , ابو روضة
#9

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


الملفات المرفقة
.rar   sss.rar (الحجم : 24.92 ك ب / التحميلات : 3)
الرد
تم الشكر بواسطة: ابو روضة , ابو روضة , معاند الحظ
#10
(31-05-21, 11:56 PM)سعود كتب :

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


ماشاء الله عليك أخى سعود....
تقريباً هذا ما أريده تماماً...
الله يسعدك ويبارك بوقتك وعمرك ويزيدك من واسع علمه...
فقط سؤال: أين أضع الكود تبعى ؟ 
فى أى مكان بالتحديد ؟
وكل الشكر للأخ الفاضل Fareed " لم تُقصر والله " ...
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم