عزة شوقى محمد

عضو مشارك
التسجيل
23/5/11
المشاركات
49
الإعجابات
100
#1
'',
لا تتعجبوا أن الألة الحاسبة على الباوربوينت
هذا هو شكلها كى تتصوروها فى البداية


هذه الألة يمكن أن تقوم بكل العمليات الحسابية بضغطة واحدة
تعال نتعرف على الخطوات
نفتح برنامج الباوربوينت و إذا كان الاوفيس 2003 نقوم بفتح قائمةview و نستخرج شريط الفيجوالبيسك
و إذا كان الاوفيس 2007 أو 2010 نستخرج شريط developer من قائمة file – option
كما بالصورة ثم اوكى


على كل الاحوال سيظهر صندوق ادوات كالذى


يهمنا أن نتعرف على بعض الادوات منها A هذه الاداة ترمز إلى label​
وهى تمكننا من الكتابه فيها
و الاداة ab هى الاداة textbox​
والاداة الرابعة و هى command Button​
تلك هى الادوات التى سنستعملها
بالنسبة للخلفية نسقها كما تحب
المهم أن تأخد الاداة label (A) و ترسمها فى شريحة الباوربوينت و ذلك عن طريق الضغط عليها كليك شمال ثم رسمها زى الاشكال التى ندرجها فى الباور (Auto shapes)​
نرسم سته (6) فى صف واحد لنكتب بها الكلمات الدالة على العمليات كالاتى
الرقم الاول – الرقم الثانى – مجموع العددين – طرح العددين – ضرب العددين – قسمه العددين
و كذلك نرسم نفس العدد من الاداة textbox ولن نكتب بهم شئ لأنهم مخصصين لكتابة الارقام و ظهور النواتج
و عدد اتنين (2) command Button​
واحد نكتب به "احسب" و الاخر نكتب به "امسح"
كما بالصورة



نلاحظ أن كل شكل نرسمه يأخذ رقم حسب ترتيب رسمه يعنى label 1- - label2 – textbox1 – textbox2​
الكتابة داخل الاشكال :
بالضغط كليك يمين على الشكل تظهر قائمة بها عدد من الاوامر أختار منها properties كما بالصورة السابقة
يظهر لى صندوق الخصائص الاتى



فى الخاصية Backcolor اختار اللون الذى أجعله خلفية للشكل كما هو موضح
ومن الخاصية cabtion أكتب العبارة التى اريدها على الlabel​
كما بالصورة




ومن الخاصية font انسق الخط


ومن الخاصية TextAlign اعمل محاذاة للنص داخل الlabel​
عند الtextbox نقوم بعمل لون للخلفية فقط و نمسح كلمة textbox1 – 2 – 3 لأن هذا المكان مخصص لظهور الناتج فلابد أن يكون فارغ

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






نلاحظ ان الصفحة بها كلمة Private sub CommandButton1_Click()
وهذا معناه أن ما ستكتبه هو المهمة التى سينفذها الزر رقم واحد حين نضغط عليه كليك
وستجد كمان كلمة End sub يعنى انتهت المهمة
سوف نكتب الان المهمة بين هذين السطرين كما ترى بالصورة
تفصيل المهمة :
اربعة اسطر باربع عمليات
1- Textbox3 = val (textbox1.text) + val(textbox2.text)
لنشرح الكود معنى كلمة تكست بوكس3 يعنى هننفذ العملية فى هذا التكست بوكس
و معنى يساوى يعنى اجعل العملية مساوية للاتى
معنى فال يعنى قيمة – و معنى تكست بوكس واحد دوت تكست يعنى ما نكتبه داخل تكست بوكس واحد يعنى الارقام اللى هنحطها
و طبعا زائد معروفة يعنى اجمعها على
و فال التانية دى برضة يعنى قيمة التكست بوكس 2
يعنى الكود يا جماعة معناه (إحسب العملية الاولى داخل تكست بوكس 3 و هى عبارة عن جمع قيمة تكست بوكس 1 و قيمة تكست بوكس 2 )
وهكذا كل الاكواد الثلاثة الباقية
بس بيتغير مكان العملية علشان يظهر الناتج فى تكست بوكس جديد يعنى
الطرح فى تكست بوكس 4 و الضرب فى 5 و القسمة فى 6
و بدل علامة زائد باعمل طبعا العلامة المناسبة للعملية
و لازم كتابة الاكواد كما بالصورة بالضبط لازم كلمة textbox1.text و كلمة textbox2.text توضع بين قوسين كما بالصورة
المسح:
أضغط على زر امسح 2 كليك و اكتب الكود كما توضح الصورة



وهو يعنى عند الضغط على الcommandButton2 اجعل كل شئ فارغ
الالة لن تقبل الارقام و الحساب إلا لما نشغل العرض من إف خمسة أو علامة show
كل ما عليك كتابة الرقم الاول و الثانى و الضغط على احسب ثم امسح
احفظ العمل pps فى الاوفيس 2003 و ppsm فى 2007 او 2010
و لا تنسى مسح الارقام التى جربت بها الالة قبل الحفظ حتى تحفظ فارغة
أرجو أن أكون قد تمكنت من أن أوفى الشرح
و سامحونى على الإطاله بس حبيت أقدم كل معلومة تساعد

 

abohasham

abohasham

مشرف سابق
التسجيل
20/5/11
المشاركات
3,486
الإعجابات
981
العمر
45
#2
بارك الله فيك اختى الفاضلة

شرح متميز
 

khaled99

عضوية الشرف
التسجيل
6/8/10
المشاركات
16,470
الإعجابات
1,768
العمر
34
الإقامة
مصر- المنيا - منشأة بدينى
#3
شرح سهل ووافى
تسلمى اختنا عزة
 

أعلى