Free Web Hosting Provider - Web Hosting - E-commerce - High Speed Internet - Free Web Page
Search the Web

Welcom in Your Site Fahim VB
Welcome In Your Web Site Fahim VB

محتويات الموقع محتويات الموقع

 عن الموقع عن الموقع
 الصفحة الرئيسية الصفحة الرئيسية
 الفيجوال دروس الفيجوال بيسك
 html HTML
 java دروس الجافا
 
الفيجوال دروس الفرونت بيج
 collection الدروس المتنوعة
 Progarms قسم البرامج
 EBook قسم الكتب الإلكترونية
collection الهاكر
محتويات الموقع الدروس

الدرس الأول مقدمة عن الفيجوال بيسك
الدرس الثاني كيفية تشغيل الفيجوال بيسك
الدرس الثالث واجهة الفيجوال بيسيك
الدرس الرابع التعرف على ادوات الفيجوال
الدرس الخامس قوائم الفيجوال بيسيك
الدرس السادس عناصر شريط الأدوا ت
الدرس السابع شرح اول الكود
الدرس الثامن النماذج Forms
الدرس التاسع خصائص الفورم
الدرس العاشر الاحداث الرئيسية للفورم
الدرس الحادي عشر ادوات التحكم1
الدرس الثاني عشر ادوات التحكم2
الدرس الثالث عشر ادوات التحكم3
الدرس الرابع عشر ادوات التحكم4
الدرس الخامس عشر ادوات التحكم5
الدرس السادس عشر ادوات التحكم6
الدرس السابع عشر ادوات التحكم7
الدرس الثامن عشر القوائم
الدرس التاسع عشر القاعدة IF
الدرس العشرين القاعدة Select Case
الدرس الحادي والعشرين القاعدة For Next

الدرس التاسع عشر
قاعدة 
IF

قاعدة IF....Then:

قاعدة If من اشهر قواعد فيجوال بيسيك, و تستخدم في الشروط فمعناها  اذا حدث شيء فسيحدث هذا الشيء, و ان لم يحدث سيحدث شيء آخر, ولكن كيف نكتب هذا في طريقة كود؟؟ هذا ما سنعرفه...

 تتكون هذه القاعدة من عدة اشياء و هي كاللآتي:

 1)              IF: و هي أول شيء يكتب في الكود و معناها ان إذا تحقق شيء معين.
 2)              Then: تكتب بعد الحدث الذي يكتب بعد If و معناها أن إذا تحقق الشيء
          ( الحدث بعد If) فسيتحقق شيء آخر.
 3)              Else:   و هي إذا لم يتحقق الحدث الذي بعد If يتحقق شيء لآخر, و هي ليست       
    
ضرورية إي لا تستخدم في كل الاكواد.
 4)              ElseIf:   تكون حدث جديد فهي مثل If العادية, ولكن بدلا من أن نقوم بكتابة  
        
كود جديد به If و End If نقوم بكتابة ElseIf و تكملة الكود.
 5)              End If:   و تكتب في نهاية الكود لإيقاف القاعدة و هي مهمة جدا و تكتب في   
       
كل الاكواد.
 

 و الآن لنقوم بتطبيق بسيط علي ما سبق بكتابة قاعدة كاملة بكائنات عشوائية..

 

Private Sub Command1_Click()

If Text1.Text = “Mohamed” Then

Image1.Visible = True

ElseIf Text1.Text = “Fahim” Then

Image1.Visible = True

Else

Image2.Visible = True

End If

End Sub

 الشرح:

و كما يتبين من الكود انه يشبه Password عند كتابتها صحيحة تظهر صورة و عند كتابتها خاطئة تظهر صورة أخري, فاستخدمت

If Text1.Text = “Mohamed”

 أي أن لو الكتابة في التكست Mohamed فانه ينتقل
 إلي الحدث التالي
Image1.Visible = True عن طريق كتابة Then ثم الحدث, و إذا كانت تكست Fahim فسيتم إظهار الصورة أيضا و ذلك باستخدام ElseIf, و إذا كانت التكست ليست Mohamed و ليست Fahim ستظهر الصورة الثانية و ذلك باستخدام Else.

 أرجو أن تكون طريقة شرحي جيدة و يفهمها الجميع.  

 الدالة IFF:

هي تستخدم كاختصار لدالة If..Else كالتالي:

 

Private Sub Command1_Click

X = Text1.Text

MsgBox IIf(X = 7, "X=7", "X<>7")

End Sub

 

ففي هذا المثال وضعت تكست و زر أمر, وإذا كانت تكست1 = 7 فستظهر رسالة تثبت ذلك و العكس صحيح.. 


الدرس التالي          الدرس السابق
 


للمراسلة
MFahimali@hotmail.com
0127917085
محمد فهيم