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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحديد نص معين ميدو الفنان 4 355 12-06-21, 07:24 PM
آخر رد: ميدو الفنان
  [VB.NET] جعل ال datagridview لا تقبل إلا إدخال نوع معين من البيانات mmaalmesry 2 182 29-05-21, 04:30 PM
آخر رد: mmaalmesry
Sad مشكلة عدم دقة توقيت التايمر أسعد 14 777 27-05-21, 03:32 AM
آخر رد: معاند الحظ
  لو عايز اعمل اعلانات لمنتج معين Lathe1 1 145 26-05-21, 01:30 AM
آخر رد: Lathe1
  اخر قيمة حقل معين باستخدام شرط معين asdfar1977 1 249 04-05-21, 06:28 AM
آخر رد: أسعد
  [سؤال] عايز كود تحقق من شئ معين حسن الجلب 1 258 14-04-21, 03:01 PM
آخر رد: حسن الجلب
  [VB.NET] ترتيب جدول أبجديا حسب حقل معين (Column) mmaalmesry 0 185 13-04-21, 12:44 AM
آخر رد: mmaalmesry
Information عمل برنامج لأوقات الصلاة لجميع المدن مستخرجة من موقع معين b4getws 5 536 01-04-21, 02:09 AM
آخر رد: عبد الهادي بهاب
  مطلوب تحديد صف معين داخل الداتا جريد فيو نور الهدى الهدى 1 469 11-02-21, 11:01 PM
آخر رد: سعود
  ممكن مساعده فى رفع نص معين على موقع باستبين ahmed112001 0 288 07-02-21, 05:30 PM
آخر رد: ahmed112001

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


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