دروس كمبيوتر وصيانة دروس حاسب دروس مجلة  درس نيوك phpnuke الدروس دروس مسنجر MSN - yahoo - Gmail دروس منتديات vBulletin دروس الجوالات والهواتف دروس السي بنل cpanel دروس اكسس access دروس بيونت شوب برو - point shop pro دروس برمجة php - mysql دروس برامج منوعة software دروس ثري دي ماكس 3D max دروس جافا سكريبت JavaScript دروس دريم ويفر DreamWeaver دروس شبكات Networks دروس سويش - swish دروس فلاش - flash دروس فيجوال بيسك Visual Basic دروس فرونت بيج - frontpage دروس فوتوشوب photoshop دروس هكر hacker crack virus
سلسلة تعلم VBScript – الجزء الثاني - مفاهيم اللغة. - دروس تطوير المواقع والمنتديات
عقارية المدينة ينتهي في 12\12\1429 هـ عطري الخاص احدث و اجود و افضل و اروع العطورات الفرنسية 23\12\1429 هـ موقع حلم قمر ينتهي في 26-11-1429هـ
شرفات الورد ينتهي في 17\11\1429 هـ حراج سيارات شراء استبدال بيع جديدة و مستعملة جميع أنواع السيارات ينتهي في 12\5\1430 هـ الحمادين ينتهي في 8\10\1429 هـ
خزامى نجد محاورة شعر شعبي ادب لقاءات ديوان الشعراء 25\12\1429هـ جويا تنتهي في 20\11\1429 هـ الجيل الجديد لخدمات الانترنت 8-8-1429
للاعلان بالموقع سعر الاعلان 400 ريال في كافة اقسام موقع مدرسة المشاغبين دلوعتي ينتهي في 12\12\1429 هـ للاعلان بالموقع سعر الاعلان 400 ريال في كافة اقسام موقع مدرسة المشاغبين
احصائيات سريعة
اقسام على الموقع
دروس في أنظمة التشغيل | ماي سكيول - MySQL | لفيجوال بيسك - Visual Basic | المات لاب Matlab | اللينكس و اليونكس | الاسمبلي - ASSEMBLY | الاوتلوك - Outlook | البرمجة تحت اللنكس -Linux Programming | البرمجة تحت وندوز بواسطة دوال ال win API | البرمجة في بيئة الدوت نت .Net | التصمبم والرسوم | الدلفي - Delphi | الجافا - Java | السي - C | الصوت و الصورة | الوورد - Word | القسم العام للأوفيس | الكوبول - COBOL | control panel-ftp | اوراكل - Oracle | اكسل - Excel | تحميل الملفات | برامج متنوعة | برامج التصفح | برامج الحماية | برامج إنترنت | تعرّف على الويب | بوربوينت - Power Point | images | دروس : كمبيوتر وصيانة | دروس مجلة نيوك phpnuke | دروس مسنجر MSN - yahoo - Gmail | دروس منتديات vBulletin | دروس الجوالات والهواتف | دروس السي بنل cpanel | دروس اكسس access | دروس بيونت شوب برو - point shop pro | دروس برمجة php - mysql | دروس برامج منوعة software | دروس ثري دي ماكس 3D max | دروس تطوير المواقع والمنتديات | دروس جافا سكريبت JavaScript | دروس دريم ويفر DreamWeaver | دروس شبكات Networks | دروس سويش - swish | دروس فلاش - flash | دروس فلاش mx | دروس فى نظام الوندوز WINDOWS | دروس فىالباسكال - Pascal | دروس فيجوال بيسك Visual Basic | دروس فرونت بيج - frontpage | دروس فوتوشوب photoshop | دروس هكر hacker crack virus | سي ++ | سي شارب - #C | فيجوال سي ++ - ++ Visual C | قسم البرمجة العام | دروس فى لغة HTML
البحث في المواد

