منتدى جزيرة الرياضيات  
     

Left Nav التسجيل التعليمـــات قائمة الأعضاء التقويم البحث مشاركات اليوم اجعل كافة الأقسام مقروءة Right Nav

Left Container Right Container
 

عدد الضغطات : 3,009
» منتدى جزيرة الرياضيات » الجزيرة التعليمية والفنية » منتدى التعليم الإلكتروني » درس اليوم السادس شرح شفرة عداد

منتدى التعليم الإلكتروني منتدى خاص لعمل دورات تعليمية في البرامج و الورش التعليمية خاصة و تتعلق بالتعليم الإلكتروني

إضافة رد
 
أدوات الموضوع تقييم الموضوع
  #1  
قديم 07-08-2006, 09:46 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 4,639
درس اليوم السادس شرح تنسيق الأدوات و تنفيذ شفرة عداد

السلام عليكم

هذا درس عملي بالصوت و الصورة لكيفية تنسيق الأدوات في البرنامج


سيتم عمل شفرات ( اكواد ) و مطلوب من المشاركين تنفيذها و ارفاقها بالمنتدى .

لنفترض انك تريد عداد لعمل عدد الإجابات الصحيحة و عدد الإجابات الخاطئة او عدد الأسئلة أو مجموع الدرجات كيف يتم ذلك ؟؟


المطلوب إدراج أداة label1 و Command1

لماذا استخدمنا أداة label1 ؟

لأن هذه الأداة متخصصة بعرض المعلومات التي لا نريد المستخدم أن يغيرها فإذا كان لديك برنامج فهل ستجعل للمستخدم او للطالب امكانية ان يغير درجاته طبعا لا .

لماذا استخدمنا أداة Command1 ؟
لاننا نريد عند الضغط عللى الاداة (حدث Click ) يقوم بتنفيذ الجمع مثلا .


الاجراءات المتبعة :
- نسق البرنامج الى ما يعجبك و كبر حجم الخط و اكتب على Command1 جمع.
- قم بمسح محتويات label1 و يتم ذلك بالتالي اذهب الى خاصيةCaption و اكتب بداخله 0 لاننا نريد ان يجمع عليه .

- قم بإختيار حدث Click لأداة Command1 بالضغط المزدوج على الأداة و اكتب بها الشفرة التالية :
كود:
Private Sub Command1_Click()
Label1.Caption = Val(Label1.Caption) + 1
End Sub

و يمكن إختصاره كالتالي أيضا

كود:
Private Sub Command1_Click()
Label1 = Val(Label1) + 1
End Sub

(Label1.Caption)و شرح الكود اننا نغير خاصية التسمية لليبل 1
( Val(Label1.Caption) + 1) و هذه الشفرة تقوم بتحويل ما بداخل الليبل الى رقم و ثم يجمع على الرقم 1 .
و سيكون البرنامج كالتالي :


و نستطيع عمل زر حذف من الدرجات ايضا بنفس الطريقة مع تغيير العملية بدا جمع الى طرح .
كالتالي مثلا حيث اضفنا زر Command2 ثاني :
كود:
Private Sub Command2_Click()
Label1 = Val(Label1) - 1
End Sub
و نستطيع عمل زر مسح للدرجات ايضا اضف ايضا Command3 و الشفرة كالتالي :
كود:
Private Sub Command3_Click()
Label1 = ""
End Sub
حيث اقواس الفاضية معناها اننا نريد المسح .


المطلوب من المشاركين نسخة من التطبيق مع تعديلات جمالية على البرنامج بتغيير بعض الخصائص

الاستاذ خليل
__________________
هذا من فضل ربي
رد مع اقتباس
إضافة رد


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
تقييم هذا الموضوع
تقييم هذا الموضوع:

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
الانتقال السريع


الساعة الآن 01:52 AM

Style provided by: MonksDiner - Entertainment Forum
Translated To Arabic By: Nile Stars
Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd. TranZ By Almuhajir
Ads Management Version 3.0.1 by Saeed Al-Atwi