اخواني مساعدة بالــ vb6 جزاكم الله كل الخير

[amawi]

اخواني وانا قاعد اصمم برنامج بسيط توقفت عند امر معين

وهو ان التايمر له مدة عمل دقيقة واحدة فقط فكيف اجعله يعمل مدة نصف ساعة جربيت اعمل loop من دون جدوى
وجربت اشياء اخرى وايضا لم تنفع

ارجوكم انا انتظر الحل منكم

اعرف ان الموضوع تافه بس صدقوني صار امر مصيري بيني وبينه انا ولا هو

اخوكم عماوي

[oms]

مشكلة واجهتني وإليك الحل ..

قم بتعريف متغير جلوبل .. يعني في أول سطر ..

بعدها قم بتعيير المؤقت التايمر كل دقيقة ..

وقم بزيادة المتغير في كل دقيقة ..

بعدها عندما يصل مثلاً للرقم 30 أي أنه مر نصف ساعة قم بإجراء حدثك الذي تريده ..

 Dim x as integer 
 
Private Sub Timer1_Time(...)
x = x + 1
if x > 30 then
x = 0
.......
end if

أرجوا أن اكون وصلت المعلومة لك ..

[amawi]

مشكور اخوي اسامة
رح اجرب واردلك خبر
اخوك عيسى

[amawi]

اخي انا بعثت لك برسالة خاصة ولكن للأسف يبدوا انك طلعت
لم تنجح معي
درست الكود وهو منطقي ورائع ولكن يبدوا انني لم اعرف كيف اصنع به
مشكور اخوي وانا انتظرك من جديد
اخوك

[amawi]

مشكور اخوي اسامة وانا انتظرك
لكن اين البقية
يا اخوان اين انتم
رجاءا ساعدوني
اخوكم عماوي "انا متأكد ان الأخ والصديق حسام عندما يرى هذه العبارة سيساعدني على فكرة لم اره منذ زمن كان الله في عونه اينما كان ومهما فعل وان شاء الله اشوفه في القريب العاجل "

[newusernewuser]

بسم الله الرحمن الرحيم

الحل بسيط جداً وقد تفضل الأخ / OMS بشرحه
سأتناوله لك بصورة سريعة وبسيطة :
- أضف أداة التايمر Timer إلى الفورم .
- أضبط خاصية الـ Interval على القيمة 1000 وهى تعنى ثانية واحدة .
- انتقل إلى نافذة الكود وإلصق التالى

Dim Temp As Integer
Private Sub Timer1_Timer()
	Temp = Temp + 1
	If Temp = 1800 Then MsgBox "30 min passed"
End Sub

وهذا الكود يعنى زيادة المتغير Temp بمعدل قيمة واحدة كل ثانية حتى تصبح 1800 ثانية أى نصف ساعة ( 30 60X ) ليتم تنفيذ أى أمر تريده .

إنتهى

[amawi]

مشكور اخوي
لكن كما قلت الأخ اسامة تفضل بالحل
ولكني لم اكن فاهما لطبيعة العمل
او بالاحرى لم افهم ماذا افعل
وهذا ما اخبرني به الاخ اسامة لاحقا

على كل اقدم لك احر تقدير على مجهودك ودمت لنا وان شاء الله الأشئلة جاية

اخوك عماوي