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

يستخدم VBScript نوع بيانات واحد ، متغير ، والذي يسمح لك بتخزين رقم وسلسلة وتاريخ وقيمة منطقية ومرجع كائن ومعلومات أخرى في متغير. يمكنك تحديد نوع محتوى متغير باستخدام مجموعة من الوظائف: VarType ، TypeName ، IsArray ، IsDate ، IsEmpty ، IsNull ، IsNumeric ، IsObject ، والتي سيتم مناقشتها أدناه. يُطلق على نوع المعلومات التي تحتويها أيضًا نوعًا فرعيًا متغيرًا. القائمة الكاملةالأنواع الفرعية موضحة في الجدول التالي:

النوع الفرعي	وصف
فارغة	لم يتم تعيين قيمة للمتغير. عند استخدام متغير غير مهيأ في التعبيرات الرقمية ، سيتم استبدال 0 ، وفي السلاسل - سلسلة فارغة.
باطل	المتغير لا يحتوي على بيانات.
قيمة منطقية	يمكن أن تكون قيمة Boolean صحيحة أو خطأ.
بايت	عدد صحيح في النطاق من 0 إلى 255.
عدد صحيح	عدد صحيح في النطاق -32768 إلى 32767.
عملة	رقم ذو نقطة ثابتة في النطاق -922337203685477.5808 إلى 922337203685477.5807.
طويل	عدد صحيح في النطاق -2 147483648 إلى 2147483647.
غير مرتبطة	رقم النقطة العائمة بدقة واحدة. للقيم السالبة ، النطاق الصالح هو من -3.402823E38 إلى -1.401298E-45. للإيجابية - من 1.401298E-45 إلى 3.402823E38.
مزدوج	رقم النقطة العائمة مزدوج الدقة. للقيم السالبة ، النطاق المقبول هو 79769313486232E308 إلى -4.94065645841247E-324. للإيجابية - من 4.94065645841247E-324 إلى 1.79769313486232E308.
التاريخ (الوقت)	يحتوي على رقم يمثل تاريخًا في النطاق من 1 يناير ، 100 ، إلى 31 ديسمبر ، 9999.
سلسلة	سلسلة من الشخصيات. يبلغ الحد الأقصى للطول 2 مليار حرف.
موضوع	شيء.
خطأ	رقم خاطئ.

اعتمادًا على التعبير الذي يشارك فيه المتغير ، سيتم تحويل محتوياته تلقائيًا إلى النوع المطلوب. ضع في اعتبارك هذا المثال:

الاختبار الفرعي الصريح للخيار VBScript Dim A، B A = 5 B = "12" Application.MessageBox A + B، ""، vbOkOnly End Sub

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

دعونا نغير الماكرو بحيث المتغير أيحتوي أيضًا على الخط:

الخيار الصريح Sub TestVBScript Dim A، B A = "5" B = "12" Application.MessageBox A + B، ""، vbOkOnly End Sub

دعونا نديرها للتنفيذ. ستعرض الشاشة الآن نتيجة الدمج (التسلسل) بين سلسلتين ، وليس مجموع تمثيلاتهما الرقمية:

لتجنب الالتباس مع التحويل التلقائي للنوع ، يوصى باستخدام وظائف التحويل: CBool ​​و CByte و CCur و CDate و CDbl و CInt و CLng و CSng و CStr.

إذا كانت نتيجة التعبير هي بالضبط تسلسل السلاسل ، وليس مجموع تمثيلاتها الرقمية ، فيجب استخدام عامل التشغيل & بدلاً من +.

المتغيرات

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

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

خافت يسار ، يمين ، أعلى ، أسفل

عند التصريح ، ليست هناك حاجة لتحديد نوع البيانات ، لأن جميع المتغيرات من النوع المتغير.

إذا لم يتم تحديد Option Explicit في السطر الأول من نص البرنامج النصي ، فيمكن استخدام المتغيرات بدون تصريح. لكن هذا المسار يمكن أن يؤدي إلى أخطاء يصعب اكتشافها. يكفي ارتكاب خطأ مرة واحدة في تهجئة اسم المتغير في نص البرنامج للحصول على نتيجة غير متوقعة. نوصي دائمًا بتحديد الخيار صريح والإعلان عن المتغيرات.

يجب أن يستوفي اسم المتغير المتطلبات التالية:

1. ابدأ بحرف الأبجدية اللاتينية ؛
2. تتكون فقط من أحرف الأبجدية اللاتينية أو أحرف الأبجدية اللاتينية والأرقام ؛
3. لا تتجاوز 255 حرفًا في الطول ؛
4. كن فريدًا في نطاقك.

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

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

في شجرة المستكشف في نافذة محرر كائنات البرنامج النصي ، يوجد قسم خاص - الثوابت والمتغيرات - للإعلان عن المتغيرات العامة المرئية لجميع وظائف البرنامج النصي للمشروع.

