المحاضرة الثانية (05-11-2014)
- التعليمات التكرارية : Do-Loop
وهي عبارة عن بديل للتعبير For…Next فيتم تنفيذ تكرار معين حتى يتحقق شرط ما ثم يتوقف التكرار.
Do-Loop : هامة جدًا وضرورية لأننا في بعض الأحيان قد لا نعرف كم عدد مرات التكرار التي نريدها، فإذا كنا في تطبيق ما نريد أن نستخدم تكرار ما لمرات غير معلومة ممكن لمرتين أو لثلاث مراث أو خمسة ونريد أن يتوقف التكرار عند نقطه ما لذلك نستخدم ال Do-Loop .
Do While condition
statements
statements
Loop
-or-
Do
statements
statements
Loop While | Until condition
مثال1 :
Dim x As Integer = 0
Do While x <= 9
Console.Write(x(
x = x + 1
Loop
output :
0 1 2 3 4 5 6 7 8 9
مثال 2:
Dim x As Integer = 0
Do
Console.WriteLine(x)
x = x + 1
Loop Until x >= 10
output :
0 1 2 3 4 5 6 7 8 9
تعليمات الشرط :
- If...Then : هى جملة تشعبية وظيفتها تقرير ما إذا سيتم تنفيذ أو عدم تنفيذ مجموعة من الأوامر حسب تقييم مقدار جبرى expression
الشكل العام لكتابه ال if then
If condition then
statement
End If
if : كلمه محجوزه تعبر عن الشرط .
condition : الشرط .
then : تعبر عن التنفيذ في حاله تحقيق الشرط وايضا كامه محجوزه.
statement:الجمل المراد تنفيذها .
End If : تعبر عن نهايه الشرط .
مثال:
Dim count As Integer = 0
If count = 0 Then
Console.WriteLine(“Start”)
End If
- If…Then…Else statement. :
الشكل العام
If condition Then
statements1
ElseIf condition Then
statements2
Else
statements3
End If
مثال :
Dim count As Integer = 0
If count = 0 Then
Console.WriteLine(“count 0”)
Else
Console.WriteLine(“End”)
End If
مثال :
Dim count As Integer = 0
If count = 0 Then
Console.WriteLine(“count 0”)
ElseIf count = 1 Then
Console.WriteLine(“count 1”)
ElseIf count = 2 Then
Console.WriteLine(“count 2”)
Else
Console.WriteLine(“End”)
End If
مثال : معرفه العدد الزوجي من الفردي ..
For i = 0 To 10
If i Mod 2 = 0 Then
Console.WriteLine(“I = “ & i & ” even”)
Else
Console.WriteLine(“I = “ & i & ” odd”)
End If
Next
- الجمله التشعبيه Select Case : استخدام الأداة الشرطية والتي تعني “اختر الحالة“، نعطي للكود البرمجي سهولة أكثر في القراءة والمراجعة .
الشكل العام لكتابه :select case
Select Case Variable
Case Values1
Statment1
Case Value2
Statment2
Case Value3
Statment3
End Select
لاحظ بان Select Case تبدأ ب Select Case وتنتهي ب End Select وكلمة Variable نعوض عنها ب متغير معين . أما كلمة Value1 فمعناها قيمة المتغير في الحالة الاولى وكذلك Value2 قيمه المتغير في الحاله الثانية . فإذا طابقت قيمة المتغير في الحالة الاولى فإن البرنامج سينفذ الأمر الموجود بدل الكلمة Statement1 وإذا طابقت قيمة المتغير في الحاله الثانية value2 فإن البرنامج سينفذ الجملة البرمجية الموجودة بدل Statement وهكذا .
فلنأخذ هذا المثال وهو عبارة عن ترجمة لما تعلمناه عن الأداة الشرطية:
لنفرض أن المستخدم سيقوم بإدخال العمر عمر المستخدم فإذا أدخل المستخدم العمر 12 نريد أن تظهر له رسالة تقول له “أنت قاصر بحسب القانون“، أما إذا أدخل العمر 15 فتظهر له رسالة تقول له “أنت مكلَّف بحسب القانون المدني“، وإذا ادخل العمر 18 تظهر له رسالة تقول له “الآن يحق لك امتلاك وإدارة الشركات“، وإذا أدخل العمر 40 تظهر له رسالة تقول له “دخلت مرحلة الوقار” وإذا أدخل العمر 65تظهر الرسالة “بلغت عمر التقاعد“. لنقوم بتطبيق المثال أعلاه:-
Select Case Age
Case 12
Console.WriteLine(“أنت قاصر بحسب القانون“)
Case 15
Console.WriteLine(“أنت مكلَّف بحسب القانون المدني“)
Case 18
Console.WriteLine(“الآن يحق لك امتلاك وإدارة الشركات“)
Case 40
Console.WriteLine(“دخلت مرحلة الوقار“)
Case 65
Console.WriteLine(“انت متقاعد “)
Case Else
Console.WriteLine(“تاكد من الرقم المدخل “)
End Select
* إذا كان لدينا متغير واحد وله ثلاث أو أكثر من ثلاث حالات أو قيم نستخدم ال Select Case اما إذا كان لدينا متغير وله حالتين أول أقل فيفضل استخدام IF..Then
دوال الحوار مع المستخدم
ما هي الدالة:
الدالة هي عبارة عن مجموعة من الجمل البرمجية التي تقوم بعمل برنامج محدد و منظم وله معنى مثلا طلب معلومات معينة من المستخدم أو حساب محيط الدائرة بمعلومية قطرها وترجع النتيجة إلى البرنامج، النتيجة المرجعة بواسطة الدالة يمكن إسنادها إلى متغير معين كما في المثال أعلاه أو يمكن إسنادها إلى دالة أخرى أو خاصية معينة.
1- MsgBox : وهو مربع حوار يظهر الرسائل الى المستخدم عندما نستدعي الدالة MsgBox وقد تسمى MessageBox فستقوم الدالة بإظهار صندوق حوار له العديد من الخيارات لتنفيذ الهدف الذي تريده من صندوق الحوار.
ويكتب بالصيغه التاليه
MsgBox(Prompt, Buttons, Title)
2- InputBox : تكتب بالصيغه التاليه
InputBox(Prompt, Title)
