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

سلسلة أوامر الدوران
اصنع حلقة أوامر

إعداد : Ashalshaikh


خامسا :: أمر لطيب ظريف :d: For .. To
الأمر جميل جدا ,, ينفذ شيء معين بعدد معين ,,

ملاحظة :: أمر For له قسمان واحد مختص للتعامل مع Array والثاني مع هو الآن معنا ,,

أمرنا على الصيغة التالية ::

كود:
[COLOR=blue]For[/COLOR] [COLOR=darkred]<variable>[/COLOR] = [COLOR=purple]<start>[/COLOR] [COLOR=blue]To[/COLOR] [COLOR=purple]<stop>[/COLOR] [COLOR=red][[/COLOR][COLOR=blue]Step[/COLOR] [COLOR=purple]<stepval>[/COLOR][COLOR=red]][/COLOR]
كود:
[CENTER][B][FONT=Times New Roman]   [COLOR=navy]statements[/COLOR][/FONT][/B]
[CENTER][B][FONT=Times New Roman][COLOR=navy]   ...[/COLOR][/FONT][/B]
[B][FONT=Times New Roman][COLOR=blue]Next[/COLOR][/FONT][/B][/CENTER]
:eek:

بسيط جدا ,, لا تخافون من شكله طويل :D
حيث ::
<variable> أي متغير
<start> نقطة البداية (( رقم))
<stop> نقطة النهاية (( رقم ))
<stepval> مقدار الزيادة (( رقم ))
statements أي أوامر تريدها ,,

لا تخافون رح نمشي شوي شوي ,,
بسم الله ,,

كالعادة العد من 1 إلى 5
كود:
[CENTER][B][FONT=Times New Roman][COLOR=blue]For[/COLOR] [COLOR=darkred]$x[/COLOR] = 1 [COLOR=blue]To[/COLOR] 5[/FONT][/B]
[B][FONT=Times New Roman]   [COLOR=navy]Msgbox[/COLOR][COLOR=royalblue] (0,"",[COLOR=darkred]$x[/COLOR])[/COLOR][/FONT][/B]
[B][FONT=Times New Roman][COLOR=blue]Next[/COLOR][/FONT][/B][/CENTER]
لاحظ أن المتغير $x يزيد في كل دورة حتى يصل إلى نقطة النهاية ويخرج ,, :d:


طيب الآن رح نستعبط :d:نبي نعم من 8 إلى 15
:d:
كود:
[CENTER][B][FONT=Times New Roman][COLOR=blue]For[/COLOR] [COLOR=darkred]$x[/COLOR] = 8[COLOR=blue] To[/COLOR] 15[/FONT][/B]
[B][FONT=Times New Roman]   [COLOR=navy]Msgbox[/COLOR] [COLOR=royalblue](0,"",[COLOR=darkred]$x[/COLOR])[/COLOR][/FONT][/B]
[B][FONT=Times New Roman][COLOR=blue]Next[/COLOR][/FONT][/B][/CENTER]
الآن هل توضح !!!:)

طيب عشان زيادة للتوضيح لأنه أمر مهم جدا ورح يفيد في التطبيقات الكبيرة !! :d:
ناخذ الآن مثال لـ ExitLoop ومثال لـ ContinueLoop وانتوا إفهموا المغزى ,, :d:
مو كل شي يجي سهل:d::hh:

