|
|||||||
|
|
|
|||||
|
|
|||||||
|
|
المعاملات المنطقية والجمل الشرطية
في فيجوال بيسيك
المعاملات
المنطقية (<> و < و > و => و
=<
)
سوف نلخصها في هذا الجدول
|
المعامل |
معناه |
مثال |
صحيح إذا |
خاطئ إذا |
|
= |
يساوي |
A = B |
A تساوي B |
A أصغر أو أكبر من B |
|
<> |
لايساوي |
A <> B |
A تختلف عن B |
A تساوي B |
|
> |
أصغر من |
A < B |
A أصغر من B |
A أكبر من أو يساوي B |
|
=> |
أصغر من أو يساوي |
A <= B |
A أصغر من أو يساوي B |
A أكبر من B |
|
< |
أكبر من |
A > B |
A أكبر من B |
A أصغر من أو تساوي B |
|
=< |
أكبر من أو يساوي |
A >= B |
A أكبر من أو يساوي B |
A أصغر من B |
ملاحظة : الرجاء من المبرمجين حفظ هذا الجدول
الجملة الشرطية وبنية القرار الشرطي If ...... Then
تستطيع التغييرات الشرطية التحكم في ترتيب تنفيذ الجمل عند استعمالها ويتيح القرار If........then تنفيذ شرط في
البرنامج وتنفيذ خطوات عمل معينة وتكتب بنية القرار للجملة الشرطية If....then في أبسط أشكالها
على النحو التالي :-
تركيب If......Then
|
أمر واحد |
Then |
شرط |
If |
مثال |
|
|
|
|
end |
Then |
"أحمد"Pw$ <> |
if |
فإذا كانت الكلمة التي أدخلها المستخدم تختلف عن <> كلمة "أحمد" فإن الشرط يعد صحيحاً ويقوم "فيجوال بيسيك"
بتنفيذ الأمر الذي يلي كلمة Then وهو امر end وهو يقوم بإنهاء البرنامج .
يمكن تنفيذ عدة أوامر بالطريقة التالية :-
|
Then |
شرط |
If |
|
|
مجموعة |
الاوامر |
|
|
|
End if |
مثال : (برنامج إدخال كلمة سر )
|
)"أدخل كلمة السر من فضلك"pw$ = inputbox$ ( then "علي"if pw$ <> beep beep "كلمة السر غير صحيحة"msgbox end end if |
ولعمل برنامج بسيط لتنفيذ الجملة الشرطية If......then نقوم بعمل الآتي :-
1. افتح مشروع جديد وارسم في النموذج (Form1) زر الأمر Command1 ومربع نص Text1 ومربعين عنوان Label1,label2
وغير خصائصهم حتى يكون كالشكل التالي
2. لإضافة الكود انقر زر الأمر (اضغط هنا لتربح) نقراً مزدوجاً فتظهر لك شاشة الكود اكتب فيها الكود كما في الشكل التالي
3. اضغط F5 لتشغيل البرنامج واكتب اجابتك على السؤال فيظهر البرنامج كم في الشكل التالي
والآن هيا إلى الدرس التالي
| جميع حقوق التصميم محفوظة © AM-Designer 2006 |