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

مقدمة الوحدة:

عزيزي لقد سمعنا كثيرا عن لغات البرمجة ودورها في تسهيل وتبسيط الوصول الى الحلول العلمية في شتى نواحي الحياة ، وتعد لغة الفيجوال بيسك استوديو

Visual Basic Studio .NET

من افضل اللغات واسهلها وذلك لأنها تستخدم البرمجة المرئية في التصميم والبرمجة المرئية هي عبارة عن أسلوب جديد للبرمجة تستخدم فيه برامج مساعدة لتصميم واجهة الاستخدام (الازرار والنصوص والصور) وربطها بالشفرة البرمجية ، فالحاسوب ليس إلا آلة صماء يقوم بتنفيذ التعليمات المعطاة على صورة برنامج (Program) من قبل المبرمج (Programer) ، فالبرنامج هو عبارة عن مجموعة من الأوامر المتسلسلة منطقيا يقوم الحاسوب بتنفيذها للوصول إلى النتيجة المطلوبة ، والبرمجة هي عملية صياغة وكتابة الأوامر ،  والمبرمج هو الشخص الذي يقوم بكتابة هذه الأوامر .

انشاء مشروع لحساب مساحة المستطيل

مقدمة الدرس: عزيزي الطالب لقد تعلمت في مادة الرياضيات كيفية إيجاد وحساب المساحات والمحيطات وفي هذا الدرس سننقلك إلى عالم البرمجة لتقوم بإنشاء مشروعك الخاص بنفسك لحساب مساحة المستطيل في بيئة ممتعة وشيقة وتتسم بالتحدي و الاثارة .

:اهداف الدرس :

:بعد الانتهاء من الدرس يتوقع من الطالب ان

  1- يقوم بإنشاء مشروع جديد

2- يدرج أدوات التحكم بالمشروع

3- يتحكم بخصائص الأدوات

4- يضيف الشفرة البرمجية للأدوات

5- يدرج شفرة الشرط IF

6- يتحقق من تنفيذ المشروع واختبار صحته

خطوات الدرس

:أولا :تصميم الواجهة

  1. عزيزي الطالب بعدما تعلمت في الدرس السابق كيفية انشاء مشروع جديد في برنامج الفيجوال بيسك قم بإنشاء مشروع جديد باسم Rectangle Area واحفظه في سطح المكتب .

  2. قم الآن بإضافة أدوات التحكم إلى المشروع كما في الصور التالية :

مربع نص: تذكر : يمكنك تذكر كيفية إنشاء مشروع جديد من خلال الرابط التالي https://youtu.be/NxYr4jOUdE4

 

https://youtu.be/NxYr4jOUdE4

تغيير الخصائص

:بعدما اضفت الأدوات ستقوم الآن بتغيير خصائصها من نافذة الخصائص كما في الصورة والجدول التالي

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

 

 

الاداة

الخاصية

التحديد

Form1

Name

FrmMain

Text

Rectangle Area

Label1

Text

Length

Label2

Text

Width

Label3

Text

Area

TextBox1

Name

txtLength

TextBox2

Name

txtWidth

TextBox3

Name

txtArea

Button1

Name

CmdCalculate

Text

CalculateArea

:بعدما قمت بتغيير الخصائص سيظهر لك النموذج كما في الصورة التالية

نشاط1 : اختر الإجابة الصحيحة 1- : يقصد بعملية صياغة وكتابة الأوامر ......:

  • البرنامج
  • البرمجة
  • المبرمج
  • النموذج

ثانياً التشفير:عزيزي الطالب بعدما قمت بتجهيز واجهة المشروع ننتقل الآن إلى تشفير الأدوات التي اضفتها في المشروع .

مربع نص: إضاءة:
عزيزي الطالب لاتنسى قواعد تسمية المتغيرات الذي تعلمته في بداية الوحدة :
-	ألا يكون المتغير من الكلمات المحجوزة (التي تظهر باللون الأزرق في نافذة التشفير)
-	ألا يزيد عن 255 حرفا.
-	ألا يتخلله مسافات. 
-	ألا يبدأ بأرقام.
-	ألا يتم تعريف متغيرين بنفس الاسم.

 

 

 

 

 

مربع نص: المتغير : هو أماكن للتخزين المؤقت في ذاكرة الحاسوب تستخدم لمدخلات ومخرجات المشروع .سنقوم بوضع الشفرة اللازمة لتشغيل المشروع وهو حساب مساحة المستطيل ، في البداية سنقوم بتعريف المتغيرات المطلوبة فإننا سنحتاج في هذا المشروع إلى ثلاث متغيرات كما يلي :

 

متغير للطول

متغير للعرض

متغير للمساحة

انقر نقرا مزدوجا بالفأرة على الزر:ستظهر لك نافذة التشفير اكتب تعريف المتغيرات كما في الشكل التالي  