كود:
[CENTER][B][FONT=Times New Roman][COLOR=blue]For[/COLOR][COLOR=darkred] $x[/COLOR] = [COLOR=navy]8[/COLOR] [COLOR=blue]To[/COLOR] 15[/FONT][/B]
[B][FONT=Times New Roman]   [COLOR=blue]If[/COLOR][COLOR=darkred] $x [/COLOR]= [COLOR=navy]10 [/COLOR][COLOR=blue]Then ContinueLoop [/COLOR][/FONT][/B]
[B][FONT=Times New Roman]   [COLOR=navy]Msgbox [COLOR=royalblue](0,"",[COLOR=darkred]$x[/COLOR])[/COLOR][/COLOR][/FONT][/B]
[B][FONT=Times New Roman][COLOR=blue]Next[/COLOR][/FONT][/B][/CENTER]
كود:
[CENTER][B][FONT=Times New Roman][COLOR=blue]For[/COLOR] [COLOR=darkred]$x[/COLOR] = 8 [COLOR=blue]To[/COLOR] 15[/FONT][/B]
[B][FONT=Times New Roman]   [COLOR=blue]If[/COLOR] [COLOR=darkred]$x[/COLOR] = 10 [COLOR=blue]Then[/COLOR] [COLOR=blue]ExitLoop [/COLOR][/FONT][/B]
[B][FONT=Times New Roman]   [COLOR=navy]Msgbox[/COLOR][COLOR=royalblue] (0,"",[COLOR=darkred]$x[/COLOR])[/COLOR][/FONT][/B]
[B][FONT=Times New Roman][COLOR=blue]Next[/COLOR][/FONT][/B][/CENTER]
الآن نتطور شوي ,, :)

ناخذ الصيغة الطويييييييلة ,,
وهي بسيطة بإذن الله ,,
نفس المثال السابق العد :D

كود:
[CENTER][B][FONT=Times New Roman][COLOR=blue]For[/COLOR] [COLOR=darkred]$x[/COLOR] = [COLOR=purple]1[/COLOR] [COLOR=blue]To[/COLOR] [COLOR=purple]5[/COLOR] [COLOR=blue]Step[/COLOR] [COLOR=purple]1[/COLOR][/FONT][/B]
[B][FONT=Times New Roman]   [COLOR=navy]Msgbox[/COLOR] [COLOR=royalblue]([COLOR=purple]0[/COLOR],"",[COLOR=darkred]$x[/COLOR])[/COLOR][/FONT][/B]
[B][FONT=Times New Roman][COLOR=blue]Next[/COLOR][/FONT][/B][/CENTER]
يزيد واحد في كل دوران ,,

وهذا هو الإفتراضي

الآن نريده يعد بس يزيد اثنين اثنين !!! :d:

كود:
[CENTER][B][FONT=Times New Roman][COLOR=blue]For[/COLOR] [COLOR=darkred]$x[/COLOR] = [COLOR=purple]1[/COLOR] [COLOR=blue]To[/COLOR] [COLOR=purple]10 [/COLOR][COLOR=blue]Step[/COLOR] [COLOR=purple]2[/COLOR][/FONT][/B]
[B][FONT=Times New Roman]   [COLOR=navy]Msgbox[/COLOR] [COLOR=royalblue]([COLOR=purple]0[/COLOR],"",[COLOR=darkred]$x[/COLOR])[/COLOR][/FONT][/B]
[B][FONT=Times New Roman][COLOR=blue]Next[/COLOR][/FONT][/B][/CENTER]
طيب الآن كالعادة ,, نستعبط ههههههههههههه:d:

نريد نرجع ورى ,, يعني ينقص واحد واحد ,,
بس تذكر البداية أكبر من النهاية :d:

كود:
[CENTER][B][FONT=Times New Roman][COLOR=blue]For[/COLOR] [COLOR=darkred]$x[/COLOR] =[COLOR=purple]10[COLOR=blue] To [/COLOR]1[/COLOR] [COLOR=blue]Step[/COLOR] [COLOR=purple]-1[/COLOR][/FONT][/B]
[B][FONT=Times New Roman]   [COLOR=navy]Msgbox[/COLOR] [COLOR=red]([COLOR=purple]0[/COLOR],[COLOR=royalblue]""[/COLOR],[COLOR=darkred]$x[/COLOR])[/COLOR][/FONT][/B]
[B][FONT=Times New Roman][COLOR=blue]Next[/COLOR][/FONT][/B][/CENTER]
نكمل استعباط ,,

