سووال في الفيجوال بيسك

بأستخدام timer و هو أداه ضمن الأدوات الموجوده على يسارك فى الفجوال بيسيك.

أو تستخدم الداله timer وهى داله صعبة التعامل و لاتستخدم فى هذه الأغراض.

خلى بالك : أداة timer لها خاصيه إسمها Intervel تحدد و قت عملها من بداية البرنامج و بتكرار . و يكون الزمن بالميللى ثانيه يعنى 1000 تساوى ثانيه واحده .وتضع الكود المراد تنفيذه فى كود الtimer وليكن End كما فى حالتنا و تضيط الزمن وفقط.

السلام عليكم اخي وشكر لردك

لكن دالة timer

لا تقبل زياده عن 60 ثانية فقط

اي لا يمكن وضع اكثر من 60 ثانية في Intervel

كيف اجعلها تزيد للمده ال ابغاها

وشكرا كثيرااا

عن طريق متغير تجعله يذيد كل دوره وفى كل مره تختبر قيمته إن وصل إلى عشره مثلا إذا فقد قام بعمل عشر دقائق وهكذا .

لو ربع ساعه ....>>>>> interval = 60000

ومتغير i = 1

وi = i +1

if i > 15 then '-------The Code Goes Here

end if

وهكذا ...

شكرا اخي لاردك الجميل بس لو تكتب الكود ال يفعل هذا ولك جزيل الشكر

بفرض ان البرنامج يتوقف بعد ربع ساعة

ما هو الكود لذلك

السلام عليكم

يمكنك عمل حيلة صغيرة و سهلة جدا, ضع ليبل باسم Cnt و غير Visible الي False, و ضع تايمر و غير انترفال الي 10000 اي 10 ثوان و اكتب به هذا الكود:

Label1.Caption = Label1.Caption + 1

و هكذا كل 10 ثوان سيزيد ليبل 1, و الربع الساعة فيها 90 عشر ثوان, لذا اكتب الكود التالي في التايمر ايضا:

If Label1.Caption = 90 Then

Expression

End If

و في Expression ستكتب اي كود تريد..

ارجو ان تفيدك... ;)

اسف سيكون الليبل باسم Label1 و ليس Cnt...

أعتذر عن الخطأ... :rolleyes:

السلام عليكم اخي الكريم Bibo2002 جزاك الله خيرا

فكرة جميلة وإن شاء الله اطبقها

يا سلام و الله بيبو معلم

أنا أحبذ متغير من نوع static يكون أسرع و أحسن .

ضع هذا فى حدث التايمر

ولا تنسى و ضع 60000 فى التايمر كInterval .

السلام عليكم اخواني

ماشاء الله علي تجاوبكم

جزاكم الله خير

شكرا لاخي mrezzuz واخي Bibo2002

وجميع اعضاء المنتدي بارك الله فيك

توصلت للحل بفضل مساعدتكم واشتغل البرنامج تمام