[au3-G] :: استفسارات ، مشاكل ، حلول ,, إضافات ,, دروس تقوية ,, أوامر جاهزة ,, أمثلة ,, في AutoIt 3

  • بادئ الموضوع بادئ الموضوع ashalshaikh
  • تاريخ البدء تاريخ البدء
  • المشاهدات 114,207

نبدأ ببعض الأوامر التي تتعامل مع Office :king:
وتعتبر مكتبة خاصه للتعامله معه

أمر يعرض لك نسخة الـ Office المثبته في جهازك بـ رسالةMsgBox

الصورة العامه للأمر

كود: 
#include <Word.au3> 
_Word_VersionInfo ( )
طبعاً الأمر جديد
كود: 
_Word_VersionInfo ()
وكل رقم له وظيفة وتقريباً رقم 5 هو الشامل بعرض جميع المعلومات حول النسخه
كود: 
$WordAU3VersionInfo[COLOR=Red][0][/COLOR] = Release Type (T=Test or V=Production) 
 $WordAU3VersionInfo[COLOR=Red][1][/COLOR] = Major Version 
 $WordAU3VersionInfo[COLOR=Red][2][/COLOR] = Minor Version 
 $WordAU3VersionInfo[COLOR=Red][3][/COLOR] = Sub Version 
 $WordAU3VersionInfo[COLOR=Red][4][/COLOR] = Release Date (YYYYMMDD) 
 $WordAU3VersionInfo[COLOR=Red][5][/COLOR] = Display Version (e.g. V1.0-1)
وهذا هو الكود الجاهز لعرض رقم النسخه المثبته على الجهاز

كود: 
[COLOR=Magenta]#include [/COLOR][COLOR=SlateGray]<Word.au3>[/COLOR]
[COLOR=Sienna]$aVersion [/COLOR][COLOR=Red]=[/COLOR] [COLOR=RoyalBlue]_Word_VersionInfo[/COLOR] [COLOR=Red]()[/COLOR]
[COLOR=Navy]MsgBox[/COLOR][COLOR=RoyalBlue]([/COLOR][COLOR=DarkRed]0[/COLOR][COLOR=Red],[/COLOR] [COLOR=SlateGray]"إصدار الأوفيس"[/COLOR][COLOR=Red],[/COLOR] [COLOR=Sienna]$aVersion[/COLOR][COLOR=Red][[/COLOR][COLOR=Magenta]5[/COLOR][COLOR=Red]][/COLOR] [COLOR=Red]&[/COLOR] [COLOR=SlateGray]" رقم الإصدارة هي "[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=Sienna]$aVersion[/COLOR][COLOR=Red][[/COLOR]4[COLOR=Red]][/COLOR][COLOR=RoyalBlue])[/COLOR]
 

توقيع : HaMuDi
حمودي ... و حبيبي أحمد ...

فديتكم و الله يا مبدعين :) ...
 
توقيع : MMA_LORD_735
بالنسبه لسؤال الغالي MAAX هل ينفع امر _RunDOS ؟؟

لان الدوس يمديك تحذف بالقوة عن طريق اضافة /F فهل ينفع بالاوتوات ؟؟

او في طريقه ثانيه وهي تسويه الامر في ملف bat وامر تشغيل الملف في السكربت :bleh::d:
 
توقيع : MR.CORVETTE
MR.CORVETTE قال:
بالنسبه لسؤال الغالي MAAX هل ينفع امر _RunDOS ؟؟

لان الدوس يمديك تحذف بالقوة عن طريق اضافة /F فهل ينفع بالاوتوات ؟؟

او في طريقه ثانيه وهي تسويه الامر في ملف bat وامر تشغيل الملف في السكربت :bleh::d:
أنقر للتوسيع...

إيه يالغالي نستطيع عمل ملف دفعي bat

ونكتب الأمر للمسح بالقوة وبدون إستاذان
مثال حذف ملفات temp

كود: 
@echo off
del /s /f /q c:\windows\temp\*.*

