الجزء الاول من مذكرة الصف الثالث الاعدادى تيرم ثان

من طرف **ياسر احمد** الأربعاء أبريل 13, 2011 12:51 pm

الفصل الدراسي الثاني
الفصل الأول
عرض البيانات
Representing Data

المتغيرات والثوابت
Variables & Constants

nتحفظ الثوابت Constants في
أماكن ثابتة من الذاكرة Memory
وذلك لأن لها قيم ثابتة لا يمكن تغييرها، بينما المتغيرات Variables تتغير أماكنها في
الذاكرة بتغير قيمتها.

nتقسم الذاكرة إلى أجزاء صغيرة جداً، وكل جزأ مساحته 1
بايت (Byte)

أنواع البيانات Data Types

nنوع البيان هو تحديد نوع البيانات التي ستحفظ في الذاكرة وكل نوع بيان
يأخذ حجم معين من الذاكرة.

nمثال على أنواع البيانات:

الاسم : أحمد
السن : 15 سنة معه 3.5 جنيه

فيكون أحمد نوعه
بيان نصي، بينما السن بيان رقمي ، وما معه بيان عشري.

جدول يوضح أنواع
البيانات وحجم ما تأخذه من الذاكرة، وكذلك القيم التي تأخذها (Range)

مثال: على قيم بيانات
مختلفة لنفس القيمة
العدد
: 123456.10987654321
إذا وضعناه في أنواع مختلفة للبيانات فإن القيمة
ستختلف باختلاف البيان وما يتحمله من Range

قواعد تسمية المتغيرNaming Rules

nيمكن أن يحتوي الاسم على أرقام وحروف وعلامة (_)

nلا يبدأ الاسم برقم

nلا يحتوي الاسم على مسافات أو النقطة (.)

nينبغي أن لا يكون كلمة محفوظة مثل (New, Visible)

nيفضل أن يكون الاسم يدل على معناه بمعنى أن يبدأ مثل
بثلاثة حروف نوع بيانه مثل تسمية الأدوات.

أمثلة على أخطاء التسمية

الثوابت Constants

nلها أنواع مثل المتغير ولكن الاختلاف أنها تعطى قيم
ولا يمكن تغييرها.

nثوابت محفوظة Intrinsic
constants

وهي
موجودة ببرنامج فيجوال بيسك ، مثال يدعم الفيجوال بيسك طريقة سهلة لاختيار اللون
المناسب عن طريق ألوان ثابتة موجودة في color

n ثوابت معرفة عن طريق المبرمج Named constants

وهي
ثوابت عرفها المبرمج وأعطاها قيم ثابتة، ولا يمكن تغييرها.

مزايا استخدام الثوابت Constants

nيكون الكود أسهل في القراءة، فمثلا قراءة ثابت عدد
التلاميذ له معنى أكثر من أن نكتب 1000.

nيمكن تغيير قيمة الثابت بتغيير قيمته من التعريف، بدل
من تغيير كل القيم.

nيكون التصريح عن الثابت كما في المثال التالي:

Const Constant_Name
as DataType = Value

Const No_of_Stu as
Integer = 1000

المتغيرات Variables

nالتصريح عن المتغير باستخدام جملة Dim

Dim Variable_Name as DataType

Dim No_of_Stu as Integer

Dim No_of_Stu as Integer = 1000

No_of_Stu = 1200 (can change value)

nملحوظات:

nلو كان نوع البيان رقمي Numeric يكون القيمة الافتراضية
له إذا لم تعطه تكون = صفر

nإذا كان نوع البيان نصي String يكون القيمة الافتراضية
له ”“ سلسلة نصية فارغة طولها صفر

nالتصريح عن أكثر متغير باستخدام جملة Dim واحدة:

nDim
Age as Integer, Name as String

nDim
UnitPrice, Total as Decimal

nDim
UnitPrice as Decimal = 5.2, Total as Decimal = 25.75

جملة تحديد القيمة
Assignment Statement

nلتحديد أو تخصيص قيمة للمتغير يكون ذلك عن طريق:

Variable_Name = Expression(Value)

nأمثلة:

Dim Quantity as Integer ( ) التصريح عن المتغير

Quantity = 25 ( )تخصيص قيمة للمتغير

Quantity = Quantity + 3 ( )تخصيص قيمة للمتغير بإعطائه قيمته القديمة وإضافة 3 إليها)

يتم أولاً حساب
قيمة الطرف الأيمن من المعادلة ثم بعد ذلك إعطاء القيمة للطرف الأيسر

nمثال:

