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

[ramay]

طيب حلو ..

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

وضيفته يظهر ي النتيجة أكبر

 

[موريادي]

تمام ,,​

جاري تفصيل خطوات الكود ,,​

$var = 30

[CENTER]$var1 = 25
[CENTER]if $var > $var1 then 
msgbox(0,"","العدد الاكبر 30")
else
msgbox(0,"","العدد الاصغر 25")
endif
msgbox(0,"","النتيجة ")[/CENTER]
[/CENTER]

السطر الاول

[COLOR=blue]$var = 30[/COLOR]

معناها أن المتغير = 30 وهو أكبر قيمة في الكود​

السطر الثاني

[COLOR=darkred]$var1 = 25[/COLOR]

معناها أن المتغير = 25 وهو أصغر قيمة في الكود​

السطر الثالث

[COLOR=red]if[/COLOR] [COLOR=darkred]$var[/COLOR] [COLOR=green]>[/COLOR] [COLOR=darkred]$var1[/COLOR] [COLOR=purple]then[/COLOR]

معناها : باستخدام IF وضعت شرط وهو ان المتغير الاول الذي يساوي 30 أكبر > من المتغير الثاني الذي قيمته 25 ... فإن​

السطر الرابع

msgbox(0,"","[COLOR=blue]العدد الاكبر 30[/COLOR]")

فإن : اذا كان الشرط متحقق أي 30 > 25 سيظهر الكود التالي ( العدد الاكبر 30 )​

السطر الخامس

[COLOR=darkorange]else[/COLOR]

معناها : إلا أي اذا الشرط الذي وضعناه لم يتحقق .. سينتقل للأمر الذي وضعناه في السطر التالي​

السطر السادس

msgbox(0,"","[COLOR=darkred]العدد الاصغر 25[/COLOR]")

عند عدم تحقق الشرط الاول سينتقل الكود للأمر بعد ELSE وهو رسالة ( العدد الاصغر 25 )​

السطر السابع

[COLOR=navy]endif[/COLOR]

نهاية الشرط IF​

السطر الثامن

msgbox(0,"","النتيجة ")

سيظهر هذا الامر في كلا الحالتين .. اذا تحقق الشرط ام لم يتحقق ( النتيجة )​

ويمكنك اللعب بالشرط من عملية المقارنة [>] أكبر من أو [<] أصغر من في الكود​

أي استفسار أنا بالخدمة ياغالي​

 

[ramay]

خلص يا الغالي خطأ كان عندي أنه لدي 4 صنديق
صحيح
ولو أردات أظهار النتيجة نهائية في صندوق كيف سيكون كود​

 

[موريادي]

خلص يا الغالي خطأ كان عندي أنه لدي 4 صنديق

صحيح

ولو أردات أظهار النتيجة نهائية في صندوق كيف سيكون كود​

وضح أكثر ياغالي .. لكي استطيع فهمك

 

[ramay]

وضح أكثر ياغالي .. لكي استطيع فهمك

أريد الرقم في صندوق النتيجة
يعني 30 أما 25

msgbox(0,"","النتيجة  30أما 25 ")

أتمنى الاقوى حالي في هذه

if..
Else
endif

يعني متى توضع ومتى لا
لأن أضع else أو endif في أمكان تظهر لي
مثال

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

الان في سطر الاخير لم تحذف endf
يطلع كود تمام ولم نضاف يظهر خطأ

 

[موريادي]

أريد الرقم في صندوق النتيجة
يعني 30 أما 25

msgbox(0,"","النتيجة  30أما 25 ")

اها ,, قصدك اذا تحقق الشرط يظهر النتيجة مع الرقم ؟

 

[ramay]

اها ,, قصدك اذا تحقق الشرط يظهر النتيجة مع الرقم ؟

نعم هذا هو

وسؤال لدرس جديد للأستاذ بندر