نكتب الأمر في مذكره ونحفظه بصيغة Bat بدلاً من txt

وبعض كذا نسوي سكربت يقوم أولاً بتعطيل المهمه في إدارة المهام
وأمر sleep أبو 2 ثانية وبعدها يشتغل الملف الدفعي
​


بس ماأدري هل الطريقه حتنجح :?:
​
 
توقيع : HaMuDi
HaMuDi قال:
إيه يالغالي نستطيع عمل ملف دفعي bat

ونكتب الأمر للمسح بالقوة وبدون إستاذان
مثال حذف ملفات temp

كود: 
@echo off
del /s /f /q c:\windows\temp\*.*
نكتب الأمر في مذكره ونحفظه بصيغة Bat بدلاً من txt

وبعض كذا نسوي سكربت يقوم أولاً بتعطيل المهمه في إدارة المهام
وأمر sleep أبو 2 ثانية وبعدها يشتغل الملف الدفعي
​


بس ماأدري هل الطريقه حتنجح :?:
​
أنقر للتوسيع...

المشكلة اننا نبغا الاوتوات يعرضلنا العمليه المستخدمه لتشغيل الملف واقفالها اوتوماتيك

يعني مثلا .. مشغلين اغنيه بالريل بلاير .. بس نحدد الملف يقوم امر الاوتوات يبحث عن العمليه الخاصه بالريل بلاير واقفالها وحذف الملف :ok:

بس مااضن امر الدوس هذا يحذف الملف حتى مع تشغيله :no:
 
توقيع : MR.CORVETTE
ashalshaikh قال:
وعليكم السلام ,,
يالغالي ,,
إن شاء الله ما نقصر معاك ,,
لاحظ معي ::
فيه صامت وفيه تلقائي
الصامت :: بسويتش فقط تشغيل السويتش ثم تعمل الكراك فقط ,, ويثبت كل شي لوحده
التلقائي :: تعمل أوامر للضغط على الأزرار أو تحريك الفأرة يعني تثبيت عادي ولكن الأزرار تضغط لوحدها !!

