المساعد الشخصي الرقمي

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


amawi
12-11-2005, 01:41 PM
اخواني وانا قاعد اصمم برنامج بسيط توقفت عند امر معين

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

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

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

اخوكم عماوي
oms
12-11-2005, 01:50 PM
مشكلة واجهتني وإليك الحل ..

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

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

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

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


Dim x as integer

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



أرجوا أن اكون وصلت المعلومة لك ..
amawi
12-11-2005, 03:01 PM
مشكور اخوي اسامة
رح اجرب واردلك خبر
اخوك عيسى
amawi
12-11-2005, 03:21 PM
اخي انا بعثت لك برسالة خاصة ولكن للأسف يبدوا انك طلعت
لم تنجح معي
درست الكود وهو منطقي ورائع ولكن يبدوا انني لم اعرف كيف اصنع به
مشكور اخوي وانا انتظرك من جديد
اخوك
amawi
13-11-2005, 08:43 PM
مشكور اخوي اسامة وانا انتظرك
لكن اين البقية
يا اخوان اين انتم
رجاءا ساعدوني
اخوكم عماوي "انا متأكد ان الأخ والصديق حسام عندما يرى هذه العبارة سيساعدني على فكرة لم اره منذ زمن كان الله في عونه اينما كان ومهما فعل وان شاء الله اشوفه في القريب العاجل "
newusernewuser
23-11-2005, 03:10 AM
بسم الله الرحمن الرحيم

الحل بسيط جداً وقد تفضل الأخ / 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
23-11-2005, 09:10 PM
مشكور اخوي
لكن كما قلت الأخ اسامة تفضل بالحل
ولكني لم اكن فاهما لطبيعة العمل
او بالاحرى لم افهم ماذا افعل
وهذا ما اخبرني به الاخ اسامة لاحقا

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

اخوك عماوي