ملاحظات عند تحديد نوع البيانات في المتغيرات

ملاحظات عند تحديد نوع البيانات في المتغيرات
1- التعريف  من خلال التصريح بنوع المتغير : مثل ( Dim  Nk  as  Variant ) .
2- لتخزين  البيانات داخل متغير سلسلة  نصية لا بد أن تكون هذه  البيانات محصورة 
بين علامتي اقتباس ( " " ) مثل :    " أحمدName = " 
3- لابد  من تحديد نوع البيانات بشكل  دقيق ، فمثلاً لا يمكن أن  نضع عدداً عشرياً (4.5) في متغير من نوع عدد صحيح طويل (Long) ، إنما لابد أن يكون من نوع (Single) أو (Double)
ملاحظات عند تحديد نوع البيانات في المتغيرات
4- لكل متغير سعة تخزينية (حجم) ، وهذه السعة قد تؤثر عندما يكون لديك عدد كبير من البيانات المخزنة ، مما قد يبطئ عمل البرنامج ويستهلك مساحات التخزين.
5- نستخدم نوع البيانات (Variant) إذا لم يحدد نوع البيانات بشكل دقيق ، حيث يمكن أن يحتوي على أي نوع من البيانات ما عدا نوع السلسة النصية (String).
6- عند  تعريف متغير يمكن أن نستخدم  رموزاً بدل اسم النوع ، فمثلاً  بدل Integer نستخدم % ويكون التعريف كالآتي (Dim Mr%) ، حيث إن هذه الرموز كانت تستخدم في لغة بيسك الأساسية ولكن من الأفضل استخدام التعريف المباشر (Dim Mr AS Integer).
العملية الحسابية
الرمز
تعبير حسابي بلغة بيسك
الجمع
+
A = X + Y
الطرح
-
A = 5 – 3 
الضرب
*
A = 2 * B

القسمة

/

A = X / Y
الأس
^
A = C ^ 2
الأقواس
( )
A = 7 * ( M - N )
العمليات الحسابية

أولوية تنفيذ العمليات

يتم حساب قيمة التعبير الحسابي بناءاً على الترتيب التالي :-

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

مثال (1) : مانتيجة تنفيذ العمليات الحسابية في التعبير الحسابي التالي :
X = 3 * ( 8 - 6 ) + 4 ^ 2
X = 3 * 2 + 4 ^ 2
X = 3 * 2 + 16
X = 6 + 16
X = 22
مثال (1) : مانتيجة تنفيذ العمليات الحسابية في التعبير الحسابي التالي :

X = 8 – 3 * 2 + 4 / 2 ^ 2

X = 8 – 3 * 2 + 4 / 4

X = 8 – 6 + 4 / 4

X = 8 – 6 + 1

X = 2 + 1

X = 3

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

مثال (1) : مانتيجة تنفيذ العمليات الحسابية في التعبير الحسابي التالي :

X = ( 6 - 1 ) * 2 – 7 + 4

X = 5 * 2 – 7 + 4

X = 10 – 7 + 4

X = 3 + 4

X = 7

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

مثال (1) : مانتيجة تنفيذ العمليات الحسابية في التعبير الحسابي التالي :

X = 5 + 2 * 4 / 2

X = 5 + 8 / 2

X = 5 + 4

X = 9

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

مثال (1) : مانتيجة تنفيذ العمليات الحسابية في التعبير الحسابي التالي :

X = ( 3 + 2 ) * 2 ^ 2

X = 5 * 2 ^ 2

X = 5 * 4

X = 20

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

عوامل المقارنة

العملية

معناها

مثال

=

يساوي

4 = 4

< >

لايساوي

5 <> 4

>

أصغر من

2 < 4

= >

أصغر من أو يساوي

A < = 8

<

أكبر من

7 > 4

= <

أكبر من أو يساوي

X > = 7

ملاحظة : -

نتيجة عملية المقارنة بين قيمتين إما أن تكون ( صح ) أو ( خطأ )

عوامل المقارنة

