الإخوة الكرام،،،
يوجد عندي مربع نص و زر امر على النموذج ،وعلى زر الامر كتبت الكود التالي
for i=1 to 100 text_box=i next i
ولكن عند تنفيذ هذاه ال لووب لا يظهر سوى الرقم الأخير ، اريد منكم ان تدلوني على كود معين اضعه يؤخر تنفيذ الجملة التي توجد داخل ال لووب
و شكراً مقدماً
اخوكم سهيل
تم تعديل هذه المشاركة بواسطة فيصل الحربي في 1 نوفمبر 2003 في 19:56
رمضان كريم
يا أخي من ابسط الطرق لتاخير اي عملية هي ان تضع لوب اخر داخل اللوب الاصلي
وكما يلي
for i=1 to 100
text = i
for j=1 to 5000
next
next
وشكرا
جربت هذه الطريقة يا اخي، و ما وفت بالمطلوب ، نظراً لسرعة الحاسوب كما تعلم ، انا اريد ان ارى الارقام وهي تظهر على مربع النص تباعاً. انا اعتقد انه لا بد من وجود جملة مثل delay لتأخير التنفيذ.
مرحبا،،،
شد إنتباهي وإستغرابي أن يكون هناك مثل هذا السؤال الذي يعود إلى عشرات السنين؟؟!!
لا يمكن تأخير العمليات الحسابية من خلال Loops لكون الحاسبات في هذه الأيام تؤدي مليارات العمليات الحسابية في جزء من الثانية وبالتالي مهما حاولت من تكبير لرقم الدوران داخل Loop لن تستطيع تأخير العمليات.
آما مساعدة الزميل الآخر بخصوص إستخدام أمر Delay فهو غير صحيح لأن هذا الأمر يستخدم في حالات أخرى مختلفة تماما عن مشكلتك.
الحل يكمن في إستخدام خاصية Timer وهي شهيرة جداً.
مثال:
نموذج فيه مربع حوار TextBox
في خصائص النموذج إذهب إلى صفحة Events ضع الرقم 1000 في Time Interval و1000 تعني ثانية واحدة فقط أن أن 10000 تعني 10 ثواني وهكذا.
في خاصية On Timer إختر Event Procedure وإضغط على ...
إكتب الجملة التالية:
Text0.Text = Val(Text0.Text) + 1
نفذ النموذج، وإنتظر، ستلاحظ أن الرقم يتغير بعد مرور ثانية واحدة.
الآن يمكنك إختيار الوقت وما ينفذ بعد مرور الوقت المحدد من قبلك.
تحياتي،،،
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
