♥♥ مرحبــــا بــــكم ♥♥ في موقع مدرسة الشهيد حنفي محمود بنات صباحي إدارة المنتزة بالإسكندرية
موقع تربوي تعليمي ثقافي
نرحب بإقتراحاتكم من خلال مشاركاتكم معنا
.
قارة أمريكا الشمالية هي إحدى قارات العالم الجديد التي لم تكن معروفة لنا حتى أواخر القرن الخامس عشر. يرجع اكتشافها إلى كريستوفر كولومبس
عام 1492م عندما قام بأربع رحلات أبحر فيها من أسبانيا في اتجاه الغرب
بغرض الوصول إلى جنوب شرق أسيا ولكنه وصل إلى بعض الجزر غرباً والتي عرفت
فيما بعد باسم جزر الهند الغربية. سميت أمريكا نسبة إلى "أمريجو فسبوتشى" المكتشف البرتغالي الذي أعلن لأول مرة أن مكتشفات الأسبان والبرتغال هي عالم جديد يفصل بين
أوروبا وآسيا
الموقع الموقع الجغرافي
يحد قارة أمريكا الشمالية:
شمالاً المحيط القطبي.
جنوباً خليج المكسيك.
شرقاً المحيط الأطلنطي والذي يفصلها عن قارة أوربا.
غرباً المحيط الهادي والذي يفصلها عن قارة آسيا.
تقترب قارة أمريكا الشمالية من قارة آسيا عند مضيق بيرنج.
الموقع الفلكي
تقع القارة بأكملها في نصف الكرة الشمالي بين دائرتي عرض 15 º شمالاً و82 º شمالاً.
تقع القارة بأكملها في نصف الكرة الغربي بين خطى طول 52 º غربـًا و169 º غربـًا.
يقع معظم القارة في المنطقة المعتدلة الشمالية حيث:
تمر الدائرة القطبية في شمالها.
يمر مدار السرطان في جنوبها.
مساحة القارة تبلغ مساحة قارة أمريكا الشمالية نحو 24.2 مليون كم2 وهى بذلك ثالث قارات العالم مساحة بعد أسيا وأفريقيا.
ü تنفيذعمليةالضربوحسابالنتيجة،فتصبحالقيمةتساوى (550)
üتخزينالنتيجة ( 550 ) فى Price
ونلاحظفيهذاالأمرأن القيمة UnitPrice & Quantitلم تتغير وذلك لاننا
فقط نستعملقيمةالمتغيراتالتيعلييمين "=" واستعمالالقيملايؤثرفيهاولايغيرهابكل تأكيد؛أماقيمة Price فإنهاتغيرتنتيجةتخزينالنتيجةبها،وذلكيعنيأنالنتيجة(550 )
قدحلتمحلالقيمةالقديمةللمتغير Priceو التى كانت
صفرا
استعمال امر التخصيص مع المتغيرات الحرفية
FirstName
="Hany"
SecondName
= "Ahmed"
Fullname
= "Welcome"&FirstName&"
"&SecondName
تكون النتيجة
Welcome Hany Ahmed
üقمنا
بعملية ربط بين المتغيرات باستخدام العلامة &
ü" " تعنى انه سيترك مسافة فارغة مقدارها
مسافة واحدة او عدة مسافات
ü"
" تعنى قيمة حرفية فارغة ( طولها صفر )
التحويل بين الانواع المختلفة
للبيانات
تحويل البيانات الحرفية الي
بيانات رقمية
·يمكننا اجراء عمليات حسابية باستخدام المتغيرات و
الثوابت مادامت هذه المتغيرات
و الثوابت من الانواع الرقمية
·ولكن عند ادخال البيانات الى البرنامج فاننا
ندخلها عن طريق اداة الكتابة ( Text Box )
·وبرنامج ال VB.net تعامل مع هذه
البيانات على انها بيانات حرفية و ليس رقمية اى لا يمكن اجراء العمليات الحسابية
عليها إلا بعد تحويلها الي بيانات رقمية
·لتحويل البيانات الحرفية الى رقمية نستخدم وسيلة
( Method
) اسمها Parse
الشكل العام لل Parse Method
·لتحويل قيمة حرفية الي عدد صحيح Integer
Integer.Parse (القيمة الحرفية )
·لتحويل قيمة حرفية الى عدد عشرى Decimal
Decimal.Parse (القيمة
الحرفية )
مثال
لديك سعر الكتاب ، و عدد الكتب
و مطلوب حساب السعر الاجمالى
الحل
سعر الكتاب 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.
3
قسمة عادية
5
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
هى
·عرض المعاملات الرياضية + , - , * , / , \ , mod ,
^ في خصائص الادوات من Label
10 الى Label
16 لسبع ادوات Label
·اداة Button تحتوى على
اوامر تنفيذ العمليات
الحل
نفتح مشروع جديد ونضيف الادوات السابقه
على نافذة ال form ثم نكتب
الاكواد للزر Buton
انقر مرتين
على الزر مما سيؤدى الى فتح Code 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
4Try
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()
التحويل بين انواع البيانات
العددية : -
·التحويل المباشر ( التلقائى )
يستخدم عند تحويل من نوع عددى ذا سعة تخزينية صغيرة الى نوع عددى ذا سعة
تخزينية اكبر
نعنى بالسعة التخزينية هنا عدد خلايا لذاكرة
مثال
:-
اذا ردنا تحويل المتغير ( Number1 ) من النوع Decimal الى المتغير ( Number 2) وهو من النوع Integer
كالآتى :-
Number 1 = Number 2
انواع التحويلات التى يمكن
إجراؤها بالطريقة المباشرة
TO
From
Short – Integer – Long – Single – Double –
Decimal
Byte
Integer – Long
– Single – Double – Decimal
Short
Long – Single –
Double – Decimal
Integer
Single – Double
– Decimal
Long
Single – Double
Decimal
Double
Single
ملاحظات :-
التحويل المباشر لا يصلح فى
حالتين :
1. تحويل البيانات من النوع Double الى اى نوع اخر
2.تحويل
البيانات التى تحتوى على كسور ( Single , Double) الى النوع Decimal
وفى هذه الحالات نستخدم التحويل
غير المباشر
·التحويل الغير مباشر
يتم استخدامه عندما نحول نوع ذوسعة تخزينية كبيرة الى نوع اقل فى السعة
التخزينية
اى يستخدم بين البيانات العددية التى لايمكنك اجراء التحويل المباشر عليها
مثل تحويل النوع Double الى اى نوع اخر من انواع البيانات
و لتسهيل عملية التحويل الغير مباشر يتيح البرنامج للمبرمجين Class يسمى Convert Class يحتوى
على وسائل Methods تبدأ اسماؤها بـ To للتحويل بين
الانواع المختفلة
Use Method الطريقة
المستخدمة
النوع المطلوب
التحويل اليه To Convert to Data type
ToInt16
Short
ToInt32
Integer
ToInt64
Long
ToDecimal
Decimal
ToSingle
Single
ToDouble
Double
مثال :
اذا اردنا تحويل المتغير ( Number 1 ) من النوع Single الى المتغير ( Value1 ) من النوع
Decimal
Value1
= convert to Decimal (Number1 )
ترتيب تنفيذ العمليت الحسابية :-
ترتيب تنفيذ العمليات الحسابية
داخل VB يتم كالآتى :
1.العمليات
التى بين الاقواس ( الداخلية اولا ثم الخارجية )
2.عمليات
الاسس
3.عمليات
الضرب و القسمة ( الاولوية من اليسار ثم اليمين )
4.عمليات
قسمة الاعداد الصحيحة
5.عمليات
حساب باقى القسمة
6.عمليات
الجمع و الطرح ( الاولوية من اليسار الي ليمين )
مثال
:-
مثال
:-
ما هى نتيجة تنفيذ العمليات الاتية بافتراض
القيم التالية للمتغيرات :-
مدرسة ، حنفي محمود ، مدرسة حنفي محمود ، مدرسة الشهيد حنفي محمود ، مدرسة حنفي محمود الإعدادية ، مدرسة الشهيد حنفي محمود الإعدادية ، مدرسة الشهيد حنفي محمود الإعدادية بنات ، مدرسة الشهيد محمود الإعدادية بنات صباحي