مثال (1) : مانتيجة عمليات المقارنة التالية إذا علمت أن A = 1 , B = 5 

نتيجة المقارنة

مثال

خطأ

A = B

صح

B = A + 4 

خطأ

A < > 1 

صح

A < B

خطأ

A < 0

صح

A < = 3

خطأ

B < = 3

خطأ

A > B

صح

A > 0

صح

B > = 5

خطأ

B > = 6

تحويل تعبير حسابي مكتوب بالصيغة (الجبرية) إلى تعبير حسابي مكتوب بلغة فيجول بيسك

التعبير الحسابي بلغة فيجول البيسك

التعبير الحسابي بالصيغة الجبرية

Z = 5 * X

Z = 5X

Z = X * Y

Z = XY

Z = 6 * X * Y

Z = 6XY

يتم تحويل التعبير الحسابي المكتوب بالصيغة الرياضية ( الجبرية ) إلى تعبير حسابي

بلغة بيسك بإتباع التعليمات التالية :

1- عند كتابة تعبير حسابي بلغة بيسك يجب أن تكتب رموز العمليات الحسابية بلغة بيسك

مثل ( ^ , / , * , - , + )

2- في تعبير بيسك يجب وضع علامة الضرب ( * ) بين المتغيرات والثوابت المضروبة في بعضها

عوامل المقارنة

مثال (1) : مانتيجة عمليات المقارنة التالية إذا علمت أن A = 1 , B = 2 , C = 3 

نتيجة المقارنة

مثال

صح

A + 4 = B + C

خطأ

A + B < C – 1

صح

A + 3 < > B * C - 1 

صح

( B + 3 ) * 2 > C * A - 1

3- اذا كان تعبير بيسك يحتوي على بسط ومقام وكان في البسط أو المقام عملية جمع أو طرح

    فيجب وضع الأقواس

التعبير بلغة البيسك

التعبير بالصيغة الرياضية

( 6 - 2 ) / 2

6 – 2

   2

8 / ( 1 + 3 )

   8

1 + 3

( 7 + 5 ) / 5

7 + 5

   5

16 / ( 4 - 2 )

  16

4 – 2

تحويل تعبير حسابي مكتوب بالصيغة (الجبرية) إلى تعبير حسابي مكتوب بلغة فيجول بيسك

4- اذا كان تعبير بيسك يحتوي على بسط ومقام وكان في المقام عملية ضرب فيجب وضع الأقواس 

5- اذا كان تعبير بيسك يحتوي على بسط ومقام وكان في البسط عمليات ضرب فقط فليس شرط أن نضع الأقواس

تحويل تعبير حسابي مكتوب بالصيغة (الجبرية) إلى تعبير حسابي مكتوب بلغة فيجول بيسك

التعبير بلغة بيسك

التعبير بالصيغة الرياضية

12 / ( 2 * 6 )

12

2 * 6

التعبير بلغة بيسك

التعبير بالصيغة الرياضية

2 * 6 / 12

2 * 6

  12

( 2 * 6 ) / 12



مثال(1) : حول التعابير الجبرية التالية إلى تعابير بلغة بيسك : 

التعبير الحسابي بلغة بيسك

التعبير بالصيغة الرياضية

3 * A – A * B

3A – AB

A * X ^ 2 + B * X + C

AX  + BX + C

A / ( 5 * B )

  A

5B

5 * B / A

5B

  A

( A + B ) / ( 3 * D )

A + B

   3D

A ^ 2 / B ^ 4 – C ^ 5 / ( X - Y )

  A         C

  B       X - Y

2

-

2

2

2

2

تحويل تعبير حسابي مكتوب بالصيغة (الجبرية) إلى تعبير حسابي مكتوب بلغة فيجول بيسك

مثال(1) : حول التعابير الجبرية التالية إلى تعابير بلغة بيسك : 

التعبير الحسابي بلغة بيسك

التعبير بالصيغة الرياضية

Z = ( 3 * X – Y ) + 4 * A ^ 2

Z = ( 3X - Y ) + 4A

T = 5 * A * B + X ^ 2 / ( Y ^ 3 + 2 )

                     X

