تقييم الموضوع :
  • 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 ك ب / التحميلات : 17)
الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة , معاند الحظ
#10
(31-05-21, 11:56 PM)سعود كتب :

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في التايمر assuhimi 3 78 23-03-24, 04:51 PM
آخر رد: Taha Okla
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  إجبار المستخدم على إدخال عدد معين من الأرقام Ahmed.vb 6 656 20-10-23, 10:25 AM
آخر رد: atefkhalf2004
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  حفظ المشروع بامتداد معين غير معروف مسبقا Abo Louay 0 262 29-09-23, 02:55 AM
آخر رد: Abo Louay
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 403 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
  اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين moh61 6 695 26-07-23, 05:47 AM
آخر رد: Taha Okla

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


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