حدد أيهما تريد << هذا أولا ,,
ثانيا :: حدد نوع الكراك مثلا ملف ريجستري ملف استبدال باتش إلخ إلخ إلخ ,,
في حالة ما تقصده تلقائي يمكنك الرجوع لهذا الدرس
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
‏(
وأما الصامت فله دورة كاملة من عمل أحد الإخوة ,,

وأي استفسار لا يردك إلا لسانك ,,
أرجو أنك تضع ما يحيرك,, :b: حتى نستطيع نساعدك ,,
أنقر للتوسيع...

التلقائي :: تعمل أوامر للضغط على الأزرار أو تحريك الفأرة يعني تثبيت عادي ولكن الأزرار تضغط لوحدها !!

الكراك ملف استبدال باتش تضعه في مجلدالبرنامج
أنقر للتوسيع...

تماما هذا ما اقصده بارك الله فيك:ok::ok:

افيدوني لو تكرمتم :b:
 
توقيع : فتى الاحزان
HaMuDi قال:
بلا فضايح ,, خلونا نكمل الدروس ولا في علقه من MAAX
:d::d:
-----------------------------------------

أخواني تم البحث على الـ ماطلبتم :bleh::bleh:

كود إلي يحفظ الصورة بوقت الجهاز بإسم problem.jpg

كود: 
[COLOR=DarkOrchid]#include[/COLOR] [COLOR=SlateGray]<ScreenCapture.au3>[/COLOR]

[COLOR=RoyalBlue]_ScreenCapture_Capture[/COLOR][COLOR=Red]([/COLOR][COLOR=Plum]@DesktopDir[/COLOR] [COLOR=Red]&[/COLOR][COLOR=SlateGray] "\problem"[/COLOR] [COLOR=Red]&[/COLOR] "_" [COLOR=Red]& [/COLOR][COLOR=Plum]@HOUR[/COLOR] & [COLOR=Plum]@MIN[/COLOR] & [COLOR=Plum]@sec[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=SlateGray]".jpg"[/COLOR])
الجديد في الكود متغير الساعه
كود: 
[COLOR=Plum]@HOUR[/COLOR]
متغير الدقايق
كود: 
[COLOR=Plum]@MIN[/COLOR]
متغير الثانية
كود: 
[COLOR=Plum]@sec[/COLOR]
فاصل2

وهذا الكود يصور بتاريخ الجهاز بإسم problem.jpg

كود: 
[COLOR=DarkOrchid]#include[/COLOR] [COLOR=SlateGray]<ScreenCapture.au3>[/COLOR]

[COLOR=RoyalBlue]_ScreenCapture_Capture[/COLOR]([COLOR=Purple]@DesktopDir[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=SlateGray]"\problem"[/COLOR] [COLOR=Red]&[/COLOR] "_" [COLOR=Red]&[/COLOR] [COLOR=Plum]@MON[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=Plum]@MDAY[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=Plum]@YEAR[/COLOR] [COLOR=Red]&[/COLOR][COLOR=SlateGray] ".jpg"[/COLOR])
متغير الشهر
كود: 
[COLOR=Plum]@MON[/COLOR]
متغير اليوم
كود: 
[COLOR=Plum]@MDAY[/COLOR]
متغير السنه
كود: 
[COLOR=Plum]@YEAR[/COLOR]
طبعاً يتعامل على حسب وقت الجهاز المضبوط عليه الجهاز


فاصل2

وهذا الكود يصور و يحفظ بتاريخ ووقت الجهاز معاً

طبعاً جمعنا جميع متغيرات الوقت والتاريخ في كود واحد

كود: 
[COLOR=Purple]#include[/COLOR] [COLOR=SlateGray]<ScreenCapture.au3>[/COLOR]

[COLOR=RoyalBlue]_ScreenCapture_Capture[/COLOR]([COLOR=Purple]@DesktopDir[/COLOR] & [COLOR=SlateGray]"\problem"[/COLOR] [COLOR=Red]&[/COLOR][COLOR=SlateGray] "_"[/COLOR] [COLOR=Red]&[/COLOR][COLOR=DarkOrchid] @MON[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=DarkOrchid]@MDAY[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=DarkOrchid]@YEAR[/COLOR] [COLOR=Red]&[/COLOR] '_' [COLOR=Red]&[/COLOR] [COLOR=DarkOrchid]@HOUR[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=DarkOrchid]@MIN[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=DarkOrchid]@sec[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=SlateGray]".jpg"[/COLOR])
بس لاحد يسألني على الحفط بالتسلسل 1 ومن ثم 2 ومن ثم 3 لأني عجزت عنها وفيها عداد :d:
​
أنقر للتوسيع...
والله إبداااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااع ,,
تمت الإضافة للفهرس ,,
بالنسبة لـالتسلسل جرب While :d:
 
التعديل الأخير بواسطة المشرف:
توقيع : ashalshaikh
HaMuDi قال:
:q: أي حريف هداك الله ,, ماتشوف الكلمات مكسرة :bleh:
والله هذا بعص ماعلمونى في الكلية :hh:
والله يعينك على المشرف كما تدين تدان :hh::d::y:
​
أنقر للتوسيع...
:hh::hh::hh::hh:
والله مستقعدلي الله يقلعه ,,
كل ما أحط شي جاني ,, :mad:
 
توقيع : ashalshaikh
hamudi قال:

نبدأ ببعض الأوامر التي تتعامل مع office :king:
وتعتبر مكتبة خاصه للتعامله معه

أمر يعرض لك نسخة الـ office المثبته في جهازك بـ رسالةmsgbox

الصورة العامه للأمر

كود: 
#include <word.au3> 
_word_versioninfo ( )
طبعاً الأمر جديد
كود: 
_word_versioninfo ()
وكل رقم له وظيفة وتقريباً رقم 5 هو الشامل بعرض جميع المعلومات حول النسخه
كود: 
$wordau3versioninfo[color=red][0][/color] = release type (t=test or v=production) 
 $wordau3versioninfo[color=red][1][/color] = major version 
 $wordau3versioninfo[color=red][2][/color] = minor version 
 $wordau3versioninfo[color=red][3][/color] = sub version 
 $wordau3versioninfo[color=red][4][/color] = release date (yyyymmdd) 
 $wordau3versioninfo[color=red][5][/color] = display version (e.g. V1.0-1)
وهذا هو الكود الجاهز لعرض رقم النسخه المثبته على الجهاز

كود: 
[color=magenta]#include [/color][color=slategray]<word.au3>[/color]
[color=sienna]$aversion [/color][color=red]=[/color] [color=royalblue]_word_versioninfo[/color] [color=red]()[/color]
[color=navy]msgbox[/color][color=royalblue]([/color][color=darkred]0[/color][color=red],[/color] [color=slategray]"إصدار الأوفيس"[/color][color=red],[/color] [color=sienna]$aversion[/color][color=red][[/color][color=magenta]5[/color][color=red]][/color] [color=red]&[/color] [color=slategray]" رقم الإصدارة هي "[/color] [color=red]&[/color] [color=sienna]$aversion[/color][color=red][[/color]4[color=red]][/color][color=royalblue])[/color]
أنقر للتوسيع...
الله يسلمك شو هالإبداع يالغالي ,,
ما شاء الله ,,
إنت 100%
 
توقيع : ashalshaikh
MR.CORVETTE قال:
بالنسبه لسؤال الغالي MAAX هل ينفع امر _RunDOS ؟؟

لان الدوس يمديك تحذف بالقوة عن طريق اضافة /F فهل ينفع بالاوتوات ؟؟

او في طريقه ثانيه وهي تسويه الامر في ملف bat وامر تشغيل الملف في السكربت :bleh::d:
أنقر للتوسيع...
الرد
V
V
V
MR.CORVETTE قال:
المشكلة اننا نبغا الاوتوات يعرضلنا العمليه المستخدمه لتشغيل الملف واقفالها اوتوماتيك

يعني مثلا .. مشغلين اغنيه بالريل بلاير .. بس نحدد الملف يقوم امر الاوتوات يبحث عن العمليه الخاصه بالريل بلاير واقفالها وحذف الملف :ok:

بس مااضن امر الدوس هذا يحذف الملف حتى مع تشغيله :no:
أنقر للتوسيع...
الله يبارك فيك ,,
المشكلة هي فقط في معرفته ,,
أما الباقي سهل :d:
 
توقيع : ashalshaikh
HaMuDi قال:
إيه يالغالي نستطيع عمل ملف دفعي bat

ونكتب الأمر للمسح بالقوة وبدون إستاذان
مثال حذف ملفات temp

كود: 
@echo off
del /s /f /q c:\windows\temp\*.*
نكتب الأمر في مذكره ونحفظه بصيغة Bat بدلاً من txt

وبعض كذا نسوي سكربت يقوم أولاً بتعطيل المهمه في إدارة المهام
وأمر sleep أبو 2 ثانية وبعدها يشتغل الملف الدفعي
​


بس ماأدري هل الطريقه حتنجح :?:
​
أنقر للتوسيع...
برضو شاهد الرد السابق ,,
ولو نجحت بإمكاننا استخدام _RunDos ينفذها بدون الكتابة ,,
 
توقيع : ashalshaikh
فتى الاحزان قال:
تماما هذا ما اقصده بارك الله فيك:ok::ok:

افيدوني لو تكرمتم :b:
أنقر للتوسيع...
ممتاز ,,
في الصفة الأولى , ,
ستجد مكتوب فهرس الدورة ,, في الموضوع ليس في الرد الأول !!!
ستجد الدرس التاسع ::: التثبيت التلقائي ,
بارك الله فيك ,,
أما نسخ الكراك فاستخدم الأكواد الموجودة في بعض دروس الدورة !!
 
توقيع : ashalshaikh
توقيع : ashalshaikh
في عندكم شرح دوال GUI ودوال array لو تكرمتم
 
توقيع : eXample_X
eXample_X قال:
في عندكم شرح دوال GUI ودوال array لو تكرمتم
أنقر للتوسيع...
بالنسبة لـGUI فسوف تطوووووووووووووووووووووووووووووووووووووووووووووووول ,,
لذلك خلينا نمشي خطوة خطوة أفضل ,,
أما Array فهي بسيطة بإذن الله ,,
هي متغيرات تحتوي على أكثر من قيمة ,,
إن شاء الله أحد الإخوة يشرحها ,,
 
توقيع : ashalshaikh
تابع
سلسلة أوامر الدوران
أصنع حلقة أوامر
إعداد : Ashalshaikh

رابعا :: أمر الدوران سهل جدا Do
يقوم بعمل دائرة إلى أن يحدث شرط الخروج ,,

هو شبيه جدا بـ While ولكن :
While : شرط البقاء في الحلقة
Do : شرط الخروج من الحلقة

ملاحظة :: لا يمكن وضع Do يدور إلى الأبد ولكن ممكن نتحايل عليه :d:

الآن ناخذ مثال ::
كود: 
[B][FONT=Times New Roman][SIZE=3][COLOR=Blue]Do [/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=DarkRed]$dd[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=RoyalBlue][COLOR=Navy]Msgbox[/COLOR] (4,"","هل تريد الخروج")[/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=Blue]Until[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=DarkRed] $dd[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = 6[/SIZE][/FONT][/B]
سيخرج إذا ضغطت على نعم ,,

# نلاحظ هنا فرق بينه وبين While ,,,, فيWhile لا بد من تعريف المتغير قبل الدخول في الحلقة ,, ولكن هنا يمكن تعريفه داخل الحلقة بدون مشاكل ,,

ناخذ مثال آخر ,,
كالعادة ,, يعد من 0 إلى 5
كود: 
[B][FONT=Times New Roman][SIZE=3][COLOR=DarkRed]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = 0[/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=Blue]Do [/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=Navy] Msgbox[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=RoyalBlue](0,"",[COLOR=DarkRed]$Num[/COLOR] )[/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=DarkRed] $Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] =[/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=DarkRed] $Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] + [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Purple]1[/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=Blue]Until [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=DarkRed]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=DarkOrchid]6[/COLOR][/SIZE][/FONT][/B]
لماذا شرط الخروج 6 مع إننا نريده يعد إلى 5 ؟ أنتظر إجابة منكم !!

