عمل آلة حاسبة بواسطة الفيجول بيسك لطلاب ثالث ثانوي عملي

عمل آلة حاسبة بواسطة الفيجول بيسك لطلاب ثالث ثانوي عملي

عمل آلة حاسبة بواسطة الفيجول بيسك

Microsoft Visual Basic v 6.0


تم تصغير هذه الصورة. إضغط هنا لرؤية الصورة كاملة. الحجم الأصلي للصورة هو 732 * 134.


نبدأ بشرح الدرس وهو سهل جدا جدا ما عليك سوا مراقبة الشرح


أولا : طريقة الدخول الى البرنامج طبعا بعد تحميل البرنامج كالتالي :



تم تصغير هذه الصورة. إضغط هنا لرؤية الصورة كاملة. الحجم الأصلي للصورة هو 646 * 582.



سيظهر التالي :





اضغط على هذا الخيار كما موضح لك .

لتظهر واجهة البرنامج كالتالي :






إذا لم يظهر لك صندوق الخصائص ونقصد بصندوق الخصائص المربع الذي على

يمين البرنامج والذي عليه رقم 4 و 5 اضغط على إيقونة اليد الممسك بالظرف

الموجود في الأعلى في شريط الخيارات والذي هو بجانب رقم 3 . . عندما تضغط

عليه سيظهر لك المربعان كما موضح لك .. .

هذه هي واجهة البرنامج .

1- سنستخدم في هذا الدرس 3 أدوات وهي الأولى والتي هي على شكل حرف A

A = LABEL وهذه الأداة خاصة لظهورالأرقام والعبارات وسوف أشرح لكم بالتفصيل عن هذا الأداة.

الأداة الثانية والتي هي على شكل حرف ABL = وهي TEXT BOX مربع نص او

صندوق النص وهي لظهور النصوص وسنشرحها بالتفصيل .

الأداة الثالثه وهي : COMMAND BUTTON وهذه هي الأهم والتي سنكتب بها

المعادلات او الأكواد لكي تظهر لنا النتائج والبرنامج .

2- هذا هو مربع البرنامج والذي سنبدأ به العمل .

3- لتنفيذ البرنامج وبعد الإنتهاء من كل شيء نضغط عليه لنعرف إن كان المشروع

صحيحا أم خاطيء او نضغط على F5 كما اوضحنا سابقا .

4- المشروع الخاص بك .

5- خصائص المشروع والأدوات ونستطيع التغيير بها .

6- المعاينة هنا .

أما الآن نبدأ العمل كالتالي :




تم تصغير هذه الصورة. إضغط هنا لرؤية الصورة كاملة. الحجم الأصلي للصورة هو 799 * 560.



لنرسم بواسطة هذه الأداة 3 مربعات . أي نضغط على الأداة المرة الأأولى ومن ثم نرسم ومن ثم نضغط مره اخرى ومن ثم نرسم الثاني ومن ثم نضغط مره أخرى ونرسم الثالث

ليظهر كالتالي :





والآن نرسم بالأداة المحددة 3 مربعات اخرى ليظهر كالتالي ::



تم تصغير هذه الصورة. إضغط هنا لرؤية الصورة كاملة. الحجم الأصلي للصورة هو 797 * 561.




كما تلاحظ لقد رسمناها على البرنامج .

أماالآن نريد أن نغير أسم

LABEL 1 2 3

وهي كالتالي :

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





ملاحظة : عند تغيير الأسم يجب أن يكون صندوق الخصائص موجود والذي هو على

يمين البرنامج كما وضحت لك طريقة ظهوره إن لم يكن موجودا . .

كما تلاحظ يظهر لك الأسم في مربع حوار كابشن CAPTION . .

أدخل العبارات الموضحة في الشكل التالي والتي هي

1- إدخال الرقم الأأول 2- إدخال الرقم الثاني 3- النتيجة .

