برنامج Microsoft Visual Basic 2008 يعمل على iPad والهاتف.
يمكن إظهار النوافذ الأساسية Toolbox و Properties و Solution Explorer من قائمة View أو من قائمة Window باختيار الأمر:
- Auto Hide All
- Open Project
- Save All
- Reset Window Layout
صِل كل نافذة بوظيفتها:
- Toolbox = تضاف منها الكائنات للنموذج
- Properties = يتم فيها ضبط خصائص العناصر للكائنات
- Solution Explorer = تظهر فيها نماذج المشروع والوحدات النمطية
لتفعيل خاصية الإخفاء التلقائي لجميع النوافذ نختار من قائمة Window الأمر:
- Reset Window Layout
- Open Project
- Auto Hide All
- Add Module
لفتح مشروع سبق إنشاؤه نختار من قائمة File الأمر:
- New Project
- Open Project
- Save All
- Add Module
صِل كل جزء من صفحة البداية Start Page بوظيفته:
- قائمة المشاريع الأخيرة Recent Projects = تعرض آخر مشاريع تم التعامل معها لفتحها بصورة سريعة
- دعنا نبدأ Getting Started = تعطي معلومات مبسطة عن استخدام البيسك المرئي للمستخدم
- الأخبار News = تظهر فيها أخبار البيسك المرئي وتحدث تلقائيًا أثناء الاتصال بالإنترنت
- الإعلانات Headlines = تظهر روابط إنترنت لرؤوس مواضيع إعلانات البيسك المرئي
من قائمة المشاريع الأخيرة Recent Projects ننشئ مشروعًا جديدًا باختيار:
- Open Project
- Create Project
- Getting Started
- Headlines
رتّب ما يجب تحديده عند التخطيط لأي برنامج:
صِل كل عملية بوصفها:
- المدخلات = البيانات التي يجب أن تدخل للبرنامج للحصول على المخرجات
- المعالجة = العمليات البرمجية التي ستؤثر على البيانات
- المخرجات = المعلومات المطلوب الحصول عليها
لإنشاء مشروع جديد من قائمة File نختار:
- Open Project
- Save All
- New Project
- Auto Hide All
لحفظ المشروع نختار من قائمة File الأمر:
- New Project
- Open Project
- Save All
- Reset Window Layout
عند إغلاق البيسك المرئي أو المشروع بدون حفظ يظهر صندوق حوار. صِل كل زر بوظيفته:
- Save = لإغلاق المشروع مع الحفظ
- Discard = لإغلاق المشروع وعدم الحفظ
- Cancel = لعدم إغلاق المشروع
تتم إضافة الكائنات من خلال شريط الأدوات:
- Toolbox
- Properties
- Solution Explorer
- Output
صِل كل كائن بوصفه:
- Label = تظهر بداخله العناوين
- Button = زر أمر ينفذ تعليمات معينة عند الضغط عليه
- PictureBox = يمكن إضافة أو إدراج صورة بداخله
صِل كل طريقة لتعديل قيمة الخاصية بمثالها في المذكرة:
- الاختيار من القائمة = جعل خاصية RightToLeft للنموذج Form1 من اليمين إلى اليسار
- الضغط على النقاط الثلاث = تعديل حجم الخط للكائن Label1 ليصبح 14
- التحرير بالكتابة = تعديل عنوان الكائن Label1 ليصبح منصة علا التعليمية
يتغير اسم الكائن في أعلى نافذة الخصائص حسب الكائن المحدد.
كل كائنات البرنامج لها نفس الخصائص تمامًا.
صِل كل خاصية بوصفها:
- Name = تحدد اسم الكائن ويستخدم الاسم بالتعليمات البرمجية
- Text = تغيير العنوان للكائن
- Font = تحديد نمط وحجم ونوع الخط
- Anchor = تحدد المكان للكائنات وقت تنفيذ البرنامج
- ForeColor = تحديد اللون الأمامي للكائن
- Image = اختيار الصورة المطلوب إضافتها للكائن PictureBox
- RightToLeft = اتجاه النموذج (من اليمين إلى اليسار أو من اليسار إلى اليمين)
- Size = تحديد الحجم للكائن
- SizeMode = اختيار نمط الصورة المناسب بتعديل الحجم للصورة أو الإطار
الخاصية المستخدمة لتغيير العنوان للكائن هي:
الخاصية المستخدمة لتحديد اللون الأمامي للكائن هي:
صِل كل خيار من خيارات الخاصية SizeMode بوصفه:
- Normal = يظهر جزء من الصورة يناسب حجم الإطار
- StretchImage = يجعل الصورة تتلاءم مع حجم الإطار
- AutoSize = يغير حجم الإطار ليتلاءم مع حجم الصورة
- CenterImage = يظهر جزء من وسط الصورة يناسب حجم الإطار
- Zoom = يجعل الصورة تساوي حجم الإطار مع الحفاظ على تناسب الطول مع العرض
للتعديل في خصائص النموذج Form يتم الضغط على:
- Form1 في أعلى النموذج أو مكان فارغ بالنموذج
- زر الأمر Button1
- الكائن Label1
- الكائن PictureBox1
يمكن تعديل قيمة خاصية معينة لمجموعة من الكائنات معًا إذا كانت الخاصية مشتركة بينهم.
صِل كل منطقة في شاشة كتابة التعليمات البرمجية بوظيفتها:
- أداة إغلاق = إغلاق نافذة محرر التعليمات البرمجية
- اسم النموذج = يظهر اسم النموذج متبوعًا بعلامة *Vb للدلالة على النموذج الحالي
- الكائن = يظهر اسم الكائن الذي يتم كتابة التعليمات له
- قائمة الأحداث = تظهر قائمة بالأحداث
- بداية التعليمات البرمجية = السطر الأول من جميع التعليمات البرمجية للنموذج والكائنات
- نهاية التعليمات البرمجية = السطر الأخير من جميع التعليمات البرمجية للنموذج والكائنات
- منطقة التعليمات البرمجية = منطقة كتابة التعليمات البرمجية
السطر الأول من جميع التعليمات البرمجية للنموذج Form1 هو:
- Public Class Form1
- End Class
- Module Module1
- End Module
السطر الأخير من جميع التعليمات البرمجية للنموذج والكائنات هو:
- End Class
- Public Class Form1
- End Select
- End If
الحدث هو:
- اسم الكائن
- وقت تنفيذ التعليمات البرمجية
- قيمة الخاصية
- مكان في الذاكرة يخزن فيه بيانات
صنّف طريقة كتابة التعليمات حسب الحدث:
- الضغط بأي مكان فارغ بالنموذج مرتين ثم كتابة التعليمات = الحدث Load عند بدء التشغيل
- الضغط على الكائن مرتين ثم كتابة التعليمات = الحدث Click عند الضغط على كائن
التعليمة البرمجية لإنهاء تنفيذ البرنامج عند الضغط على زر إنهاء هي:
- End
- Me.Hide()
- PictureBox1.Hide()
- End Class
التعليمة البرمجية لإخفاء الكائن PictureBox1 عند الضغط على زر إخفاء هي:
- PictureBox1.Show()
- Me.Hide()
- End
- PictureBox1.Hide()
التعليمة البرمجية لتعديل لون الخلفية للنموذج ليصبح أزرق سماوي هي:
- Me.BackColor = Color.Yellow
- Me.ForeColor = Color.Aqua
- Label1.Text = Color.Aqua
- Me.BackColor = Color.Aqua
في التعليمة Me.BackColor = Color.Aqua صِل كل جزء بمعناه:
- Me = تدل على النموذج الحالي
- BackColor = خاصية تحديد لون الخلفية للنموذج
- Color.Aqua = قيمة اللون السماوي
لتعديل لون الخلفية للنموذج ليصبح بلون أصفر عند بدء التشغيل: نضغط مرتين على مكان فارغ داخل النموذج ثم نكتب:
- Me.BackColor = Color.Aqua
- Me.BackColor = Color.Yellow
- Me.ForeColor = Color.Yellow
- Button1.BackColor = Color.Yellow
صِل كل تعليمة برمجية أساسية باستخدامها:
- TimeString = للحصول على الوقت الحالي للحاسوب
- DateString = للحصول على التاريخ الحالي للحاسوب
- End = لإنهاء البرنامج
التعليمة البرمجية لتغيير عنوان Label2 ليعرض الوقت الحالي عند بدء التشغيل:
- Label2.Text= DateString
- Label2.Text= TimeString
- Label2.Text= "TimeString"
- TimeString= Label2.Text
التعليمة البرمجية لتغيير عنوان Label4 ليعرض التاريخ الحالي عند بدء التشغيل:
- Label4.Text= TimeString
- Label4.Text= "DateString"
- DateString= Label4.Text
- Label4.Text= DateString
اختر جميع طرق تنفيذ اختبار البرنامج:
- من قائمة Project أمر Add Module
- الضغط على مفتاح F5
- من قائمة File أمر Save All
- الضغط على أداة التشغيل (المثلث الأخضر) من شريط الأدوات
- من قائمة Debug أمر Start Debugging
تظهر أخطاء التعليمات البرمجية في نافذة أسفل الشاشة تسمى:
- Toolbox
- Properties
- Solution Explorer
- Output
صنّف الخط أسفل التعليمة البرمجية:
- الخط الأخضر = لا يؤثر على صحة التعليمة ويمكن تشغيل البرنامج
- الخط الأزرق = يؤثر على صحة التعليمة ولا يمكن تنفيذ البرنامج
مكان في الذاكرة تُخزن فيه بيانات أثناء تنفيذ البرنامج، له اسم يميزه، ويختلف حجمه حسب نوع البيانات التي ستخزن فيه هو:
صِل كل نوع متغير باستخدامه:
- Byte = تخزين أرقام من 0 - 255
- Integer = تخزين أرقام صحيحة
- Double = تخزين أرقام بفاصلة عشرية
- Date = تخزين التاريخ أو الوقت
- String = تخزين بيانات نصية
- Boolean = تخزين True أو False
صنّف نوع المتغير حسب نوع البيانات:
- Byte = عددية
- Integer = عددية
- Double = عددية
- Date = تاريخ ووقت
- String = حرفي
- Boolean = منطقي
صِل كل نوع متغير بقيمته الافتراضية:
- Date = 1/1/0001
- String = Nothing
- Boolean = False
القيمة الافتراضية للمتغيرات من النوع Integer هي:
نوع المتغير المناسب لتخزين عدد أفراد الأسرة (حسب مثال المذكرة):
نوع المتغير المناسب لتخزين حساب بنكي (حسب مثال المذكرة):
نوع المتغير المناسب لتخزين تاريخ الميلاد:
نوع المتغير المناسب لتخزين (لديه إقامة) نعم أو لا:
نوع المتغير المناسب لتخزين الاسم أو العنوان:
القاعدة الأساسية للإعلان عن المتغيرات هي:
- Const اسم المتغير As نوع المتغير
- Dim اسم المتغير As نوع المتغير
- As اسم المتغير Dim نوع المتغير
- Public نوع المتغير = اسم المتغير
التعليمة البرمجية للإعلان عن متغير باسم grade ونوع البيانات Byte:
- Dim Byte As grade
- Const grade As Byte
- Dim grade As Integer
- Dim grade As Byte
التعليمة البرمجية للإعلان عن متغير باسم st_name ونوع البيانات String:
- Dim st_name As Double
- Dim String As st_name
- st_name = String
- Dim st_name As String
التعليمة البرمجية للإعلان عن متغير باسم salary ونوع البيانات Double:
- Dim salary As Boolean
- Dim salary As Double
- Const salary As Double
- Dim Double As salary
التعليمة البرمجية للإعلان عن متغير باسم df ونوع البيانات Integer:
- Dim df As Integer
- Dim df As Byte
- Dim Integer As df
- df = Integer
التعليمة البرمجية للإعلان عن متغير باسم passed ونوع البيانات Boolean:
- Dim passed As Boolean
- Dim passed As String
- Dim Boolean As passed
- Const passed As Boolean
لا يوجد فرق بكتابة اسم المتغير بأحرف كبيرة أو صغيرة.
يمكن الإعلان عن أكثر من متغير بنفس السطر.
التعليمة الصحيحة للإعلان عن متغيرات x و y و w لها نفس نوع البيانات Double:
- Dim x , y , w As Double
- Dim x As Boolean , y As Byte , w As Double
- Dim x , y , w = Double
- Const x , y , w As Double
التعليمة البرمجية للإعلان عن متغيرات بالأسماء A و B و C ونوع البيانات لها Byte:
- Dim A,B,C As Byte
- Dim A,B,C As Integer
- Dim Byte As A,B,C
- Const A,B,C As Byte
التعليمة البرمجية للإعلان عن متغير st_name من نوع String و grade من نوع Integer:
- Dim st_name As Integer , grade as String
- Dim st_name , grade As String
- Dim st_name As String , grade as Byte
- Dim st_name As String , grade as Integer
يمكن تخصيص قيم للمتغيرات أثناء تصميم البرنامج أو أثناء التنفيذ.
التعليمة البرمجية لتخصيص القيمة 2000 للمتغير x:
- 2000 = x
- x = # 2000 #
- x = 2000
- Dim x As 2000
التعليمة البرمجية لتخصيص القيمة «منصة علا التعليمية» للمتغير y:
- y = منصة علا التعليمية
- y = # منصة علا التعليمية #
- Dim y As منصة علا التعليمية
- y = " منصة علا التعليمية "
التعليمة البرمجية لتخصيص التاريخ 06/26/2026 للمتغير s:
- s = " 06/26/2026 "
- # 06/26/2026 # = s
- Dim s As 06/26/2026
- s = # 06/26/2026 #
صنّف الرمز الذي تكتب داخله القيمة عند تخصيصها للمتغير:
- قيمة متغير نصي String = داخل علامتي التنصيص " "
- قيمة متغير من نوع التاريخ Date = داخل الرمزين # #
- قيمة متغير عددي = تكتب القيمة مباشرة بدون رموز
التعليمة البرمجية للإعلان عن متغير tname على مستوى النموذج ونوع البيانات String (تكتب تحت السطر الأول في شاشة التعليمات):
- Dim tname As Integer
- Const tname As String
- Dim String As tname
- Dim tname As String
للإعلان عن متغير على مستوى النموذج نضغط:
- على زر الأمر Button1 مرتين
- بمكان فارغ مرتين أو على كلمة Form1 ونكتب في شاشة التعليمات تحت السطر الأول
- على Module ونبدأ التعليمة بكلمة Public
- على قائمة Debug ثم Start Debugging
للإعلان عن متغير mark على مستوى الإجراء Button1 ونوع البيانات Byte: نضغط على زر الأمر Button1 مرتين ونكتب:
- Dim mark As Byte
- Public mark As Byte
- Dim mark As String
- Const mark As Byte
لإضافة وحدة نمطية Module للإعلان على مستوى المشروع نختار من قائمة Project الأمر:
- Add Windows Form
- Add User Control
- Save All
- Add Module
التعليمة البرمجية للإعلان عن متغير grade على مستوى المشروع ونوع البيانات Integer (تكتب في Module):
- Public grade As String
- Const grade As Integer
- Public Integer As grade
- Public grade As Integer
صنّف طريقة كتابة تعليمة الإعلان حسب نطاق المتغير أو الثابت:
- الضغط على كائن معين مرتين وكتابة التعليمة = مستوى الإجراء
- الضغط بمكان فارغ مرتين وكتابة التعليمة تحت السطر الأول = مستوى النموذج
- الضغط على Module مرتين وكتابة تعليمة تبدأ بكلمة Public = مستوى المشروع
التعليمة البرمجية لإظهار صندوق الصورة PictureBox1 هي:
- PictureBox1.Hide ()
- Me.Show()
- MsgBox ("PictureBox1")
- PictureBox1.Show ()
التعليمة البرمجية لإظهار رسالة نصية بكلمة Welcome هي:
- Label1.Text = Welcome
- Dim Welcome As String
- MsgBox ("Welcome")
- Me.Show("Welcome")
المعامل المستخدم لربط النصوص كما في التعليمة Label1.Text = " حصلت يا" & st_name & grade هو:
مكان داخل الذاكرة تخزن فيه بيانات لا تتغير قيمته أثناء فترة تنفيذ البرنامج هو:
- المتغير
- الحدث
- الوحدة النمطية
- الثابت
القاعدة الأساسية للإعلان عن الثابت هي:
- Dim اسم الثابت As نوع البيانات
- Const اسم الثابت As نوع البيانات = القيمة
- Public اسم الثابت = نوع البيانات
- Const نوع البيانات As اسم الثابت
اختر جميع التعليمات الصحيحة للإعلان عن ثابت باسم pi وتحديد قيمته 3.14:
- Dim pi As Double
- pi = Const 3.14
- Const pi As Double = 3.14
- Const pi = 3.14
اختر جميع التعليمات الصحيحة للإعلان عن ثابت باسم st_name قيمته «منصة علا التعليمية»:
- Dim st_name As String
- Const st_name As String = "منصة علا التعليمية"
- Const st_name = # منصة علا التعليمية #
- Const st_name = "منصة علا التعليمية"
اختر جميع التعليمات الصحيحة للإعلان عن ثابت باسم d قيمته 1/1/2035:
- Const d = "1/1/2035"
- Const d As Date = # 1/1/2035#
- Const d = # 1/1/2035#
- Dim d As Date
يمكن تعريف الثابت على مستوى (الإجراء - النموذج - المشروع) كما هو الحال في الإعلان عن المتغير.
يتم إضافة Module لتعريف المتغيرات أو الثوابت على مستوى المشروع من Project ثم الأمر Add Module.
تستخدم لتنفيذ تعليمة برمجية إذا تحقق شرط واحد فقط:
- تعليمة Select Case
- تعليمة If ... Then
- تعليمة Dim
- تعليمة Const
قاعدة الصورة الأولى (إذا ... نفذ) هي:
- If Condition Then Statement
- If Condition Then Statement1 else Statement2
- Select Case V_name
- Case Value1
صِل كل عامل مقارنة برمزه:
- لا يساوي = <>
- أقل من = <
- أكبر من = >
رمز عامل المقارنة «يساوي» في كتابة الشرط هو:
رمز عامل المقارنة «أقل من أو يساوي» في كتابة الشرط هو:
رمز عامل المقارنة «أكبر من أو يساوي» في كتابة الشرط هو:
يتم قراءة رمز عامل المقارنة من اليسار إلى اليمين.
التعليمة البرمجية للتحقق إذا كانت قيمة المتغير grade أكبر من أو تساوي 50 إظهار رسالة ناجح:
- If grade > 50 Then MsgBox("ناجح")
- If grade >= 50 Then MsgBox("ناجح")
- If grade <= 50 Then MsgBox("ناجح")
- If grade <> 50 Then MsgBox("ناجح")
التعليمة البرمجية للتحقق إذا كانت قيمة المتغير speed أقل من 20 إظهار رسالة GO:
- If speed > 20 Then MsgBox("GO")
- If speed <= 20 Then MsgBox("GO")
- If speed >= 20 Then MsgBox("GO")
- If speed < 20 Then MsgBox("GO")
التعليمة البرمجية للتحقق إذا كانت قيمة المتغير c لا تساوي 10 إظهار رسالة Try Again:
- If c =10 Then MsgBox("Try Again")
- If c <10 Then MsgBox("Try Again")
- If c >=10 Then MsgBox("Try Again")
- If c <>10 Then MsgBox("Try Again")
التعليمة البرمجية للتحقق إذا كانت قيمة المتغير grade أكبر من 90 إظهار رسالة Excellent:
- If grade > 90 Then MsgBox("Excellent")
- If grade >= 90 Then MsgBox("Excellent")
- If grade < 90 Then MsgBox("Excellent")
- If grade <> 90 Then MsgBox("Excellent")
قاعدة الصورة الثانية (إذا ... نفذ ... وإلا نفذ) هي:
- If Condition Then Statement
- Select Case V_name
- If Condition Then Statement1 else Statement2
- Const V_name = Value
التعليمة البرمجية للتحقق إذا كانت قيمة المتغير grade أكبر من أو تساوي 50 إظهار رسالة ناجح غير ذلك إظهار رسالة راسب:
- If grade >= 50 Then MsgBox ("راسب") Else MsgBox ("ناجح")
- If grade < 50 Then MsgBox ("ناجح") Else MsgBox ("راسب")
- If grade >= 50 Then MsgBox ("ناجح")
- If grade >= 50 Then MsgBox ("ناجح") Else MsgBox ("راسب")
If grade >= 50 Then MsgBox ("ناجح") Else MsgBox ("راسب")
إذا كانت قيمة grade تساوي 40 تكون الرسالة الظاهرة:
- ناجح
- ناجح ثم راسب
- راسب
- لا تظهر رسالة
If grade >= 50 Then MsgBox ("ناجح") Else MsgBox ("راسب")
إذا كانت قيمة grade تساوي 50 تكون الرسالة الظاهرة:
- ناجح
- راسب
- ناجح ثم راسب
- لا تظهر رسالة
الكلمة التي تنتهي بها تعليمة If ... Then ... Else لعدة تعليمات (الصورة الثالثة) هي:
- End If
- End Select
- End Class
- End Module
رتّب أسطر التعليمات للتحقق إذا كانت grade أكبر من أو تساوي 50 إظهار رسالة ناجح ورسالة مبروك غير ذلك إظهار رسالة راسب ورسالة تابع موعد بدء العام الدراسي القادم:
- If grade >= 50 Then
- MsgBox ("ناجح")
- MsgBox ("مبروك")
- Else
- MsgBox ("راسب")
- MsgBox ("تابع موعد بدء العام الدراسي القادم")
- End If
تستخدم في تنفيذ عدة تعليمات برمجية حسب قيمة متغير محدد:
- تعليمة If ... Then
- تعليمة Select Case
- تعليمة Dim
- تعليمة Const
في قاعدة Select Case صِل كل جزء بمعناه:
- V_name = اسم المتغير
- Value1 = القيمة الأولى للمتغير عند تحققها يتم تنفيذ Statements Group1
- Value2 = القيمة الثانية للمتغير عند تحققها يتم تنفيذ Statements Group2
الكلمة التي تنتهي بها تعليمة Select Case هي:
- End If
- End Select
- End Class
- End Case
Select Case grade
Case 0 To 49.9
MsgBox("راسب")
Case 50 To 69.9
MsgBox("مقبول")
Case 70 To 79.9
MsgBox("جيد")
Case 80 To 89.9
MsgBox("جيد جداً")
Case 90 To 100
MsgBox("ممتاز")
End Select
إذا كانت قيمة grade تساوي 75 تكون الرسالة الظاهرة:
Select Case grade
Case 0 To 49.9
MsgBox("راسب")
Case 50 To 69.9
MsgBox("مقبول")
Case 70 To 79.9
MsgBox("جيد")
Case 80 To 89.9
MsgBox("جيد جداً")
Case 90 To 100
MsgBox("ممتاز")
End Select
إذا كانت قيمة grade تساوي 90 تكون الرسالة الظاهرة:
Select Case grade
Case 0 To 49.9
MsgBox("راسب")
Case 50 To 69.9
MsgBox("مقبول")
Case 70 To 79.9
MsgBox("جيد")
Case 80 To 89.9
MsgBox("جيد جداً")
Case 90 To 100
MsgBox("ممتاز")
End Select
إذا كانت قيمة grade تساوي 50 تكون الرسالة الظاهرة:
في تعليمة Select Case لإظهار التقدير جيد للقيم من 70 إلى 79.9 نكتب:
- Case 70 To 79.9
- Case 70 , 79.9
- Case Is < 79.9
- Case 70 And 79.9
في تعليمة Select Case لإظهار رسالة Cool إذا كانت قيمة grade هي 20 أو 40 أو 60 نكتب:
- Case 20 , 40 , 60
- Case 20 To 60
- Case Is < 60
- Case 20 And 40 And 60
في تعليمة Select Case لإظهار رسالة راسب إذا كانت قيمة grade أقل من 50 نكتب:
- Case Is > 50
- Case Is < 50
- Case 0 , 50
- Case < 50 Is
التعليمة البرمجية لتعديل لون الخلفية للنموذج ليصبح بلون أحمر:
- Me.BackColor=color.red
- Me.ForeColor=color.red
- Me.BackColor=color.Aqua
- Label1.Text=color.red
التعليمة البرمجية لإخفاء النموذج الحالي:
- Me.Show()
- Me.Hide()
- PictureBox1.Hide()
- End
التعليمة البرمجية لإظهار النموذج الحالي:
- Me.Hide()
- PictureBox1.Show()
- Me.Show()
- MsgBox("Me")
تعليمة الإعلان عن متغير باسم t لتخزين الاسم من نوع string:
- Dim t As String
- Dim t As Integer
- Const t As String
- Public String As t
تعليمة الإعلان عن متغير باسم s لتخزين أرقام صحيحة Integer:
- Dim s As Double
- Dim s As Integer
- Dim s As String
- Dim Integer As s
تعليمة الإعلان عن متغير باسم w لتخزين أرقام بفاصلة عشرية Double:
- Dim w As Byte
- Dim w As Double
- Dim w As Integer
- Const w As Double
تعليمة الإعلان عن متغير باسم m لتخزين أرقام من 0 إلى 255 Byte:
- Dim m As Byte
- Dim m As Boolean
- Dim m As Date
- Dim m As String
تعليمة الإعلان عن متغير باسم k لتخزين قيمة True أو False:
- Dim k As String
- Dim k As Byte
- Dim k As Boolean
- Dim k As Date
تعليمة الإعلان عن متغير باسم K على مستوى المشروع يستقبل أعداد صحيحة Integer (تكتب في الوحدة النمطية Module):
- Public k As String
- Const k As Integer
- Public k As Integer
- Public k As Double
التعليمة لإضافة درجة للمتغير grade:
- grade = grade + 1
- grade = 1
- grade + 1 = grade
- Dim grade = 1
التعليمة لتخصيص القيمة 3210 للمتغير x:
- 3210=x
- x=3210
- x=#3210#
- Const x As 3210
التعليمة لتخصيص كلمة uula للمتغير y:
- y = uula
- y = # uula #
- y = " uula "
- Dim y As uula
التعليمة لتخصيص التاريخ 06/26/2026 للمتغير d:
- D=" 06/26/2026"
- D=# 06/26/2026#
- # 06/26/2026#=D
- Const D As 06/26/2026
رتّب أسطر التعليمات للتحقق إذا كانت grade أكبر من أو تساوي 50 لإظهار رسالة ناجح ورسالة مبارك غير ذلك إظهار رسالة راسب ورسالة راجع الإدارة:
- If grade >=50 then
- MsgBox("ناجح")
- MsgBox("مبارك")
- Else
- MsgBox("راسب")
- MsgBox("راجع الإدارة")
- End IF
أكمل تعليمات Select Case لإظهار التقدير مقبول إذا كانت قيمة grade هي 50 أو 60:
Select Case grade
...........
End Select
- Case 50 , 60 : MsgBox(" مقبول")
- Case 50 To 60 : MsgBox(" مقبول")
- Case Is < 60 : MsgBox(" مقبول")
- Case 50 And 60 : MsgBox(" مقبول")
التعليمة لإظهار الدرجة التي يحصل عليها المتسابق والمخزنة في المتغير grade في الكائن Label1:
- Label1.Text = grade
- grade = Label1.Text
- Label1.Text = "grade"
- MsgBox(Label1)
الإعلان عن متغير أو ثابت على مستوى المشروع يكون بالضغط على Module مرتين وكتابة التعليمة البرمجية التي يجب أن تبدأ بكلمة Public.