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

على راسي والله ياغالي .
....
 
توقيع : موريادي
:d: صعب ولا طويل ...؟؟

عموماُ إذا هذا صعب أجل البقية إيش :hh:

إذا في جزئية مو فاهمها هاتها لأفصل فيها ..

أما بس صعب << مومقنعه بالمره

:king:

ولايهمك راح احاول مره ومرتين وراح اراجعه وراح يكون تطبيق مثل ماتريده
ويرضي نفوس الجميع

اذا ماجتك نفسيه :er:
و لادمعت عيونك قدام الشاشه :er:

صدقني ماراح تكون مبدع :i:

ولايهمك ياحلو وراح ابدع مع دروسك يامبدع المبدعين:king:


تطبيق يااستاذ عبدالله

PHP:
$path=("C:\hatem.exe")
if FileExists($path) then
    $aa = FileGetAttrib($path)
   $Instr = StringInStr ($aa ,"H")
    if $Instr <> 0 Then
        FileSetAttrib($path,"-H+R")
    Endif

Else
    MsgBox(16,"","الملف غير موجود",5)

endif
 
توقيع : format
[1]عبارة الشرط Switch

العبارة Switch...Case...EndSwitch

مشابهه لعباره الشرط if..

تفيدنا إذا كان لدينا [متغير - قيمة راجعه لدالة -ماكرو]نريد إختبارها في أكثر من قيمة..

تكتب العبارة بهذي الطريقة :

كود:
[COLOR=Blue]Switch [/COLOR]<expression>
    [COLOR=Blue]Case [/COLOR]<value 1> 
      .
       .
.
.
    [COLOR=Blue]Case [/COLOR]<value 2> 
        .
       .
.
.
   [COLOR=Blue]Case Else[/COLOR]
         .
       .
.

[COLOR=Blue]EndSwitch[/COLOR]
الشرح /

تبدأ العبارة بالكلمة المحجوزة Switch

<expression> نضع هنا المتغير أو الدالة .. ألي نريد إختبار قيمها

عند إختبار أي حالة نضع الكلمة Case وبعدها الشرط أو القيمة .. مكان <value>

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

ويمكن وضع أكثر من حالة حسب حاجتك ..

Case Else هذي تعني إذا لم تتحقق أي من الحالات المقترحه نفذ الي بعدها..

ثم تنتهي العبارة بEndSwitch

المثال الاول :

