هندسة برامجيات عملي

البنية الشرطية باستخدام الامر Select Case :
الامر Select Case يؤدي تقريبا نفس الدور الذي تؤدية البنية الشرطية باستخدام If وغالبا ما نستخدمه حينما يكون لدينا شروط قليله ومحدده فنستعيض به عن الكلمة If .
Select Case العبارة المراد التحقق منها
Case الحالة الأولى
نفذ ما يلي
Case الحالة الثانية
نفذ ما يلي
Case الحالة الثالثة
نفذ ما يلي
Case Else إن لم تتحقق أي حالة من الحالات
نفذ ما يلي
End Select
نضع بعد الامر Select Case العباره التي نريد التحقق من قيمتها فان كانت مساوية للحالة الاولى Case ننف الاوامر التي تليها وان كانت مخالفة للحالة الاولى وتساوي الحالة الثانية ننف الاوامر التي تتبع الحالة الثانية ... ان لم تتحقق اية حاله من الحالات يتم تنفي الاوامر التي تاتي بعد CaseElse .

البنية الشرطية باستخدام IIF:
نستخدمه اا اردنا تنفي امر من بين امرين في حالة تحقق الشرط وصيغته كما يلي:
IIf( (الأمر الثاني ,الأمر الأول ,الشرط)
اذا تحقق الشرط سيتم تنفي الامر الاول واا لم يتم تحقيقه سيتم تنفي الامر الثاني كما في المثال التالي:
Dim Password As String = "myPWD123"
Dim Access_State As String = IIf(Password = "myPWD123",
"كلمة المرور غير صحيحة" ,"كلمة المرور صحيحة")
البنية التكرارية Loop :
1- For...Next
For Count = Start To End [step step]
[statements]
Next
2- Do..While :
تعتمد على نتيجة الشرط الي ياتي بعد كلمة While وفي هذه الصيغه يتم تنفيذها لمره واحده حتى في حالة عدم تحقق الشرط لانه يتم الدخول في تنفيها قبل اختبار الشرط وصيغتها كما يلي:
Do
الأوامر
Loop While الشرط
الصيغه الثانية لها هي
Do while cond.
Statement
Loop

و يتم تنفيذها الا في حالة تحقق الشرط بسبب وضعه في بداية الدوارة.

3- Do..Until:
في هذه البنية تسمح بتكرار الاوامر الى ان يتحقق الشرط وليس مادام الشرط متحققا بمعنى ان التعليمات التي ستاتي بعد الكلمة Do سيتم تكرارها الى غاية تحقق الشرط الذي ياتي بعد Until.

4- الصيغة التكرارية For Each…Next :
تسمح لنا هذه البنية بتكرار امر معين على جميع عناصر مجموعه معينه وصيغتها هي كما يلي:
For Each Item As DATA_TYPE In GROUP
الأوامر المراد تكرارها على العناصر
Next Item
المثال التالي يقوم بقراءة سلسله حرفية ومن ثم طباعة كل حرف على سطر في list box :
Dim FullName As String = Textbox1.Text
For Each chr As Char In FullName
Listbox1.Items.Add(chr)
Next
البنية الشرطية باستخدام الامر Select Case :
الامر Select Case يؤدي تقريبا نفس الدور الذي تؤدية البنية الشرطية باستخدام If وغالبا ما نستخدمه حينما يكون لدينا شروط قليله ومحدده فنستعيض به عن الكلمة If .
Select Case العبارة المراد التحقق منها
Case الحالة الأولى
نفذ ما يلي
Case الحالة الثانية
نفذ ما يلي
Case الحالة الثالثة
نفذ ما يلي
Case Else إن لم تتحقق أي حالة من الحالات
نفذ ما يلي
End Select
نضع بعد الامر Select Case العباره التي نريد التحقق من قيمتها فان كانت مساوية للحالة الاولى Case ننف الاوامر التي تليها وان كانت مخالفة للحالة الاولى وتساوي الحالة الثانية ننف الاوامر التي تتبع الحالة الثانية ... ان لم تتحقق اية حاله من الحالات يتم تنفي الاوامر التي تاتي بعد CaseElse .

البنية الشرطية باستخدام IIF:
نستخدمه اا اردنا تنفي امر من بين امرين في حالة تحقق الشرط وصيغته كما يلي:
IIf( (الأمر الثاني ,الأمر الأول ,الشرط)
اذا تحقق الشرط سيتم تنفي الامر الاول واا لم يتم تحقيقه سيتم تنفي الامر الثاني كما في المثال التالي:
Dim Password As String = "myPWD123"
Dim Access_State As String = IIf(Password = "myPWD123",
"كلمة المرور غير صحيحة" ,"كلمة المرور صحيحة")
البنية التكرارية Loop :
1- For...Next
For Count = Start To End [step step]
[statements]
Next
2- Do..While :
تعتمد على نتيجة الشرط الي ياتي بعد كلمة While وفي هذه الصيغه يتم تنفيذها لمره واحده حتى في حالة عدم تحقق الشرط لانه يتم الدخول في تنفيها قبل اختبار الشرط وصيغتها كما يلي:
Do
الأوامر
Loop While الشرط
الصيغه الثانية لها هي
Do while cond.
Statement
Loop

و يتم تنفيذها الا في حالة تحقق الشرط بسبب وضعه في بداية الدوارة.

3- Do..Until:
في هذه البنية تسمح بتكرار الاوامر الى ان يتحقق الشرط وليس مادام الشرط متحققا بمعنى ان التعليمات التي ستاتي بعد الكلمة Do سيتم تكرارها الى غاية تحقق الشرط الذي ياتي بعد Until.

4- الصيغة التكرارية For Each…Next :
تسمح لنا هذه البنية بتكرار امر معين على جميع عناصر مجموعه معينه وصيغتها هي كما يلي:
For Each Item As DATA_TYPE In GROUP
الأوامر المراد تكرارها على العناصر
Next Item
المثال التالي يقوم بقراءة سلسله حرفية ومن ثم طباعة كل حرف على سطر في list box :
Dim FullName As String = Textbox1.Text
For Each chr As Char In FullName
Listbox1.Items.Add(chr)
Next