+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : قسم دورات المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=113)
+---- قسم : دورة .net 2008 . لنبدأ سوياً (http://vb4arb.com/vb/forumdisplay.php?fid=138)
+---- الموضوع : الدرس السادس : الجمل الشرطية وحلقات التكرار (/showthread.php?tid=5259)
الدرس السادس : الجمل الشرطية وحلقات التكرار - oneyemenweb2 - 06-10-12
منقول من المنتدى القديم
كاتب المقال احمد جمال المشرف العام
تاريخ 26-02-08
الجمل الشرطية في .net :
ابسط الجمل الشرطية هي تلك التي تستخدم if else ، وطريقة كتابتها بالشكل التالي :
C#:
كود :
if (x==5)
Console.WriteLine("five");
else
Console.WriteLine("notFive");كود :
If x = 5 Then
Console.WriteLine("five")
Else
Console.WriteLine("notFive")
End Ifيتم استخدام كافة انواع المقارنات == و != و < و > في الجمل الشرطية ، يمكن دمج اكثر من شرط باستخدام else if بالشكل التالي :
C#:
كود :
if (x > 90)
{
Console.WriteLine("ممتاز");
}
else if (x <=50)
{
Console.WriteLine("ناجح");
}
else
{
Console.WriteLine("راسب");
}VB.net:
كود :
If x > 90 Then
Console.WriteLine("ممتاز")
ElseIf x <= 50 Then
Console.WriteLine("ناجح")
Else
Console.WriteLine("راسب")
End Ifيتم تطبيق الجملة الأولى في حالة كون الناتج (True) وإلا يتم تنفيذ الشرط الثاني . النظام القديم للغات السي والتي كانت تقضي بانها صحية لو كانت تساوي 1 ايضاً مثل الجملة التالية :
C# (فقط) :
كود :
if (string.lenght)هذا النظام لم يعد صالحاً مع السي شارب .
لعمل اكثر من شرط يمكن استخدام && للدمج بين الشروط بحيث يتم تنفيذ الشرط في حالة كونهم جميعاً True او استخدام معامل Or والذي يتم كتابته في سي شارب بالشكل التالي || فيعطي نتيجة في حالة كون اي واحد منهم صحيحاً ، المعامل Not والذي يكتب بالشكل التالي ! فيعني في حالة عدم (نفي) ، لاتنس ترتيب الاقواس في هذه الحالات حتى لا تتداخل الشروط بالشكل التالي مثلاً :
C#:
كود :
if ((x < 90 || x>50) && (!name="ahmed"));VB.net:
كود :
If (x < 90 OrElse x > 50) AndAlso (Not name = "ahmed") Thenاستخدام ال Switch Case :
طريقة اخرى للجمل الشرطية هي استخدام Switch Case بالشكل التالي :
C#:
كود :
switch (x)
{
case 90:
Console.WriteLine("ممتاز");
break;
case 50:
Console.WriteLine("ناجح");
break;
}Vb.net:
كود :
Select Case x
Case 90
Console.WriteLine("ممتاز")
Exit Select
Case 50
Console.WriteLine("ناجح")
Exit Select
End Selectلا تنس اضافة break في اخر الشرط أو Exit Sub بالنسبة للفيجوال بيسك ، السبب ان ذلك يمنع الكومبايلر من الاستمرار في اختبار باقي الشروط عندما يعثر على اول شرط ، اما إذا كنت ترغب في مروره على كل الشروط حتى مع تحقق اي منهم فلا تضف break او Exit Sub .
درسنا القادم مع حلقات التكرار إن شاء الله ...
الحلقات التكرارية :
الدرس السادس : الجمل الشرطية وحلقات التكرار - oneyemenweb2 - 06-10-12
منقول من المنتدى القديم
كاتب المقال احمد جمال المشرف العام
الحلقات التكرارية :
نستخدم الحلقات التكرارية لتكرار سطر او امر عدة مرات ، سنشرح طرق التكرار في هذا الدرس على عجالة :
For - Next Loop :
حلقة تكرار يتم تحديد نقطة البداية والنهاية ومقدار الخطوة فيها ، ابسط مثال عليها الكود التالي :
C#:
كود :
for (int i = 0; i < 10; i++)
{
Console.WriteLine(i);
}VB.net:
كود :
For i As Integer = 0 To 9
Console.WriteLine(i)
Nextيمكن عمل مقدار القفز = 2 مثلاً بالشكل التالي - لطباعة الارقام الزوجية مثلاً - :
C#:
كود :
for (int i = 0; i < 10; i+=2)
{
Console.WriteLine(i);
}VB.net:
كود :
For i As Integer = 0 To 9 Step 2
Console.WriteLine(i)
NextWhile Loop :
حلقة تكرار تستمر في العمل حتى تحقق شرط معين ، لنفترض مثلاً حتى وصول العداد إلى رقم 10 :
C#:
كود :
int x = 0;
while (x < 10)
{
Console.WriteLine(x);
}VB.net:
كود :
Dim x As Integer = 0
While x < 10
Console.WriteLine(x)
End Whileحالة اخرى غير رقمية ، ادخال بيانات حتى ادخال exit ، في هذه الحالة سوف نضيف Do في البداية ونضع While في النهاية .
C#:
كود :
string inp;
do
{
inp = Console.ReadLine();
Console.WriteLine(inp);
}while(inp!="exit");VB.net:
كود :
Dim inp As String
Do
inp = Console.ReadLine()
Console.WriteLine(inp)
Loop While inp <> "exit"For Each Loop
للدوران على (كل) شيء معين ، مثلاً للدوران على كل عناصر مصفوفة معينة مثلاً :
C#:
كود :
int[] arr = { 10, 20, 30, 40 };
foreach (int i in arr)
Console.WriteLine(i);VB.net:
كود :
Dim arr As Integer() = {10, 20, 30, 40}
For Each i As Integer In arr
Console.WriteLine(i)
Nextإلى هنا نكون قد انتهنيا من الجزء الثاني من دروس هذا الاسبوع ،إلى اللقاء في الجزء القادم .
والسلام عليكم ورحمة الله وبركاته .
للتحويل بين VB.net و C# ، فقط قم بنسخ الكود ووضعه في الموقع التالي :
http://labs.developerfusion.co.uk/co...arp-to-vb.aspx
سوف يخرج لك الكود بلغة VB.net .