06-08-13, 11:23 AM
(آخر تعديل لهذه المشاركة : 06-08-13, 11:43 AM {2} بواسطة moh_saed35.)
لا يتوجب عليك تغيير اي شئ
فقط قم بتغيير If X >= "4" Then رقم 4 الذي بين علامتي التنصيص الى الرفم الذي تريد إيقاف البرنامج عندة
مثال :
If X >= "9" Then
هنا انا وضعت رقم 9 بين علامتي التنصيص .....................
اخي الكريم سوف اشرح لك هاذه العباره في الكود
If X >= "4" Then
MsgBox "لقد نفذت المدة التجريبية", , "النهايه"
End
End If
If هاذه تعني أذا
X وهاذا متغير يحمل قيمه نصيه من نوع String وهاذا تم شرحه
< وهاذه تعني اكبر من
= وهاذه تعني يساوي
"4" وهاذه تعني القيمه التي قام الشرط عليها اي لنقارن هاذه القيمه بقيمة المتغير(x)
Then وهاذه تعني ثم
MsgBox وهاذه تعني ضهار رساله
end وهاذه تعني نهايه
End if وهاذه تعني إنتهاء الشرط
دعنا الان نجمع الشرح في جمله عربيه
اذا كان اكس (x) اكبر من 4 او يساوي ثم نفذ لي
اظهر رساله للمستخدم تخبره بنتهاء المده التجريبه
وانهي عمل البرنامج
وانهي الشرط
وتحياتي لك
فقط قم بتغيير If X >= "4" Then رقم 4 الذي بين علامتي التنصيص الى الرفم الذي تريد إيقاف البرنامج عندة
مثال :
If X >= "9" Then
هنا انا وضعت رقم 9 بين علامتي التنصيص .....................
اخي الكريم سوف اشرح لك هاذه العباره في الكود
If X >= "4" Then
MsgBox "لقد نفذت المدة التجريبية", , "النهايه"
End
End If
If هاذه تعني أذا
X وهاذا متغير يحمل قيمه نصيه من نوع String وهاذا تم شرحه
< وهاذه تعني اكبر من
= وهاذه تعني يساوي
"4" وهاذه تعني القيمه التي قام الشرط عليها اي لنقارن هاذه القيمه بقيمة المتغير(x)
Then وهاذه تعني ثم
MsgBox وهاذه تعني ضهار رساله
end وهاذه تعني نهايه
End if وهاذه تعني إنتهاء الشرط
دعنا الان نجمع الشرح في جمله عربيه
اذا كان اكس (x) اكبر من 4 او يساوي ثم نفذ لي
اظهر رساله للمستخدم تخبره بنتهاء المده التجريبه
وانهي عمل البرنامج
وانهي الشرط
وتحياتي لك
لا تأسفن على غدر الزمان لطالما...رقصت على جثث الأسود كلاب
لا تحسبن برقصها تعلو على أسيادها...تبقى الأسود أسودا والكلاب كلاب
تبقى الأسود مخيفة في أسرها...حتى وإن نبحت عليها كلاب
تموت الأسد في الغابات جوعا... ولحم الضأن تأكله الكــلاب
وعبد قد ينام على حريـــر...وذو نسب مفارشه التــراب