عرض مشاركة واحدة
  #33  
قديم 26-01-2011, 09:28 PM
الصورة الرمزية W_MOHAMMED
W_MOHAMMED W_MOHAMMED غير متواجد حالياً
مدرسة رياضيات
 
تاريخ التسجيل: Jul 2008
المشاركات: 757
معدل تقييم المستوى: 16
W_MOHAMMED is on a distinguished road
افتراضي

ما هو الماكــــرو


(MACROS)

هو مجموعة من التعليمات تؤدى غرض معين ويشبه إلى حد كبير الدالة
function


ويتم انشاء الماكرو مرة واحدة وبعد ذلك يمكن استدعائه كلما احتجت إليه

مربع أدوات التحكم







التطبيق الأول


في بعض الأحيان نحتاج إلى استخدام الفيجول بيسك في عمل بعض التمارين والتدريبات للطلاب في برنامج البوربوينت

فمثلا قمنا بكتابة سؤال ونطلب من الطالب كتابة الإجابة ومن ثم نريد من الكمبيوتر أن يخبر الطالب ما إذا كانت إجابته صحيحة أو خاطئة
افتح برنامج البوربوينت ثم اجعل الخلفية باللون الأخضر( او ما تريد من الألوان لكن ليست بيضاء لأنه بعض الأدوات لا تظهر جيدا)
واكتب السؤال:

دائرتان م, ن طولا نصفى قطريهما 8 سم , 2 سم تكونان متماستان من الخارج إذا كان م ن = ....

الخطوات:

أضغط بالماوس على مربع أدوات التحكم ( المطرقة والسبابة ) وستظهر لك نافذة مربع ادوات التحكم كما في الصورة السابقة


من مربع أدوات التحكم اختر الأداة مربع نص وضعها في الشريحة وذلك عن طريق السحب والإفلات وكرر ذلك مرة أخرى و مثل ذلك اختر زر أمر وأيضا ضعه في الشريحة

ومن نافذة مربع أدوات التحكم اضغط على مربع الخصائص( يد تنتاول رسالة ) ستظهر لك نافذة الخصائص(يلزم أن يكون أحد الادوات التي رسمتها محددا) الصورة التالية توضح ذلك

بعد ذلك أضغط على CommandBotton1
ومن نافذة الخصائص
اختر الأمر caption و امسح الذي أمامه وأكتب الكلمة (الإجابة )

الآن نأتي إلى الخطوة الأخيرة وهي الأهم ( وهي كتابة تعليمات برمجية تخاطب بها الحاسوب باللغة التي يفهما، الحقيقة عنده عدة لغات ومن بينها هذه اللغة لغة الفيجول بيسك)

أضغط على (الإجابة) ضغطتين متتاليتين وبسرعة بالماوس سوف يظهر لك ملحق الفيجول بيسك الخاص بالبوربوينت

كما هو ظاهر في الصورة




عند مؤشر الكتابة (بين النصين ) أكتب التالي

If Textbox.text="10" then


Textbox2.text="إجابة صحيحة"


Else


Textbox2.text="إجابة خاطئة"


End if

في انتظار تطبيقاتكم
__________________

آخر تعديل بواسطة W_MOHAMMED ، 27-01-2011 الساعة 10:33 AM
رد مع اقتباس