يخصص المترجم ذاكرة للمتغيرات المحلية في وقت الإعلان عنها ويحررها عند الخروج من الإجراء. توجد المتغيرات العامة من لحظة الإعلان عنها وحتى انتهاء البرنامج النصي من تنفيذه. فيما يتعلق بـ Gedymin ، هذا يعني أن المتغيرات العالمية موجودة طوال فترة تنفيذ البرنامج بالكامل.

تخصيص قيمة لمتغير

يتم تعيين قيمة المتغير المصرح به باستخدام عامل التشغيل =. يشار إلى اسم المتغير على يسار العامل ، والقيمة الجديدة يشار إليها على اليمين. على سبيل المثال:

أ = 200 ب = "الاسم"

المتغيرات والمصفوفات العددية

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

شهور خافتة (11)

في VBScript ، يكون الحد الأيسر لفهرس الصفيف دائمًا 0. وبالتالي ، يتم حساب حجم الصفيف على أنه الرقم الموجود بين قوسين زائد واحد. عند تعيين قيمة لعنصر مصفوفة ، يجب تحديد فهرسها بين قوسين:

الشهور (0) = "يناير" الشهور (1) = "فبراير" الشهور (2) = "مارس" ... الشهور (10) = "نوفمبر" الشهور (11) = "ديسمبر"

وبالمثل ، عند الإشارة إلى قيمة عنصر ما ، فإننا نستخدم فهرسه:

اسم الشهر = عدد الأشهر (5)

لا يجب أن تكون المصفوفة أحادية البعد. يسمح لنا VBScript بتحديد ما يصل إلى 60 بُعدًا عند التصريح عن مصفوفة. على سبيل المثال ، ستُنشئ العبارة التالية مصفوفة ثنائية الأبعاد تتكون من 12 صفًا وعمودين:

خفت الشهر: الأيام (11 ، 1)

عند الوصول إلى عناصر مصفوفة متعددة الأبعاد ، يجب تحديد جميع المؤشرات:

MonthDays (0، 0) = "يناير" MonthDays (0، 1) = 31 شهرًا (1، 0) = "فبراير" شهر أيام (1، 1) = 28 ...

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

قبل الاستخدام ، يجب عليك تعيين حجم المصفوفة الديناميكية باستخدام عامل التشغيل ReDim:

ReDim A (25)

أثناء التنفيذ ، يمكنك استدعاء جملة ReDim عدة مرات ، في كل مرة تغير حجم المصفوفة. يحافظ خيار الاحتفاظ على قيم عناصر الصفيف عند تغيير حجمها. على سبيل المثال ، ستعمل الكود التالي على زيادة المصفوفة أعلاه بمقدار خمسة عناصر ، مع ترك العناصر الموجودة كما هي:

ReDim Preserve A (30)

تذكر أنه عندما تقوم بتقليل حجم المصفوفة ، ستفقد قيم العناصر المحذوفة بلا رجعة. باستخدام عبارة Erase ، يمكنك مسح عناصر مصفوفة ثابتة أو تحرير الذاكرة التي تشغلها مصفوفة ديناميكية.

Dim A ReDim A (25) ... محو أ

الثوابت

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

Const CountryName = "بيلاروسيا" Const CountryCode = 375

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

في شجرة المستكشف في نافذة محرر كائنات البرنامج النصي ، يوجد قسم خاص - الثوابت والمتغيرات - لإعلان الثوابت العامة مرئية لجميع وظائف البرنامج النصي للمشروع.

يتم وضع القيم الثابتة للسلسلة بين علامتي اقتباس مزدوجتين.

