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

[ashalshaikh]

فيه امر جاهز :d:

[COLOR=Magenta]#include[/COLOR] [COLOR=Silver]<Date.au3>[/COLOR]
[COLOR=DarkSlateBlue]MsgBox[/COLOR][COLOR=Red]([/COLOR]0,[COLOR=Silver]""[/COLOR],[COLOR=Silver]"The time is:"[/COLOR] &[COLOR=Cyan] _NowTime[COLOR=Red]()[/COLOR][/COLOR][COLOR=Red])[/COLOR]

:d::d::d::d:
كنت حاس والله ,, :b:
على إيدك يالغلا ,, أشهد إنك ذيب ,,

 

[ashalshaikh]

تسلم :b:

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

هو استاذ الAutoit

لولا الله ثم هو كان يمديني رحت في خبر كان :d::d:

الله يسلمك :b::b::b::b::b:
ما أستحق كل هذي الكلمات :b:
ربي يسلمك ويخليك ,,

 

[ashalshaikh]

معلش انتوا حتتخنقوا مني أسئلتي كتيرة اوي
دلوقتي في
send
إذا كنا نريد ان يرسل البرنامج ضغطة زر مفتاح من لوحة المفاتيح
ولكن هل هناك داله يمكن ان ترسل للبرنامج ماذا ضغطت

اه والبرنامج لتصوير أكثر من صورة و يكون الأسم ارقام متسلسلة

#include <ScreenCapture.au3>