نجرب شي ثاني ,,
نريده يعد من 1 إلى 5 ولكن يقفز الرقم 3
كود: 
[B][FONT=Times New Roman][SIZE=3][COLOR=DarkRed]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Purple]0[/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=Blue]Do [/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=DarkRed]   $Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=DarkRed]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] + [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Purple]1[/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=Blue]If [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=DarkRed]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = [COLOR=Purple]3[/COLOR] [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Blue]Then ContinueLoop[/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=Navy]    Msgbox[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] ([/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Purple]0[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3],"",[/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=DarkRed]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] )[/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=Blue]Until [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=DarkRed]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] =[/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Purple] 5[/COLOR][/SIZE][/FONT][/B]
كالعادة استخدم ExitLoop وجرب كذا وكذا إلى أن تتعود ,,
طيب أنا في السابق قلتلك ما نقدر نخليه يعمل إلا الأبد إلا بالتحايل !!! :d:
كيف نعطيه في شرط الخروج شي مستحيل ,, مثل
1>2 :d:
فلو مهما حصل لن يخرج لأنه مستحيل أن يكون الواحد أكبر من الإثنين ..
كود: 
[B][FONT=Times New Roman][SIZE=3][COLOR=Blue]Do [/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=Navy]Msgbox[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] ([/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Purple]0[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3],"",[/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Purple]1[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] )[/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=Blue]Until[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=Purple] 1[COLOR=Red]>[/COLOR]2[/COLOR][/SIZE][/FONT][/B]
تحياتي لكم !!
​
 
