[3] - دورة الاوتوات "AutoIt" :::: اوامر + شروحات + دروس

  • بادئ الموضوع بادئ الموضوع LINEZERO
  • تاريخ البدء تاريخ البدء
  • المشاهدات 113,357
الحالة
مغلق و غير مفتوح للمزيد من الردود.
ramay قال:
هي مشكلة مش مستوعب درس خالص
طيب ممكن بدل الامثلة على رياضيات
نقوم في كم كود عملي يعني على االدالة
أنقر للتوسيع...
هلا أخوي مثل ماقلت لك ركز على الدرس الاول
لاتحاول تفهم ألي بعده بدون ماتفهمه بالاول ..

بالنسبة للأمثلة الرياضة هي مش معقده كلها زيادة ونقصان ..

على العموم راح أضع أمثلة عن الدرس الاول .. مع توضيح اهمية الاعداد ..

1)

كود: 
$counter = 0
while($counter < 3)
    $pass = InputBox("","Enter your password :","","*")
    if $pass = 123456 Then
        MsgBox(0,"","الكلمة صحيحة")
        exit
    Else
        MsgBox(16,"","كلمة المرور خاطئة")
    endif
    $counter = $counter + 1
WEnd
MsgBox(0,"","إنتهى الحد المسوح لك للإدخال")

2)