T = 5AB +

                  Y + 2

S = A ^ 2 + 6 * ( C – D ) / ( A * B )

              6(C–D)

S = A  +

                  AB

X=5 * A * B ^ 2 / ( 8 - A ^ 2 ) + (A + B) / ( 3 * B ^ 2 )

       5AB     A + B

X =

       8 - A      3B

2

2

2

2

2

تحويل تعبير حسابي مكتوب بالصيغة (الجبرية) إلى تعبير حسابي مكتوب بلغة بيسك

3

2

+

1- تصميم الواجهات ( تحديد عدد النوافذ التي يحتاجها البرنامج والأدوات التي نحتاجها

في كل نافذة) 

2- ضبط الخصائص(ضبط خصائص كل أداة على كل نافذة من شكل ولون وإجراء.....الخ)

3- كتابة تعليمات ( أوامر البرمجة ) وهي الأوامر التي تنفذ عن وقوع حدث معين

مراحل كتابة البرنامج

طريقة تعريف المتغيرات 

يتم تعريف المتغيرات في لغة فيجوال  بيسك باستخدام الأمر Dim 

Dim Var1 As Type

أمثلة:-

Dim name As string

Dim age As integer

Dim number As single

طريقة تعريف الثوابت 

يتم تعريف الثوابت باستخدام الأمر Const 

Const const1 = value 


Const HighScore = 100

طريقة الإعلان عن المتغيرات والثوابت 

        الإعلان هو :  تحديد المكان الذي نعرف فيه هذه المتغيرات والثوابت داخل البرنامج.



مثال لطريقة الإعلان عن المتغيرات والثوابت :

Private Sub Command1_Click()

Dim name As String

Const HighScore=100

..

.

End Sub

بعض القواعد الأساسية في لغة فيجول بيسك

1- عملية الإسناد:

ويقصد بها تخزين قيمة معينة في متغير وهذه القيمة المسندة إما عددية أو حرفية حسب نوع المتغير

Var1 = value

Name = “ali”

Number = 15

صيغة ( IF-THEN ) 


IF condition THEN statements

مثال :

 IF grade>=50 THEN Text1="good“



صيغة (IF-THEN-END IF ) 



IF condition THEN

……

Statements

……

END IF

مثال :

 IF grade>=50 THEN

T1="good"

T2="congratulation"

END IF



صيغة (IF-THEN-ELSE ) 


IF condition THEN

……

Statements1

……

else

……

Statements2

……

END IF

صيغة (IF-THEN-ELSE ) 

مثال :

 IF grade>=50 THEN

T1="good"

ELSE

T2="congratulation"

END IF

صيغة (IF-THEN-ELSEIF  ) 

IF condition THEN

……

Statements1

……

Elseif condition THEN

……

Statements2

……

Else

..

END IF

صيغة (IF-THEN-ELSEIF  ) 

مثال :

 IF grade>=90 THEN

Text1=“ممتاز"

ELSEIF grade >=80 THEN

Text1=“جيد جداً

ELSEIF grade >=70 THEN

Text1=“جيد

ELSEIF grade >=60 THEN

Text1=“مقبول

Else

Text1=“راسب

END IF

الانتقال (GOTO)

أنواع الانتقال :-

    الانتقال غير المشروط : ويعني الانتقال لسطر معين دون التقيد بأي شرط

GOTO  line

Line رقم السطر

مثال:-

Dim name As String , grade As Single

Name = “عمر محمد

GOTO AA

.......

……

AA:

Grade = 48.5

الانتقال (GOTO)

ب- الانتقال غير المشروط :

IF grade >= 90 THEN GOTO A

IF grade < 90 THEN GOTO B

A:

Text1 = “ممتاز

GOTO C

B:

Text2 = “جيد جداً

GOTO C

C:

Print Text1

الجملة الشرطية ( Select Case )

الجملة الشرطية ( Select Case )

SELECT CASE expression

CASE prob1

……

Statements1

……

CASE prob2

……

Statements2

……

CASE ELSE

……