nDim
UnitPrice, Total as Decimal, Quantity as Integer (التصريح عن المتغيرات)

nUnitPrice
= 2.5 (تخصيص القيمة
للمتغير)

nQuantity
= 15 (تخصيص القيمة للمتغير)

nTotal
= UnitPrice * Quantity (تخصيص القيمة)

nويتم حسابها كالتالي:

UnitPrice * Quantity = 2.5 * 15 = 37.5

Total = 37.5

استعمال التخصيص مع
السلاسل الحرفية

لتخزين (لتخصيص) قيمة
لمتغير حرفي يتم ذلك بنفس الطريقة السابقة.
Dim Name as String ( )تعريف المتغير

Name = “Mohamed Fahmy” ( )تخصيص قيمة

ويمكن ربط أكثر من
متغير حرفي عن طريق الرابط & مثال:

Dim FirstName as String = “Mohamed”

Dim LastName as String = “Fahmy”

Msgbox (“Welcome “
& FirstName & “ “ & LastName)

n

تحويل البيانات النصية إلى بيانات رقمية

nعند إدخال الأرقام عن
طريق البرنامج يكون ذلك عن طريق مربعات النصوص (TextBox) ويراد إجراء عمليات
حسابية على تلك الأرقام وهي تعتبر نصية، ولإجراء العمليات الحسابية يجب تحويلها من
بيانات نصية إلى رقمية.

nويتم التحويل من نص إلى
رقم باستخدام دوال خاصة مثل دالة Parse
فمثلاً إذا كان لدينا النص 25 ويراد تحويله إلى عدد صحيح Integer فتكتب بهذه الطريقة:

Integer.Parse
(string)

Integer.Parse (“25”)

وتكون الصيغة العامة
للتحويل هي:

DataType You wish to convert to.Parse(string you
wish to convert)

مثال

nلديك برنامج به 2 مربع نصي (TextBox) الأول تقرأ منه الكمية
والثاني تقرأ منه سعر الوحدة ، ويراد عرض رسالة به الإجمالي. فيكون الحل:

nDim Quantity as Integer (تعريف متغير الكمية)

nDim UnitPrice as Decimal (تعريف متغير السعر)

nDim Total as Decimal (تعريف متغير الإجمالي)

nQuantity = Integer.Parse(TextBox1.Text)

nUnitPrice = Decimal.Parse(TextBox2.Text)

nTotal = Quantity * UnitPrice

nMsgBox (Total)

تحويل البيانات
الرقمية إلى بيانات نصية

nقد تحتاج في بعض الأحيان
تحويل البيانات الرقمية إلى بيانات نصية وذلك لعرضها بطريقة معينة فلو افترضنا أنك
تريد عرض المجموع في المثال السابق بالشكل الآتي:

120 L.E

فيجب
أن يكون المجموع أصلا نصي حتى يمكنك إضافة L.E
إليه.

وللتحويل
من الرقمي إلى النصي يتم عن طريق تحويل المتغير الرقمي إلى النصي باستخدام الدالة ToString()

NumericDataType.ToString(معامل الدالة)

في
المثال السابق لعرض المجموع بالشكل 120 L.E :

MsgBox
(Total.ToString() & “L.E”)

nفي الدالة السابقة ToString() لم يحدد معامل وهذا
المعامل يستفاد منه في إعادة تشكيل النص الناتج:

العمليات الحسابية

أمثلة على العمليات الحسابية:

nإذا
أردنا أن نجري بعض العمليات على متغيرين رقميين:

nDim
N1 as Integer = 20

nDim
N2 as Integer = 4

nDim
Result as Integer

n(+):

Result = N1 + N2

n(-):

Result = N1 - N2

n(*):

Result = N1 * N2

n(/): (هذه قسمة عادية تعطينا الناتج مقرباً)

Result = N1 / N2

nقسمة الأعداد الصحيحة ( / و \ ) وباقي القسمة:

nإذا قسمنا العدد الصحيح 48 على العدد الصحيح 7
(48/7) فإن الناتج يكون 6 والباقي يكون 6، فإذا قربنا الناتج لأقرب عدد صحيح فيكون
الناتج 7 فإن استخدام الصيغة 48\7 سوف تعطينا العدد الصحيح 6 فقط وللحصول على باقي القسمة نستخدم Mod:

48 Mod 7

فيكون الناتج = 6

nالأس:

لاستخدام معامل الأس ^ لحساب عملية
حسابية مثلاً لحسابها 2 * 2 * 2 ولكن باستخدام الأس 2
^ 3