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

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





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





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

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





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

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

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

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

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


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

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

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

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

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

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

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

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


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

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

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




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

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






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






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

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

وهي كالتالي :

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


LABEL 1 2 3




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

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

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

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



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

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



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

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



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

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

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







نريد أن نكتب معادلة الضرب كمثال نضغط على مربع الضرب مرتين لكي يظهرلنا هذا

المربع الذي نكتب به المعادلة الخاصة للجمع أو للضرب وهذه هي معادلتها كالتالي :






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

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

تلقائيا .

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

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










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

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










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

كالتالي :









اليست واجهته كواجهة أي برنامج .









ومن ثم نضغط على جمع لكي تظهرالنتيجة في خانة الرقم 3 كما موضح لك



والمعادلة هي END فقط تكتب END فقط وتخرج .

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

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

الطرح :





الجمع





القسمة





الضرب





الخروج من البرنامج







شرح الكود السابق ( كل الأكواد مماثلة فقط غيرنا الإشارة الضرب القسمة الجمع الطرح ) .





Text3.Text = قيمة TEXT 3 هي تساوي أي مجموعها



(Text1.Text) = تعني قيمة TEXT 1 .

(Text2.Text) = تعني قيمة TEXT2

هذا هو شرح الكود وهو سهل جدا ويسهل فهمه .

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

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







Text3.Text = Val(Text1.Text) + (Text2.Text)

Text3.Text = Val(Text1.Text) /(Text2.Text)

END

Text3.Text = Val(Text1.Text) *(Text2.Text)

VAL = القيمة وبتعريف آخر : هي دالة تحول القيم الحرفية إلى رقمية .


1- نكتب الرقم الأول هنا المراد حسابه .
2- نكتب الرقم الثاني هنا المراد حسابه أيضا .
3- هنا تظهر النتيجة.
4- هذه هي المعادلات التي كتبتها ونحن الآن نكتب الرقميم في المربع الأول والثاني

5- للخروج من البرنامج : إذا أردت أن تعمل مثلها عليك بصنع زر COMMAND
BUTTON ومن ثم تغير أسمها كما أوضحت لك سابقا والدخول الى كتابة المعادلة





Text3.Text = Val(Text1.Text) - (Text2.Text)










Text3.Text = Val(Text1.Text) *(Text2.Text)


















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

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

وهو المشروع








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

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







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

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

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







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





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

حمل من هنا :



حجم المشروع 80 كيلو بايت

كيفية فتح المشروع إعمل على التالي :

عند تحميلك للمف افتح الملف الذي اسمه form1.frm


[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]








نختاره ليظهر التالي :





اختر الخيارات المحددة لك . . .

فقط وتظهر لك واجهة البرنامج تستطيع رؤية كيفية عمل البرنامج بالضبط . .



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

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