محتار بالتايمر

أنا نسخت اللى أنت كاتبه للـ VB و ملقيتش مشكلة , هل أن متأكد أن مفيش حاجة تانية بتوقف التايمر , لاحظ أن الـ Modal windows ممكن توفقه زى الـ MsgBox مثلا ( مش دايما بس ممكن ).

جزاك الله خيرا على مرورك الكريم

لكن سوالي هل يقوم التكست باضافة واحد الى حد الوصول الى الرقم 1000 بعد ثانية من عمله اذا كان التايمر معاير على 1 مللي ثانية

لو سمحت

قم بعمل 2 تايمر الاول قم بمعايرته على 1 مللي ثانية

text1=text1+1

والتايمر الثاني قم بمعايرته على 1000 مللي ثانية عمله ايقاف التايمر الاول عن العمل خلال ثانية واحدة

Timer1.Enabled = False

ثم قم بملاحظة قيمة text1 هل قيمتها 1000 ؟؟؟

هذا ولكم جزيل الشكر والامتنان

صحيح :wacko: :wacko: :wacko:

طب جرب API Timer

تعديل بتحصل معاه برده , ربنا يسهل و نلاقى حل

APIs_Timer.rar

اخ msayed شكله مغرم بال API ارجوا توضيح سؤالك اكثر لانى لم افهم

الفوجول بيسك يعتبر بطيىء بهكذا أمور

بالفعل ياجماعة اعتقد انه لغة البرمجة vb هي لغة بطيئة في تنفيذ الاوامر بس السؤال لو عملنا برنامج صغير مشابه لهذا البرنامج بلغة فيجوال سي هل تكون النتيجة متشابهة ياريت اي شخص يجيد البرمجة على الفيجوال سي ان يعطينا الجواب

يقال ان جميع لغات البرمجة التي تطرحها شركة مايكروسوفت تمتاز ببطئها كنوع من الاحتكار العلمي

أعتقد أن الحل فى الـ Hi Resolution Timers

http://www.vbaccelerator.com/home/VB/Code/...Source_Code.asp

شايف إنكم بدوروا على الحل إلى الآن، فهذه هي الطريقة:

Dim T As Single

Private Sub Form_Load()
Timer1.Interval = 1
Timer2.Interval = 1000
T = Timer
End Sub

Private Sub Timer1_Timer()
Text1 = Int((Timer - T) * 1000)
End Sub

Private Sub Timer2_Timer()
Timer1 = False
End Sub

شكرا جزيلا وجزاك الله كل خير على هذا الحل الرائع

شكرا اخي

جزاكم الله خيرا ................ جاري القراءه