;name of File
For $I=1 To 500 Step 1
    If FileExists(@DesktopDir & "\"&$I&".jpg") Then
    Else
    $name=$I
    ExitLoop
EndIf
Next

; Capture full screen
_ScreenCapture_SetJPGQuality(85)
_ScreenCapture_Capture(@DocumentsCommonDir & "\"&$name&".jpg" )

لا يالغلا خذ راحتك على الآخر ,,
k:k:k:k:k:k:k:k:
ممتااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااز ,,
جدا ,,
إن شاء الله تطوره أكثر بعد ما أنزل درس While بعد شوي :d:

 

[القنـاص]

معلش انتوا حتتخنقوا مني أسئلتي كتيرة اوي
دلوقتي في
send
إذا كنا نريد ان يرسل البرنامج ضغطة زر مفتاح من لوحة المفاتيح
ولكن هل هناك داله يمكن ان ترسل للبرنامج ماذا ضغطت

اه والبرنامج لتصوير أكثر من صورة و يكون الأسم ارقام متسلسلة

#include <screencapture.au3>

;name of file
for $i=1 to 500 step 1
    if fileexists(@desktopdir & "\"&$i&".jpg") then
    else
    $name=$i
    exitloop
endif
next

; capture full screen
_screencapture_setjpgquality(85)
_screencapture_capture(@documentscommondir & "\"&$name&".jpg" )

كنت مثلك

كل يوم ناط على Ashalshaikh بسؤال :d:

شغل تمام بس فيه مشكله

اذا قفل البرنامج وشغله مرة ثانية يعيد العد من جديد

اذا تبغاني اعدلها لك حاضر

تهياتي:bleh:

 

[elawady]

كنت مثلك

كل يوم ناط على ashalshaikh بسؤال :d:

شغل تمام بس فيه مشكله

اذا قفل البرنامج وشغله مرة ثانية يعيد العد من جديد

اذا تبغاني اعدلها لك حاضر

تهياتي:bleh:

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

 

[القنـاص]

طيب ليش يتحقق من وجود الملف في سطح المكتب

   If Not FileExists([COLOR=Red]@DesktopDir[/COLOR] & "\"&$I&".jpg") Then

ويصور في المستندات اللي في ALLUSER

_ScreenCapture_Capture([COLOR=Red]@DocumentsCommonDir[/COLOR] & "\"&$name&".jpg" )

المفروض كلها مثل بعض

ولا انا غلطان ؟؟
:d::d:

 

[elawady]

اكيد للكود ده اختصار بس انا مش عارفه

For $N=1 To 500 Step 1
$time_in = InputBox("time", "Enter Time Delay in SEC", "", " M3")
If Not StringIsDigit($time_in) Then
    MsgBox(4096,"Eror","Time in Sec")
    ContinueLoop
Else
    ExitLoop
EndIf
Next

انا من الآخر عايز اعمل رسالة خطأ و يعيد سطر صندوق الإدخال مرة اخري و لكن لا اعرف

 

[elawady]

طيب ليش يتحقق من وجود الملف في سطح المكتب

   If Not FileExists([COLOR=Red]@DesktopDir[/COLOR] & "\"&$I&".jpg") Then

ويصور في المستندات اللي في ALLUSER

_ScreenCapture_Capture([COLOR=Red]@DocumentsCommonDir[/COLOR] & "\"&$name&".jpg" )

المفروض كلها مثل بعض

ولا انا غلطان ؟؟
:d::d:

اديني عرفت حاجة جديدة NOT:d::d::d::d:

 

[القنـاص]

اديني عرفت حاجة جديدة NOT:d::d::d::d:

ههههههه

هذا انا عدلت عليها بدل Else حط Not بعد الشرط

ونسيت ما اشيلها :d::d::d::d::d::d::d::d::d::d::d::d::d:

 

[ashalshaikh]

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

إعداد : Ashalshaikh
ثالثا :: أمر الدوران الأول والأسهل:d: While
هو ينفذ أمر الدوران يعيد الحلقة بشرط انتبه يعيدها وليس يخرج منها ,,

بسم الله نبدأ ,,

صيغته ::

[COLOR=Blue]While[/COLOR] [COLOR=Sienna]شرط الإعادة
أوامر 
أوامر
أوامر[/COLOR]
......
[COLOR=Blue]WEnd[/COLOR]

ملاحظة في حالة تريده يعيد إلى الأبد تضع الشرط 1 << طبعا يعمل الأوامر السابقة ,,
عشان يكون سهل ,, ناخذ مثال ,,
=========================================

[COLOR=Blue]While[/COLOR] 1 
[COLOR=Navy]Msgbox[/COLOR][COLOR=DimGray]([COLOR=Purple]0[/COLOR],"","رسالة")[/COLOR]
[COLOR=Blue]WEnd[/COLOR]

جربه ,, رح يكون غثه ,, :hh:
يعيد الرسالة مليون ألف مرة :d:
=========================================
طيب الآن نجرب شي ثاني ,,
نجرب شرط الإعادة ,,

[B][COLOR=DarkRed]$Msg[/COLOR] = [COLOR=Gray]""[/COLOR]
[COLOR=Blue]While[/COLOR][COLOR=DarkRed] $Msg[/COLOR][COLOR=Red]<>[/COLOR][COLOR=Purple]6[/COLOR]
    [COLOR=DarkRed]$Msg[/COLOR] = [COLOR=Navy]Msgbox[/COLOR][COLOR=RoyalBlue]([COLOR=Purple]4[/COLOR],"","هل تريد الخروج من الحلقة ؟")[/COLOR]
[COLOR=Blue]WEnd[/COLOR]
[COLOR=Navy]Msgbox[/COLOR][COLOR=RoyalBlue]([COLOR=Purple]0[/COLOR],"","تم الخروج")[/COLOR]
[/B]

هل فهمت الكود ؟ ما فهمته ؟ ...... طيب خليني أشرحه لك
عرفنا متغير فارغ ,,
شرط الدخول أن يكون المتغير أقل أو أكثر من 6 يعني أي شي إلا 6 ,, لو طلع المتغير 6 رح يخرج
عرفنا نفس المتغير برسالة ,,

تذكر :: عندما يضغط المستخدم على لا يخرج 7 وعلى نعم يخرج 6

يعني بما إنه يضغط على لا ماراح يخرج من الدائرة ,, !!!

=========================================
طيب بسم الله مثال آخر ,,

نريد نعد من واحد إلى 5 برسائل ,,
​

[COLOR=DarkRed]$Count[/COLOR] = [COLOR=Purple]0[/COLOR]
[COLOR=Blue]While[/COLOR] [COLOR=DarkRed]$Count[/COLOR] [COLOR=Red]<=[/COLOR] [COLOR=Purple]5[/COLOR]
    [COLOR=Navy]Msgbox[/COLOR] ([COLOR=Purple]0[/COLOR],"",[COLOR=DarkRed]$Count[/COLOR])
    [COLOR=DarkRed]$Count[/COLOR] = [COLOR=DarkRed]$Count[/COLOR] + [COLOR=Purple]1[/COLOR]
[COLOR=Blue]WEnd[/COLOR]

شرط البقاء في الدائرة أن يكون المتغير $Count أقل أو يساوي 5
ورح يزيد واحد عليه كل مرة ,,
ورح يعد ,,
=========================================
الآن نجرب نفس الشي بس مع ExitLoop

[COLOR=DarkRed]$Count[/COLOR] = [COLOR=Purple]0[/COLOR]
[COLOR=Blue]While[/COLOR] [COLOR=DarkRed]$Count[/COLOR] [COLOR=Red]<[/COLOR] [COLOR=Purple]10[/COLOR]
    [COLOR=Navy]Msgbox[/COLOR] ([COLOR=Purple]0[/COLOR],"",[COLOR=DarkRed]$Count[/COLOR])
   [COLOR=Blue] IF[/COLOR] [COLOR=DarkRed]$Count[/COLOR] = [COLOR=Purple]5[/COLOR] [COLOR=Blue]Then ExitLoop[/COLOR]
    [COLOR=DarkRed]$Count[/COLOR] = [COLOR=DarkRed]$Count[/COLOR] + [COLOR=Purple]1[/COLOR]
[COLOR=Blue]WEnd[/COLOR]

شرط البقاء أن يكون أصغر من 10 إذا المفروض يعد إلى 9
ولكنه هنا يصل إلى خمسة ويخرج ليش ؟!!! :?:
لأني اشترطت في الداخل أنه إذا وصل إلى 5 يخرج ,,

=========================================
طيب الآن نجرب شي ثاني مع ContinueLoop
نريده يقفز الرقم 5 يعني يعد من 1 إلى 4 ومن 6 إلى 10
لاحظ تغيير الأمكنة واستنتج ,,

[COLOR=DarkRed]$Count[/COLOR] = [COLOR=Purple]0[/COLOR]
[COLOR=Blue]While[/COLOR] [COLOR=DarkRed]$Count[/COLOR] [COLOR=Red]<[/COLOR] [COLOR=Purple]10[/COLOR]
    [COLOR=DarkRed]$Count[/COLOR] = [COLOR=DarkRed]$Count[/COLOR] + [COLOR=Purple]1[/COLOR]
   [COLOR=Blue] IF[/COLOR] [COLOR=DarkRed]$Count[/COLOR] = [COLOR=Purple]5[/COLOR] [COLOR=Blue]Then ContinueLoop[/COLOR]
     [COLOR=Navy]Msgbox[/COLOR] ([COLOR=Purple]0[/COLOR],"",[COLOR=DarkRed]$Count[/COLOR])
[COLOR=Blue]WEnd[/COLOR]

=========================================
نريده يعد من 0 إلى 10 بس يعلق عند 5 وما يزيد عليها شي

[COLOR=DarkRed]$Count[/COLOR] = [COLOR=Purple]0[/COLOR]
[COLOR=Blue]While[/COLOR] [COLOR=DarkRed]$Count[/COLOR] [COLOR=Red]<[/COLOR] [COLOR=Purple]10[/COLOR]
     [COLOR=Navy]Msgbox[/COLOR] ([COLOR=Purple]0[/COLOR],"",[COLOR=DarkRed]$Count[/COLOR])
   [COLOR=Blue] IF[/COLOR] [COLOR=DarkRed]$Count[/COLOR] = [COLOR=Purple]5[/COLOR] [COLOR=Blue]Then ContinueLoop[/COLOR]
     [COLOR=DarkRed]$Count[/COLOR] = [COLOR=DarkRed]$Count[/COLOR] + [COLOR=Purple]1[/COLOR]
[COLOR=Blue]WEnd[/COLOR]

شو اللي حصل يا ترى :?:
أبي إجابة شافية منكم :d:

معليش كثرت الأمثلة عشان الفهم فقط ,, نص الفهم على المثال
​

 

[elawady]

أول تطبيق على هذه القاعدة

Time
$time_in = InputBox("time", "Enter Time Delay in SEC", "", " M3",-1,1)
While    Not StringIsDigit($time_in)
    msgbox (16,"Eror","Second is numbers :)")
    $time_in = InputBox("time", "Enter Time Delay in SEC", "", " M3",-1,1)
WEnd
$time=$time_in*1000
sleep($time)

ما رأيك:bleh::bleh::bleh::bleh:

 

[ashalshaikh]

أول تطبيق على هذه القاعدة

Time
$time_in = InputBox("time", "Enter Time Delay in SEC", "", " M3",-1,1)
While    Not StringIsDigit($time_in)
    msgbox (16,"Eror","Second is numbers :)")
    $time_in = InputBox("time", "Enter Time Delay in SEC", "", " M3",-1,1)
WEnd
$time=$time_in*1000
sleep($time)

ما رأيك:bleh::bleh::bleh::bleh:

لا صراحة ,, ماشاء الله ماشاء الله ,,
مبدع k:k:k:k:k:k:
فنان ,,
ولكن لو ضغط على كانسل :bleh::bleh:
ابحث لها عن حل :bleh::bleh:

 

[zoro779]

بالنسبة لتابع
سلسلة أوامر الدوران
رابعا :: أمر الدوران الأول والأسهل While

انا مش شايف الجزاء الثالث
هل يوجد ثالثا ولا انت نسيتها ولا غلطت فى الترقيم

 

[elawady]

لا صراحة ,, ماشاء الله ماشاء الله ,,
مبدع k:k:k:k:k:k:
فنان ,,
ولكن لو ضغط على كانسل :bleh::bleh:
ابحث لها عن حل :bleh::bleh:

لا دي بسيطة

$time_in = InputBox("time", "Enter Time Delay in SEC", "", " M3",-1,1)
If ($time_in="") Then
    Exit
    EndIf

 

[elawady]

مفيش حد رد عليا
ازاي يسجل ازرار لوحة المفاتيح في البرنامج

 

[ashalshaikh]

لا دي بسيطة

$time_in = InputBox("time", "Enter Time Delay in SEC", "", " M3",-1,1)
If ($time_in="") Then
    Exit
    EndIf

ممتاز ,,
k:k:k:k:k:k:k:
طيب وإذا ضغطت على كانسل والرسالة في وسط الدائرة :bleh::bleh::bleh::bleh::bleh::bleh::bleh:
ابحث عن حل
<<<<<<<<<< معليش استقعدت لك ,, بس هذا المفروض تغطي عملك من كافة الجهات ,, وتعتبر كل الإحتمالات

 

[ashalshaikh]

مفيش حد رد عليا
ازاي يسجل ازرار لوحة المفاتيح في البرنامج

جاري البحث ,,

 

[ashalshaikh]

بالنسبة لتابع
سلسلة أوامر الدوران
رابعا :: أمر الدوران الأول والأسهل While

انا مش شايف الجزاء الثالث
هل يوجد ثالثا ولا انت نسيتها ولا غلطت فى الترقيم

!!!!
فعلا معاك حق ,, أنا وضعت رابعا لأنه الدرس الرابع :b:
ونسيت إنه الأمر الثالث ,,
معاك حق ,,

 

[القنـاص]

نريده يعد من 0 إلى 10 بس يعلق عند 5 وما يزيد عليها شي

[COLOR=DarkRed]$Count[/COLOR] = [COLOR=Purple]0[/COLOR]
[COLOR=Blue]While[/COLOR] [COLOR=DarkRed]$Count[/COLOR] [COLOR=Red]<[/COLOR] [COLOR=Purple]10[/COLOR]
     [COLOR=Navy]Msgbox[/COLOR] ([COLOR=Purple]0[/COLOR],"",[COLOR=DarkRed]$Count[/COLOR])
   [COLOR=Blue] IF[/COLOR] [COLOR=DarkRed]$Count[/COLOR] = [COLOR=Purple]5[/COLOR] [COLOR=Blue]Then ContinueLoop[/COLOR]
     [COLOR=DarkRed]$Count[/COLOR] = [COLOR=DarkRed]$Count[/COLOR] + [COLOR=Purple]1[/COLOR]
[COLOR=Blue]WEnd[/COLOR]

شو اللي حصل يا ترى :?:
أبي إجابة شافية منكم :d:

معليش كثرت الأمثلة عشان الفهم فقط ,, نص الفهم على المثال
​

اللي حصل انه اذا وصل 5 يعيد اللوب من جديد ولا ينفذ امر الزيادة $Count = $Count + 1

فيعلق على 5

:d::d:

 

[ashalshaikh]

اللي حصل انه اذا وصل 5 يعيد اللوب من جديد ولا ينفذ امر الزيادة $Count = $Count + 1

فيعلق على 5

:d::d:

إجابة صحيحة 100% k: ولكن أنا ما أريد الإجابة منك
عارف إنك ما تحتاج ماشاء الله عليك ,, k: مستواك مثلي ,,
--------------------------------------------------------------------------
بس صراحة كذا أن عزيمتي هبطت كثيييييييييييييييييييييييييييييييييييييييييييير ,, مافيه أحد :f: ,, كنت ناوي أعمل الكلمات مثل نوت ,, وأيضا قيم الأخطاء ,, وأيضا المتغيرات ولكن :f: ما أدري ,, حاس إني أشرح لنفسي :f: