الحالة
مغلق و غير مفتوح للمزيد من الردود.
أول مرة أحس ان الرياضيات نفعتني بشيء :d:

عندنا And يرمز لها برقم ثمآنية بالعربية > عجزت أكتبه :er:
و OR يرمز لها بـV :smile:

تطبيقي :smile:

كود:
$Y=7
$Y1=8

IF $y and  $y1 = 7 then
    msgbox ( 64,"","True")
Else
    msgbox (16,"","False")
    EndIf


:smile:




:d:

شوف الدرس الاخير وهات تطبيق لOR و NOT

:king:
 

توقيع : waget
عبدالله ياريت شرح [
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
]
بالامثله بدل الارقام
حاسس حالي مالحوس

لاني جربت هذه مانفعت :d:

PHP:
$h=ProcessExists("CMD.EXE")
$h1=ProcessClose("CMD.EXE")

IF $h and  $h1 = 7 then
    msgbox (64,"","True")
Else
    msgbox (16,"","False")
    EndIf
 
توقيع : format
عبدالله ياريت شرح [
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
]
بالامثله بدل الارقام
حاسس حالي مالحوس

لاني جربت هذه مانفعت :d:

PHP:
$h=ProcessExists("CMD.EXE")
$h1=ProcessClose("CMD.EXE")

IF $h and  $h1 = 7 then
    msgbox (64,"","True")
Else
    msgbox (16,"","False")
    EndIf

حبيبي حاتم أنا قلت تختبر قيمتين مع بعض أو شرطين

قلت تختبر شرطين .. إقراء الدرس مره ثانية...

و7 هذي وش قصتها ؟؟؟

شوف هذا المثال..

كود:
$h=ProcessExists("CMD.EXE")
$h1=ProcessClose("CMD.EXE")
IF $h <> 0 and  $h1 = 1 then
    msgbox (64,"","True")
Else
    msgbox (16,"","False")
    EndIf
 
توقيع : waget
:hh: الله يقطع شر السبعات قد مابحب اتعامل معاها
تم تقييمك على المثال رائع :king:
اشرح الي هذا المقطع فقط
IF $h <> 0 and $h1 = 1 then
انا اعرف
انه $h لايساوي صفر
انه $h1 يساوي 1
انا اعرف انه راح يطلع نافذه تقول
True
اذا تحقق الشرط
false
اذا لم يتحقق الشرط
لكن ========= توضيح الي بدي اياه

0 و 1
 
توقيع : format
:hh: الله يقطع شر السبعات قد مابحب اتعامل معاها
تم تقييمك على المثال رائع :king:
اشرح الي هذا المقطع فقط
IF $h <> 0 and $h1 = 1 then
انا اعرف
انه $h لايساوي صفر
انه $h1 يساوي 1
انا اعرف انه راح يطلع نافذه تقول
True
اذا تحقق الشرط
false
اذا لم يتحقق الشرط
لكن ========= توضيح الي بدي اياه

0 و 1

مع إن المثال ألي كتبته الافضل إنه مايكتب بهذي الصورة

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

المهم الان :

كود:
 $h <> 0
هذا الشرط خاص بالدالة ProcessExists

فحنا نتأكد هل القيمة لا تساوي الصفر ..

إذا كانت لاتساوي0 تصبح قيمة العملية والشرط الاول True

والعكس False

كود:
$h1 = 1
هذا الشرط خاص بالدالة ..ProcessClose

نختبر هل القيمة الراجعه تساوي 1 إذا ساوت ال1

يصبح القيمة للعملية والشرط true

والعكس ..false

نستخدم and علشان تأكد إن كل الشرطين true

لأن and لاتصبح قيمة عمليتها true إلا في حالة إن الشرطين كلها صحيحة

^_^
 
توقيع : waget
شكرا للتوضيح ولكن كنت اريد مثال حي
الي تعليق بسيط لو سمحت
مع إن المثال ألي كتبته الافضل إنه مايكتب بهذي الصورة
كيف تكتب بافضل من هذه الصوره !
 
توقيع : format
:d:

0 ليست قيمة راجعه للرسائل..[
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
]

شوف الدرس الاخير وحاول تعرف خطأك ..

لو وضعت YES أو NO لن ينفذ..
لقد جربت قبل وضعه
قيمة 7 لا تنفذ
قلت قيمة6 أكيد هي لكن أيضا لم ينفذ
فوضعت صفر فقام في تنفيذ بمعنى أذا ضغط yas يقوم في نسخ مجلد
وأذا ضغط no يخرج من شرط وأنا لا أضع كود حتى أجربه أنه يعمل
ألا أنا كان كود لا يعمل أقول أنه لا يعمل
ممكن تنسخ كود وتجربه
في أنتظر تحليلك لماذا يعمل كود أن كان خطأ الله أعلم:?:
 