Statements3

……

END SELECT

الجملة الشرطية ( Select Case )

مثال:-

SELECT CASE grade

CASE 90 TO 100

Text1=“ممتاز"

CASE 80 TO 89

Text1 =”جيد جداً "

CASE 70 TO 79

Text1 =”جيد"

CASE 60 TO 69

Text1 =“مقبول"

CASE ELSE

Text1 =“راسب"

END SELECT

التكرار (FOR … NEXT)

قاعدة ( FOR ….NEXT ) والصيغة العامة لها كالآتي :


FOR counter = start TO end [STEP step]

…………….

[EXIT FOR ]

………….....

Next

التكرار (FOR … NEXT)

المصفوفات (Array )

المصفوفة ( Array ) : هي سلسلة من المتغيرات تحت نفس الاسم , ويتم التمييز بين المتغيرات داخل هذه المصفوفة باستخدام رقم المتغير داخلها.

الصيغة العامة :

Dim var1(n) As Type


مثال :

Dim Age(5) As integer





Age(0)      Age(1)       Age(2)       Age(3)      Age(4)

المصفوفات (Array )

مثال :

Dim Name(5) As String


Name(0)   Name(1)    Name(2)   Name(3)   Name(4)

المصفوفات (Array )

ادخال وقراءة وطباعة قيم المصفوفة

لإدخال وقراءة وطباعة قيم المصفوفة نستخدم حلقة تكرارية,مثلاً الأمر ( FOR - NEXT ) ، ويتم الإدخال والقراءة والطباعة بالإشارة إلى اسم المتغير ورقم العنصر.

مثال(1) : لإدخال درجات 5 طلاب في مصفوفة نقوم بكتابة الأوامر التالية

Dim Mark(5) As Single

FOR M = 0 TO 4

Mark (M) = InputBox(“أدخل الدرجة)

NEXT

Mark(0)

Mark(1)

Mark(2)

Mark(3)

Mark(4)

المصفوفات (Array )

ادخال وقراءة وطباعة قيم المصفوفة

مثال(1) : لإدخال درجات 5 طلاب في مصفوفة نقوم بكتابة الأوامر التالية

Dim Mark(5) As Single , Name(5) As String

FOR M = 0 TO 4

Name(M) = InputBox(“أدخل الاسم)

Mark(M) = InputBox(“أدخل الدرجة)

NEXT

Mark(0)

Mark(1)

Mark(2)

Mark(3)

Mark(4) 

Name(0)

Name(1)

Name(2)

Name(3)

Name(4) 

لطباعة أسماء ودرجات الطلاب نكتب الأوامر التالية:

FOR M = 0 TO 4

PRINT Name(M)

PRINT Mark(M)

NEXT

أدوات البرمجة بلغة الفيجوال بيسك

1- خصائص الأدوات

الأدوات تعرف بأنها برامج جاهزة للاستخدام

اسم الخاصية

الغرض من الخاصية

Name

تحديد اسم للأداة 

Alignment

تحديد محاذاة النص المكتوب(يمين-يسار-وسط)

Caption

اظهار العنوان أو التسمية داخل الأداة على الشاشة

Font

لتغيير نوع الخط وحجمه ونمطه

ForeColor

لتغيير اللون المكتوب به النص

BackColor

لتغيير لون الخلفية للأداة أو النموذج

Border Style

لتغيير حدود الأداة أو النموذج 

Top

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

Left

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

Height

لتغيير ارتفاع النموذج أو الأداة

width

لتغيير عرض النموذج أو الأداة

طرق التحكم بخصائص الأدوات

أ- ضبط خصائص الأدوات أثناء تصميم البرنامج ( design ) :

نستخدم إحدى الطرق التالية :

    كتابة القيمة             (كما في خاصية Name و Caption)
    اختيار القيمة           (كما في خاصية Alignment و RightToLeft)
    ظهور شاشة خيارات  (كما في خاصية Font و ForeColor و BackColor)

طرق التحكم بخصائص الأدوات

ب- ضبط خصائص الأدوات أثناء تنفيذ البرنامج (run) :

