موضوع خاص لدعــم الـ AutoIt -- افكار ؛ مشاريع ؛ سورسات ؛ اسئله ؛ نقاشات ...... الخ

المصدر: موضوع خاص لدعــم الـ AutoIt -- افكار ؛ مشاريع ؛ سورسات ؛ اسئله ؛ نقاشات ...... الخ
في منتدى : منتدى الشروحات المميـزة للبرامج والشروحات العامة

بسم الله الرحمن الرحيم

المووضوع خاص لـ :

_ تجربة الاداوات البيتا المصنوعه بالاوتوات فقط قبل الاصدار النهائي
_ افكار و طرق للمشاريع جديده لعملها بالاوتوات ..
_ الاجابه على بعض الاستفسارات و المشاكل المتعلقه بكتابة السكربتات بلغة الاوتوات .
_ مشاركة السورسات والـ UDF
_ طلبات الاعضاء المتعلقه بالـ AutoIt :d:


خذوا راحتكم الموضوع مووضوعكم :d:

 

لي عووده ،
​

 

حلو حلو
رجعنا للشغل
ما بغيتوا :d:
إن شاء الله رجعه قويه
موفقين

-----
تعديل الاستفسار

:king:

 

بارك الله فيك اخ بندر

والله يجزيك كل خير لانك شخص محب للخير وتحب الفائدة للجميع

جاري المتابعة معاكم بموضوع الدروس و تحضير الإختراعات لهذا الموضوع :d:​

 

بغينا صلاحيه للمشاركه بالموضوع الاول :f:
ويا ريت تحذف هالمشاركه فيما بعد .

 

بآرك الله فيك ..

هذا الشغل السنع
​

 

ابشر وانا اخوك وكان ارسلت لي على الخاص فقط ويتم قبوولك :d:​

 

بندر
مرويادي
waget
corporation
وغيرهم من الاعضاء المشاركين
الله يكون بعونكم مع اختكم الحلا راح تهلكم بالاسئلة وكثرة الاستفسارات واعتقد انكم راح تغلقوا الموضوع ههههه

 

الموضوع ليس بالشكل الذي انت متصوره ..
القصد انك ماترد على سوال الا انت فاهم الجواب و عارفه ولا تجي تحط اوامر جديده لم تشرح و الهدف
منها فقط تقول انا اعرف الامر هذا :hh:​

 

وش معنى UDF ؟

 

User Defined Function

( تعريف وظيفـة المستخدم )
[ على ذمه مترجم قوقل ]

:d::d:
​

 

تسلم ياعسل ,,, بس ابي معناها في الاتوات أو علاقتها ؟

 

كود:

$var = 30
$var1 =25
if $var > $var1 Then
MsgBox(0,""," 30 أنا الاول أكبر")
Else
MsgBox(0,"","25 ثاني أكبر من الاول")
EndIf
MsgBox(0,""," 30 الاول أكبر من ثاني")
MsgBox(0,"","النتيجة ")
 
 

لو كانت أريد كاتبته في هذه طريقة في غلط لكن لا أعلم ما هو
أما

كود:

$var = Filecopy(@ProgramFilesDir & "\WinRAR\WinRAR.exe", @DesktopDir & "\WinRAR\")
if $var = 1 Then
    MsgBox(0,"","تم نسخ الملف بنجاح")
else
    MsgBox(0,"","فشلت عملية النسخ")
endif
 

طيب لو غيرنا في الدالة
ووضع بدل 1
وضعنا 0
سيصبح رسالة في عكس حتى وأن تم نسخ
يعني لا يوجد شيئ حتى وأنا غيرنا يعطيني نفس النتيجة

 

الكود الأول مافهمت عليك ، لكن الثاني جرب هالكود ، وحاول تفهم طريقة عمله :d:

كود:

$var = Filecopy(@ProgramFilesDir & "\WinRAR\*.*", @DesktopDir & "\WinRAR\*.*",9)
if $var = 0 Then
   MsgBox(0,"","فشلت عملية النسخ")
else
     MsgBox(0,"","تم نسخ الملف بنجاح")
endif

 

User Defined Functions

الدوال المعرفة من المستخدم

هي دوال (ليست أوامر) قام المستخدم بتعريفها وليست موجودة سابقاً

كمثال في AutoIt
_WordQuit تعتبر إحدى الـ UDFs في الـ autoit لأن الأمر هذا غير موجود في autoit وبهذا تعتبر دالة أضافها المستخدم لكي يتعرف عليها المترجم (Compiler)

للإستزادة يوجد موضوع في كتاب المساعدة المرفق مع اللغة إسمه :
User Defined Function Reference

والسلام عليكم
​

 

كود:

 $var = 30
$var1 =25
if $var > $var1 Then
MsgBox(0,""," 30 أنا الاول أكبر")
Else
MsgBox(0,"","25 ثاني أكبر من الاول")
EndIf
MsgBox(0,""," 30 الاول أكبر من ثاني")
MsgBox(0,"","النتيجة ")

طيب هذا كود فيه خطأ
لم أبدل شرط الاول في شرط ثاني يظهر عدت رسئل غيرصحيح

 

أخي الحبيب رامي الكود سليم ويعمل ,,

انت وضعت متغيرين 30 ، 25 والشرط : اذا كان 30 اكبر من 25 اظهر الرسالة " انا الاول أكبر 30 " وبعدها يظهر الرسالة " الاول أكبر من ثاني 30 " وبعدها رسالة " النتيجة "

اما رسالة " ثاني أكبر من الاول 25 لن تظهر لعدم تحقق الشرط ..

ان شاء الله أكون فهمت استفسارك وافدتك أيضاً ...

 

صحيح لكن جرب تبدل متغيرين 30مكان 25
و25 مكان 30
سوف تختلف رسائل وهنا في رسالة قبل الاخير

 

طيب حلو ..

أخ رامي انت عندما كتبت الكود وش كان هدفك منه او ماهي وظيفة الكود ؟