mido_kholy
10-08-2006, 07:06 PM
بسم الله الرحمن الرحيم
السلام عليكم
دالة الشرط IF هي دالة تستخدم في وضع شروط معينة وتكون قيمتها دائماً صحيحة ونكتبها على الشكل التالي If ... Then ..... End if أولاً نبدأ ب IF وثانياً نكتب الشرط بعد ذلك نكتب Then ثم نضع الحدث أو الكود المراد تشغيله عندما يكون الجواب صحيح بعد ذلك ننهي الدالة ب End if مثال : أضف مربع نص وزر أمر إكتب هذا الكود في زر الأمر if text1.text = "Password" then MsgBox "الرقم السري صحيح ، أهلاً بك" End if في الدالة السابقة يتأكد من أن قيمة مربع النص هي Password فإذا كانت كذلك يظهر رسالة تعلم المستخدم بأن كلمة المرور صحيحة . الآن نريد أن نظهر رسالة تعلم بأن كلمة السر خاطئة ؟! نستخدم لذلك أمر Else أي إذا كانت الإجابة خاطئة ، فأمر Else دائماً قيمه تكون False فيصبح الكود هكذا if text1.text = "Password" then MsgBox "الرقم السري صحيح ، أهلاً بك" Else MsgBox "الرقم السري خاطيء" End if
السلام عليكم
دالة الشرط IF هي دالة تستخدم في وضع شروط معينة وتكون قيمتها دائماً صحيحة ونكتبها على الشكل التالي If ... Then ..... End if أولاً نبدأ ب IF وثانياً نكتب الشرط بعد ذلك نكتب Then ثم نضع الحدث أو الكود المراد تشغيله عندما يكون الجواب صحيح بعد ذلك ننهي الدالة ب End if مثال : أضف مربع نص وزر أمر إكتب هذا الكود في زر الأمر if text1.text = "Password" then MsgBox "الرقم السري صحيح ، أهلاً بك" End if في الدالة السابقة يتأكد من أن قيمة مربع النص هي Password فإذا كانت كذلك يظهر رسالة تعلم المستخدم بأن كلمة المرور صحيحة . الآن نريد أن نظهر رسالة تعلم بأن كلمة السر خاطئة ؟! نستخدم لذلك أمر Else أي إذا كانت الإجابة خاطئة ، فأمر Else دائماً قيمه تكون False فيصبح الكود هكذا if text1.text = "Password" then MsgBox "الرقم السري صحيح ، أهلاً بك" Else MsgBox "الرقم السري خاطيء" End if