الدرس الثانى -- الفصل الاول
مثال
لديك سعر الكتاب ، و عدد الكتب و مطلوب حساب السعر الاجمالى
الحل
سعر الكتاب Uprice
عدد الكتب Books Q
السعر الاجمالى Tprice
حيث ان :-
السعر الاجمالى = سعر الكتاب * عدد الكتب
Dim BooksQ as Integer
Dim Uprice as Decimal لتعريف المتغيرات التى سوف يستخدمها
Dim Tprice as Decimal
لتحويل النص المكتوب فى مربع النص BooksQ الى عدد صحيح
BooksQ = Integer. Parse (me . BooksQ . Text )
لتحويل النص المكتوب فى مربع النص Uprice الى عدد عشرى
Uprice = Decimal. Parse (me . Uprice . Text )
لحسلب السعر الاجمالى
Tprice = BooksQ * Uprice
لاحظ ان :-
داخل الاكواد يمكن كتابة بعض الاسطر التى تساعد المبرمج و لكن برنامج VB.net لا يراها او يشعر بها هذه الاسطر تكتب امامها ( ' )
مثل
' calculate the total price
هذه الاسطر تسمى تعليقات Comments
ويمكن كتابة بها اسم المبرمج وتاريخ كتابة النسخة
تحويل البيانات الرقمية الي بيانات حرفية
باستعمال To string ( )
مثال
فى المثال السابق اذا اردنا تحويل السعر الاجمالى الى نص حتى يمكن عرضه فى اداه الكتابة
Result . Text = price . To string ( )
لاحظ ان :-
Result هو اسم صندوق الكتابة Text Box الذى يعرض فيه السعر الاجمالى
العمليات الحسابية :-
المعامل المؤثر العملية
+ جمع
- طرح
* ضرب
/ قسمة عادية
\ قسمة اعداد صحيحة
mod باقى القسمة
^ اسس
قسمة الاعداد الصحيحة وباقي القسمة
إذا قسمنا العدد الصحيح (Integer ) 48 على العدد الصحيح 5 فتكون النتيجه كالآتى :-
1. قسمة عادية
48 / 5 = 9
2. قسمة اعداد صحيحة
48 \ 5 = 9 ( اى اهمال باقى القسمة)
3. اذا اردنا الباقى فيمكن الحصول عليه كالآتى :-
48 mod 5 = 3
الاسس :
يستعمل معامل الاسس ( ^ ) فى رفع عدد معين ( الاساس ) الى اس معين و تكون النتيجة من النوع Double
فمثلا اذا كان X=5
فإنه Y=X^5
اذا Y = 25
بشرط ان تكون Y من النوع Double
مثال
• اكتب مشروع يحتوى على نموذج (Form ) واحد الخاصية Name له هى Form1 اما الخاصية Text له هى Math
• يحتوى هذا النموذج على اداتى كتابة هما
Text First – Text Scond
• المطلوب عرض نتائج عمليات الجمع و الطرح و الضرب و القسمة و قسمة الاعداد الصحيحة و باقى القسمة و الرفع االى اس لمحتويات اداتى الكتابة في سبع ادوات Label هى
LbLAdd – LbLSub – LbLMul – LbLDiv – LblDiv2 – LbLMod – LbLExp
• عرض المعاملات الرياضية + , - , * , / , \ , mod , ^ في خصائص الادوات من Label 10 الى Label 16 لسبع ادوات Label
• اداة Button تحتوى على اوامر تنفيذ العمليات
الحل
1- تخطيط المشروع
رسم واجهة المستخدم ( الشكل السابق )
2- كتابة المشروع
أ – من الصفحة الرئيسية اختر قائمة File _______< New Project
او من Star Page ______< Creat Project فى مربع RecentProject
ب – يظهر مربع New Project
من Project typ ________< Windows
من Templaes _________> Windowes Application
جـ – ادخل الاسم الذى اخترته للمشروع فى خانة Name و ليكن Math
د – اضغط Ok
3- تهيئة النموذج
- تغيير ابعاد ه لتحصل على المساحة المناسبة
- تغير خاصية Text وجعلها Math
4- وضع الادوات على النموذج
تتغير خصائص الادوات طبقا للجدول
القيمة الخاصية الاسم
نجعلها فارغة
Center
Micro soft sans serif
Bold
10 Text
Text Align
Font
Fon Styl
Font Size txtBox1
نجعلها فارغة
Center
Micro soft sans serif
Bold
10 Text
Text Align
Font
Fon Styl
Font Size txtBox2
First
Second Text
Text Label 1 – Label 2
فارغة
Fixed3d Text
Border Styl Label 9 الى Label 3
+ ،- ،*،/ ، \ ، mod ، ^ Text Label 16 الى Label 10
5. ضبط موقع الادوات على ال Form
اما يدوي بالماوس او من قائمة Format _______> Align
6. اكتب الاكواد للزر Buton
انقر مرتين على الزر مما سيؤدى الى فتح Cod Window مكتوبا بها الاوامر الاولى و الاخيرة و ما عليك إلاكتابة الاتى :
‘Declare the local variables
1 Dim First, Second, ad, subtract, Mul, Div, Div2 As Decimal
2 Dim Modulus As Integer
3 Dim Expon As Double
‘Convert the text strings to decimal
4 First = Decimal.Parse(Me.txtFirst.Text)
5 Second = Decimal.Parse(Me.txtSecond.Text)
'Caculate the values of local variables
6 ad = First + Second
7 lblAdd.Text = ad.ToString()
8 subtract = First - Second
9 lblSub.Text = subtract.ToString()
10 Mul = First * Second
11 lblMul.Text = Mul.ToString()
12 Div = First / Second
13 lblDiv.Text = Div.ToString()
14 Div2 = First \ Second
15 lblIntDiv.Text = Div2.ToString()
16 Modulus = First Mod Second
17 lblMod.Text = Modulus.ToString()
18 Expon = First ^ Second
19 lblExp.Text = Expon.ToString()
لاحظ ان :-
كلمة Me تستعمل لتوفير وقت البرمجة و هى تعنى ان هذه الادوت توجد على نفس النموذج
وعند كتابة كلمة Me وبعدها نقطة تظهر قائمة تحتوى على الكائنات و الخصائص و الطرق التى استعملت بهذا النموذج
لاحظ ان :-
اذا ادخل المستخدم مثلا $ هذه العلامة ان البرنامج لا يستطيع تحويلها الي ارقام فيتم عرض رسالة خطا كنتيجة لهذا
مجموعة أوامر Try / Catch :-
_ تستخدم لاكتشاف الاخطاء التى تحدث اثناء تشغيل البرنامج و التعامل معها
_ بالرغم من ان VB . net يكتشف الاخطاء و يقوم بعرض رسائل
_ لكن المبرمجين يفضلون استعمال Try / Catch لان هذا يتيح لهم التعامل مع الاخطاء بانفسهم و عرض رسائل اوضح للمستخدم
الفكرة الاساسية لها :-
Try
مجموعة من الاوامر التى لابد ان ينذها المستخدم بدون اخطاء
Catch
كود يكتب و لا ينفذ الا ي حالة حدوث اخطاء في الاوامر السابقة و غالبا يكون رسالة
End Try
بقية اوامر البرنامج
- اذ قمنا بتنفيذ الاوامر بعد Try بدون اخطاء ينتقل البرنامج الي الاوامر بعد End Try مباشرة
- اذا تم تنفيذ الاوامر بعد Try بأخطاء ينتقل البرنامج الي الاوامر بعد Catch ليعرض الرسالة الموجودة بها و لا يتابع تنفيذ الاوامر بعد ذلك تصحيح الخطأ
مثال:-
عند تطبيق هذه المجموعة على المثال السابق يتم استخدامها مرتين
1. مرة عند ادخال المستخدم للبيانات متى يتم ادخال بيانات صحيحة
2. مرة عند عمل القسمة حتى لا يكون الرقم الثانى و هو المقسوم عليه صفرا
وتكون الاكواد كلتالي :-
‘Declare the local variables
1 Dim First, Second, ad, subtract, Mul, Div, Div2 As Decimal
2 Dim Modulus As Integer
3 Dim Expon As Double
‘Convert the text strings to decimal
4 Try
5 First = Decimal.Parse(Me.txtFirst.Text)
6 Second = Decimal.Parse(Me.txtSecond.Text)
7 Catch
8 msg Box ( " One of the filds is not numeric , Pleace enter only numeric values " )
9 End Try
'Caculate the values of local variables
10 ad = First + Second
11 lblAdd.Text = ad.ToString()
12 subtract = First - Second
13 lblSub.Text = subtract.ToString()
14 Mul = First * Second
15 lblMul.Text = Mul.ToString()
16 Try
17 Div = First / Second
18 lblDiv.Text = Div.ToString()
19 Div2 = First \ Second
20 lblIntDiv.Text = Div2.ToString()
21 Modulus = First Mod Second
22 lblMod.Text = Modulus.ToString()
23 Catch
24 msg Box ( " Second value must not be zero " )
25 End Try
26 Expon = First ^ Second
27 lblExp.Text = Expon.ToString()
التحويل بين انواع البيانات العددية : -
التحويل المباشر ( التلقائى )
- يستخدم عند تحويل من نوع عددى ذا سعة تخزينية صغيرة الى نوع عددى ذا سعة تخزينية اكبر
ملاحظات :-
التحويل المباشر لا يصلح فى حالتين :
1. تحويل البيانات من النوع Double الى اى نوع اخر
2. تحويل البيانات التى تحتوى على كسور ( Single , Double ) الى النوع Decimal
وفى هذه الحالات نستخدم التحويل غير المباشر
التحويل الغير مباشر
- يتم استخدامه عندما نحول نوع ذوسعة تخزينية كبيرة الى نوع اقل فى السعة التخزينية
- اى يستخدم بين البيانات العددية التى لايمكنك اجراء التحويل المباشر عليها مثل تحويل النوع Double الى اى نوع اخر من انواع البيانات
- و لتسهيل عملية التحويل الغير مباشر يتيح البرنامج للمبرمجين Class يسمى Convert Class يحتوى على وسائل Methods تبدأ اسماؤها بـ To للتحويل بين الانواع المختفلة
ترتيب تنفيذ العمليت الحسابية :-
ترتيب تنفيذ العمليات الحسابية داخل VB يتم كالآتى : حتى يتم الحصول على النتائج الصحيحة
1. العمليات التى بين الاقواس ( الداخلية اولا ثم الخارجية )
2. عمليات الاسس
3. عمليات الضرب و القسمة ( الاولوية من اليسار ثم اليمين )
4. عمليات قسمة الاعداد الصحيحة
5. عمليات حساب باقى القسمة
6. عمليات الجمع و الطرح ( الاولوية من اليسار الي ليمين )
مثال :-
ما هى نتيجة تنفيذ العمليات الاتية بافتراض القيم التالية للمتغيرات :-
X = 2 Y = 3 Z = 4
A) X * ( Y + 1 )
B) Y^ X * X + Z *3
الحل
A)
1- نستبدل كل متغير بقيمته
2* ( 3 + 1 )
2- حساب ما بداخل الاقواس اولا
2 * ( 4 )
3- تنفيذ عملية الضرب فيكون الناتج ( 8 )
B )
1. نستبدل كل متغير بقيمته 3^ 2 * 2 + 4 * 3
2. يتم حساب الاس اولا 9 * 2 + 4 * 3
3. تنفيذ عملية الضرب التى في اليسار 18 + 4 * 3
4. تنفيذ عملية الضرب التى في اليمين 18 + 12
5. تنفيذ الجمع ليكون الناتج 30
وبهذا نكون انتهينا من الفصل الاول
لمنهج الصف الثالث الاعدادى لعام 2009
والبقية تاتى مع الفصل الثانى
وشكرا
صالح عبدالعال
موضوع: منهج الصف الثالث الاعدادى حاسب الى 
الإثنين 30 مارس - 13:45