[COLOR=#000000][FONT=Courier New][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][COLOR=#0000bb]DirCopy[/COLOR][COLOR=#007700](@[/COLOR][COLOR=#0000bb]ProgramFilesDir [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#dd0000]"\WinRAR"[/COLOR][COLOR=#007700], @[/COLOR][COLOR=#0000bb]DesktopDir [/COLOR][COLOR=#007700]&[/COLOR][COLOR=#dd0000]"\BackUpFolder" [/COLOR][COLOR=#007700],[/COLOR][COLOR=#0000bb]1[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])
if [/COLOR][COLOR=#0000bb]$dir[/COLOR][COLOR=#007700]=[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]1 Then
 MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"done"[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])
Else
 [/COLOR][COLOR=#0000bb]MsgBox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]0[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]""[/COLOR][COLOR=#007700],[/COLOR][COLOR=#dd0000]"error"[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])
EndIf  
[/COLOR][COLOR=#0000bb][/COLOR][/FONT][/COLOR]اذا لم يكن موجود المجلد المنسوخه اليه الملفات فانه سيتم محاولة انشاءه تلقائياً

طيب هكذا غير أسم مجلد لو اردنا أبقى أسم على حاله

 

[موريادي]

حبيب قلبي رامي ,,, هل جميع استفسارتك متعلقة بالدورة ؟

اذا نعم .. حطها بموضوع الدورة .. لأن هذا الموضوع للاستفسارات الخارجة عن الدورة والاعضاء الغير مشاركين فيها ..

لكي تستفيد وتفيد غيرك ونتعلم كلنا ..

بانتظارك في موضوع الدورة

ودي وتقديري

 

[Self]

اخوي بندر عذرا على الكتابة بهذا الموضوع​

ولكن راسلتك من امس على الخاص علشان الدورة ​

وللحين مافي اي رد منك ,, اقدر اشترك معاكم بالدورة حاليا ام تم الأكتفاء !!!​

 

[LINEZERO]

اخوي بندر عذرا على الكتابة بهذا الموضوع


ولكن راسلتك من امس على الخاص علشان الدورة


وللحين مافي اي رد منك ,, اقدر اشترك معاكم بالدورة حاليا ام تم الأكتفاء !!!
​

تقدر ونص ..
:d: يتم مراسلة الاداره​

 

[Hmammou]

والله انا جيت اجرب هذا الامر

if FileExists "c:\boot.ini" Then
    MsgBox ( 0+64+262144, "Note","You are runnig Windows XP")
Else
    MsgBox ( 0+64+262144, "Note","You are runnig Windows Vista or 7")
EndIf

جاتني رسالة خطأ

ليش وشنو الحل

 

[Alzri2]

والله انا جيت اجرب هذا الامر

if FileExists "c:\boot.ini" Then
    MsgBox ( 0+64+262144, "Note","You are runnig Windows XP")
Else
    MsgBox ( 0+64+262144, "Note","You are runnig Windows Vista or 7")
EndIf

جاتني رسالة خطأ

ليش وشنو الحل

راجع الدورة الأصلية للـ AutoIt لتلاحظ أن كل المعاملات (Parameters) دائماً ما تكتب داخل ()

ذلك يعني أن في هذه الحالة ستكون :

FileExists[COLOR=Red]([/COLOR]"c:\boot.ini"[COLOR=Red])[/COLOR]

بالتوفيق
​

 

[Hmammou]

الله يرحم والديك مشكوور

 

[الحلا تبي تتعلم]

شي طيب بس للعلم واعتقد واتوقع ان بعض المسارات تختلف من ويندوز اكس بي الى ويندوز سفن

لذلك اقترح عليكم تسوا لنا درس يشرح لنا تنفيذ الاوامر الفلانية في الاكس بي وان كان نظام التشغيل سفن فنفذ الاوامر الاخرى

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

وعن إذن اخواني
hmammou & alzri2
ممكن اعدل الكود لكي يصبح اكثر احترافي وفعالية

if FileExists(@HomeDrive &"\boot.ini") Then
    ; هنا قم بوضع الاكواد والسورسات التي تريد تنفيذها في ويندوز اكس بي
Else
    ; هنا قم بوضع الاكواد التي تريد تنفيذها في ويندوز سفن
EndIf

 

[الحلا تبي تتعلم]

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

وعن إذن اخواني
hmammou & alzri2
ممكن اعدل الكود لكي يصبح اكثر احترافي وفعالية

if FileExists(@HomeDrive &"\boot.ini") Then
    ; هنا قم بوضع الاكواد والسورسات التي تريد تنفيذها في ويندوز اكس بي
Else
    ; هنا قم بوضع الاكواد التي تريد تنفيذها في ويندوز سفن
EndIf

هل من الممكن استخدام الكود التالي بدل عن الكود الماضي

OSVerision

al-awady-ocab-alzri2
ومن ما يعرفهم وهل يخفى علينا العلماء
المنتدى ومن فيه والكل يشهد بخبراتهم في الاتوات وحبهم بمساعدة الاخرين ولا يحبون الاحتكار بالعلم فهم كانوا دائما يقدمون المساعدة في دروس الشيخ بعكس الاخرين في منتديات اخرى غير منتدى زيزوم

اتمنى من الاعضاء الذذين ذكرتهم مشاركتنا في هذه الدروس لكي الكل يستفيد ولكي تعم الفائدة على الكل
فهالدف من هذه الدورة هي الاستفادة ونشر العلم والتطور ورقي المواضيع في منتدى زيزوم

 

[Alzri2]

جيد وصولكي لها بنفسكِ

بالنسبة لـ OSVersion@

فهي تعتبر من الماكرو وترجع القيم الآتيه :
​

Returns one of the following: "WIN_2008R2", "WIN_7", "WIN_2008", "WIN_VISTA",  "WIN_2003", "WIN_XP", "WIN_XPe", "WIN_2000".

وفي حالتنا إذا أردنا الحصول على نفس الناتج أو أدق قليلاً فبالتالي :

If @OSVersion = "WIN_7" Then MsgBox(64, "Info", "You are at windows 7 !!")
If @OSVersion = "WIN_VISTA" Then MsgBox(64, "Info", "You are at windows vista !!")
If @OSVersion = "WIN_XP" Then MsgBox(64, "Info", "You are at windows XP !!")
If @OSVersion = "WIN_7" Or @OSVersion = "WIN_VISTA" Then MsgBox(64, "Info", "You are at windows 7 or windows vista !!")

بالنسبة للسطر الأخير فهو يشرح طريقة إضافة شرطين متتاليين وتم إستعمال الرابط or ولكم التجربة لمثال آخر على الرابط And

للإستزادة يوجد موضوع بعنوان : Macro Reference - System Info في كتاب المساعدة المرفق مع اللغة

أما بالنسبة لموضوع العمليات المنطقية مثل or و and فيوجد موضوع بإسم :
Language Reference - Operators

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

 

[MAAX]

سوعال خارجي :d:

وراه ذي مو راضيه تشتغل ؟
كنها محذوفة

جربتها على اكسبي وسفن وتعيي تشتغل

 

[Alzri2]

سوعال خارجي :d:

وراه ذي مو راضيه تشتغل ؟
كنها محذوفة

جربتها على اكسبي وسفن وتعيي تشتغل

المشكلة ليست من عندك المشكلة من SciTE

هذا الملف موجود به الذي تريد :

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

بالتوفيق

 

[Don Legend]

بارك الله فيك .. ورفع قدرك


تحياتي

 

[yones7x]

سوعال خارجي :d:

وراه ذي مو راضيه تشتغل ؟
كنها محذوفة

جربتها على اكسبي وسفن وتعيي تشتغل

اعمل لها خصائص وشوف مسارها وانسخه وشغل المسار على run

وإذا اشتغل فهناك مشكلة غير معروفة :q:

وإذا لا فهو غير موجود بجهازك :d: