السلام عليكم
كثير ما نرى كتب و شروحات عن الفيجوال بيسك لكنهم لم يعلومنا قواعد البرمجة
و انا رايت هذا في كتاب فحبيت ان انقله لكم
و اعرف ان هذه القواعد تكون قليلة لذالك ارجو من كل شخص ان يشرح لنا شرحا بسيطا عن اي قاعدة يعرفها مع ذكر مثال ان امكن
و قال رسولنا الكريم(من سن في الاسلام سنة حسنة فله اجرها و اجر من عمل بها من بعد من غير ان ينقص من اجورهم شيئا , و من سن في الاسلام سنة سيءة كان عليه و زرها و وزر من عمل بها من بعده من غير ان ينقص من اوزارهم شيئا)
و الان سابدا بشرح بعض القواعد
قاعدة If
و تستخدم في الشروط فمعناها ان اذا حدث شيء فسيحدث هذا الشيء, و ان لم يحدث سيحدث شيء اخر
قاعدة then : تكتب بعد الحدث الذي يكتب بعد If و معناها ان اذا تحقق الشيء ( الحدث بعد If) فسيتحقق شيء آخر.
قاعدة ُElse :و هي اذا لم يتحقق الحدث الذي بعد If يتحقق شيء لآخر, و هي لا تستخدم في كل الاكواد.
قاعدة Elseif : تكون حدث جديد فهي مثل If العادية, ولكن بدلا من ان نقوم بكتابة كود جديد به If و End If نقوم بكتابة ElseIf و تكملة الكود.
قاعدة :End If و تكتب في نهاية الكود لايقاف القاعدة و هي مهمة جدا و تكتب في كل الاكواد
مثال بسيط
Private Sub Command1_Click()
If Text1.Text = “salwan” Then
Image1.Visible = True
ElseIf Text1.Text = “Bibo” Then
Image1.Visible = True
Else
Image2.Visible = True
End If
End Sub
الشرح:
و كما يتبين من الكود انه يشبه Password عند كتابتها صحيحة تظهر صورة و عند كتابتها خاطئة تظهر صورة اخري, فاستخدمت
If Text1.Text = “salwan” اي ان لو الكتابة في التكست salwan فانه ينتقل الي الحدث التالي Image1.Visible = True عن طريق كتابة Then ثم الحدث, و اذا كانت تكست Bibo فسيتم اظهار الصورة ايضا و ذلك باستخدام ElseIf, و اذا كانت التكست ليست salwan و ليست Bibo ستظهر الصورة الثانية و ذلك باستخدام Else.
الدالة IFF:
هي تستخدم كاختصار لدالة If..Else كالتالي:
Private Sub Command1_Click
X = Text1.Text
MsgBox IIf) = 7, "X=7", "X<>7")
End Sub
ففي هذا المثال وضعت تكست و زر امر, واذا كانت تكست1 = 7 فستظهر رسالة تثبت ذلك و العكس صحيح..
قاعدة Select Case
بسم الله الرحمن الرحيم
Select Case
تصلح عبارة الشرط if إذا كان جواب الشرط عبارة عن احتمالين أو ثلاثة أما إذا كنت تتوقع عند تقييمك لشرط معين احتمالات كثيرة فمن الأفضل أن نستخدم عبارة Select Case وتكون صيغتها العامة ما يلى : تبدأ العبارة بـ Select Case يليها اسم المتغير او التعبير الذى سيتم اختباره . تأتي بعد ذلك الاحتمالات Case بعد كل منها احدى قيم المتغير الذى ستتم مقارنته ثم يعقبها التعليمات التى ستنفذ إذا كان الشرط صحيحًا أو كان المتغير بهذه القيمة . واخيرًا يأتى Case else ومعناها إذا كان المتغير لا يساوي أيًا من القيم السابقة أو إذا لم يكن الشرط صحيحًا فإن التعليمات التى تلى Else هي التى تنفذ .
مثال: ضع تكست بوكس و زر امر و اكتب به هذا الكود:
Private Sub Command1_Click
Select Case Text1.Text
Case "Bibo"
MsgBox "You Choosen Bibo.."
Case "salwan"
MsgBox "You Chosen salwan.."
Case Else
MsgBox "Wrong!"
End Select
End Sub
كما يتبين من الكود انه عند الضغط علي الزر, اذا كانت تكست = Bibo, فسيقة البرنامج باظهار رسالة, و اذا كانت salwan, فيقوم البرنامج بارسال رسالة مختلفة و اذا لم تكن هذا او ذاك فسيظهر رسالة اخري..
قاعدة:While, Wend
هذه القاعدة تستخدم في فعل شيء معين اثناء حدوث حدث معين, و عند انتهاء هذا الشيء ينتهي الحدث, و تتكون القاعدة من:
While, Wend
مثال يتم كتابة الكود كالآتي:
Private Sub Command1_Click()
Score.Caption = “0”
While Score.Caption < 10
Score.Caption = Score.Caption + 1
Wend
End Sub
و في هذا المثال عندنا ليبل اسمه Score, و طالما الرقم الموجود به اصغر من 10 فيقوم البرنامج بزيادة 1 الي ان تصل الي الرقم عشرة..
قاعدة:For.. Next
هذه القاعدة من اهم قواعد الحركة التكرارية و تكتب كالاتي:
Private Sub Command1_Click()
For X = 1 To 10 Step 2
Print X
Next X
End Sub
كما تري من الكود السابق انه ليس عندنا سوا كائن الفورم و زر امر, و عند الضغط عليه, يتم طباعة ارقام علي الفورم من 1 الي عشرة ولكن خطوتان خطوتان اي تكتب الارقام: 1, 3, 5, 7, 9..
شرح الكود:
في السطر الاول كتبت ان X هي الارقام من 1 الي 10 عن طريق كتابة
For X = 1 To 10, اما Step 2 فهي خطوة العد, و في السطر Print X يقوم البرنامج بطباعة ماحدث, و Next X هي نهاية الكود..
قاعدة do و loop
قاعدة Do.. Loop تستخدم في تكرار شيء ما الي ان يحدث شيء ما, و تتكون من:
Do: و هي اول شيء يكتب لفعل شيء.
Loop Until: تكتب بعد الحدث الذي يكتب بعد Do و معناها ان هذا الشيء سيتم تكريره حتي يحدث شيء ما.
يتم كتابة الكود كالآتي:
Private Sub Command1_Click()
Score.Caption = “0”
Do
Score.Caption = Score.Caption + 1
Loop Until Score.Caption = “10”
End Sub
ففي هذا الكود عندنا ليبل اسمه Score, يقوم البرنامج باضافة 1 الي الرقم حتي تصل الي الرقم عشرة..
هذا ما تعلمته و انه القليل من قواعد البرمجة بلغة الفيجوال بيسك
و تذكر اذا كنت تعرف قاعدة او ملاحضة لاتتردد باضافته هنا
و ارجو تثبيت الموضوع
اخوكــــــــــــــم سلوان