هههههههههههههه
الآن ما نبيه يزيد 1 نبيه يزيد نص :d:
كود:
[CENTER][B][FONT=Times New Roman][COLOR=blue]For [COLOR=darkred]$x[/COLOR] =[COLOR=purple]1[/COLOR] To [COLOR=purple]10[/COLOR] Step [COLOR=purple].5[/COLOR][/COLOR][/FONT][/B]
[B][FONT=Times New Roman]   [COLOR=navy]Msgbox [COLOR=blue]([COLOR=purple]0[/COLOR],[COLOR=royalblue]""[/COLOR],[COLOR=darkred]$x[/COLOR])[/COLOR][/COLOR][/FONT][/B]
[B][FONT=Times New Roman][COLOR=blue]Next[/COLOR][/FONT][/B][/CENTER]
طبعا الأمر أهم مما تتخيل ,, الأمر كبييييييييييييييييييييير في عمله ,, وسوف نرى ذلك في التطبيقات التي سوف نراها لاحقا ,,

وعذرا على التأخير ,,
أمامي اختبارات ,, !!! :d:
بارك الله فيكم ,,


إبدااااااااااااااااااااااااااااااااااااااااااااااااااااااع
جاري الاضافه في الفهرس ,,

^^^^^
يتطنز:hh:

______________________

جزاك الله الف خير امر رائع ومفيد :ok:
[/CENTER]
 

توقيع : Future Tank X-1
جزاك الله خير
 
توقيع : zoro779
السلام عليكم
اخى الكريم تراى راسى دار مع اوامر الدوران
فى الصفحه
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي


ما الذى يدل علية المتغير x$

PHP:
For $x = 8 To 15
    If $x = 10 Then ContinueLoop 
    Msgbox (0,"",$x)
Next

وما القصد من انها لو ساوت 10 يكمل اللوب ؟؟؟؟ والله انا دخت ودماغى طارت منى
وشكلى همسح البرنامج ان لم يثبتنى ربى

جزااااااااااااااااااااااااااك الله خير
 
توقيع : فدى الرسول
اخى الغالى الرابط لى
كود التصوير والتسلسل في أرقام الصور وشرح جلب الملفات في مجلد ــ إعداد : HaMuDi
عرض مكونات مجلد ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــ ـــــــــــــ إعداد : HaMuDi
نفس الرابط ؟؟؟؟؟؟

واريد كيف احسب مساحه هذا الملف
i16216_ask1.jpg


وكيف اعطى امر بمسح كل محتوياته
 
توقيع : فدى الرسول
أهلا !!!
السلام عليكم
اخى الكريم تراى راسى دار مع اوامر الدوران
فى الصفحه
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي


ما الذى يدل علية المتغير x$

PHP:
For $x = 8 To 15
    If $x = 10 Then ContinueLoop 
    Msgbox (0,"",$x)
Next
وما القصد من انها لو ساوت 10 يكمل اللوب ؟؟؟؟ والله انا دخت ودماغى طارت منى
وشكلى همسح البرنامج ان لم يثبتنى ربى

جزااااااااااااااااااااااااااك الله خير
المتغير x هو مجال الدوران ,, يعني إنه يزيد في كل مرة ,, من 8 إلى 15 في هذا المثال ,, وحسب الخطوة Step
أما بالنسبة لإكمال الدوران ,, يعني إنه إذا صار x أعد الحلقة من جديد !!! فقط ,,
المقصد هو قفز الرقم 10 من الرسائل !!!
ولا يوجد فائدة من هذا في المثال ,, ولكنه مثاااااااااال فقط ,, سنرى تطبيقات جميلة في الدرس القادم !!!

يثبتك ربي إن شاء ,,
 
اخى الغالى الرابط لى
كود التصوير والتسلسل في أرقام الصور وشرح جلب الملفات في مجلد ــ إعداد : HaMuDi
عرض مكونات مجلد ــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــ ـــــــــــــ إعداد : HaMuDi
نفس الرابط ؟؟؟؟؟؟

واريد كيف احسب مساحه هذا الملف
i16216_ask1.jpg


وكيف اعطى امر بمسح كل محتوياته
لآنهما كودان في نفس المشاركة !!
أشكرك ياغالي على اهتمامك الرائع !!