توقيع : ashalshaikh
ashalshaikh قال:
تابع

سلسلة أوامر الدوران
أصنع حلقة أوامر
إعداد : Ashalshaikh​

رابعا :: أمر الدوران سهل جدا Do
يقوم بعمل دائرة إلى أن يحدث شرط الخروج ,, ​

هو شبيه جدا بـ While ولكن :
While : شرط البقاء في الحلقة
Do : شرط الخروج من الحلقة ​

ملاحظة :: لا يمكن وضع Do يدور إلى الأبد ولكن ممكن نتحايل عليه :d:​

الآن ناخذ مثال :: ​
كود: 
[CENTER][B][FONT=Times New Roman][SIZE=3][COLOR=blue]Do [/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=darkred]$dd[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=royalblue][COLOR=navy]Msgbox[/COLOR] (4,"","هل تريد الخروج")[/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=blue]Until[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=darkred] $dd[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = 6[/SIZE][/FONT][/B][/CENTER]
سيخرج إذا ضغطت على نعم ,, ​


# نلاحظ هنا فرق بينه وبين While ,,,, فيWhile لا بد من تعريف المتغير قبل الدخول في الحلقة ,, ولكن هنا يمكن تعريفه داخل الحلقة بدون مشاكل ,, ​

ناخذ مثال آخر ,,
كالعادة ,, يعد من 0 إلى 5​
كود: 
[CENTER][B][FONT=Times New Roman][SIZE=3][COLOR=darkred]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = 0[/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=blue]Do [/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=navy]Msgbox[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=royalblue](0,"",[COLOR=darkred]$Num[/COLOR] )[/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=darkred]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] =[/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=darkred] $Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] + [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=purple]1[/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=blue]Until [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=darkred]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=darkorchid]6[/COLOR][/SIZE][/FONT][/B][/CENTER]
لماذا شرط الخروج 6 مع إننا نريده يعد إلى 5 ؟ أنتظر إجابة منكم !!​


