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

الصفحات : 1 2

اخي اجعل قيمة الـIntrval=999
لان العد يبدأ من صغر الى 999

الجواب ليس اكيد لكن جرب وان شاء الله يزبط

السلام عليكم ورحمة الله وبركاته
اخي الكريم المشكلة تكمن الفاصلة والارقام التي بعدها قم بتقريب الرقم الى العدد الصحيح بالدالة Round وبإذن الله ستحل المشكلة
جرب لمدة عشر دقائق واعلمنا بالنتيجة
عدل كود التايمر تك الى التالي

كود :

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        n += 1

        Label1.Text = n

        Label2.Text = Math.Round(sw.Elapsed.TotalSeconds)

    End Sub

في الحقيقة بعد ردي السابق قمت بالبحث واتضح لي انها مشكلة تتعلق بتشغيل التايمر لوقت طويل جدا او وضع قيمة interval كبيرة جدا بحسب ماقرات
واعتقد ان الحل هو ياستخدام التايمر الموجود في فضاء الاسماء Timers.Timer والذي يختلف عن التايمر العادي بانه يحتوي على الحدث Elapsed بدلا من الحدث Tick

كود :

    Dim WithEvents tmr As New Timers.Timer

    Private Sub tmr_Elapsed(sender As Object, e As System.Timers.ElapsedEventArgs) Handles tmr.Elapsed

        'your code  here

    End Sub

وهذا هو احد الحلول المقدمة لاحد السائلين في موقع stackoverflow والموجود هنا

كما يمكنك تصفح نتائج البحث بالعبارة التي استخدمتها للبحث في جوجل وهي is timer interval=1000 equal to 1 second

بارك الله بك ولك اخي معاند الحظ

معلومة جديدة وممتازة

كل يوم نتعلم

(27-05-21, 03:26 AM)ابراهيم ايبو كتب : [ -> ]
بارك الله بك ولك اخي معاند الحظ

معلومة جديدة وممتازة

كل يوم نتعلم

وبارك الله فيك وفي اهلك واحبابك اخي ابراهيم
شكرا لك

الصفحات : 1 2