هناء الشبراوى
12-03-2010, 02:36 PM
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image002.gif
مذكرة النصف الدراسى الثانى لمادة الحاسب الآلى للصف الثالث الاعدادى
أسرة الحاسب الآلى بمدرسة سماكين الشرق الإعدادية تتمنى لكم
النجاح والتوفيق
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image003.gif
ما الفرق بين المتغيرات والثوابت ؟
1. المتغيرات Variables : قيم مخزنة تتغير قيمتها اثناء تشغيل البرنامج
2- الثوابت Constants : قيم مخزنة لا تتغير فيمتها اثناء تشغيل البرنامج
تكلم عن انواع البيانات المختلفة ؟
يمكن تقسيم البيانات كما فى الجدول الاتى :-
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image005.gif
ويجب ان تختار النوع المناسب للبيانات لكل متغير
ما هى القواعد الاساسية لتسمية المتغيرات ؟
يجب ان يبدا اسم المتغير بحرف من الحروف الانجليزية ولا يبدا برقم اورمز خاص كذلك يجب ان يتكون الاسم من مقطع واحد فقط ولا يتوسطه مسافة او علامة خاصة ماعدا علامة ال Underscore كذلك لا يجب استخدام الاسماء المحجوزة من البرنامج وان يكون اسم المتغير مناسبا للوظيفة التى يقوم بها .
امثلة لأسماء صحيحة :
FirstName Ahmed2000 Spent_mony
امثلة لأسماء غير صحيحة :
Double الخطأ اسم محجوز فى برنامج v.b
Spen.Mon الخطأ يتوسطه علامة خاصة "نقطة "
2ndWorldWar الخطأ يبدأ برقم 2
الاعلان عن المتغيرات والثوابت فى v.b
القاعدة العامة للاعلان عن الثابت هى :-
قيمة المتغير = نوع المتغير as اسم المتغير Const
وقيمة المتغير هنا ثابتة اثناء تشغيل البرنامج .
القاعدة العامة للاعلان عن المتغير هى :-
قيمة المتغير = نوع المتغير as اسم المتغير Dim
وتحدد قيمة المتغير هنا القيمة الابتدائية للمتغير التى يبدأ بها عند تشغيل البرنامج
وكلا القاعدتين السابقتين تسمى اوامر التخصيص اما علامة " = " فتسمى معامل التخصيص
تمرين :
اعلن عن ثلاثة متغيرات من النوع integer ومتغيرين من النوع string ؟
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image007.jpg
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image009.gif
تحويل البيانات الحرفية الي بيانات رقمية
عند ادخال البيانات الى البرنامج فاننا ندخلها عن طريق اداة الكتابة ( Text Box ) وبرنامج ال VB.net يتعامل مع هذه البيانات على انها بيانات حرفية و ليس رقمية اى لا يمكن اجراء العمليات الحسابية عليها إلا بعد تحويلها الي بيانات رقمية .
لتحويل البيانات الحرفية الى رقمية نستخدم وسيلة ( Method ) اسمها Parse
الشكل العام لل Parse Method
لتحويل قيمة حرفية الي عدد صحيح Integer
Integer.Parse (القيمة الحرفية )
لتحويل قيمة حرفية الى عدد عشرى Decimal
Decimal.Parse (القيمة الحرفية )
مثـال :- لديك سعر الكتاب ، و عدد الكتب و مطلوب حساب السعر الاجمالى ؟
الحـــــــــــــــــــــل
نفرض ان:- سعر الكتاب Uprice , عدد الكتب Books Q , السعر الاجمالى = Tprice
ويكون :- السعر الاجمالى = سعر الكتاب * عدد الكتب
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image010.gif 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 ( )
لاحظ ان :-
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image011.gifResult هو اسم صندوق الكتابة Text Box الذى يعرض فيه السعر الاجمالى
المعاملات المختلفة للعمليات الحسابية :-
المعامل المؤثر
العملية
+
جمع
-
طرح
*
ضرب
/
قسمة عادية
\
قسمة اعداد صحيحة
mod
باقى القسمة
^
اسس
قسمة الاعداد الصحيحة وباقي القسمة
إذا قسمنا العدد الصحيح (Integer ) 48 على العدد الصحيح 5 فتكون النتيجه كالآتى :-
1. 3
قسمة عادية
5
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image012.gif48 / 5 = 9
2. قسمة اعداد صحيحة
48 \ 5 = 9 ( اى اهمال باقى القسمة)
3. اذا اردنا الباقى فيمكن الحصول عليه كالآتى :-
48 mod 5 = 3
الاسس :
يستعمل معامل الاسس ( ^ ) فى رفع عدد معين ( الاساس ) الى اس معين و تكون النتيجة من النوع Double
فمثلا اذا كان X=5 فاوجد قيمة Y=X^5 بالتعويض فان 25 Y=
التحويل بين انواع البيانات المختلفة :
1- التحويل التلقائى او المباشر : من نوع بيانات له سعة تخزينية اقل الى نوع بيانات له سعة تخزينية اعلى
2- التحويل الغير التلقائى او الغير المباشر : من نوع بيانات له اعلى تخزينية اقل الى نوع بيانات له سعة تخزينية اقل
مجموعة أوامر Try / Catch :-
تستخدم لاكتشاف الاخطاء التى تحدث اثناء تشغيل البرنامج و اظهار رسالة للمستخدم تنبيها للخطأ باستخدام msgbox
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image013.gif
ترتيب تنفيذ العمليات الحسابية :- ترتيب العمليات الحسابية داخل VB يتم كالآتى : حتى يتم الحصول على النتائج الصحيحة
1. العمليات التى بين الاقواس ( الداخلية اولا ثم الخارجية )
2. عمليات الاسس
3. عمليات الضرب و القسمة ( الاولوية من اليسار ثم اليمين )
4. عمليات قسمة الاعداد الصحيحة
5. عمليات حساب باقى القسمة
6. عمليات الجمع و الطرح ( الاولوية من اليسار الي ليمين )
مثال :- ما هى نتيجة تنفيذ العمليات الاتية بافتراض القيم التالية للمتغيرات :-
اذا كان : X = 2 Y = 3 Z = 4
Y^ X * X + Z *3 -------- X * ( Y + 1 ) -فاوجد قيمة كلن من :
الحـــــــــــــــــــــــــــــــــــل
1 - نستبدل كل متغير بقيمته = 2* ( 3 + 1 ) 2- حساب ما بداخل الاقواس اولا = 2 * ( 4 )
3- تنفيذ عملية الضرب فيكون الناتج ( 8 )
1- نستبدل كل متغير بقيمته = 3^ 2 * 2 + 4 * 3 2- يتم حساب الاس اولا = 9 * 2 + 4 * 3
3- تنفيذ عملية الضرب التى في اليسار 18 + 4 * 3 4- تنفيذ عملية الضرب التى في اليمين 18 + 12
5 - تنفيذ الجمع ليكون الناتج =30
تمــــرين شامل على ماسبق
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image015.gif
نقوم بعمل واجهة البرنامج كما فى الشكل الاتى :
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image017.gifكود البرنامج
Dim a,b,c,z as decimal
Try
A = decimal.parse (me.textbox1.text)
B = decimal.parse (me.textbox2.text)
C = decimal.parse (me.textbox3.text)
Catch
Msgbox("one of the fields is not numeric.please enter only valid numeric values")
End try
Z = (A+B+C)/3
Label5.text= Z
لاحظ ان : استخدام الامر try واظهار رسالة للمستخدم فى ادخال حروف بدلا من الاعداد
تمــــرين : ما الخطأ فى البرنامج الاتى :
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image019.gif
المقام = صفر حيث file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image021.gif = صفر
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image022.gif
ما هو التعبير الشرطي ؟ هو عبارة عن صياغة للعلاقة بين كميتين
مثـــــــال : اذا كان A = 50 B = 60
فـــــــــإن :
النتيجة
مثال
العلاقة
العلامة
False
A > B
اكبر من
>
True
A < B
اصغر من
<
False
A = B
يساوي
=
True
A < > B
لا يساوي
< >
الأمر If ……. Then ……. Else
يأتى بعد IF شرط معين فإذا تحقق هذا الشرط يتم تنفيذ ما بعد كلمة then واذا لم يتحقق هذا الشرط يتم تنفيذ ما بعد Else
تمرين : اكتب برنامج لحساب الراتب الاسبوعى لموظف لو كانت ساعات عمله اقل من او تساوى 40 ساعة فإن اجره عن الساعة يكون 5 جنيهات . اما اذا زادت عن 40 ساعة قيتم حساب الراتب كالاتى :
5 جنيه فى الساعة الاولى لأول 40 ساعة و 10 جنيه فى الساعة لمن زاد عن 40 ساعة
ويتم حساب الراتب كما يلى :-
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image024.jpg
الحـــــل:-
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image025.gif
قاعدة استخدام الامر If ……. Then البسيط : اذا تحقق الشرط الذى يلى if يتم تفيذ الشرط بعد then مباشرة
تمرين :
اكتب كود برنامج فى حالة ان السن يزيد عن سنة20 يتم عرض الجملة الاتية " You can get an ID card "
الحـــــــــــــــــــــــــــل
If Age > 16 Then
MsgBox(“You can get an ID card”)
End If
الشروط المركبة : تستخدم في حالة ما إذا كنا سنستخدم قرارا معينا بناءا على تحقق شرطين وليس شرط واحد
ويمكننا عمل الشرط لمركب بالربط بين أكثر من شرط بأحد المعاملات التي تسمى المعاملات المنطقية وهي
Or, OrElse, And, AndAlso, XOr, Not
مقارنة القيم والمتغيرات الحرفية( String )
يتم تحديد رتبة كل رمز طبقا لطريقة تخزين الرموز في ذاكرة الحاسب وهذه الطريقة تسمى
ANSI= American National Standards Institute
وهي تعطي كل حرف أو رقم أو رمز خاص رتبة معينة وهذه الرتبة هي رقم ثابت لا يتغير كما في الجدول حيث يتم حساب رتبة كل حرف من الكلمة المراد ايجاد رتبتها والجدول فى الكتاب المدرسى صفحة 60 .
الاداة Radio Button : تتيح للمستخدم مجموعة من البدائل لاختيار واحدة منها فقط
اهم الخصائص الجديدة فى الاداة : Radio Button خصائص الاداة
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image027.jpg
شكل الاداة :
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image029.jpg
الاداة CheckBox : تتيح للمستخدم مجموعة من البدائل لاختيار أي عدد منها
اهم الخصائص الجديدة فى الاداة
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image031.jpg
الاداة GroupBox : تستخدم لتنظيم الأدوات علي النموذج .
تسمح للمبرمج أن يقسم عدد من الأداة RadioButton و CheckedBox إلي مجموعات ويقوم لمستخدم باختيار واحدة فقط من كل مجموعة .
اهم الخصائص الجديدة فى الاداة
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image033.jpg
تمرين :-
يريد مدير احدى المستشفيات عمل برنامج يستطيع من خلاله عمل فواتير للمرضى . يسمح البرنامج بادخال اسم المريض اولا ثم تحديد التحاليل التى يحتاجها ولا يسمح البرنامج باصدار فاتورة بدون ادخال اسم المريض ويوضح الجدول الاتى الخدمات المتاحة واسعارها .
Price السعر
Service الخدمة
21
تحليل سكر
10
تحليل دم
15
فيرس C
30
فيرس A
الحـــــــــــــــل
تظهر واجهة المستخدم كما فى الشكل الاتى :
1- يحتوى على TEXTBOX لادخال اسم المريض زعدد 2 GROUPBOX الاول يحتوى على عدد 2 CheckBox
2- تحليل الدم والسكر والثانى عدد 2 Radio Button فيرس A,C وعدد واحد BUTTON لاظهار المبلغ الاجمالى
3- وعدد 2 LABEL لتوضيح مكان اسم المريض واجمالى المبلغ المطلوب
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image035.jpg
اما كود البرمجة فيظهر كما يلى :
مذكرة النصف الدراسى الثانى لمادة الحاسب الآلى للصف الثالث الاعدادى
أسرة الحاسب الآلى بمدرسة سماكين الشرق الإعدادية تتمنى لكم
النجاح والتوفيق
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image003.gif
ما الفرق بين المتغيرات والثوابت ؟
1. المتغيرات Variables : قيم مخزنة تتغير قيمتها اثناء تشغيل البرنامج
2- الثوابت Constants : قيم مخزنة لا تتغير فيمتها اثناء تشغيل البرنامج
تكلم عن انواع البيانات المختلفة ؟
يمكن تقسيم البيانات كما فى الجدول الاتى :-
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image005.gif
ويجب ان تختار النوع المناسب للبيانات لكل متغير
ما هى القواعد الاساسية لتسمية المتغيرات ؟
يجب ان يبدا اسم المتغير بحرف من الحروف الانجليزية ولا يبدا برقم اورمز خاص كذلك يجب ان يتكون الاسم من مقطع واحد فقط ولا يتوسطه مسافة او علامة خاصة ماعدا علامة ال Underscore كذلك لا يجب استخدام الاسماء المحجوزة من البرنامج وان يكون اسم المتغير مناسبا للوظيفة التى يقوم بها .
امثلة لأسماء صحيحة :
FirstName Ahmed2000 Spent_mony
امثلة لأسماء غير صحيحة :
Double الخطأ اسم محجوز فى برنامج v.b
Spen.Mon الخطأ يتوسطه علامة خاصة "نقطة "
2ndWorldWar الخطأ يبدأ برقم 2
الاعلان عن المتغيرات والثوابت فى v.b
القاعدة العامة للاعلان عن الثابت هى :-
قيمة المتغير = نوع المتغير as اسم المتغير Const
وقيمة المتغير هنا ثابتة اثناء تشغيل البرنامج .
القاعدة العامة للاعلان عن المتغير هى :-
قيمة المتغير = نوع المتغير as اسم المتغير Dim
وتحدد قيمة المتغير هنا القيمة الابتدائية للمتغير التى يبدأ بها عند تشغيل البرنامج
وكلا القاعدتين السابقتين تسمى اوامر التخصيص اما علامة " = " فتسمى معامل التخصيص
تمرين :
اعلن عن ثلاثة متغيرات من النوع integer ومتغيرين من النوع string ؟
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image007.jpg
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image009.gif
تحويل البيانات الحرفية الي بيانات رقمية
عند ادخال البيانات الى البرنامج فاننا ندخلها عن طريق اداة الكتابة ( Text Box ) وبرنامج ال VB.net يتعامل مع هذه البيانات على انها بيانات حرفية و ليس رقمية اى لا يمكن اجراء العمليات الحسابية عليها إلا بعد تحويلها الي بيانات رقمية .
لتحويل البيانات الحرفية الى رقمية نستخدم وسيلة ( Method ) اسمها Parse
الشكل العام لل Parse Method
لتحويل قيمة حرفية الي عدد صحيح Integer
Integer.Parse (القيمة الحرفية )
لتحويل قيمة حرفية الى عدد عشرى Decimal
Decimal.Parse (القيمة الحرفية )
مثـال :- لديك سعر الكتاب ، و عدد الكتب و مطلوب حساب السعر الاجمالى ؟
الحـــــــــــــــــــــل
نفرض ان:- سعر الكتاب Uprice , عدد الكتب Books Q , السعر الاجمالى = Tprice
ويكون :- السعر الاجمالى = سعر الكتاب * عدد الكتب
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image010.gif 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 ( )
لاحظ ان :-
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image011.gifResult هو اسم صندوق الكتابة Text Box الذى يعرض فيه السعر الاجمالى
المعاملات المختلفة للعمليات الحسابية :-
المعامل المؤثر
العملية
+
جمع
-
طرح
*
ضرب
/
قسمة عادية
\
قسمة اعداد صحيحة
mod
باقى القسمة
^
اسس
قسمة الاعداد الصحيحة وباقي القسمة
إذا قسمنا العدد الصحيح (Integer ) 48 على العدد الصحيح 5 فتكون النتيجه كالآتى :-
1. 3
قسمة عادية
5
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image012.gif48 / 5 = 9
2. قسمة اعداد صحيحة
48 \ 5 = 9 ( اى اهمال باقى القسمة)
3. اذا اردنا الباقى فيمكن الحصول عليه كالآتى :-
48 mod 5 = 3
الاسس :
يستعمل معامل الاسس ( ^ ) فى رفع عدد معين ( الاساس ) الى اس معين و تكون النتيجة من النوع Double
فمثلا اذا كان X=5 فاوجد قيمة Y=X^5 بالتعويض فان 25 Y=
التحويل بين انواع البيانات المختلفة :
1- التحويل التلقائى او المباشر : من نوع بيانات له سعة تخزينية اقل الى نوع بيانات له سعة تخزينية اعلى
2- التحويل الغير التلقائى او الغير المباشر : من نوع بيانات له اعلى تخزينية اقل الى نوع بيانات له سعة تخزينية اقل
مجموعة أوامر Try / Catch :-
تستخدم لاكتشاف الاخطاء التى تحدث اثناء تشغيل البرنامج و اظهار رسالة للمستخدم تنبيها للخطأ باستخدام msgbox
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image013.gif
ترتيب تنفيذ العمليات الحسابية :- ترتيب العمليات الحسابية داخل VB يتم كالآتى : حتى يتم الحصول على النتائج الصحيحة
1. العمليات التى بين الاقواس ( الداخلية اولا ثم الخارجية )
2. عمليات الاسس
3. عمليات الضرب و القسمة ( الاولوية من اليسار ثم اليمين )
4. عمليات قسمة الاعداد الصحيحة
5. عمليات حساب باقى القسمة
6. عمليات الجمع و الطرح ( الاولوية من اليسار الي ليمين )
مثال :- ما هى نتيجة تنفيذ العمليات الاتية بافتراض القيم التالية للمتغيرات :-
اذا كان : X = 2 Y = 3 Z = 4
Y^ X * X + Z *3 -------- X * ( Y + 1 ) -فاوجد قيمة كلن من :
الحـــــــــــــــــــــــــــــــــــل
1 - نستبدل كل متغير بقيمته = 2* ( 3 + 1 ) 2- حساب ما بداخل الاقواس اولا = 2 * ( 4 )
3- تنفيذ عملية الضرب فيكون الناتج ( 8 )
1- نستبدل كل متغير بقيمته = 3^ 2 * 2 + 4 * 3 2- يتم حساب الاس اولا = 9 * 2 + 4 * 3
3- تنفيذ عملية الضرب التى في اليسار 18 + 4 * 3 4- تنفيذ عملية الضرب التى في اليمين 18 + 12
5 - تنفيذ الجمع ليكون الناتج =30
تمــــرين شامل على ماسبق
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image015.gif
نقوم بعمل واجهة البرنامج كما فى الشكل الاتى :
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image017.gifكود البرنامج
Dim a,b,c,z as decimal
Try
A = decimal.parse (me.textbox1.text)
B = decimal.parse (me.textbox2.text)
C = decimal.parse (me.textbox3.text)
Catch
Msgbox("one of the fields is not numeric.please enter only valid numeric values")
End try
Z = (A+B+C)/3
Label5.text= Z
لاحظ ان : استخدام الامر try واظهار رسالة للمستخدم فى ادخال حروف بدلا من الاعداد
تمــــرين : ما الخطأ فى البرنامج الاتى :
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image019.gif
المقام = صفر حيث file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image021.gif = صفر
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image022.gif
ما هو التعبير الشرطي ؟ هو عبارة عن صياغة للعلاقة بين كميتين
مثـــــــال : اذا كان A = 50 B = 60
فـــــــــإن :
النتيجة
مثال
العلاقة
العلامة
False
A > B
اكبر من
>
True
A < B
اصغر من
<
False
A = B
يساوي
=
True
A < > B
لا يساوي
< >
الأمر If ……. Then ……. Else
يأتى بعد IF شرط معين فإذا تحقق هذا الشرط يتم تنفيذ ما بعد كلمة then واذا لم يتحقق هذا الشرط يتم تنفيذ ما بعد Else
تمرين : اكتب برنامج لحساب الراتب الاسبوعى لموظف لو كانت ساعات عمله اقل من او تساوى 40 ساعة فإن اجره عن الساعة يكون 5 جنيهات . اما اذا زادت عن 40 ساعة قيتم حساب الراتب كالاتى :
5 جنيه فى الساعة الاولى لأول 40 ساعة و 10 جنيه فى الساعة لمن زاد عن 40 ساعة
ويتم حساب الراتب كما يلى :-
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image024.jpg
الحـــــل:-
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image025.gif
قاعدة استخدام الامر If ……. Then البسيط : اذا تحقق الشرط الذى يلى if يتم تفيذ الشرط بعد then مباشرة
تمرين :
اكتب كود برنامج فى حالة ان السن يزيد عن سنة20 يتم عرض الجملة الاتية " You can get an ID card "
الحـــــــــــــــــــــــــــل
If Age > 16 Then
MsgBox(“You can get an ID card”)
End If
الشروط المركبة : تستخدم في حالة ما إذا كنا سنستخدم قرارا معينا بناءا على تحقق شرطين وليس شرط واحد
ويمكننا عمل الشرط لمركب بالربط بين أكثر من شرط بأحد المعاملات التي تسمى المعاملات المنطقية وهي
Or, OrElse, And, AndAlso, XOr, Not
مقارنة القيم والمتغيرات الحرفية( String )
يتم تحديد رتبة كل رمز طبقا لطريقة تخزين الرموز في ذاكرة الحاسب وهذه الطريقة تسمى
ANSI= American National Standards Institute
وهي تعطي كل حرف أو رقم أو رمز خاص رتبة معينة وهذه الرتبة هي رقم ثابت لا يتغير كما في الجدول حيث يتم حساب رتبة كل حرف من الكلمة المراد ايجاد رتبتها والجدول فى الكتاب المدرسى صفحة 60 .
الاداة Radio Button : تتيح للمستخدم مجموعة من البدائل لاختيار واحدة منها فقط
اهم الخصائص الجديدة فى الاداة : Radio Button خصائص الاداة
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image027.jpg
شكل الاداة :
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image029.jpg
الاداة CheckBox : تتيح للمستخدم مجموعة من البدائل لاختيار أي عدد منها
اهم الخصائص الجديدة فى الاداة
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image031.jpg
الاداة GroupBox : تستخدم لتنظيم الأدوات علي النموذج .
تسمح للمبرمج أن يقسم عدد من الأداة RadioButton و CheckedBox إلي مجموعات ويقوم لمستخدم باختيار واحدة فقط من كل مجموعة .
اهم الخصائص الجديدة فى الاداة
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image033.jpg
تمرين :-
يريد مدير احدى المستشفيات عمل برنامج يستطيع من خلاله عمل فواتير للمرضى . يسمح البرنامج بادخال اسم المريض اولا ثم تحديد التحاليل التى يحتاجها ولا يسمح البرنامج باصدار فاتورة بدون ادخال اسم المريض ويوضح الجدول الاتى الخدمات المتاحة واسعارها .
Price السعر
Service الخدمة
21
تحليل سكر
10
تحليل دم
15
فيرس C
30
فيرس A
الحـــــــــــــــل
تظهر واجهة المستخدم كما فى الشكل الاتى :
1- يحتوى على TEXTBOX لادخال اسم المريض زعدد 2 GROUPBOX الاول يحتوى على عدد 2 CheckBox
2- تحليل الدم والسكر والثانى عدد 2 Radio Button فيرس A,C وعدد واحد BUTTON لاظهار المبلغ الاجمالى
3- وعدد 2 LABEL لتوضيح مكان اسم المريض واجمالى المبلغ المطلوب
file:///C:/DOCUME%7E1/DRMOST%7E1/LOCALS%7E1/Temp/msohtml1/01/clip_image035.jpg
اما كود البرمجة فيظهر كما يلى :