الموقع العربي الاول للعبة Silkroad Online

الموقع العربي الاول للعبة Silkroad Online (https://silkroad4arab.com/vb/index.php)
-   بـعـيـدآ عـن سـيـلـك رود (https://silkroad4arab.com/vb/forumdisplay.php?f=73)
-   -   الدرس الثامن لبرنامج autoit (https://silkroad4arab.com/vb/showthread.php?t=344567)

BackToKill 21-05-2011 07:20 PM

الدرس الثامن لبرنامج autoit
 
بسم الله الرحمن الرحيم

مرحبا ً بكم إخوتي الكرام ، ها نحن هنا مع الدرس الثامن
:: بوابتك للدخول إلى عالم AutoIt v3 Script ::

سنتعلم من درسنا اليوم إتقان التالي:

إتقان المتغيرات.
إستخدام.If...Then
إستخدام.If...ElseIf...Else...EndIf
اتقان أوامر صناديق الرسائل .


بسم الله نبدأ: * الدرس شوية ثقيل ويحتاج تركيز.
ولكنه مهم مهم مهم جدا ,,

:::::::::::::::::::::::::::::::::::::

:: المتغيـــــــرات ::

هي هنا معنا في برنامج AutoIt أي كلمة تبدأ بـ $ ..

أمثلة ..

كود:

$W , $Z , $BackFromHell

وتعرف بمجرد وضعها ,, << هناك طرق أخرى لها شروطها

:::::::::::::::::::::::::::::::::::::

:: إستخدام If...Then ::

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

الصورة العامة للجملة:

كود:

If <expression> Then statement




التوضيح:

أي إذا تحقق الشرط <expression> سيتم تنفيذ العملية statement

ومعنى أن الشرط تحقق بأن تكون قيمته صحيحة.

مثال: ظهرت نافذة تحتوي على زر موافق ، إلغاء ونريد من السكربت إقفال نفسه

إذا ضغط المستخدم على زر إلغاء

سيكون الأمر على الشكل التالي:
كود:

$i = 1 If $i = 1 Then Msgbox (0,"","$i=1") Else Msgbox (0,"","$i Is Not =1") EndIf


جرب مع تغيير قيمة المتغير $i وشاهد ماذا سيحصل ,,

مثال توضيحي آخر برنامج لحساب معدل الطلاب

يدخل الطالب درجاته في الفراغات المطلوب ملؤها ، ويضغط على زر جمع

عند الإنتهاء من الجمع ....

سيتم إظهار نافذة تخبره بنجاحه أو رسوبه كالتالي:


كود:

If $W >= 90 Then
MsgBox (0,"النتيجة","مبروك النجاح")
Exit
EndIf



$W: أيضا ً هي قيمة للفراغ الي راح تظهر فيه نتيجة الجمع.

" إذا كان الناتج النهائي أكبر من أو يساوي [ =< ] إذا ً تظهر نافذة للمستخدم تخبره بنجاحه "


:::::::::::::::::::::::::::::::::::::

أوامر صناديق الرسائل
عندما تعرف أمر إظهار صندوق رسالة بمتغير فإنه سوف يرجع قيمة للمتغير حسب رد المستخدم ,,
على الشكل التالي ::
[img]http://img104.***********/2011/05/21/801529733.jpg[/img]


مثال ::
كود:

$W = MsgBox(65,":: Silkroad4arab ::","سيتم الحذف")
If $W = 2 Then
Exit
EndIf




$W: هو عبارة عن الـ MsgBox. نعرفها للإختصار فقط بدل كتابتها في كل مرة.

" إذا كانت قيمة النافذة = 2 [ إلغاء ] إذا ً سيتم البرنامج "

طيب كذا أتمنى فهمتوها.



:::::::::::::::::::::::::::::::::::::

:: إستخدام If...ElseIf...Else...EndIf ::

في هذه النقطة تشابه كبير بالنقطة السابقة ، في النقطة السابقة ذكرت بأننا نضع شرط محدد ،

ولكن هنا في هذه النقطة سنتعلم وضع عدة شروط والقادم سيوضح.

كود:

If <expression> Then
statements
...
[ElseIf expression-n Then
[elseif statements ... ]]
...
[Else
[else statements]
...
EndIf



ومعنى الصورة العامة بالأعلى:

إذا تحقق الشرط سينفذ التالي ،، وإذا لم يتحقق سيتم تنفيذ ElseIf واذا تحقق سيتم تنفيذ الشرط وإذا لم يتحقق سيتم تنفيذ Else.

ركزوو معايا ....

نرجع للنقطة الأولى ( بشرط واحد ) ،،

اذا ضغط المستخدم على إلغاء سيتم انهاء البرنامج !! طيب نبغاه يطلع رسالة أخرى اذا ضغط لم يضغط إلغاء

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

$W = MsgBox(65,"","")
if $W = 2 Then
Exit
Else
MsgBox (0,"","")
EndIf

كذا للآن واضح كل شي ؟

طيب ننتقل لـ ElseIf

نريد من السكربت عدة شروووط ، كل شرط إذا لم يتحقق ينتقل إلى الشرط إلي بعده.

نفس إلي بالأعلى ولكن مكان Else نضع ElseIf ... Then يعني كذا:

كود:

$W = MsgBox(67,"","")

if $W = 2 Then
Exit
ElseIf $W = 7 Then
MsgBox (64,"","")
Else
MsgBox (0,"","")
EndIf



إذا كان $W = إلغاء إذا ً إنهي البرنامج.
إذا لما يتحقق الشرط الأول إنتقل للشرط الثاني.

إذا كان $W = لا إذا ً أظهر رسالة محتواها ......
بالأخير إذا لم يتحقق الشرط الثاني إذا ً نفذ ماتبقى.

:::::::::::::::::::::::::::::::::::::

التطبيق:

1- أنشئ ملف سكربت جديد يحتوي على عدة شروط من عندك.
2- أنشئ صندوق رسالة بزرين أو أكثر ,, بأوامر تختارها أنت .
:::::::::::::::::::::::::::::::::::::

بالتوفيق :icecream:

كركر نت 21-05-2011 07:21 PM

شكرا على الموضوع

BackToKill 21-05-2011 07:29 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة كركر نت (المشاركة 3434189)
شكرا على الموضوع

العفو


الساعة الآن 10:12 PM.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.