يجب أن تكون قيم نوع التاريخ محاطة بعلامات الجنيه (#) واستخدام تنسيق الشهر / اليوم / السنة في الولايات المتحدة. على سبيل المثال:

يوم الاستقلال العام Const = # 03/25/1918 #

لتجنب الخلط بين الثوابت والمتغيرات ، يوصى باستخدام بادئة واحدة لجميع الثوابت ، على سبيل المثال "con" ، أو كتابة اسم ثابت بأحرف كبيرة.

لتسهيل عمل المبرمج ، يحتوي VBScript على مجموعة من الثوابت المحددة مسبقًا.

العاملين

تنقسم عوامل تشغيل VBScript إلى خمس فئات: الحساب والمقارنة والدمج والمنطقية والتعيين.

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

المشغل أو العامل	مثال على الاستخدام	وصف
^	عدد ^ الأس	رفع الرقم إلى الأس. يمكن أن يكون الرقم أقل من الصفر فقط في حالة وجود درجة صحيحة. إذا كان أحد المعاملات هو Null ، فسيتم تقييم التعبير بأكمله إلى Null. إذا تم تنفيذ عدة أسية متتالية ، يتم حساب النتيجة من اليسار إلى اليمين.
*	number1 * number2	حاصل ضرب عددين. إذا كان المعامل فارغًا ، فيُفترض أنه صفر. إذا كان أحد المعاملات على الأقل هو Null ، فسيتم تقييم التعبير بأكمله إلى Null.
/	number1 / number2	القسمة الحقيقية لرقمين. بالنسبة للمعاملات ، فإن القواعد تشبه عامل الضرب.
\	number1 \ number2	تقسيم صحيح. يتم تحويل كلا المعاملين إلى نوع Byte أو Integer أو Long قبل أن يتم تقييمها. خلاف ذلك ، تنطبق نفس القواعد المطبقة على عامل القسمة.
عصري	number1 Mod number2	ما تبقى من قسمة عدد صحيح. صب المعاملات إلى عدد صحيح ، وكذلك قواعد التعامل مع فارغ و Null ، كما هو الحال في القسمة الصحيحة.
+	التعبير 1 + التعبير 2	إذا كان كلا المعاملين أرقامًا ، تكون النتيجة مجموعهما الحسابي. إذا كان كلا المعاملين عبارة عن سلاسل - تسلسل (تسلسل) من سلسلتين. إذا كان أحد المعاملين عبارة عن رقم والآخر عبارة عن سلسلة ، فسيتم تحويل معامل السلسلة إلى رقم وإضافته إلى المعامل الرقمي. إذا كان أحد المعاملات على الأقل هو Null ، فسيتم تقييم التعبير بأكمله إلى Null. إذا كان كلا المعاملين فارغين ، فإن النتيجة هي قيمة عدد صحيح من 0. إذا كان عامل واحد فقط فارغ ، يتم إرجاع قيمة المعامل الثاني كنتيجة.
-	number1 - number2 أو - رقم	في الحالة الأولى ، تُرجع الفرق بين رقمين. في الثانية ، فإنه يعكس علامة الرقم. قواعد معاملات Null و Empty هي نفسها لقواعد عامل الضرب.

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

تنسيق عامل المقارنة:

النتيجة = التعبير 1 مقارنة التعبير 2

حيث يتم استخدام عوامل المقارنة التالية:< (меньше), <= (меньше или равно), >(أكبر من) ،> = (أكبر أو يساوي) ، = (يساوي) ،<>(غير متساوي).

اعتمادًا على أنواع وقيم المعاملات ، يتم إجراء المقارنة على النحو التالي:

لو	الذي - التي
كلا المعاملين عبارة عن أرقام.	يقارن رقمين.
كلا المعاملين عبارة عن سلسلة.	يتم إجراء مقارنة بين سلسلتين.
أحد المعاملين عبارة عن رقم والثاني عبارة عن سلسلة.	يتم تحويل معامل السلسلة إلى رقم ويتم إجراء مقارنة بين الرقمين.
أحد المعاملين فارغ والآخر عبارة عن رقم.	يُفترض أن يكون المعامل الذي يحتوي على قيمة فارغة هو 0.
أحد المعاملين فارغ ، والثاني عبارة عن سلسلة.	من المفترض أن يكون المعامل ذو القيمة فارغ هو السلسلة الفارغة "". يتم إجراء مقارنة بين سلسلتين.
كلا المعاملين فارغين.	تعتبر المعاملات متساوية.
واحد على الأقل من المعاملات هو Null.	كانت النتيجة لاغية.

يتم استخدام عامل التشغيل الخاص لمقارنة متغيرين للكائنين وإرجاع True إذا كان كلا المتغيرين يشيران إلى نفس مثيل الكائن.

مشغلي التسلسل

النتيجة = تعبير 1 & تعبير 2

إذا لم يكن المعامل سلسلة ، يتم تحويله إلى نوع سلسلة. إذا كان كلا المعاملين Null ، فإن النتيجة أيضًا هي Null ، ولكن على عكس العوامل الأخرى ، إذا كان معامل واحد فقط هو Null ، فمن المفترض أن يكون سلسلة فارغة. يتم أيضًا معاملة المعامل بالقيمة فارغة كسلسلة فارغة "".

العوامل المنطقية

يوفر لنا VBScript العوامل المنطقية التالية:

1. استبعاد منطقي (Xor) ؛
2. المعادل المنطقي (Eqv) ؛
3. التضمين المنطقي (عفريت).

يمكن استخدام التعبيرات المنطقية أو القيم الرقمية كمعامِلات للعوامل المنطقية. في الحالة الأولى ، ستكون النتيجة ثابتًا منطقيًا ، في الحالة الثانية - رقم. اعتمادًا على عامل التشغيل ، يمكن أن يؤدي تغذية قيمة فارغة واحدة أو قيمتين إلى الإدخال إلى نتيجة خالية. عامل التشغيل Not أحادي ويعيد النفي المنطقي للتعبير. لا ينفذ عامل التشغيل انعكاس أحادي المعامل على معامل رقمي. باقي العوامل المنطقية ثنائية. يوضح الجدول أدناه نتائج تنفيذ كل من المشغلين اعتمادًا على قيمة المعاملين Exp1 و Exp2:

إكسب 1	إكسب 2	و	أو	Xor	مكافئ	عفريت
حقيقي	حقيقي	حقيقي	حقيقي	خاطئة	حقيقي	حقيقي
حقيقي	خاطئة	خاطئة	حقيقي	حقيقي	خاطئة	خاطئة
خاطئة	حقيقي	خاطئة	حقيقي	حقيقي	خاطئة	حقيقي
خاطئة	خاطئة	خاطئة	خاطئة	خاطئة	حقيقي	حقيقي
حقيقي	باطل	باطل	حقيقي	باطل	باطل	باطل
خاطئة	باطل	خاطئة	باطل	باطل	باطل	حقيقي
باطل	حقيقي	باطل	حقيقي	باطل	باطل	حقيقي
باطل	خاطئة	خاطئة	باطل	باطل	باطل	باطل
باطل	باطل	باطل	باطل	باطل	باطل	باطل

في الحياة ، غالبًا ما يتم استخدام عوامل التشغيل And و Or ، وفي كثير من الأحيان أقل - Xor. لم نضطر للتعامل مع الاستخدام العملي لمشغلي Eqv و Imp. إذا كان من الصعب عليك التعامل مع الجدول أعلاه ، فإننا نلخص تأثير هذه العوامل:

• ويكون صحيحًا فقط إذا كان كلا المعاملين صحيحًا. في أي حالة أخرى ، فهي إما خطأ أو لاغية.
• أو يكون صحيحًا إذا كان أحد المعاملات على الأقل صحيحًا.
• تكون Xor صحيحة إذا كانت قيم المعاملات مختلفة و False إذا كانت متطابقة.

عند تنفيذ أحادي المعامل على المعاملات الرقمية ، يتم تحديد نتيجة العامل المنطقي من الجدول التالي:

إكسب 1	إكسب 2	و	أو	Xor	مكافئ	عفريت
0	0	0	0	0	1	1
0	1	0	1	1	0	1
1	0	0	1	1	0	0
1	1	1	1	0	1	1

مهمة تشغيل

تم وصف عامل التعيين (=) بالتفصيل في قسم "المتغيرات".

أمر المشغل

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

في التعبير الذي يحتوي على عوامل تشغيل من فئات مختلفة ، يتم إجراء العمليات الحسابية أولاً ، ثم عوامل المقارنة ، وأخيرًا العوامل المنطقية. جميع عوامل المقارنة لها نفس الأسبقية ويتم تقييمها من اليسار إلى اليمين. يتم تقييم العمليات الحسابية والمنطقية بالترتيب التالي:

1. الأُس (^) ؛
2. تغيير علامة الرقم ، أحادي ناقص (-) ؛
3. الضرب والقسمة (/)؛
4. تقسيم صحيح (\)؛
5. باقي القسمة الصحيحة (Mod) ؛
6. الجمع (+) والطرح (-) ؛
7. دمج السلاسل (&).

إذا حدث الضرب والقسمة بنفس التعبير ، فسيتم تنفيذ العمليات بترتيب من اليسار إلى اليمين. تنطبق قاعدة مماثلة في حالة التواجد المتزامن لعمليات الجمع والطرح.

عامل تشغيل سلسلة السلسلة (&) ليس حسابيًا ويتم منحه الأولوية بين العمليات الحسابية وعوامل المقارنة.

تسلسل العمليات المنطقية كما يلي:

1. النفي المنطقي ، الانقلاب (لا) ؛
2. الضرب المنطقي ، والاقتران (و) ؛
3. إضافة منطقية ، فصل (أو) ؛
4. استبعاد منطقي (Xor) ؛
5. المعادل المنطقي (Eqv) ؛
6. التضمين المنطقي (عفريت).

التعبيرات الشرطية

تستخدم التعبيرات الشرطية للتحكم في ترتيب تنفيذ أوامر البرنامج وتسمح لك بتنظيم الانتقالات (الفروع) وتكرار الأوامر. عادةً ما يتم استخدام عوامل المقارنة بالاقتران مع التعبيرات الشرطية.

التعبير إذا .. ثم .. آخر

تعبير الفرع الشرطي إذا كان يسمح لك بتنفيذ مجموعة أو أخرى من الأوامر بناءً على النتيجة تعبير منطقيأو قيمة المتغير المنطقي.

لتنفيذ أمر واحد عند استيفاء شرط معين ، يتم استخدام صيغة التعبير المكون من سطر واحد:

Dim S If DatePart ("w"، Now) = vbMonday ثم S = "Monday" Application.MessageBox S، ""، vbOkOnly

لاحظ أنه تم حذف قسم Else في هذه الحالة. لتنفيذ مجموعة من العبارات ، قم بتضمينها بين الكلمتين الأساسيتين بعد ذلك و End If.

Dim S If DatePart ("w"، Now) = vbMonday ثم S = "اليوم هو الإثنين" Application.MessageBox S، ""، vbOkOnly End If

إذا ، عند استيفاء الشرط ، يلزم تنفيذ رمز واحد ، وإذا لم يتم استيفاء الشرط ، فإن آخر ، يتم استخدام صيغة التعبير مع قسم Else:

Dim S If DatePart ("w"، Now) = vbMonday ثم S = "اليوم هو الإثنين" Else S = "اليوم ليس يوم الإثنين" End If Application.MessageBox S، ""، vbOkOnly

إذا كنت بحاجة للاختيار من بين عدة بدائل ، فإن بناء الجملة باستخدام ElseIf سيكون مناسبًا:

Dim S، DD = DatePart ("w"، Now) إذا كان D = vbMonday ثم S = "الاثنين" ElseIf D = vbTuesday ثم S = "الثلاثاء" ElseIf D = vbWednesday ثم S = "الأربعاء" ... إنهاء إذا كان التطبيق. MessageBox S ، "" ، vbOkOkOnly

إذا كان من الممكن دمج عبارات:

Dim S، DD = DatePart ("w"، Now) إذا كان D = vbMonday ثم S = "Monday" Else If D = vbTuesday ثم S = "الثلاثاء" وإلا إذا D = vbWednesday ثم S = "الأربعاء" آخر ... النهاية إذا انتهى إذا انتهى إذا

على الرغم من أن عدد أقسام ElseIf في التعبير الشرطي غير محدود ، إلا أن استخدامها المكثف يمكن أن يؤدي إلى تعليمات برمجية مربكة وغير قابلة للقراءة. في حالة اختيار بديل واحد من بين مجموعة متنوعة من البدائل الممكنة ، اعتمادًا على قيمة بعض المحددات ، يوصى باستخدام تعبير Select Case.

حدد .. حالة التعبير

دعنا نعيد كتابة مثال يوم من الأسبوع باستخدام تعبير التحديد:

Dim S حدد حالة DatePart ("w"، Now) Case vbMonday S = "Monday" Case vbTuesday S = "Tuesday" Case vbWednesday S = "Wednesday" ... Case Else Err.Raise 32000، ""، "يوم غير معروف من الأسبوع "End Select

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

مشغلي الحلقة

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

عامل التشغيل .. حلقة

يهدف عامل التشغيل هذا إلى تنفيذ مجموعة من الأوامر حتى يصبح شرط معين صحيحًا أو حتى يصبح صحيحًا. يمكن التحقق من الحالة كما في بداية الدورة:

قم بإجراء [(أثناء | حتى) الشرط] التكرار

وفي نهاية:

Do Loop [(while | until) condition]

يمكن أن يظهر الأمر Exit Do عددًا غير محدود من المرات في جسم الحلقة. يتم استخدامه عادةً مع If .. ثم التعبير الشرطي ويسمح لك بنقل التحكم إلى العبارة التي تلي الحلقة مباشرة. عند استخدام Exit Do داخل حلقة متداخلة ، سيتدفق التحكم إلى الحلقة الخارجية.

الكود التالي يحل محل النرد:

Dim Resp، Num Do Num = Int (6 * Rnd + 1) Resp = Application.MessageBox (Num & "another number؟"، ""، _ VbYesNo or vbQuestion) Loop حتى Resp = vbNo

بينما .. وين

إنها نسخة مبتورة من عامل التشغيل Do ..Loop ويسمح لك بتنفيذ مجموعة من الأوامر عندما يكون الشرط صحيحًا. صيغة المشغل:

بينما الشرط وند

لاحظ أن Exit Do ليس له أي تأثير داخل هذه الحلقة. بينما .. يمكن أن تكون حلقات الويند متداخلة.

ل .. التالي

تكرر هذه الحلقة مجموعة محددة من الأوامر لعدد محدد من المرات. صيغة المشغل هي:

للعداد = ابدأ حتى النهاية التالي

قبل أن تبدأ الحلقة ، يتم ضبط متغير العداد على البدء. بعد ذلك ، يتم التحقق من استيفاء شرط العداد<= end, при step >= 0 ، أو العداد> = النهاية ، إذا كانت الخطوة سالبة. بعد تنفيذ كتلة الأوامر ، يتم زيادة العداد المتغير بقيمة الخطوة ويتكرر كل شيء من البداية.

لا يُحظر تغيير العداد في نص الحلقة ، ولكن لا يُنصح به بشدة ، لأنه يعقد فهم منطق البرنامج وتصحيحه.

يمكن أن يظهر Exit For في أي عدد من المرات في جسم الحلقة. يمكن أن تتداخل الحلقات. على سبيل المثال ، حلقة مثل هذه تهيئ مصفوفة ثلاثية الأبعاد:

Dim A (9، 9، 9) Dim I، J، K For I = 0 To 9 For J = 0 To 9 For K = 0 To 9 A (I، J، K) = 1 التالي التالي التالي

لكل ..

تكرر جملة For Every..Next loop مجموعة محددة من الأوامر لكل عنصر في مصفوفة أو مجموعة ولها الصيغة التالية:

لكل عنصر في المجموعة التالية

يتم تنفيذ الحلقة إذا كان هناك عنصر واحد على الأقل في المصفوفة أو المجموعة. يمكن أن يظهر Exit For في أي عدد من المرات في جسم الحلقة.

دعنا نوضح استخدام For Each .. بعد ذلك بالرمز التالي ، الذي يعرض قائمة بالملفات من الدليل الجذر لمحرك الأقراص c: \

Dim fso، f، f1، fc، s Set fso = CreateObject ("Scripting.FileSystemObject") تعيين f = fso.GetFolder ("c: \") تعيين fc = f.Files لكل f1 في fc s = s & f1 .name & vbNewLine Next Application.MessageBox s ، "الملفات على c: \" ، vbOkOnly

إجراءات

لحفظ الذاكرة وهيكل البرنامج ، يمكن تنسيق جزء من التعليمات البرمجية التي يتم استدعاؤها بشكل متكرر في أماكن مختلفة كإجراء. هناك نوعان من الإجراءات في VBScript: Subs and Functions. الروتين الفرعي هو سلسلة من العبارات محاطة بالكلمات الرئيسية Sub و End Sub. يمكن أن يقبل الروتين الفرعي المعلمات كمدخلات ، لكنه لا يُرجع قيمة. دالة - سلسلة من العبارات المحاطة بين دالة ووظيفة نهاية - ترجع نتيجة ويمكن بالتالي استخدامها في تعبير. يجب أن يكون لكل إجراء اسم فريد داخل الوحدة النمطية. يجب أن تكون أسماء الإجراءات المعلنة في الوحدة العالمية فريدة من نوعها في جميع أنحاء المشروع.

تعريف روتين فرعي ودالة لهما الصيغة التالية:

| خاص] الاسم الفرعي [(arglist)] End Sub | خاص] اسم الوظيفة [(arglist)] وظيفة النهاية

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