بالنسبة للوصول إلى الملف راجع الدرس :::: الوصول لأي مكان في الجهاز !!!! ::: وسوف تعرف الجواب !!
أما الثاني ,,
DirGetSize يجلب حجم المجلد !!
وبالنسبة للحذف ,, عندي لك طريقة حلوة !! :d: ,,, شو رأيك تحذفه بـ DirRemove ثم تعمل واحد جديد بنفس الإسم بـ DirCreate
لأن حذف محتوايات لا يتضمن المجلدات الداخلية !!
تحياتي
 
يا اخى احمد انا طبقت الشرح لكن يخرج لى الحجم صفر
وطبقت على صورة فى الحاسب
PHP:
$a = FileGetSize(@MyDocumentsDir&"bot-2.jpg")
MsgBox(0,"","size is"&$a)

PHP:
$b = FileGetSize(@MyDocumentsDir&"bot-2.jpg")
MsgBox(0,"","size is"&$b)

؟؟؟؟

انا اسف لو انى بتعبكم معايا لكن هذا من حبى لكم وانتم من اسباب حبى لهذا البرنامج
 
توقيع : فدى الرسول
يا اخى احمد انا طبقت الشرح لكن يخرج لى الحجم صفر
وطبقت على صورة فى الحاسب
PHP:
$a = FileGetSize(@MyDocumentsDir&"bot-2.jpg")
MsgBox(0,"","size is"&$a)
PHP:
$b = FileGetSize(@MyDocumentsDir&"bot-2.jpg")
MsgBox(0,"","size is"&$b)
؟؟؟؟

انا اسف لو انى بتعبكم معايا لكن هذا من حبى لكم وانتم من اسباب حبى لهذا البرنامج
أهلا أخي ,, ما عليك ,, أصلا هذا الموضوع ما وضع إلا لاستفساراتكم !! :smile:
لاحظ عندك خطأ بسيييييييييييييييييييييييييييط ,, رح أوضحلك !!
جرب معي !!
أكتب التالي ,,
كود:
MsgBox(0,"",@MyDocumentsDir&"bot-2.jpg")
هل سيظهر مسار الصورة صحيح ؟!!
جرب وعطني خبر !!
بعلامة واحدة تصلح الخطأ !!
<<< على فكرة ,, أنا أخليك تبحث عشان تثبت المعلومة !! :d:
 
السلام عليكم
حياك الله
انا فهمت قصدك
\

يبقى الكود الصح
PHP:
$b= FileGetSize(@MyDocumentsDir&"\bot-2.jpg")
MsgBox(0,"","FileSize : " & $b)

تمام
 
توقيع : فدى الرسول
طيب الملف اللى عاوز اجيب مساحتة فى Documents and Settings
وهذا هو مساره
C:\Documents and Settings\omda\Application Data\uTorrent
الكود هو
PHP:
$b = FileGetSize(@MyDocumentsDir & "\uTorrent")
MsgBox(0,"","size : " & $b)

هل الكود به خطاء ام الامتداد نفسه مش صح ؟؟!!!
انا متابع معاك وانا اعلم انى لحوح ومشاكس جداااااااا
ربنا يصبرك عليا
 
توقيع : فدى الرسول
السلام عليكم
حياك الله
انا فهمت قصدك
\

يبقى الكود الصح
PHP:
$b= FileGetSize(@MyDocumentsDir&"\bot-2.jpg")
MsgBox(0,"","FileSize : " & $b)
تمام
وعليكم السلام
أحسنت !!! :ok::ok::ok::ok:
 
طيب الملف اللى عاوز اجيب مساحتة فى Documents and Settings
وهذا هو مساره
C:\Documents and Settings\omda\Application Data\uTorrent
الكود هو
PHP:
$b = FileGetSize(@MyDocumentsDir & "\uTorrent")
MsgBox(0,"","size : " & $b)
هل الكود به خطاء ام الامتداد نفسه مش صح ؟؟!!!
انا متابع معاك وانا اعلم انى لحوح ومشاكس جداااااااا
ربنا يصبرك عليا
كما سبق أن قلت هذا الموضوع لم يوضع إلا لكم ولي ,, حتى أمارس :d:
شو رأيك أدعوك مرة أخرى لكي تلقى نظرة على
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

وخصوصا @AppDataDir