أما الآن نريد أن نرسم بأداة اخرى كالتالي :



تم تصغير هذه الصورة. إضغط هنا لرؤية الصورة كاملة. الحجم الأصلي للصورة هو 800 * 562.



كما تلاحظ عليك برسم زر الأمر COMMAND BUTTON ثلاث مربعات كما

موضح لك في الشكل السابق ليظهر كالتالي :





لقد تعلمت كيف تغير الأسماء . وأعيده عليك هو بالنقر مره واحدة على المربع ونكتب

ما نريد في كل مربع كما موضح لك في الشكل السابق .

أما الآن نريد أن نكتب المعادلة وطريقتها اضغط على زر الأمر والذي سميناه الضرب مزدوج أي مرتين ليظهر لك مربع وضع الأكواد كما التالي :




كما تلاحظ الضرب * هذه هي علامته باللغة الإنجليزية ونكتب المعادلة التي في الوسط

فقط وعند الإنتهاء من كتابة المعادلة نضغط على علامة X للخروج والعمل سوف يحفظ

تلقائيا .

الآن اكتب اللمعادلات المتبقيه كالتالي :

ما عليك سوا كنابة نفس المعادلة وتغيير الإشاراة التي موضح لديك كالتالي :


Dim a As Long
a = Text1.Text
b = Text2.Text
Text3.Text = a + b



* غير فقط هذه العلامة . واكتب بدالها - ناقص و + جمع و / قسمة .

الآن بعد الإنتهاء علينا بتنفيذ البرنامج كالتالي :




تم تصغير هذه الصورة. إضغط هنا لرؤية الصورة كاملة. الحجم الأصلي للصورة هو 600 * 422.




نضغط على هذا الخيار المحدد لك لكي ننفذ البرنامج ليظهر لنا واجهة برنامج عادية



مبروك لقد صنعت آلة حاسبة بنفسك . .

المعادلات - الطرح والجمع والقسمة والضرب . . .

مبرووك أستطعت أن تصنع أول برنامج لك في الفيجول بيسك طبعا ستغمرك فرحة كبيرة كما غمرتني عندما أنشئت أول برنامج لي .

أما الآن كيفية الحفظ





ستظهر لك قائمة الحفظ

أول مره كالتالي

وهو المشروع






ثاني مره كالتالي

لنسمي المشروع بإسمه كمثال برنامج الآلة حاسبة ليسهل علينا الوصول عليه ويفضل وضع مجلد لكل المشاريع كل مشروع في مجلد خاص .





تكرار الحفظ مره اخرى وحاول أن لا تغير أسم المشروع أو أسم الحفظ إلا بعد حفظ

المشروع ومن ثم أعد تسميته كما تعلمت أنت.

والآن والأهم كيف تجعل المشروع من صيغة exe ملف تنفيذي يعمل على جميع الأجهزة وذلك من قائمة file اختر خيار make progect1.exe فقط واحفظه في المكان الذي تريده ليصبح البرنامج يعمل على جميع الاجهزة كما التالي :





لنرى المشروع :

وإن كنت لم تفهم الفهم الكامل لهذا الدرس لقد حملت لكم المشروع بمجلد مضغوط راجعه كما تشاء وأنظر ماذا فعلت . .


هذه هي جميع المعادلات وإن دققت فيها وحفظت المعادلة وتتدربت عليها مرات كثيره

لن تنساها أبدا وهو درس رائع .أتمنى أن ينال على إعجابكم


بالتوفيق للجميع وبإنتظار آرائكم وملاحظاتكم حول الشرح وإن يوجد خطأ أرجو تنبيهي به

تـــــحــــــيـــــاتــــــــي

العمل موجود في المرفقات اسفل

المصدر: منتديات دومة الجندل

---

ulg Ngm phsfm f,hs'm hgtd[,g fds; g'ghf ehge ehk,d ulgd hgi phsfi

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .