المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : احترف VB Script لتصميم المواقع


أحمد المليجي
29-03-2005, 03:40 PM
بسم الله الرحمن الرحيم
لقد قمت من قبل في اطار تعلم تصميم الموقع بوضع سلسلة دروس لاحتراف HTML علي الوصلة التالية
http://www.egyptsons.com/misr/showthread.php?t=24637&highlight=html
ثم قمت بعد ذلك في نفس الاطار بطرح دروس احتراف ASP
http://www.egyptsons.com/misr/showthread.php?t=25730&highlight=%C7%CD%CA%D1%DD

و في نفس الصدد سوف اقوم بطرح دروس لاحتراف VB script اذا كان هناك من يهتم بالموضوع :d
وسوف اقوم بطرح الموضوع في 9 دروس
و الان نجرب بالدرس الاول و يارب يكون هناك من يستفيد
@@
أحمد المليجي
29-03-2005, 03:46 PM
الدرس الاول مقدمة بسيطة
مرحبا بكم في دروس الفي بي سكريبت و التي تعد من لغات البرمجة الموجهة للمستكشف أي المتصفح و هي مدعومة من أغلب المتصفحات و هي مناهضة للغة الجافا سكريبت و تتميز بأنها قريبة جدا للغة ال visual basic و لن يجد أحدكم صعوبة في تعلمها و هي تقريبا لها استخدامات شبيهة كثيرا بلغة الجافا سكريبت مثل التعامل مع الأحداث و الحقول و العمليات الحسابية و المنطقية كلغة للبرمجة و للدخول لبيئة العمل يلزمنا برنامج محرر للنصوص مثل ال FrontPage أو Visual InterDev أو أي محرر بسيط مثل الNotePad .

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


.
<html dir="rtl">
<head>
<title>أول مثال للجافا سكريبت</title>
<script language="vbscript">
MSGBOX "هذا أول مثال في الفي بي سكريبت"
</script>
</head>
<body>
</body>
</html>

http://www.geocities.com/newtut7000/vbs1.gif
و هذا هو نتيجة المثال السابق

طبعا قمنا بتعريف نوع السكريبت و هو ال vbscript ثم استخدمنا جملة MSGBOX و التي قامت بعرض رسالة بها ما نراه في المثال .

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

@@
أحمد المليجي
30-03-2005, 09:18 AM
الدرس الثاني

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

<html>
<head><title>This is the title of the page </title>
<script language="vbscript">
DIM action
action=prompt("Enter the password please : ")
IF action= 12345 then
MSGBOX("Congratulations !! You had entered the right password")
else
MSGBOX("Login failed !! Try again ..")
END IF
</script>
</head>
<body>
</body>
</html>طبعا كان الهدف في هذا المثال التعرف على كيفية تعريف عنصر باستخدام DIM و طبعا الهدف من المثال السابق إظهار رسالة في بداية المتصفح تطلب إدخال كلمة المرور , فإذا كانت مطابقة للكلمة التي عرفناها و هي action و التي أخذت قيمة 12345 فإنها تظهر رسالة ترحيبية و إلا تعطي رسالة تحذير و طلب إعادة إدخال كلمة المرور ..
http://www.geocities.com/newtut7000/vbs2.gif


هذا ناتج المثال السابق.
******* و طبعا يمكن تعريف أكثر من متغير حسب الحاجة بإحدى الطريقتين التاليتين :
DIM action_a
DIM action_b
DIM action_c
او
DIM action_a : DIM** action_b : DIM* action_ c
** باستخدام ال النقطتين (:) بين كل تعريفين
[line]

أما الآن فسنتطق لموضوع الدوال الجاهزة و كيفية استعمالها . و إليك أولا هذه الدوال : *

الدالة : Asc وظيفتها : .(ASCII CODE)ترجع قيمة الحرف بما يقابلها في ال*******
مثال عليها
Dim MyNumber
MyNumber=Asc("A") ' Returns 65
MyNumber=Asc("B") ' Returns 66