تحتوي قائمة المعلمات على البنية التالية:

Varname [، ...]

يمكن تمرير المعلمات بالقيمة (ByVal) أو حسب المرجع (ByRef). بشكل افتراضي ، يتم تمرير جميع المعلمات بالقيمة. الثوابت ، يمكن تمرير نتائج تقييم التعبيرات بالقيمة فقط. سيؤدي تغيير المعلمة التي تم تمريرها من خلال المرجع إلى تغيير قيمة المتغير الخارجي. دعونا نشرح نقل المعلمات إلى الإجراء باستخدام المثال التالي:

حساب DoCalculation الفرعي (ByRef A ، ByVal B ، ByVal C) A = C * 2 B = C / 2 End Sub Sub TestVar Dim V1، V2 V1 = 1 V2 = 2 DoCalculation V1، V2، 10 "بعد إجراء DoCalculation" V1 = 20 "V2 = 2 End Sub

المتغيرات المعلنة داخل نص الإجراء محلية ويتم إتلافها عند اكتمال تنفيذه. لا يتم حفظ قيم المتغيرات المحلية.

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

استدعاء DoCalculation (V1، V2، 10)

نفذ التعبير

فئات VBScript

يتيح لك VBScript إنشاء فئات جديدة ، والتي سنسميها فئات VB فيما يلي. بشكل عام ، فهي ليست فئات كاملة في فهم البرمجة الشيئية ، لأنها لا تدعم الوراثة ، وبالتالي تعدد الأشكال. لذلك ، من بين الحيتان الثلاثة التي يعتمد عليها النموذج الموجه للكائنات ، يبقى التغليف فقط - القدرة على دمج البيانات والأساليب داخل كيان واحد.