نجرب شي ثاني ,,
نريده يعد من 1 إلى 5 ولكن يقفز الرقم 3​
كود: 
[CENTER][B][FONT=Times New Roman][SIZE=3][COLOR=darkred]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=purple]0[/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=blue]Do [/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=darkred]  $Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=darkred]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] + [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=purple]1[/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=blue]If [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=darkred]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] = [COLOR=purple]3[/COLOR] [/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=blue]Then ContinueLoop[/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=navy]   Msgbox[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] ([/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=purple]0[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3],"",[/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=darkred]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] )[/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=blue]Until [/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=darkred]$Num[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] =[/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=purple] 5[/COLOR][/SIZE][/FONT][/B][/CENTER]
كالعادة استخدم ExitLoop وجرب كذا وكذا إلى أن تتعود ,,

طيب أنا في السابق قلتلك ما نقدر نخليه يعمل إلا الأبد إلا بالتحايل !!! :d:
كيف نعطيه في شرط الخروج شي مستحيل ,, مثل
1>2 :d:
فلو مهما حصل لن يخرج لأنه مستحيل أن يكون الواحد أكبر من الإثنين .. ​
كود: 
[CENTER][B][FONT=Times New Roman][SIZE=3][COLOR=blue]Do [/COLOR][/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=navy]Msgbox[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] ([/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=purple]0[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3],"",[/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=purple]1[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3] )[/SIZE][/FONT][/B]
[B][FONT=Times New Roman][SIZE=3][COLOR=blue]Until[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=purple] 1[COLOR=red]>[/COLOR]2[/COLOR][/SIZE][/FONT][/B][/CENTER]
تحياتي لكم !! ​
أنقر للتوسيع...


جزاك الله الف خير :ok:​
 
توقيع : Future Tank X-1
جزاك الله خير يااحمد على الشرح المفيد :ok:

وتم التقييم لعيونك :b:
 
توقيع : MR.CORVETTE
يجب تسجيل الدخول أو التسجيل كي تتمكن من الرد هنا.
عودة
أعلى