مربع نص: أنواع المتغيرات:
تتيح لنا بيئة التطوير في الفيجوال بيسك اختيار أنواع مختلفة من المتغيرات حسب نوع البيانات المراد تخزينها بصورة مؤقته وسنلقي الضوء على بعضها:
-	Short : يمثل عددا صحيحا قيم صغيرة
-	Integer : يمثل عددا صحيحا قيم متوسطة
-	Long : يمثل عددا صحيحا قيم كبيرة
-	Single : يمثل عددا غير صحيح قيم صغيرة إلى متوسطة
-	Double : يمثل عددا غير صحيح قيم كبيرة
-	Char : يمثل حرفا واحدا فقط 
-	String : يمثل قيم حرفية (اكثر من حرف ككلمة او جملة)

 

 

 

 

 

 

بعد تعريف المتغيرات تلاحظ وجود خطوط حمراء تحت المتغيرات وهذا يدل على ان المشروع ينقصه تعريف المدخلات والمخرجات لهذه المتغيرات وهذا ما سنقوم به في الخطوة التالية كما في الشكل التالي

في التعريف الأول length = Val(txtlength.Text)

مربع نص: تستخدم Val لتحويل القيمة المدخلة في الأداة txtlength إلى قيمة رقمية. سيقوم البرنامج بقراءة محتوى الأداة txtlength وهو الطول ويخزنه في المتغير length وهكذا في باقي التعريفات .

تشفير الشرط IF

شفرة الشرط : عزيزي الطالب نحتاج لشفرة الشرط في مشروع مساحة المستطيل لتنبيه المستخدم عندما يدخل قيمة اقل من الصفر لأنه لا توجد مساحة سالبة ، قبل شرح شفرة الشرط افتح الفيديو

https://youtu.be/eo35Sxe0eP0

تتكون شفرة الشرط من جزئين من جزئيين(الشرط و رسالة التنبيه)-

  • :رسالة التنبيه : وتتكون رسالة التنبيه من ثلاثة أجزاء

  1. نص الرسالة .

  2. نوع الرسالة .

  3. عنوان الرسالة .

  • الشرط IF :

في الشكل التالي يوضح كيفية برمجة شفرة الشرط في الفيجوال بيسيك بالنسبة لمتغير الطول  

مربع نص: Public Class frmMain

    Private Sub cmdcalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcalculate.Click
        Dim length As Integer
        Dim width As Integer
        Dim area As Long
        length = Val(txtlength.Text)
        If (length < 0) Then
            MsgBox("قم بإدخال قيمة موجبة ", MsgBoxStyle.Critical, "خطأ في الادخال")
        Else


            width = Val(txtwidth.Text)
            area = length * width
            txtarea.Text = area
        End If
    End Sub
End Class

 

 

 

 

 

 

 

 

لمزيد من المعلومات حول هذه الشفرة افتح الرابط التالي

http://- http://shifrah.blogspot.com/2013/08/if-then.html

تجربة المشروع

تجربة المشروع : بعدما انجزنا المشروع لابد من اختباره وتجربته وذلك من خلال الضغط على الزر  من شريط الأدوات ، وستظهر لنا نافذة تشغيل المشروع كما في الشكل التالي 

نقوم بإدخال القيم في مربعات النصوص ومن ثم نضغط على الزر لايجاد المساحة وإذا كانت القيمة مدخلة سالبة تظهر لنا رسالة التنبيه

الخاتمة

عزيزي الطالب لقد تعلمت في هذا المحتوى الالكتروني العديد من المهارات الجديدة في التعامل مع لغة الفيجوال بيسيك والتي تتمثل في التحكم بخصائص الأدوات واضافة شفرة لهذه الأدوات وخاصة شفرة الشرط التي تتكون من الشرط ورسالة التنبيه وصرت الآن قادرا على اجتياز الاختبارات العملية والنظرية لهذا الموضوع ،، مع تمنايتي لك بالوفيق والنجاح وإذا اشكل عليك أي شيء تواصل مع معلمك على البريد التالي

Aljabri1979@gmail.com

 

اختبار عملي

الاختبار العملي :

قم بتنزيل المجلد التالي على حاسوبك -

https://drive.google.com/folderview?id=0B-YQxemwaTG1a2lWX1lVTlZSUEk&usp=sharing .

بعد الانتهاء من تعديل المشروع ارفعه على البريد التالي-

Aljabri1979@gmail.com

  قم بالتعديل في الخصائص كما في الجدول ؟

الأداة

الخاصية

التحديد

Form1

Text

مساحة المربع

cmdSquare

Font size

18

Lable1

Text

طول الضلع

Labe2

Text

النتيجة

 

 

 

 

 

 

 أدرج زر جديد يقوم بمسح محتوى صناديق النصوص كما في الجدول التالي .

الخاصية

التحديد

name

Cmddelete

text

مسح

 

 

 

 

 يوجد خمس أخطاء برمجية في البرنامج اكتشفها وقم بتعديلها .

اختبار نظري

عزيزي الطالب بعدما تعلمت عن البرمجة بإستخدام لغة الفيجوال بيسيك ننتقل بك الآن إلى اختبار نظري قصير يقيس مدى استعابك للدرس بالنقر على الرابط التالي

http://my.questbase.com/take.aspx?pin=6991-2364-1540