يتم تعريف الفصل باستخدام البناء التالي:

بيانات اسم الفئة نهاية الفئة

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

يمكن إعلان أعضاء الفصل على أنهم خاصون أو عامون. الأول مرئي فقط داخل الكود الخاص بهذه الفئة ، بينما الأخير متاح لكل من الكود الداخلي والخارجي. إذا كان المتغير أو الوظيفة (الإجراء) لا يحتويان على تعريف صريح لـ "عام" أو "خاص" ، فإنه يتم اعتبارهما عامين. الإجراءات أو الوظائف المعلنة على أنها عامة داخل كتلة فئة تصبح طرقًا لهذه الفئة.

المتغيرات التي تم الإعلان عنها كعامة تصبح خصائص فئة إلى جانب الخصائص التي تم الإعلان عنها مباشرةً باستخدام بنيات الحصول على الملكية ، و Property Let ، و Property Set.

تحديد خصائص الطبقة

أعلاه ، قلنا بالفعل أن حقول الطبقة ، سواء تم الإعلان عنها صراحةً أم لا صراحةً كعامة ، تصبح خصائصها. بالإضافة إلى ذلك ، يمكنك إنشاء خاصية فئة عن طريق تحديد وظائف خاصة لقراءة قيمة الخاصية (الحصول على الخاصية) ، وكذلك لتخصيصها (Property Let أو Property Set).

بناء الجملة لتعريف هذه الوظائف هو كما يلي:

| خاص] الحصول على اسم خاصية [(arglist)] [name = تعبير] [name = تعبير] خاصية إنهاء اسم (قيمة) اسم مجموعة خاصية نهاية ملكية (مرجع) خاصية النهاية

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

إنشاء وإتلاف مثيل لفئة VB

يتم إنشاء مثيل لفئة VB باستخدام عامل التشغيل الجديد.

خافت X مجموعة X = اسم فئة جديد

يحدث تدمير مثيل تم إنشاؤه مسبقًا تلقائيًا عند اكتمال كتلة التعليمات البرمجية حيث تم الإعلان عن المتغير المقابل بشرط عدم وجود مراجع خارجية له. إذا كنت بحاجة إلى إتلاف المثيل يدويًا ، فيجب عليك تعيين قيمة Nothing إلى المتغير.

إعلان متغير وإنشاء مثيل للفئة Dim X Set X = New classname ... 'باستخدام مثيل للفئة ...' تدمير مثيل للفئة Set X = Notning ...

تهيئة الأحداث وإنهائها

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

Class TestClass "تعريف معالج الحدث تهيئة. Private Sub Class_Initialize MsgBox (" TestClass بدأ ") End Sub" تعريف معالج الحدث Terminate. فئة فرعية خاصة Class_Terminate MsgBox ("تم إنهاء TestClass") End Sub End Class "إنشاء مثيل لفئة TestClass." الرسالة "TestClass بدأ" Set X = New TestClass "تدمير المثيل." الرسالة "تم إنهاء TestClass" Set X = لا شيئ

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