لتغيير خاصية الأدوات أثناء تنفيذ البرنامج فإننا نستخدم الصيغة التالية للوصول إلى تلك الخاصية:

القيمة الجديدة = الخاصية.اسم الأداة

TextBox1.Text = “متوسطة وثانوية ستارة

Label1.Caption = “متوسطة وثانوية ستارة

تنفيذ البرنامج

أدوات البرمجة بلغة الفيجوال بيسك

أدوات إدخال البيانات

    أداة مربع النص ( Textbox )
    أداة زر الخيار ( Option Button )
    أداة مربع الاختيار ( Checkbox )
    أداة مربع القائمة ( List Box )
    أداة الخانة المركبة ( Combo Box )

أمثلة على طرق إدخال البيانات

طريقة الحصول على البيانات من مربع النص ( Textbox ) :

للحصول على البيانات من مربع النص نستخدم

Var1 = Textbox. Text

مثال 1:

Dim Name As string

Name = Text1.Text

Text2.Text = Name

مثال 2:

Dim Age As integer

Age = Text1.Text

Text2.Text =Age

تنفيذ البرنامج

تنفيذ البرنامج

أمثلة على طرق إدخال البيانات

طريقة الحصول على البيانات من أداة زر الخيار ( Option button ) :

للحصول على البيانات من اداة زر الخيار نستخدم الصيغة التالية :

Var1 = OptionButton.Value

Option1.Value = true

Option2.Value = false





تنفيذ البرنامج

أمثلة على طرق إدخال البيانات

طريقة الحصول على البيانات من أداة زر الخيار ( Option button ) :

للحصول على البيانات من اداة زر الخيار نستخدم الصيغة التالية :

Var1 = OptionButton.Value

مثال 1:

Dim choice1 As Boolean

Dim choice2 As Boolean

choice1 = Option1.Value

choice2 = Option2.Value

text1.text=choice1

text2.text=choice2


تنفيذ البرنامج

أمثلة على طرق إدخال البيانات

طريقة الحصول على البيانات من أداة مربع الاختيار ( Checkbox ) :

للحصول على البيانات من اداة مربع الاختيار نستخدم الصيغة التالية :

Var1 = Checkbox. Value

مثال 1: لعرفة أن مربع الاختيار المسمى ( 1Check ) قد تم اختياره أم لا نقوم بكتابة السطر التالي:

Check1.Value = 0

Check2.Value = 1

Check3.Value = 2

تنفيذ البرنامج

أمثلة على طرق إدخال البيانات

طريقة الحصول على البيانات من أداة مربع الاختيار ( Checkbox ) :

للحصول على البيانات من اداة مربع الاختيار نستخدم الصيغة التالية :

Var1 = Checkbox. Value

مثال 2: لعرفة أن مربع الاختيار المسمى ( 1Check ) قد تم اختياره أم لا نقوم بكتابة السطر التالي:

Dim Ch1 As integer

Dim Ch2 As integer

Dim Ch3 As integer

Ch1 = Check1.Value

Ch2 = Check2.Value

Ch3 = Check3.Value

text1.text=Ch1

text2.text=Ch2

text3.text=Ch3

تنفيذ البرنامج

أدوات إخراج المعلومات

طريقة إخراج المعلومات إلى مربع النص (textbox) :

لإخراج المعلومات إلى مربع النص نستخدم الصيغة التالية

Textbox. Text = var1

مثال

Dim A As integer

Dim B As integer

A = Text1.Text

B = Text2.Text

Text3.text = A*B

Text4.text = “حاصل ضرب العددين=” & A*B


تنفيذ البرنامج


أدوات إخراج المعلومات

طريقة إخراج المعلومات إلى أداة التسمية (Label ) :

لإخراج المعلومات إلى مربع النص نستخدم الصيغة التالية

Label1. Caption = var1

مثال :

Dim Name As String

Dim Age As integer

Name = Text1.Text

Age = Text2.Text

Label1. Caption = Name

Text3.Text = Age

تنفيذ البرنامج