توقيع : ramay
شكرا للتوضيح ولكن كنت اريد مثال حي
الي تعليق بسيط لو سمحت

كيف تكتب بافضل من هذه الصوره !

كود:
$h=ProcessExists("CMD.EXE")

IF $h <> 0 then
    $h1=ProcessClose("CMD.EXE")
    if $h1 = 1 Then
        MsgBox(0,"","Success")
    endif
Else
    exit
EndIf
 
توقيع : waget

لقد جربت قبل وضعه
قيمة 7 لا تنفذ
قلت قيمة6 أكيد هي لكن أيضا لم ينفذ
فوضعت صفر فقام في تنفيذ بمعنى أذا ضغط yas يقوم في نسخ مجلد
وأذا ضغط no يخرج من شرط وأنا لا أضع كود حتى أجربه أنه يعمل
ألا أنا كان كود لا يعمل أقول أنه لا يعمل
ممكن تنسخ كود وتجربه
في أنتظر تحليلك لماذا يعمل كود أن كان خطأ الله أعلم:?:

كود:
 $ramay = MsgBox(4,"","")
If Not[COLOR=Red]([/COLOR]$ramay = 6 [COLOR=Red])[/COLOR]Then
    $copy = DirCopy(@HomeDrive&"\yy",@DesktopDir&"\pppp\",1)
    If $copy = 1 Then
        MsgBox(0,"","dont")
    Else
        MsgBox(0,"","error")
    EndIf
EndIf

لاتنسى القوسين ..

:d:
 
توقيع : waget
هذا تطبيق

كود:
$var1 = 0
$var2 = 50
$var3 = 100
If $var2 > $var1 And $var3 > $var2 Then
 MsgBox (0,"","أنت ناجح بدرجة امتياز")
Else
 MsgBox (0,"","أنت راسب بدرجة امتياز")
EndIf
 
توقيع : موريادي
كود:
 $var = 10
if $var > 5 AND  $var < 12 Then
    MsgBox(0,"","تحقق الشرطين")
Else
    MsgBox(0,"","لم يتحقق الشرطين أو أحدهما")
    endif
طيب ممكن توضيح عى هذا كود
يلي فهمت أنا منه التالي

متغير 10ثبت
أن كان 10أكبر من 5
تحقق شرط الاول
وان كان 12 أكبر من 10 تحقق شرط الثاني
هل تحليل صحيح أتمنى توضيح
 
توقيع : ramay
كود:
 $var = 10
if $var > 5 AND  $var < 12 Then
    MsgBox(0,"","تحقق الشرطين")
Else
    MsgBox(0,"","لم يتحقق الشرطين أو أحدهما")
    endif
طيب ممكن توضيح عى هذا كود
يلي فهمت أنا منه التالي

متغير 10ثبت
أن كان 10أكبر من 5
تحقق شرط الاول
وان كان 12 أكبر من 10 تحقق شرط الثاني
هل تحليل صحيح أتمنى توضيح

صح :d:
 
توقيع : waget

كود:
 $r = 35
If $r > 40 And $r < 60 Then
 MsgBox(0,"","تحقق الشرطين")
Else
 MsgBox(0,"","لم يتحقق الشرطين أو أحدهما")
EndIf
سيتم توضيح باقي شروط:d:
كود:
 $f = 83
If $f > 60 Or $f < 85 Then
 MsgBox(0,"","تحقق الشرطين أو أحدهما")
Else
 MsgBox(0,"","لم يتحقق أي من الشرطين")
 EndIf
كود:
$ramay = 100
If Not ($ramay = 50) Then
 MsgBox(0,"","أن كان العدد أقل أو أكثر من 100 فقد تحقق شرط")
Else
 MsgBox(0,"","أن كان العدد 100 لم يتحقق شرط")
 EndIf
 
توقيع : ramay
كود:
 $r = 35
If $r > 40 And $r < 60 Then
 MsgBox(0,"","تحقق الشرطين")
Else
 MsgBox(0,"","لم يتحقق الشرطين أو أحدهما")
EndIf
سيتم توضيح باقي شروط:d:
كود:
 $f = 83
If $f > 60 Or $f < 85 Then
 MsgBox(0,"","تحقق الشرطين أو أحدهما")
Else
 MsgBox(0,"","لم يتحقق أي من الشرطين")
 EndIf
كود:
$ramay = 100
If Not ($ramay = 50) Then
 MsgBox(0,"","أن كان العدد أقل أو أكثر من 100 فقد تحقق شرط")
Else
 MsgBox(0,"","أن كان العدد 100 لم يتحقق شرط")
 EndIf

or/and تمام

not خطأ أنت ماتبي المتغير يساوي 100 ...

فليش حاط 50 :?:
 
توقيع : waget
or/and تمام

not خطأ أنت ماتبي المتغير يساوي 100 ...

فليش حاط 50 :?:
خطأ مش عرف كيف غاب عني:hh:

كود:
$ramay = 100
If Not ($ramay = 100) Then
 MsgBox(0,"","أن كان العددأكثر أوقل من 100 يتحقق شرط")
Else
 MsgBox(0,"","أن كان العدد 100 لم يتحقق شرط")
 EndIf
 
توقيع : ramay
السلام عليكم ياشباب

ارى الكثير من الشروحات

لى عوده ان شاء الله
 
توقيع : himoScript
التأكد من وجود الملف FileExists

التأكد من وجود الملف FileExists

الدلة FileExists

عمل الدالة هو التأكد من وجود الملف أو المجلد ..

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

كود:
[COLOR=Navy][I]FileExists [/I][/COLOR][COLOR=Red]([/COLOR] [COLOR=Silver]"path"[/COLOR] [COLOR=Red])[/COLOR]
تستقبل الدالة وسيط واحد وهو مسار الملف ..

وترجع بقيمتين

1- إذا كان الملف أو المجلد موجود.

0- إذا كان الملف أو المجلد غير موجود.


أمثلة/
(1)
كود:
[COLOR=DarkRed]$path[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=Magenta]@DesktopDir [/COLOR][COLOR=Red]&[/COLOR] [COLOR=Silver]"\1.bat"[/COLOR]
[COLOR=DarkRed]$exists[/COLOR] [COLOR=Red]=[/COLOR] [I][COLOR=Navy]FileExists [/COLOR][/I][COLOR=Red]([/COLOR][COLOR=DarkRed]$path[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]if[/COLOR] [COLOR=DarkRed]$exists[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=Red]1[/COLOR] [COLOR=Blue]Then[/COLOR]
    [I][COLOR=Navy]FileDelete[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=DarkRed]$path[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]Else[/COLOR]
    [COLOR=Blue]exit[/COLOR]
[COLOR=Blue]endif[/COLOR]
فرضاً لدينا ملف في سطح المكتب بإسم 1.bat ونريد حذفه..

أولاً نتأكد من وجود الملف إذا كان موجود نحذفه غير ذلك نخرج من السيكريبت :d:

(2)

كود:
[COLOR=DarkRed]$path[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=Magenta]@TempDir[/COLOR]
[COLOR=DarkRed]$exists[/COLOR] = [I][COLOR=Navy]FileExists [/COLOR][/I][COLOR=Red]([/COLOR][COLOR=DarkRed]$path[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]if[/COLOR] [COLOR=DarkRed]$exists[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=Red]1 [/COLOR][COLOR=Blue]Then[/COLOR]
    [I][COLOR=Navy]FileDelete[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=DarkRed]$path[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=Silver]"\*.*"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]Else[/COLOR]
    [COLOR=Blue]exit[/COLOR]
[COLOR=Blue]endif[/COLOR]
هنا نتأكد من وجود مجلد الملفات المؤقته temp << أكيد بيكون موجود :d:

ومن ثم نحذف كل ألي داخلة ..


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

:d:
 
توقيع : waget
هنا نتأكد من وجود مجلد الملفات المؤقته temp << أكيد بيكون موجود

فهمت قصدك على مين :hh: :hh:

...
 
توقيع : موريادي
كود:
$ramay1 = @DesktopDir&"\77\"
 $ramay = FileExists($ramay1)
 If $ramay = 1 Then
 $r = FileDelete($ramay1&"\*.*")
  If $r = 1 Then
  MsgBox(0,"","odn")
 Else
  MsgBox(0,"","error")
 EndIf
 EndIf
بس هنا يحذف كل من داخل مجلد لكن ملفات فقط
مجلدات لا تحذف هل يوجد كود يحذف مجلدات وملفات في الدالة واحده طبعا
 
توقيع : ramay
تطبيق الدرس الاستاذ عبدالله [
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
]
PHP:
$path=("C:\virous.exe")
$hatem = FileExists($path)
if $hatem =1 Then
    FileDelete ($path)
Else
    MsgBox(16,"","خطاء",2)
    Exit
    EndIf
 
توقيع : format
الحالة
مغلق و غير مفتوح للمزيد من الردود.
عودة
أعلى