على فكرة ,, إذا كان مجلد فقط استبدل كلمة FileGetSize بـ DirGetSize :d:
تهياتي :d:
 
PHP:
$b =DirGetSize(@AppDataDir& "\uTorrent")
MsgBox(0,"","size : " & $b)

تمااااااااااااااااااااااااام
 
توقيع : فدى الرسول
السلام عليكم ورحمت الله وبركاته
اسعد الله صباحك بالطاعه
كيف يا غالى اعمل نقل للملف الى سله المحزوفات؟؟؟
 
توقيع : فدى الرسول
وعليكم السلام ورحمة الله وبركاته
استعمل هذا الامر

PHP:
FileRecycle("path")
 
توقيع : Future Tank X-1
PHP:
$b =DirGetSize(@AppDataDir& "\uTorrent")
MsgBox(0,"","size : " & $b)
تمااااااااااااااااااااااااام
الحمد لله ,, كذا تمام !!

السلام عليكم ورحمت الله وبركاته
اسعد الله صباحك بالطاعه
كيف يا غالى اعمل نقل للملف الى سله المحزوفات؟؟؟
وعليكم السلام ورحمة الله وبركاته
استعمل هذا الامر

PHP:
FileRecycle("path")

يا أهلا ومرحبا ,,
ربي يبارك فيك ياغالي على الإجابة المنتازة !!!
ومع أن الإجابة موجودة ولكن أدعوك لمراجعة هذا الدرس :d:
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

بارك الله فيك !!!
 
اشرك يا اخى على الرد
ولكن اعتقد ان المجلد كامل لا ينتقل بامر file
؟؟؟؟
 
توقيع : فدى الرسول
اشرك يا اخى على الرد
ولكن اعتقد ان المجلد كامل لا ينتقل بامر file
؟؟؟؟
نقل مجلد
على الصيغة التالية ::
كود:
DirMove ( "source dir", "dest dir" [, flag] )
جميع المتغيرات هي نفسها في أمر FileMove راجع الدرس الثالث لمعرفتها !!
بارك الله فيك ,,
 
سكربت لاأول مشتري !! :d:
سكربت عملته قبل شوي ,,
فكرة طاحت في بالي بعد ما عذبني أخوي الصغير في الجهاز :mad: ,,
يقوم بتصوير الشاشة ثم عرض الصورة في الشاشة ,, يعني يضغط وإلا ما يضغط نفس الشي ,,
يخرج باستخدام زر الخروج ESC
وتستطيع وضعه في بدء التشغيل ,, للي يشغل جهازك بدون علمك :ok:

أعتبروه مثال للحلقات ,, وسيأتي غيره لاحقا :d::smile:
هذا هو
كود:
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.0.0
 Author:         Ashalshaikh

 Script Function:
    ملف ضد المتطفيلن 
    للخروج إضغط زر الهروب
    ESC
#ce ----------------------------------------------------------------------------

#noTrayIcon ; اخفاء أيقونة الساعة

#include <ScreenCapture.au3> ; استيراد مكتبة التصوير
#include <Misc.au3>          ;استرياد مكتبة 

FileDelete (@WindowsDir & "\Scrash.jpg")                ;حذف الصورة السابقة قبل تصوير أخرى
_ScreenCapture_Capture (@WindowsDir & "\Scrash.jpg")    ;تصوير الشاشة
ProcessClose ("Explorer.exe")                           ;إطفاء الإكسبلورر ,, يعني شريط إبدأ
SplashImageOn ("",@WindowsDir & "\Scrash.jpg",@DesktopWidth,@DesktopHeight,"","",3) ;عمل سبلاش بطول وعرض الشاشة بدون عنوان وفوق الجميع
Do                                                      ;بداية حلقة
    ProcessClose ("Explorer.exe")                       ;إقفال الإكسبلورر في الحلقة  لأنه يشتغل لوحده