كود:
[COLOR=Blue]switch [/COLOR][COLOR=Navy][I]InputBox[/I][/COLOR][COLOR=Red]([/COLOR][COLOR=Silver]"هل أنت مشترك بالدورة"[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"ضع إسمك للتأكد"[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"هنا..."[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"waget"[/COLOR]
        [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"أنت مشترك"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"format"[/COLOR]
        [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"أنت مشترك"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"Expertise"[/COLOR]
        [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"أنت مشترك"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"Bo.SaQeR"[/COLOR]
        [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"أنت مشترك"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"Corporation "[/COLOR]
        [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"أنت مشترك"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"ramay "[/COLOR]
        [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"أنت مشترك"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"himoScript"[/COLOR]
        [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"أنت مشترك"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"Self"[/COLOR]
        [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"أنت مشترك"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"(مجرد انسان)"[/COLOR]
        [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"أنت مشترك"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"موريادي"[/COLOR]
        [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"أنت مشترك"[/COLOR][COLOR=Red])[/COLOR]
         [COLOR=Blue]Case else[/COLOR]
        [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"أنت غير مشترك"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]EndSwitch[/COLOR]

الشرح/

طبعاُ يمكن إختصارها :q: وراح نعرف كيف في الجزء الثاني إن شاء الله ...

أولاً بدأنا بالعبارة
Switch وثم وضعنا الدالة ألي نبي نختبر قيمتها الراجعه :d:

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

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

Case else وينفذ مابعدها ويخرج ..

المثال الثاني:
كود:
[COLOR=DarkRed]$os[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=Magenta]@OSArch[/COLOR]
[COLOR=Blue]Switch [/COLOR][COLOR=DarkRed]$os[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"X86"[/COLOR]
        [COLOR=Navy][I]MsgBox[/I][/COLOR][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"Os is 23 bit"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Silver]    [COLOR=Blue]case [/COLOR]"IA64"
        [COLOR=Navy][I]MsgBox[/I][/COLOR][/COLOR][COLOR=Silver][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][/COLOR][COLOR=Silver],""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"Os is 64 bit"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"X64"[/COLOR]
        [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"Os is 64 bit"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]EndSwitch[/COLOR]

الشرح/

حفظنا القيمة الراجعه للماكرو
@OSArch في متغير

وبدنا نختبر قيمة المتغير في أكثر من حالة

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

لكن ليش ما إستخدمنا CASE ELSE هنا ..

السبب هو إن القيم الراجعه لن تخرج عن الي وضعنا وأيضاً .
CASE ELSE إختيارية

يمكن كتابة الكود يهذا الشكل أيضاً ..

كود:
[COLOR=Blue]Switch [/COLOR][COLOR=Magenta]@OSArch[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"X86"[/COLOR]
        [COLOR=Navy][I]MsgBox[/I][/COLOR][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"Os is 23 bit"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Silver]    [COLOR=Blue]case [/COLOR]"IA64"
        [COLOR=Navy][I]MsgBox[/I][/COLOR][/COLOR][COLOR=Silver][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][/COLOR][COLOR=Silver],""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"Os is 64 bit"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]case [/COLOR][COLOR=Silver]"X64"[/COLOR]
        [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"Os is 64 bit"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]EndSwitch[/COLOR]


وصلى الله وسلم على سيدنا محمد ..


:d:

 
توقيع : waget
ولايهمك راح احاول مره ومرتين وراح اراجعه وراح يكون تطبيق مثل ماتريده
ويرضي نفوس الجميع



ولايهمك ياحلو وراح ابدع مع دروسك يامبدع المبدعين:king:


تطبيق يااستاذ عبدالله

PHP:
$path=("C:\hatem.exe")
if FileExists($path) then
    $aa = FileGetAttrib($path)
   $Instr = StringInStr ($aa ,"H")
    if $Instr <> 0 Then
        FileSetAttrib($path,"-H+R")
    Endif

Else
    MsgBox(16,"","الملف غير موجود",5)

endif

:ok:
 
توقيع : waget
' :cr: '
،
بتجلــط ، هالدروس ، لكن ي انا ي هي :d:
أنتظرونا :f:
 
توقيع : Corporation
تشغيل الملفات التنفيذية RunWait \Run

تشغيل الملفات التنفيذية RunWait \Run

الي تأتي بهذي الصيغ /

[EXE, BAT, COM, PIF]

أولاُ دالة التشغيل Run

الصيغة العامة :

كود:
[COLOR=Navy][I]Run [/I][/COLOR][COLOR=Red]([/COLOR] [COLOR=Silver]"program"[/COLOR] [COLOR=Red][,[/COLOR][COLOR=Silver] "workingdir"[/COLOR] [COLOR=Red][,[/COLOR] show_flag[COLOR=Red]]])[/COLOR]
program : إسم الملف ومسارة .. ويمكن أيضاً إضافه سويتشات البرنامج للإستفادة منه مثلا في التنصيب الصامت << مع مراعات المسافات

workingdir : المجلد ألي يعمل فيه / ليس مسار الملف ...غير هام في أغلب الاحوال نضع "" << [
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
]
راجع المشاركة ..

show_flag : هنا نحدد طريقه ظهور البرنامج نضع به إحدى هذي الماكرو.

كود:
[COLOR=Magenta]@SW_HIDE [/COLOR]
مخفي يعمل في الخلفية ..

كود:
[COLOR=Magenta]@SW_MINIMIZE [/COLOR]
تصغير نافذة البرنامج ..

كود:
[COLOR=Magenta]@SW_MAXIMIZE[/COLOR]
تكبير نافذة البرنامج..

القيم الراجعه للدالة :

في حالة النجاح الداله ترجع برقم العملية في الذاكرة PID

في حالة الفشل الدالة ترجع بـ0
.....


مثال /
كود:
[COLOR=DarkRed]$PID[/COLOR]  [COLOR=Red]=[/COLOR] [COLOR=Navy][I]Run[/I][/COLOR][COLOR=Red]([/COLOR][COLOR=Silver]"wrar400.exe /S"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]if [/COLOR][COLOR=DarkRed]$PID[/COLOR] [COLOR=Red]<>[/COLOR][COLOR=Indigo] 0[/COLOR] [COLOR=Blue]Then[/COLOR]
    [COLOR=Navy][I]MsgBox[/I][/COLOR][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"تم تشغيل البرنامج"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]Else[/COLOR]
    [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([COLOR=Indigo]16[/COLOR][/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"خطأ لم يتم التشغيل"[/COLOR][COLOR=Red])[/COLOR]    [COLOR=Blue]
endif[/COLOR]
ثانياً دالة التشغيل RunWait

الصيغية العامة :

كود:
[COLOR=Navy][I]RunWait [/I][/COLOR]( [COLOR=Silver]"program" [/COLOR][COLOR=Red][,[/COLOR][COLOR=Silver] "workingdir"[/COLOR] [COLOR=Red][,[/COLOR] show_flag[COLOR=Red]]])[/COLOR]
نفس وسيطات الدالة السابقة فما راح أعيد الكلام :d:..

الفرق هنا أنا الدالة الاولى تشغل الملف وتكمل الكود الداله هذي تشغل الملف وتتنتظر حتى

يغلق الملف .. وتكمل الكود بعد ذلك..

بالنسبه للقيمة الراجعه للدالة ..

سوف نأجل الحديث عنها للسبب

أن القيمة الراجعه في حالة النجاح تعتمد على الـ exit code للبرنامج وهي قيمة

يرجعها البرنامج وفي أغلب البرامج هي 0 . والدالة ترجع هذي القيمة

وفي حاله الفشل ترجع الدالة 0.

فراح نناقش فيما بعد كيف نعرف التعامل مع مثل هذي الدوال ونقتنص الاخطاء وأيضاُ

للمعلومه السكريبت كأي برنامج يرجع بـ0 فراح أيضاً نعرف كيف نغير هذي القيم

في السكربتات ألي نعملها ..راح نعرفها في وقتها بإذن الله

:d:
 
توقيع : waget
والله هـ الدروس يبيلها ترويق كآمل :smile:

لي رجعة بالتطبيقآت بعد كوبآية الشآي :d:
 
توقيع : (مجرد انسان)
' :cr: '
،
بتجلــط ، هالدروس ، لكن ي انا ي هي :d:
أنتظرونا :f:

:hh: ..

لاتحاول تضغط على نفسك وتعمل تطبيق واحد لكل هذي الدروس ..

كل درس حط له تطبيق .. وأي شيء مو فاهمه لايردك إلا الكيبورد :d:

:king:
 
توقيع : waget
صراحة الدروس بداءات تحلى اكثر واكثر في نظري

تطبيق رقم المشاركة : [
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
]
PHP:
$path=@ProgramFilesDir&"\CCleaner\CCleaner.exe"
$run=run($path)
If $run <> 0 Then
    MsgBox(64,"","yes",5)
Else
    MsgBox(16,"","no",5)
    EndIf
================================
PHP:
$run=Run(@ProgramFilesDir&"\CCleaner\CCleaner.exe","", @SW_MAXIMIZE)
If $run <> 0 Then
    MsgBox(64,"","yes",5)
Else
    MsgBox(16,"","no",5)
    EndIf
 
توقيع : format
صراحة الدروس بداءات تحلى اكثر واكثر في نظري

تطبيق رقم المشاركة : [
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
]
PHP:
$path=@ProgramFilesDir&"\CCleaner\CCleaner.exe"
$run=run($path)
If $run <> 0 Then
    MsgBox(64,"","yes",5)
Else
    MsgBox(16,"","no",5)
    EndIf
================================
هنا في خطاء
PHP:
$run=Run(@ProgramFilesDir&,"\CCleaner\CCleaner.exe"&@SW_MAXIMIZE)
If $run <> 0 Then
    MsgBox(64,"","yes",5)
Else
    MsgBox(16,"","no",5)
    EndIf

بارك الله فيك حاتم

نبهتني على خطأي جزاك الله خير :d:

نعم في كودك الاخير خطأ وهو مني للأسف في معلوماتي حول workingdir

الكود كذا بيكون سليم

كود:
$run=Run(@ProgramFilesDir&"\CCleaner\CCleaner.exe","", @SW_MAXIMIZE)
If $run <> 0 Then
    MsgBox(64,"","yes",5)
Else
    MsgBox(16,"","no",5)
    EndIf
وتم التعديل في الدرس
:king::king:
 
توقيع : waget
لا إله إلا أنت الواحد الأحد الفرد الصمد
الذي لم يلد و لم يولد و لم يكن له كفوا" أحد
يا سامع الدعاء ... انك تغفر لصاحبي عبد الله
اللهم امين وغفر لجميع المسلمين
اللهم امين
 
توقيع : format
لا إله إلا أنت الواحد الأحد الفرد الصمد
الذي لم يلد و لم يولد و لم يكن له كفوا" أحد
يا سامع الدعاء ... انك تغفر لصاحبي عبد الله
اللهم امين وغفر لجميع المسلمين
اللهم امين

آمين .. :d:
 
توقيع : waget
تطبيق رقم المشاركة : [
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
]
PHP:
Switch InputBox("هل انت متأكد اذا خرجت من رقم 5 ستكون الاجابه صحيحة","الحد الاقصى هو رقم 5","اكتب من واحد الى خمسه")
    Case "0"
        MsgBox(64,"","اجابه صحيحة",4)
                Case "1"
        MsgBox(64,"","اجابه صحيحة",4)
        Case "2"
        MsgBox(64,"","اجابه صحيحة",4)
        Case "3"
        MsgBox(64,"","اجابه صحيحة",4)
        Case "4"
        MsgBox(64,"","اجابه صحيحة",4)
        Case "5"
        MsgBox(64,"","اجابه صحيحة",4)
    case Else
        MsgBox(16,"","قلت الك الحد الاقصى 5",4)
        EndSwitch
سؤال ياعبد الله
هل هناك تطبيقات اخرى لم طبقها انا ؟
ملاحظتي \ للمشتركين في الدوره
الدرس في البدايه قلت انه صعب ولكن سهل جدا بعد مافهمت المبدئ
والاساس الي طرحه اخوي عبد الله
هذا وفقكم الله
 
توقيع : format
:hh: ..

لاتحاول تضغط على نفسك وتعمل تطبيق واحد لكل هذي الدروس ..

كل درس حط له تطبيق .. وأي شيء مو فاهمه لايردك إلا الكيبورد :d:

:king:
عبادي ي صاحبيّ ،
اصعب ما بالبرمجه الفكره ياخي :cr: ،
يعني اوكي تعلمت الدروس طيب ؟ < الفكره الي تبي تسويها ب الأكواد !!! < هنا مربط الفرس ،
وانا مانيب ، منزل المشاركه الا لمن القى لي فكره سنعه :hh: ،
والا ترى على درس درس Easy :y:، لكن لأبد نفصل بين كل كم درس ونحاول
نطلع ب فكره ، علشان يكون في مردود للدروس الي ناخذها ، اما لو ناخذ الدرس ونجلس نطبق
واغلب الي يطبق منننا ، يتبع تطبيقك ماغير يغير في اسماء ا اماكن الملفات !!
حيلك يعني بالدروس شوي ، خلنا نشوف لنا مشروع ، نسويه ، !
نبي الوضع يحلى شوي ، خصوصا اني تو مركب وايرلس بالبيت جديد :hh: ،


والا لا ! من معي ومن ضدي ؟ :d:
 
توقيع : Corporation
عبادي ي صاحبيّ ،
اصعب ما بالبرمجه الفكره ياخي :cr: ،
يعني اوكي تعلمت الدروس طيب ؟ < الفكره الي تبي تسويها ب الأكواد !!! < هنا مربط الفرس ،
وانا مانيب ، منزل المشاركه الا لمن القى لي فكره سنعه :hh: ،
والا ترى على درس درس easy :y:، لكن لأبد نفصل بين كل كم درس ونحاول
نطلع ب فكره ، علشان يكون في مردود للدروس الي ناخذها ، اما لو ناخذ الدرس ونجلس نطبق
واغلب الي يطبق منننا ، يتبع تطبيقك ماغير يغير في اسماء ا اماكن الملفات !!
حيلك يعني بالدروس شوي ، خلنا نشوف لنا مشروع ، نسويه ، !
نبي الوضع يحلى شوي ، خصوصا اني تو مركب وايرلس بالبيت جديد :hh: ،


والا لا ! من معي ومن ضدي ؟ :d:

للاسف انا ضدك يالغالي
اولا لم ينتهي من الدروس
ثانيا لابد من توفير الامثله للتطبيقات المثلى
=================================
لكني اتفق معاك في حاله واحدة فقط وهي عدم الخروج من الاوامر الي تعلمناها
هذا وفقك الله يالغالي
 
توقيع : format
عبادي ي صاحبيّ ،
اصعب ما بالبرمجه الفكره ياخي :cr: ،
يعني اوكي تعلمت الدروس طيب ؟ < الفكره الي تبي تسويها ب الأكواد !!! < هنا مربط الفرس ،
وانا مانيب ، منزل المشاركه الا لمن القى لي فكره سنعه :hh: ،
والا ترى على درس درس Easy :y:، لكن لأبد نفصل بين كل كم درس ونحاول
نطلع ب فكره ، علشان يكون في مردود للدروس الي ناخذها ، اما لو ناخذ الدرس ونجلس نطبق
واغلب الي يطبق منننا ، يتبع تطبيقك ماغير يغير في اسماء ا اماكن الملفات !!
حيلك يعني بالدروس شوي ، خلنا نشوف لنا مشروع ، نسويه ، !
نبي الوضع يحلى شوي ، خصوصا اني تو مركب وايرلس بالبيت جديد :hh: ،


والا لا ! من معي ومن ضدي ؟ :d:

معك حق أخوي ..

طبعاُ الفاصل بين الدروس تقريباً يوم واحد << عارف إني على رتم سريع

لكن لو ألقى تطبقات أكثر منكم راح تلقاني أنجبر أتوقف عند تطبيق كل شخص ..

على العموم كل ألي أخذناه لحد الان صحيح مافية صعوبه ولله الحمد ...

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

إلا في الحلقات وتقريباً كل السكريبتات يجب أن تحتوى على لووب

وأبشرك معد باقي غير جزء ثاني ل switch و بعدها select وننتهي من الشروط :d:

:d: <~ بس لا تغير الموضوع وين التطبيق :hh:

:king:
 
توقيع : waget
تطبيق رقم المشاركة : [
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
]
PHP:
Switch InputBox("هل انت متأكد اذا خرجت من رقم 5 ستكون الاجابه صحيحة","الحد الاقصى هو رقم 5","اكتب من واحد الى خمسه")
    Case "0"
        MsgBox(64,"","اجابه صحيحة",4)
        Case "0"
        MsgBox(64,"","اجابه صحيحة",4)
        Case "1"
        MsgBox(64,"","اجابه صحيحة",4)
        Case "2"
        MsgBox(64,"","اجابه صحيحة",4)
        Case "3"
        MsgBox(64,"","اجابه صحيحة",4)
        Case "4"
        MsgBox(64,"","اجابه صحيحة",4)
        Case "5"
        MsgBox(64,"","اجابه صحيحة",4)
    case Else
        MsgBox(16,"","قلت الك الحد الاقصى 5",4)
        EndSwitch
سؤال ياعبد الله
هل هناك تطبيقات اخرى لم طبقها انا ؟
ملاحظتي \ للمشتركين في الدوره
الدرس في البدايه قلت انه صعب ولكن سهل جدا بعد مافهمت المبدئ
والاساس الي طرحه اخوي عبد الله
هذا وفقكم الله

تمام عليك بس في خطأ مطبعي

كود:
 Case "0"

تكررت مرتين :d:
 
توقيع : waget
الحالة
مغلق و غير مفتوح للمزيد من الردود.
عودة
أعلى