اكثر المحتويات زيارة
الدوال في الاكسل (8,263 مشاهده)
ربط قاعدة بيانات أكسس (MS Access) مع برنامج الفيجوال بيسك بطريقة(ODBC) (5,756 مشاهده)
تعريف الفن التشكيلي: (5,190 مشاهده)
الدرس الثالث : بعض تطبيقات الدوال في اكسل (3,931 مشاهده)
تغيير لغة واجهة التطبيق من عربي الى انجليزي وبالعكس لـ Windows-based applications (3,654 مشاهده)
شرح طريقة استعمال الأوتلوك مع بريد الهوتميل (3,637 مشاهده)
أنواع العلاقات وطريقة الربط بين الجداول. (3,599 مشاهده)
تعريف الاستعلام وطريقة عرضه في آكسس، أنواع الاستعلامات، نافذة تحديد الاستعلام! (3,277 مشاهده)
دروس في الأوفيس الأكسس - Access0- (3,084 مشاهده)
الدرس الثاني: بعض الحيل لتسهيل برنامج اكسل (3,061 مشاهده)
اضافه صوت ونص لخلفيه في باور بوينت (2,652 مشاهده)
أنشئ قاعدة بياناتك التي ستستند إليها في تعلم طريقة ربط الجداول والاستعلامات. (2,522 مشاهده)
كيفية حل مشاكل الانترنت اكسبلور Internet Explorer (2,404 مشاهده)
مقدمة عامة حول الاكسل وحيل خاصة بالاكسل (2,369 مشاهده)
الدرس الأول : عمل شريحة في البوربوينت (2,345 مشاهده)
المنظور الفوتوغرافي Perspective Drawing (2,284 مشاهده)
شرح طريقة التجميع Grouping في برنامج الاكسل (2,185 مشاهده)
الدرس الثاني : عمل خلفيات ملونة لشرائح (2,182 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (2,172 مشاهده)
ما هو المات لاب MATLAB؟ (1,996 مشاهده)
إنشاء موقع ويب جديد0--- (1,962 مشاهده)
تحويل ملف من مايكروسوفت ورد إلى اكروبات (1,930 مشاهده)
التعرف على مكونات الكمبيوتر (1,929 مشاهده)
برنامج Windows Movie Maker لتكوين أفلام (1,926 مشاهده)
ما هو برنامج الاكسل -00 (1,880 مشاهده)
جديد مواد مع عشوائي
التحويل التلقائي للحروف ل- ل- ه إلى اسم الجلالة0---- (1,186 مشاهده)
النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0---النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0--- (765 مشاهده)
ضبط خيارات اللغة فى الـ Microsoft Word0--- (1,001 مشاهده)
استخدام لوحة المفاتيح في الـ Word0---- (1,135 مشاهده)
إضافة كلمة سر إلي ملفات الورد دون استخدام برامج0--- (1,150 مشاهده)
دمج المراسلات0-- (653 مشاهده)
وضع صورة كخلفية للنص0-- (891 مشاهده)
السماح للمستخدمين بتعديل أجزاء من ملف وورد محمي (Word2003)0--- (627 مشاهده)
كتابة الأرقام الكسرية ورموز المعادلات0-- (980 مشاهده)
درس كامل عن الدمج السهل من لوحة المفاتيح ف0-ي برنامج الـ Word (665 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (2,172 مشاهده)
دورة الأكسيس : الدرس الرابع : العلاقات0---- (1,092 مشاهده)
أساسيات في Access0--0 (897 مشاهده)
تصميم تقرير لطباعة البيانات0---- (875 مشاهده)
تصميم نموذج استعراض البيانات‏0--تصميم نموذج استعراض البيانات‏0-- (788 مشاهده)
تصميم نموذج إدخال‎ ‎البيانات0--- (884 مشاهده)
إنشاء قوائم خاصة باستخدام الماكرو(1)0-- (768 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (2)0-- (608 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (1)0- (570 مشاهده)
استعلامات SQL في Access - تعديل الجداول وإضافة الحقول0- (835 مشاهده)
استعلامات SQL في Access - تحديث البيانات الجدولية0-- (650 مشاهده)
الاستعلامات الإجرائية -4 (استعلام الحذف)0--- (425 مشاهده)
الاستعلامات الإجرائية -2 (استعلام الإلحاق)0--- (545 مشاهده)
تصميم تقرير لطباعة الإجمالي0--- (518 مشاهده)
استعلامات التحديد Select Query مع أمثله (1)0--- (736 مشاهده)
اعلانات في الموقع على جميع الصفحات

سلسلة تعلم VBScript – الجزء الثاني - مفاهيم اللغة.

سلسلة تعلم VBScript – الجزء الثاني - مفاهيم اللغة.










الجزء الثاني: المفاهيم البرمجية للغة VBScript

الدرس الرابع : المتغيرات والثوابت والمصفوفات

كما ذكرنا سابقا أن لغة VBScript تتشابه مفاهيمها البرمجية مع لغة Visual Basic لذلك فإن مبرمجي فيجوال بيسك سيجدوا هذا الجزء عبارة عن تحصيل حاصل … وسأبدأ في هذا الدرس بالحديث عن المتغيرات والثوابت وسأضيف إليها المصفوفات وقد فضلت قرن المصلح الإنجليزي بالعربي، نظرا لتعدد التعريبات لمصطلح معين والذي يثبت مجددا أن العرب لا يمكن أن يتفقوا، فقد رصدت قبل فترة 5 أو 6 تعريبات لـ structure Query Language ، وعلى العموم فقد اعتمدت تعريبات "مركز التعريب والبرمجة" الذي يؤكد انه يستخدم  المفردات المعتمدة من قبل مايكروسوفت رغم أنني اقتنعت قبل فترة وجيزة أن تعريبات معظم منشورات "دار شعاع" هي الأقرب للصحة، هذا إذا غضضنا الطرف عن التعريبات – إن صح تسميتها تعريب - التي تثير السخرية مثل تعريب Media Player بـ "اللاعب السمعي البصري" مع احترامي لقدرات الكاتب(المترجم) …… والآن لنعد لموضوعنا ولنبدأ
بالمتغيرات..

المتغيرات Variables:

المتغير ببساطه هو مكان في الذاكرة لتخزين معطيات معينه(عدد، سلسلة نصيه، كائن،…)
وله اسم محدد، وهناك عدد من القواعد يجب الالتزام بها عند تسمية المتغيرات في
VBScript وهي:

- يجب أن يبدأ الاسم بحرف.

- لا يمكن أن يزيد طول اسم المتغير عن 255 حرفا.

- لا يمكن استخدام أحد الكلمات المحجوزة في اللغة مثل Year أو MsgBox أو غيره.

- ايضا هناك بعض المحارف لا يمكن استخدامها مثل الفراغات وبعض العلامات وهي ! & % -
$ #.


التصريح عن المتغير:

(يفضل) قبل استخدام أي متغير أن يتم التصريح عنه، وتستخدم لغة VBScript العبارة Dim
للتصريح المتغيرات، مثلا نريد التصريح عن المتغير النصي strGreeting فإننا نستخدم
الكود التالي:

شفرة برمجية :





 

 

 






Dim strGreeting






إسناد القيم:


ويتم إسناد القيم إلى المتغيرات بسهولة حيث يتم وضع اسم المتغير ثم علامة
المساواة ونضع بعدهما قيمة المتغير مثلا…

شفرة برمجية :





 

 

 






strGreeting = "Hello"





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

شفرة برمجية :






 

 

 






YourWebSite = InputBox("ادخل اسم موقعك","طلب إدخال اسم الموقع")


document.write YourWebSite





تلاحظ في المثال السابق أننا قمنا بالاحتفاظ بالقيمة - التي ادخلها المستخدم –
إلى متغير ثم استخدمنا الخاصية Write لكائن Document لكتابة القيمة إلى المستند.


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

شفرة برمجية :






 

 

 






ButtonClicked = msgbox("هل تريد تغيير لون الخلفية إلى
الأزرق",vbYesNo)

If ButtonClicked = 6 Then


Document.bgColor = "#000080"

End If





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

الثوابت Constants:-

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

شفرة برمجية :






 

 

 






Const Web_Site = "www.C4arab.com"
' التصريح عن الثابت

MsgBox Web_Site 'عن استدعاء الثابت





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

- ثوابت الألوان وهي: vbYellow، vbRed، vbGreen، vbMagenta، vbWhite، vbBlack،
vbCyan

- ثوابت للتعامل مع النصوص مثل : vbNewLine والذي يمثل محرف السطر الجديد، والثابت
vbNullString والذي يمثل سلسلة نصية فارغة.

- ثوابت للتعامل مع التاريخ مثل : vbSaturday، vbSunday، vbMonday،، etc…

المصفوفات Arrays :-

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

شفرة برمجية :






 

 

 






Dim SiteName(99)





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

شفرة برمجية :






 

 

 






'التصريح عن مصفوفة بثلاث متغيرات


Dim GoodSites(2)

'إسناد القيم

GoodSites(0) = "www.vb4arab.com"

GoodSites(1) = "www.c4arab.com"

GoodSites(2) = "www.arabTeam2000.com"

'لاسترجاع قيمة متغير معين

msgbox GoodSites(1)





المصفوفات متعددة الأبعاد ثابتة الحجم Fixed Arrays:

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





 
 

 






'إسناد القيم

' العمود الأول الصف الأول

GoodSites(0,0) = "موقع فيجوال بيسك للعرب"

' العمود الأول الصف الثاني

GoodSites(0,1) = "www.vb4arab.com"

' العمود الثاني الصف الأول

GoodSites(1,0) = "موقع الموسوعة العربية"

' العمود الثاني الصف الثاني

GoodSites(1,1) = "www.c4arab.com"

'استدعاء القيم

msgbox GoodSites(0,0) + " " + GoodSites(0,1)

msgbox GoodSites(1,0) + " " + GoodSites(1,1)






المصفوفات الديناميكية Dynamic Arrays :


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

شفرة برمجية :




   
 






Dim GoodSites()

Num = InputBox("أدخل عدد مواقع البرمجة العربية التي تراها جيدة")

ReDim GoodSites(Num – 1)





تلاحظ في المثال السابق أننا قمنا بتعريف المصفوفة دون تحديد عدد العناصر وعندما أدخل المستخدم عدد العناصر فإننا قمنا بإعادة تصريحها باستخدام العبارة ReDim لتصبح
بالحجم الجديد.

ملاحظات عامة:-

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

شفرة برمجية :





 
 

 






< INPUT type="button" value="Button1" name="button1">

< INPUT type="button" value="Button2" name="button2">

< Script language ="VBScript">

Sub button1_OnClick()

Dim Counter

Counter=10

MsgBox Counter

End Sub

Sub button2_OnClick()

MsgBox Counter

End Sub

< /Script >






الآن عندما تنقر على الزر Button1 فإنه سيتم اسند القيمة 10 إلى المتغير Counter
ولكن عندما تنقر على الزر Button2 ستجد أن المتغير فقد قيمته … الآن انقل التصريح
خارج الإجراء وانقر على الزرين بتتابع ولاحظ النتيجة.

- يمكن التصريح لأكثر من متغير أو مصفوفة بعبارة Dim واحدة

شفرة برمجية :




 
 

 






Dim MyVar,MyArr(20)







- ذكرت من قبل أنه يفضل التصريح عن المتغيرات (لأسباب عديدة) ويمكنك جعل التصريح
إجباريا بإضافة العبارة Option Explicit في بداية السكريبت.

شفرة برمجية :





   





Option Explicit

Num = 10
' Num هنا سيظهر خطأ لأنك لم تقوم بالتصريح عن
المتغير


درس سلسلة تعلم VBScript – الجزء الثاني - مفاهيم اللغة.

أضف هذه المادة في موقعك:
مواد مشابهة:
التعامل مع الاحداث (1) التعامل مع الاحداث (1)
التعامل مع الاحداث (1)
(مرات المشاهدة: 175 مرات)
وضع عبارات الجافا سكريبت في ملف خارجي وضع عبارات الجافا سكريبت في ملف خارجي
وضع عبارات الجافا سكريبت في ملف خارجي
(مرات المشاهدة: 184 مرات)
برنامج IIS: برنامج IIS:
برنامج IIS:
(مرات المشاهدة: 357 مرات)
مقدمة - تنصيب وشرح برامج خادم الويب مقدمة - تنصيب وشرح برامج خادم الويب
مقدمة - تنصيب وشرح برامج خادم الويب
(مرات المشاهدة: 302 مرات)
طريقة إدراج الأنماط في الصفحة طريقة إدراج الأنماط في الصفحة
طريقة إدراج الأنماط في الصفحة
(مرات المشاهدة: 431 مرات)
كائنات ASP- الكائن Response -الجزء الأول كائنات ASP- الكائن Response -الجزء الأول
كائنات ASP- الكائن Response -الجزء الأول
(مرات المشاهدة: 161 مرات)
طريقة سحب بريد الأعضاء من لوحة التحكم بالمنتدى طريقة سحب بريد الأعضاء من لوحة التحكم بالمنتدى
طريقة سحب بريد الأعضاء من لوحة التحكم بالمنتدى
(مرات المشاهدة: 271 مرات)
معالجة أحداث الروابط في معالجة أحداث الروابط في "جافا سكريبت"
معالجة أحداث الروابط في "جافا سكريبت"
(مرات المشاهدة: 225 مرات)
الكائن Request- الجزء الثاني الكائن Request- الجزء الثاني
الكائن Request- الجزء الثاني
(مرات المشاهدة: 128 مرات)
طـريقة تـركيب منتـدى ib ..الطريقة مشروحه بالصور طـريقة تـركيب منتـدى ib ..الطريقة مشروحه بالصور
طـريقة تـركيب منتـدى ib ..الطريقة مشروحه بالصور
(مرات المشاهدة: 274 مرات)
جميع الحقوق في هذا الموقع محفوظة وكل المواد على الاقسام ملك لاصحابها :Copyright © All rights reserved