دالة MsgBox

الوظيفة الأكثر شيوعًا لعرض الرسالة. بالطبع هو أصعب من صدى الكائن WScript، لكنها لا تحتاج إلى شيء أيضًا.
بناء الجملة: MsgBox (موجه [، أزرار] [، العنوان] [، ملف التعليمات ، السياق])

• مستعجل- رسالة نصية.
• أزرار- أزرار الإخراج ووضع النافذة.
• عنوان- اسم النافذة.
• ملف المساعدة- ملف المساعدة (* .hlp)
• مفهوم- رقم قسم المساعدة.

معامل أزراريمكن أن تأخذ عدة قيم في نفس الوقت. للإشارة إليها ، استخدم علامة "+" أو ببساطة استخدم مجموع القيم. قيم هذه المعلمة موضحة أدناه.

ثوابت مربع الحوار (أزرار الإخراج):

• vbOKOKOnly- القيمة 0. اعرض الزر "موافق".
• vbOK إلغاء- القيمة 1. أزرار العرض: موافق وإلغاء.
• vbAbortRetryIgnore- القيمة 2. أزرار العرض: إحباط ، كرر وتخطي.
• vb نعملا إلغاء- القيمة 3. إظهار الأزرار: نعم ، لا وإلغاء.
• vb نعم- القيمة 4. أزرار العرض: نعم ولا.
• vbRetryCancel- القيمة 5. أزرار العرض: إعادة وإلغاء.

ثوابت مربع الحوار (رموز قابلة للعرض):

• vbCritical- القيمة 16. اعرض أيقونة علامة الإيقاف.
• vbQuestion- القيمة 32. اعرض أيقونة علامة الاستفهام.
• تعقيب- القيمة 48. اعرض أيقونة علامة التعجب.
• معلومات- القيمة 64. اعرض أيقونة علامة المعلومات.

ثوابت مربع الحوار (الأزرار الافتراضية):

• vbDefaultButton1- القيمة 0. يتم تحديد الزر الأول افتراضيًا.
• vbDefaultButton2- القيمة 256. يتم تحديد الزر الثاني افتراضيًا.
• vbDefaultButton3- القيمة 512. يتم تحديد الزر الثالث افتراضيًا.
• vbDefaultButton4- القيمة 768. يتم تحديد الزر الرابع افتراضيًا.

ثوابت مربع الحوار (وضع النافذة):

• vbApplicationModal- القيمة 0. معروضة في الوضع الشرطي.
• vbSystemModal- القيمة 4096. يتم عرضها في الوضع النمطي ويتم وضعها فوق جميع التطبيقات.

آخر:

• القيمة 262144- فوق كل النوافذ.
• القيمة 524288- يتم عرض النص في النافذة على الحافة اليمنى.

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

"VBScript الدرس رقم 16:" Function MsgBox and InputBox "file_1.vbs" ********************************** * ********************** MsgBox "Hello"، 5 + 16، "Title" MsgBox "Hello"، vbRetryCancel + 16، "Title" MsgBox "Hello" ، vbRetryCancel + 524288، "Title" MsgBox "Hello"، vbAbortRetryIgnore + vbInformation + vbDefaultButton2 + vbSystemModal + 524288، "Title" MsgBox "Hello"، 528706، "Title"

"******************************************************** الدرس رقم 16 لـ VBScript: "دالة MsgBox و InputBox "file_1.vbs "******************************************************** MsgBox "Hello"، 5 + 16، "Title" MsgBox "Hello" ، vbRetryCancel + 16 ، "Title" MsgBox "Hello" ، vbRetryCancel + 524288 ، "Title" MsgBox "Hello" ، vbAbortRetryIgnore + vbInformation + vbDefaultButton2 + vbSystemModal + 524288 ، "العنوان" MsgBox "Hello"، 528706، "Title"

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

النتيجة المعادة للأزرار المضغوطة (الثوابت):