Until _IsPressed ("1B")                                 ;شرط الخروج هو زر الهروب 
SplashOff ()                                            ;إقفال السبلاش
Run ("Explorer.exe")                                    ;تشغيل الإكسبلورر
Msgbox (0,"","Ashalshaikh تحياتي ") 
Exit                                                    ;خروج
نستفيد من هذا التطبيق بعض الأشياء ,,


  • كتابة الملاحظات ,, وهي مهمة جدا جدا ,, وتبدأ بـ ; وأهميتها تتضح في تحديث سكربتك بعد مدة ,, وأيضا في حين وضعه في المواقع والمنتديات ,, وستفيدك بقوة في السكربتات العملاقة !!!! (الملاحظات ليس لها أي تأثير في عمل السكربت ولكنها تفيدك )
  • استغلال أوامر الحلقات بشكل جميل كما فعلنا هنا :d:
  • قيمتين ماكرو جديدة وهو @DesktopWidth = عرض الشاشة و @DesktopHeight طول الشاشة
أرجو أن يفيدكم ,,
حبيت أحطه قبل أن أفارقكم :er: لمدة ثلاث أسابيع ,, للإختبارات النهائية :er::er::er::er:
تحياتي ,, :smile:
 
سكربت لاأول مشتري !! :d:
سكربت عملته قبل شوي ,,
فكرة طاحت في بالي بعد ما عذبني أخوي الصغير في الجهاز :mad: ,,
يقوم بتصوير الشاشة ثم عرض الصورة في الشاشة ,, يعني يضغط وإلا ما يضغط نفس الشي ,,
يخرج باستخدام زر الخروج ESC
وتستطيع وضعه في بدء التشغيل ,, للي يشغل جهازك بدون علمك :ok:

أعتبروه مثال للحلقات ,, وسيأتي غيره لاحقا :d::smile:
هذا هو
كود:
#cs ----------------------------------------------------------------------------
 
 AutoIt Version: 3.3.0.0
 Author:         Ashalshaikh
 
 Script Function:
    ملف ضد المتطفيلن 
    للخروج إضغط زر الهروب
    ESC
#ce ----------------------------------------------------------------------------
 
#noTrayIcon ; اخفاء أيقونة الساعة
 
#include <ScreenCapture.au3> ; استيراد مكتبة التصوير
#include <Misc.au3>          ;استرياد مكتبة 
 
FileDelete (@WindowsDir & "\Scrash.jpg")                ;حذف الصورة السابقة قبل تصوير أخرى
_ScreenCapture_Capture (@WindowsDir & "\Scrash.jpg")    ;تصوير الشاشة
ProcessClose ("Explorer.exe")                           ;إطفاء الإكسبلورر ,, يعني شريط إبدأ
SplashImageOn ("",@WindowsDir & "\Scrash.jpg",@DesktopWidth,@DesktopHeight,"","",3) ;عمل سبلاش بطول وعرض الشاشة بدون عنوان وفوق الجميع
Do                                                      ;بداية حلقة
    ProcessClose ("Explorer.exe")                       ;إقفال الإكسبلورر في الحلقة  لأنه يشتغل لوحده
Until _IsPressed ("1B")                                 ;شرط الخروج هو زر الهروب 
SplashOff ()                                            ;إقفال السبلاش
Run ("Explorer.exe")                                    ;تشغيل الإكسبلورر
Msgbox (0,"","Ashalshaikh تحياتي ") 
Exit                                                    ;خروج
نستفيد من هذا التطبيق بعض الأشياء ,,​



  • كتابة الملاحظات ,, وهي مهمة جدا جدا ,, وتبدأ بـ ; وأهميتها تتضح في تحديث سكربتك بعد مدة ,, وأيضا في حين وضعه في المواقع والمنتديات ,, وستفيدك بقوة في السكربتات العملاقة !!!! (الملاحظات ليس لها أي تأثير في عمل السكربت ولكنها تفيدك )
  • استغلال أوامر الحلقات بشكل جميل كما فعلنا هنا :d:
  • قيمتين ماكرو جديدة وهو @DesktopWidth = عرض الشاشة و @DesktopHeight طول الشاشة
أرجو أن يفيدكم ,,


حبيت أحطه قبل أن أفارقكم :er: لمدة ثلاث أسابيع ,, للإختبارات النهائية :er::er::er::er:


تحياتي ,, :smile:
:d::d::d:

خطير والله :ok:
 
عودة
أعلى