السلام عليكم ورحمة الله وبركاته :
قرأت مره كعنوان عن استخدام Timer كعداد واعتباره أسلوب من أساليب الدوران فهل لي معرفة ذلك ويفضل شرحه بمثال .
ولكم جزيل شكري
استخدام Timer كعداد
مغلق
السلام عليكم ورحمة الله وبركاته
أخى العزيز الأمر سهل
Public a as integer
doevents
a=a+1
me.caption=a
ضع هذا الكود فى أداة تيمر
{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1
شكراً أخي العزيز :
هل لي بشرح الكود .
ماذا يقصد doevent ولماذا تم تعريف المتغير a من نوع Public
ولك شكري أخي العزيز
ولي سؤال أخر :
ماذا يقصد بالخاصية Index ؟
كيفية اعتبار الأداه متغير ؟
وكيفية استخدامها كمصفوفة ؟
وشكراً
يقوم هذا الكود بعد كل فترة زمنية يحددها المستخدم في الخاصية interval
مع مراعاة ان 1000=ثانية واحدة
بزيادة قيمة المتغير a
ثم تحويل عنوان المشروع إلي قيمة a الجديدة
أما عن doevents فتجعل البرنامج لا ينفذ أمر آخر حتي ينتهي من تنفيذ الأمر الحاي وهكذا
أما عن الخاصية index
فهي تحدد ما إذا كان الكائن المستخدم أو المتغير ضمن مصفوفة أم لا
وليكن comQueen(index) وتتغير قيمة index حسب قيمة العنصر في المصفوفة
ويمكن عمل مصفوفة سريعة عند نسخ أداة وإعادة لصقها داخل الفورم تظهر رسالة عندما يتم الإجابة عليها بنعم تتكون المصفوفة
ونري عند النقر المزدوج علي أي أداة منها (الأصلية أو النسخة) ظهور نفس المكان لكتابة الكود
مع مراعاة أنه لابد من تحديد index إذا كان هناك فرق في الكود بين الأداتين
مثل
عند النقر علي زر أمر ليكن في مصفوفة cmdQueen وليكن index = 1
Private Sub cmdQueen_Click(Index As Integer)
If Index = 1 Then
Label1.Caption = "1"
Else
Label1.Caption = "2"
End If
End Sub
نري ان lable تغير عنوانه إلي 1
وهكذا ................. أرجو أن أكون وفقت في الشرح
قل لن يصيبنا إلا ما كتب الله لنا
السلام عليكم ورحمة الله
اخى بوشكاش
Doevents
تخبر البرنامج الا يحتكر ذاكرة الجهاز عند الإجراءات الطويلة كالبحث وغيرة ويعطى المجال للبرامج الأخرى للعمل ولكن مع بطء فى سرعة برنامجك
ورائع ياأخى على الشرح
{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1
السلام عليكم
خاصية الـIndex للأدوات تتيح لك عمل مصفوفة من الاداة ، يعني هي بالضبط عملية نسخ للأداة مع المحافظة علي نفس الاسم ، كل الادوات المشتقة تحمل اسم الاداة الرئيسية فقط مع تغير الـIndex للاداة .
مثلا لو عندك زر اسمه Cmd_New بالضغط عليه مرتين وعند انفتاح نافذة الكود تجده يكتب الاتي.
Private Sub Cmd_New_Click() End Sub
جرب ضع رقم 0 في خانة الـIndex وكرر الطريقة السابقة ، اي اضغط مرتين علي الرز ، طبعا قم بسمح الكود القديم .
قم بعمل نسخ ولصق للاداة لزيادة عدد الادوات المشتقة منها .
ستلاحظ تغير بسيط في الكود ، وسيصبح كالتالي :
Private Sub Cmd_New_Click(Index as Integer) End Sub
لقد قام بوضع كلمة Index بين الاقواس . لماذا ؟
لان كافة الادوات المشتقة تشترك في نفس الاجراء ، والطريقة الوحيدة لمعرفة الحدث المستقبل من اي اداة هو الـindex حسيث يستقبل رقم الاداة التي تم عليها النقر .
تحياتي لك .
ارجوا ان أكون قد وفقت في الشرح المبسط . :)
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
هذا الموضوع مغلق.