• vbOK- القيمة 1. زر موافق.
• vbCancel- القيمة 2. زر إلغاء.
• vbAbort- القيمة 3. إحباط الزر.
• vbRetry- القيمة 4. زر تكرار.
• vb تجاهل- القيمة 5. زر تخطي.
• vb نعم- القيمة 6. زر نعم.
• vb- القيمة 7. رقم الزر

"************************************************** * ****** "VBScript الدرس رقم 16:" Function MsgBox و InputBox "file_2.vbs" ***************************** ******************************** Dim Knopka Knopka = MsgBox ("اضغط على أي زر" ، 2 ، "العنوان") إذا كان Knopka = 3 ثم MsgBox "قمت بالضغط على الزر - إحباط" ElseIf Knopka = 4 ثم MsgBox "قمت بالضغط على الزر - كرر" Else MsgBox "قمت بالضغط على الزر - تخطي" End If

"************************************************** * ****** "VBScript Lesson # 16:" Function MsgBox and InputBox "file_4.vbs" ***************************** * ******************************* Dim Dict ، AboutBomb Set Dict = CreateObject ("Scripting.Dictionary") Dict.CompareMode = 1 Dict . أضف "أصفر" ، "انفجرت القنبلة!" ألديك. أضف "أحمر" ، "لقد أبطلت مفعول القنبلة!" Dict. أضف "أزرق" ، "انفجرت القنبلة!" Dict. أضف "أخضر" ، "انفجرت القنبلة! ! "AboutBomb = InputBox (" تم اكتشاف قنبلة !!! أي سلك يجب قطعه: أصفر ، أحمر ، أزرق أو أخضر ؟؟ "،" تم اكتشاف قنبلة !!! "،" أدخل لون السلك هنا ... ") إذا كان Dict. موجودًا (AboutBomb) ثم MsgBox Dict.Item (AboutBomb) وإلا MsgBox "بصرك سيء! لا يوجد مثل هذا السلك! القنبلة انفجرت !!! "انتهى إذا

"********************************************************

استمرار

برنامج Visual Basic

لماذا تحتاج البرامج النصية VBS

يعد برنامج VBS النصي حلاً فعالاً لأتمتة إجراءات المستخدم على أنظمة Windows. يستخدم هذا النوع من البرمجة النصية بشكل شائع في:

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

بشكل أساسي ، تُستخدم البرامج النصية لـ VBS لمعالجة البيانات وإدارة النظام والعمل مع حسابات المستخدم والكمبيوتر والتفاعل معها تطبيقات المكاتب، والعمل مع قواعد البيانات والمهام المعقدة الأخرى.

أحكام أساسية

اعتمادًا على لغة البرنامج النصي والمحتوى والتشفير ، توجد أنواع البرامج النصية التالية:

• vbs - البصرية الأساسيةالنصي
• vbe - سيناريو Visual Basic المشفر
• شبيبة - جافا سكريبت
• jse - تشفير جافا سكريبت
• wsh - إعدادات البرنامج النصي
• wsf - برنامج نصي متكامل مع XML

في هذه المقالة ، سأبحث في نصوص مثل vbs.

عادةً ما يتم تحرير البرامج النصية في Windows Notepad ، لكنني أوصي باستخدام Notepad2 ، الذي يبرز الكلمات الأساسية لـ Visual Basic ويساعد في تنسيق نص البرنامج النصي. لذلك ، فإن البرنامج النصي vbs هو ملف نصي عادي اسمه * .VBS ، والذي يمكن تحريره بسهولة في المفكرة ، ويتم تشغيله للتنفيذ عن طريق النقر المزدوج أو الاتصال بالاسم في وحدة التحكم.

كما هو موضح أعلاه ، لا يتم تجميع النصوص ، ولكن يتم تفسيرها. بمعنى ، لمعالجة البرنامج النصي ، يجب أن يكون لدى النظام مترجم للغة VBS ، وهناك حتى اثنان من هؤلاء المترجمين الفوريين في Windows: WScript المزود بنوافذ ووحدة التحكم CScript - كلا المترجمين الفوريين هما Windows Script Host (WSH).

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

CScript // H: CScript

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

CScript // H: WScript

تعمل القواعد التالية في Visual Basic:

• طول الخط غير محدود ؛
• لم يتم النظر في القضية ؛
• لا يتم حساب عدد المسافات بين المعلمات ؛
• يمكن كسر سطر الأوامر ، ويجب إدخال الرمز "_" في مكان الفاصل ؛
• الحد الأقصى لطول اسم المتغير 255 حرفًا ؛
• تتم الإشارة إلى التعليقات برمز "" ".

"=== رأس معلومات البرنامج النصي ===" اسم البرنامج النصي: "اسم البرنامج النصي ؛" التاريخ: "تاريخ التعديل ؛" المؤلف: "المؤلف ؛" الوصف: "الوصف ؛" === كتلة التهيئة === توجيه الخيار الصريح " النهي الخلق التلقائي"المتغيرات ؛ خافت "إعلان متغير ؛ خافت () "إعلان المصفوفات ؛ تعيين