[line]

الداله : Chr وظيفتها : عكس الدالة السابقة فهي تحول الرقم إلى ما يقابله من الحروف أو الرموز
مثال عليها
Dim MyChar
MyChar=Chr("67") ' Returns C
[line]
الدالة: Hex وظيفتها: تحول الرقم العشري إلى ما يقابله في النظام السادس عشر
مثال عليها
Dim MyHex
MyHex=Hex(5) ' Returns "5"

MyHex=Hex(10) ' Returns "A"

MyHex=Hex(459) ' Returns "1CB"
[line]

الدالة: Oct وظيفتها : تحول الرقم العشري إلى ما يقابله في النظام الثماني .
مثال عليها
Dim MyOct
MyOct=Oct(5) ' Returns "5"

MyOct=Oct(8) ' Returns "10"

MyOct=Oct(459) ' Returns "713"
[line]

الدالة : Int وظيفتها : شبيهة بالدالة Fix التي تحذف الارقام بعد الفاصلة لكنها تـــقوم بتقريب الرقم قبل حذف الأرقام بعد الفاصلة .
مثال عليها
Dim MyInt
MyInt=Int(99.234) ' Returns 99

MyInt=Int(99.999) ' Returns 100
[line]

الدالة : Round وظيفتها : تقوم بتقريب الأعداد بعد الفاصلة حسب طلبك .
مثال عليها
Dim MyٌRound
MyRound=Round(20.5458788,2) ' Returns 20.54

MyRound=Round(20.5458788,3) ' Returns 20.545
[line][line]
ربما تشعر بنوع من الملل الان و لكن هذة اساسيات لابد منها و لكن لا تيأس فالمتعة قادمة في الدروس القادمة
@@
عـزالديـن
31-03-2005, 11:32 PM
ألف ألف ألف شـكر على هذا العطاء المتميز والجهد الطيب

ننتظر المزيد من الدروس التطبيقية والمفيدة

تقبل أرق تحياتى
أحمد المليجي
01-04-2005, 05:27 PM
السلام عليكم اخي عز الدين
و الله انا كنت بطلت او اقفت وضع هذة الدروس لاني زي ما انت شايف الاقبال عليها شديد و الناس كلها عاوزة تتعلم تصميم المواقع فعشان كدة قلت كفاية دروس لحسان بعد كدة تبقي البلد كلها مصممين
@@
أحمد المليجي
02-04-2005, 08:47 PM
في هذا الدرس سنركز على كيفية التعامل مع مدخلات المستخدم مثل إظهار ما يكتب أو تغيير لون الخلفية و العديد من الأفكار التي لن أركز عليها الان لأنك في مرحلة البداية .. لكن سأركز على كيفية استيعابها و التعامل معها و لنبدأ درسنا هذا بمثال بسيط يعطي فكرة عن استخدام أجزاء HTML في مخطوط الفي بي سكريبت ...

<html>
<head>
<title>This is the title of the page </title>
<script language="vbscript">
document.write"HI .. This is one of the million advanteges of VB SCRIPT" ' Line 1
document.write"<br>" ' Line 2
document.write"<font color='red'size=+2>Hello !! how is this ?</font>" ' Line 3
</script>
</head>
<body>
</body>
</html>

طبعا في المثال السابق قمنا باستخدام جملة document.write و التي هي نفسها تستخدم في الجافا سكريبت و التي تقوم بالكتابة داخل الوثيقة أي الصفحة .. و في السطر الأول كتبنا جملة عادية ثم في السطر الثاني استخدمنا <BR> و التي تعني break و التي تفيد بتوقف الكتابة في هذا السطر و النتقال للسطر التالي ,, أما السطر الثالث فقد استخدمنا عنصر الخط حيث حددنا لونه و حجمه .. و للأستزادة حول موضوع ال HTML يمكن الرجوع لدروس ال HTML في الموقع ..

لكن ماذا نفعل لو أردنا تكرار جملة ما عددا من المرات كجعل المستخدم يدخل رقم الدورات لتكرار الكلمة .. دعنا نرى :

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

For i = 1 to Max_Number

الجملة التي ستتكرر تكتب هنا

Next

و هذا هو المثال الذي يطلب من المستخدم إدخال عدد مرات تكرار كلمة الفي بي سكريبت :

<html>
<head>
<title>This is the title of the page </title>
<script language="vbscript">
dim no ' Line 1
no=prompt("How many times You want to see the word ? ") ' Line 2
for i=1 to no ' Line 3
document.write"<font face='tahoma'size=2 color='#ff5577'>الفي بي سكريبت</font><br>" ' Line 4
next ' Line 5
</script>
</head>
<body>
</body>
</html>



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

استخدام طرق أخرى لحل المثال السابق :

الطريقة البرمجية

Do While condition

commands to be performed

Loop



مثال عليها

<html>
<head>
<title>This is the title of the page </title>
<script language="vbscript">
dim no
dim go
go=1
no=prompt("How many times You want to see the word ? ")
do while go<=no
document.write"<font face='tahoma'size=2 color='#ff5577'>محمد</font><br>"
go=go+1
loop
</script>
</head>
<body>
</body>
</html>

--------------------------------------------------------------------

الطرقة البرمجية

While condition

commands to be performed

Wend

مثال عليها

<html>
<head>
<title>This is the title of the page </title>
<script language="vbscript">
dim no
dim go
go=1
no=prompt("How many times You want to see the word ? ")
while go<=no
document.write"<font face='tahoma'size=2 color='#ff5577'>محمد</font><br>"
go=go+1
Wend
</script>
</head>
<body>
</body>
</html>

-----------------------------------------------------------------------------------------------------------------------

هناك أيضا عددا من الطرق البرمجية و التي يجب التعرف عليها و ها أنا قد ذكرتها في هذا الجدول مع ذكر مثال لكل منها :

استخدام خاصية :

Document.bgcolor=" the color "

لتغيير خاص اللون في صفحة الويب .

مثال عليها

<html>
<head>
<title>This is the title of the page </title>
<script language="vbscript">
dim name
dim pass
name=prompt("Name :")
pass=prompt("Password :")
if name="mohd" and pass="12345" then
document.write"Congratulations !!! Right USER & PASSOWRD .."
document.bgcolor="#333333"
else
alert("Access Denied !!")
End if
</script>
</head>
<body>
</body>
</html>
-----------------------------------------------------------------------------------------------

عرض رساله تطلب فيها اسم المستخدم ثم تعرض رسالة ترحيبية ذاكرا اسمه إن كان موجودا و إلا تعرض له رسالة ترحيبية عامة .

مثال عليها

<html>
<head>
<title>This is the title of the page </title>
<script language="vbscript">
dim name
name=prompt("Enter your name plzzzzzz .. ")
Select case name
Case "mohd"
document.write"Hello mohd !!"
Case "usama"
document.write"Hello mohd !!"
Case "omar"
document.write"Hello mohd !!"
Case Else
document.write"Hello any body !!"
End Select
</script>
</head>
<body>
</body>
</html>

----------------------------------------------------------------------------------------------------

.. إذا هل تستطيع الان عمل صفحة خاصة بك في موقعك لا يمكن لأحد دخولها إلا بعد أن يكتب كلمة المرور التي تحددها أنت؟؟ طبعا هناك طرق أحسن بكثير من الطرق السابقة في الدروس القادمة و إنما نحن نتقدم تدريجيا ..
tom99
08-02-2007, 07:19 AM
يا استاذ أحمد الف شكر على المعلومات و الدروس القيمة ربنا يزيدك من فضلةالدروس خفيفة وسهلة وشرحها ميه ميه لكن فين الباقي

تحياتي