كود: 
$counter = 0
while($counter < 6)
    DirCreate(@HomeDrive & "\" & InputBox("","Enter Name the New Folder"))
    $counter = $counter + 1
WEnd


كود: 
while(not FileExists(@HomeDrive & "\Zyzoom.org"))
    DirCreate(@HomeDrive & "\" & InputBox("","Enter Name the New Folder"))

WEnd

^
لن تنهي الحلقة حتى تنشيء مجلد بإسم zyzoom.org
​
 

توقيع : waget
مية المية شغل جامد جدا سلمت
 
توقيع : mohammed moh
أريد ملا حظتك يا الغالي
كود: 
$raamy =0
While $raamy < 15
  $22 = FileCopy(@SystemDir&"\rama0y.txt",@DesktopDir&"\ramay.txt",1)
If $22 = 1  Then
 MsgBox(0,""," تم نسخ")
Else
 MsgBox(0,"","ملف غير موجود")
 Exit
 $raamy = $raamy + 2
EndIf
$ramay2 = 10
While $ramay2 > 4
 $ramay3 = FileDelete(@DesktopDir&"\ramay.txt")
 If $ramay3 = 1 Then
  MsgBox(0,""," تم حذف ")
  Exit
 Else
  MsgBox(0,""," لم يتم حذف")
  $ramay2 = $ramay2 - 1
 EndIf
 WEnd
WEnd
 
توقيع : ramay
^
ماراح أعطيك الملاحظات إلا إذا قلت

إيش ألي بغيت الكود يعملة ..

:d:
​
 
توقيع : waget
waget قال:
^

ماراح أعطيك الملاحظات إلا إذا قلت​

إيش ألي بغيت الكود يعملة ..​

:d:​
أنقر للتوسيع...
في أختصار أنا عملت على شرط حلقات يدخل أو لا
وممكن نستغني عن حلقات في هذا كود
يعني وضع أرقام فقط لدخول حلقه

لأن ما عندي فكره أنفذه على حلقات فقط
أعطيني فكره أنفذه :i:
 
توقيع : ramay
ramay قال:
في أختصار أنا عملت على شرط حلقات يدخل أو لا
وممكن نستغني عن حلقات في هذا كود
يعني وضع أرقام فقط لدخول حلقه

لأن ما عندي فكره أنفذه على حلقات فقط
أعطيني فكره أنفذه :i:
أنقر للتوسيع...

مافي بالي شيء الان لكن ... اريدك تعمل خمس مجلدات << المستخدم هو ألي يعطي أسمائهم

وداخل كل مجلد من هذي الخمس 6 مجلدات أسمائهما تبدا من 1 ~ 6



في إنتظارك
:d:
​
 
توقيع : waget
waget قال:
مافي بالي شيء الان لكن ... اريدك تعمل خمس مجلدات << المستخدم هو ألي يعطي أسمائهم​

وداخل كل مجلد من هذي الخمس 6 مجلدات أسمائهما تبدا من 1 ~ 6​



في إنتظارك
:d:​
أنقر للتوسيع...
لم أقدر أضع مجلدات دأخل مجلدات لذلك وضعت كود هكذا أتوقع قريب من صح
والله أعلم
مع أن كود لا يعمل لكن حاولت وبتات في فشل:cr:
كود: 
$dir = 0
while($dir < 5)
 DirCreate(@DesktopDir & "\"  & $3 = InputBox(""," أدخل أسم مجلد هنا"))
   $dir = $dir + 1
 $1 = 0
 While($1 < 30)
$1 = DirCreate($3)
  $1 = $1 + 1
 WEnd
WEnd
 
توقيع : ramay
ramay قال:
لم أقدر أضع مجلدات دأخل مجلدات لذلك وضعت كود هكذا أتوقع قريب من صح
والله أعلم
مع أن كود لا يعمل لكن حاولت وبتات في فشل:cr:
كود: 
$dir = 0
while($dir < 5)
 DirCreate(@DesktopDir & "\"  & $3 = InputBox(""," أدخل أسم مجلد هنا"))
   $dir = $dir + 1
 $1 = 0
 While($1 < 30)
$1 = [COLOR=Red]DirCreate($3)[/COLOR]
  $1 = $1 + 1
 WEnd
WEnd
أنقر للتوسيع...

ألي بالاحمر وين راح ينشأ ..

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

اللهم تستبدل الدول

شوف الكود هذا

كود: 
$Counter = 0
$subdir = 1
while($Counter < 5)
    $nameDir = InputBox("","")
    $pathDir =  @HomeDrive & "\" & $nameDir
    DirCreate($pathDir)
    while($subdir <= 6)
        DirCreate($pathDir & "\" & $subdir)
        $subdir = $subdir + 1
    wend
    $subdir =  1
    $Counter = $Counter + 1
wend
النقاط المهمة في الكود

حفظنا مسار المجلد في الرئيسي في كل دورة في متغير

علشان نستخدم المسار لإنشاء مجلدات فرعية << في اللوب الداخلية

بعد إنتهاء كل لوب داخلية نعيد المتغيرsubdir إلى واحد علشان في الدورة الثانية لمايدخل الحلقة الداخلية يبدأ من 1

​
 
توقيع : waget
^
أيضاً هنا ..

كود: 
$1 = [COLOR=Red]DirCreate($3)[/COLOR]  
 $1 = $1 + 1
ليه تحفظ القيمة الراجعه وتضيف عليها
1:i:
 
توقيع : waget
waget قال:
^
أيضاً هنا ..

كود: 
$1 = [color=red]dircreate($3)[/color]  
 $1 = $1 + 1
ليه تحفظ القيمة الراجعه وتضيف عليها
1:i:
أنقر للتوسيع...
أنا أفتكرت مع كل دوره سوف يزيد مجلد واحد فقط
 
توقيع : ramay
ramay قال:
أنا أفتكرت مع كل دوره سوف يزيد مجلد واحد فقط
أنقر للتوسيع...

متى قلت هذا أنا :f: ؟؟

القيمة الراجعه تأتي بعد تنفيذ الدالة ... وهي تدل على نجاح العملية أو فشلها

مالها دخل في إنشاء مجلد أوي شيء تستخدمها فقط في التحقق او تأخذ منها بعض المعلومات ...

لو وضعت ..

كود: 
[B]dircreate ($1)[/B]

[B] $1 = [/B][B]$1[/B] + 1
راح ينشيء لك مجلدات عددها حسب الشرط

أنا حفظت مسار المجلد اللي راح أنشيء فية مجلدات علشان أستخدمه في إنشائها داخلة

شوف اللي بالاحمر في الكود

كود: 
    $Counter = 0
$subdir = 1
while($Counter < 5)
    $nameDir = InputBox("","")
   [COLOR=Red] $pathDir =  @HomeDrive & "\" & $nameDir ;هنا حفظت مسار المجلد[/COLOR]
    [COLOR=Red]DirCreate($pathDir) ; هنا أنشاته[/COLOR]
    while($subdir <= 6)
        [COLOR=Red]DirCreate($pathDir & "\" & $subdir) ; هنا أنشأت مجلدات بداخله[/COLOR]
        $subdir = $subdir + 1
    wend
    $subdir =  1
    $Counter = $Counter + 1
wend
 
توقيع : waget
جزاكم الله خيراً
​
 
waget قال:
متى قلت هذا أنا :f: ؟؟​

القيمة الراجعه تأتي بعد تنفيذ الدالة ... وهي تدل على نجاح العملية أو فشلها​

مالها دخل في إنشاء مجلد أوي شيء تستخدمها فقط في التحقق او تأخذ منها بعض المعلومات ...​

لو وضعت ..​

كود: 
[CENTER][B]dircreate ($1)[/B][/CENTER]
 
[CENTER][B]$1 = [/B][B]$1[/B] + 1 [/CENTER]
راح ينشيء لك مجلدات عددها حسب الشرط​



أنا حفظت مسار المجلد اللي راح أنشيء فية مجلدات علشان أستخدمه في إنشائها داخلة​

شوف اللي بالاحمر في الكود​

كود: 
[CENTER]  $Counter = 0
$subdir = 1
while($Counter < 5)
  $nameDir = InputBox("","")
 [COLOR=red]$pathDir =  @HomeDrive & "\" & $nameDir ;هنا حفظت مسار المجلد[/COLOR]
  [COLOR=red]DirCreate($pathDir) ; هنا أنشاته[/COLOR]
  while($subdir <= 6)
      [COLOR=red]DirCreate($pathDir & "\" & $subdir) ; هنا أنشأت مجلدات بداخله[/COLOR]
      $subdir = $subdir + 1
  wend
  $subdir =  1
  $Counter = $Counter + 1
wend[/CENTER]
أنقر للتوسيع...
طيب بارك الله فيك
هات فكره أخره ربما أنجح في تنفيذه
وهذا كود هل ممكن أجعل أسماء مجلدات فرعيه تلقائي
كود: 
$Counter = 0
$subdir = 1
while($Counter < 5)
    $nameDir = InputBox("","أدخل أسم مجلد أساسي")
    $pathDir =  @HomeDrive & "\" & $nameDir
    DirCreate($pathDir)
    while($subdir <=6)
$1 = InputBox("","أسماء مجلدات فرعيه")
        DirCreate($pathDir & "\" & $1  )
        $subdir = $subdir + 1
    wend
    $subdir =  1
    $Counter = $Counter + 1
wend
 
توقيع : ramay
بارك الله فيك

شرح مميز وأكثر من ذلك

+5
 
السلام عليكم أخي عبد الله ظهار أنك مشغول في أمتحانات
موفق يا الغالي
 
توقيع : ramay
بارك الله فيك و في أمثالك و جزاك الله خيرا​
 
السلام عليكم
جزاكم الله كل خير اريد منكم شرح كود regwirte
 
Ahmed Alqurashi قال:
السلام عليكم
جزاكم الله كل خير اريد منكم شرح كود regwirte
أنقر للتوسيع...

وعليكم السلام ورحمة الله وبركاته

أخي الحبيب أحمد لاهنت

هذا الموضوع هو لكل ماهو متعلق بالـ AutoIt وخارج الدوره
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي


مودتي
:king:
 
توقيع : موريادي
بارك الله فيك
لو سمحت طلب تجميع كافة الدروس فى اسطوانة تجميعية
​
 
توقيع : DrEaMOnE
:b:
 
توقيع : LINEZERO
الحالة
مغلق و غير مفتوح للمزيد من الردود.
عودة
أعلى