درس اليوم السادس شرح تنسيق الأدوات و تنفيذ شفرة عداد
السلام عليكم
هذا درس عملي بالصوت و الصورة لكيفية تنسيق الأدوات في البرنامج سيتم عمل شفرات ( اكواد ) و مطلوب من المشاركين تنفيذها و ارفاقها بالمنتدى . لنفترض انك تريد عداد لعمل عدد الإجابات الصحيحة و عدد الإجابات الخاطئة او عدد الأسئلة أو مجموع الدرجات كيف يتم ذلك ؟؟ المطلوب إدراج أداة label1 و Command1 لماذا استخدمنا أداة label1 ؟ لأن هذه الأداة متخصصة بعرض المعلومات التي لا نريد المستخدم أن يغيرها فإذا كان لديك برنامج فهل ستجعل للمستخدم او للطالب امكانية ان يغير درجاته طبعا لا . لماذا استخدمنا أداة Command1 ؟ لاننا نريد عند الضغط عللى الاداة (حدث Click ) يقوم بتنفيذ الجمع مثلا . الاجراءات المتبعة : - نسق البرنامج الى ما يعجبك و كبر حجم الخط و اكتب على Command1 جمع. - قم بمسح محتويات label1 و يتم ذلك بالتالي اذهب الى خاصيةCaption و اكتب بداخله 0 لاننا نريد ان يجمع عليه . - قم بإختيار حدث Click لأداة Command1 بالضغط المزدوج على الأداة و اكتب بها الشفرة التالية : كود:
Private Sub Command1_Click() و يمكن إختصاره كالتالي أيضا كود:
Private Sub Command1_Click() (Label1.Caption)و شرح الكود اننا نغير خاصية التسمية لليبل 1 ( Val(Label1.Caption) + 1) و هذه الشفرة تقوم بتحويل ما بداخل الليبل الى رقم و ثم يجمع على الرقم 1 . و سيكون البرنامج كالتالي : http://hesab.net/vb6/sum.gif و نستطيع عمل زر حذف من الدرجات ايضا بنفس الطريقة مع تغيير العملية بدا جمع الى طرح . كالتالي مثلا حيث اضفنا زر Command2 ثاني : كود:
Private Sub Command2_Click() كود:
Private Sub Command3_Click() المطلوب من المشاركين نسخة من التطبيق مع تعديلات جمالية على البرنامج بتغيير بعض الخصائص الاستاذ خليل |
الساعة الآن 01:21 AM |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By
Almuhajir