دخول
المتواجدون الآن ؟
ككل هناك 1 عُضو حالياً في هذا المنتدى :: 0 عضو مُسجل, 0 عُضو مُختفي و 1 زائر لا أحد
أكبر عدد للأعضاء المتواجدين في هذا المنتدى في نفس الوقت كان 14 بتاريخ 8/1/2013, 10:57 am
أفضل 10 أعضاء في هذا المنتدى
| Sniper - 201 |
| |||
| M.Y.T - 184 |
| |||
| STEEV - 94 |
| |||
| *شمس الإسلام* - 67 |
| |||
| MhdSyrwan - 51 |
| |||
| حنيني للجنة - 36 |
| |||
| ايمــــ عزي ــــاني - 32 |
| |||
| Karam - 23 |
| |||
| VIRUS - 21 |
| |||
| kenan.t - 21 |
|
بحـث
دورات VB.net : الدرس الثالث
صفحة 1 من اصل 1
دورات VB.net : الدرس الثالث
من طرف Sniper 27/7/2010, 5:13 am
الدرس الثالث :
سنقوم بهذا الدرس بالتعرف على :
1- التعليمة الشرطية (If)
2- الـ Loop
أ- For
ب- While
ت- Do … While
1- التعليمة الشرطية (If) :
تذكرون إننافتحنا مشروع جديد على شكل Dos
نعود ونفتح مثل هذا المشروع من جديد للتعلم عليه
أيضا كل ما سنقوم به في هذا الدرس سنكتبه بين
- الكود:
Sub Main()
……
End Sub
- الكود:
If a>b then
Begin
End
Else
Begin
End;
أما في الـ VB.net فنقوم بالتالي :
- الكود:
If <Condition> then
Else
End if
- الكود:
Dim a As Integer = 0
Dim b As Integer = 3
If b > a Then
Console.WriteLine(b)
Else
Console.WriteLine(a)
End If
فقط كل شيء نريده أن ينفذ بعد الدخول إلى الـ if
أي :
- الكود:
Dim a As Integer = 0
Dim b As Integer = 3
If b > a Then
Console.WriteLine("Max Number is")
Console.WriteLine(b)
Else
Console.WriteLine("Max Number is")
Console.WriteLine(a)
End If
ويوجد else من نوع ثاني وهي ElseIf
وهي نفسها في الباسكال عندما كنا نكتب else if
ويوجد النوعين في الـ VB.net
أما نفي شرط ما فكنا نكتب مثلا في الباسكال
If not(Found) then
If not(Found) then
ونجد أيضاً أن تعليمة (وَ) و الـ (أو) (and) (or) هما نفسهما في الـ VB.net
للإضافة شرطين مثلاً :
- الكود:
If (a>b) And (a>c) Then
If (a>b) Or (a>c) Then
ونجد أضافة للـ And و الـ Or تعليمة AndAlso
ببساطة بدل أن نكتب :
- الكود:
If (a>b) Then
If (a>c) Then
End if
End if
- الكود:
If (a>b) AndAlso (a>c) Then
End if
If (a>b) And (a>c) Then
سوف تقولون ليدخل إلى الشرط الثاني لا مشكلة
ولكن دخوله إلى هذا الشرط يحتاج معالجة لانحتاج إليها لإن الشرط الأول لم يتحقق
وإذا فرضنا أن العملية أعقد من عملية المقارنه بكثير
أي نفرض إنه يحتاج إلى استدعاء تابع هنا سنرى كمية المعالجة التي لا نحتاج إليها
بالإضافة إلى AndAlso لدينا OrElse ونستخدمها أيضاً للتقليل من عملية المعالجة
فإذا تحقق الشرط الأول ندخل مباشرة إلى داخل الـ If وليس هناك داع إلى التحقق من الشرط الثاني
If (a>b) OrElse (a>c) Then
2- الـ Loop :
أ- For
كنا في الباسكال نكتب بعد تعريف (i) متحول من نوع Integer
- الكود:
For i:=1 to 10 do
Begin
End;
- الكود:
For i As Integer = 0 to 9
Next
- الكود:
for (int i =0 ; i < 10 ; i++)
{
}
فنكتب :
- الكود:
For i As Integer = 1 to 10
Next
فإذا أردنا كتابة تعليمة واحدة داخل الـ For أو عدة تعليمات نكتبها بين الـ For و الـ Next
ويمكننا أن نزيد من عدد الخطوات في الـ For أي نمشي خطوتين خطوتين مثلا
لا أذكر أنه يوجد في الباسكال مثل هكذا شيء ولكن نجده في ال C++ بالشكل
- الكود:
for (int i = 0 ; i < 10 ; i += 2)
- الكود:
For i As Integer = 0 to 9 Step 2
Console.WriteLine(i)
Next
0
2
4
6
8
ب- While
نكتب في الباسكال
- الكود:
While (a<>0) do
Begin
End;
- الكود:
While (a<>0)
End While
فلا نكتب do ولا يوجد begin و end
بل نكتب التعليمات بين While وبين End While
والباقي نفس الباسكل في الـ (And , Or , not ,….etc.)
ت- Do … While
وهي تشبه في عملها في الباسكال
- الكود:
Repeat
Until <Condition> ;
وكما نذكر في كل الأحول يدخل في المرة الأولى
وطريقة كتابتها في الـ VB.net
- الكود:
Do
Loop While <Condition>
أتمنى أن يكون الدرس مفيداً
ولأي استفسارات أو أسئلة ادخلو على الرابط التالي :
https://3md-it.yoo7.com/montada-f12/topic-t20.htm
لا تنسونا من صالح الدعاء
Sniper- مدير المنتدى
- عدد المساهمات : 201
نقاط : 153311
السٌّمعَة : 1
تاريخ التسجيل : 06/06/2010
العمر : 32 -
تحميل الدرس
من طرف Sniper 27/7/2010, 5:20 am
تستطيعون تحميل الدرس من أكثر من سيرفر
تجدونه على الرابط التالي
http://www.multiupload.com/JB93PQT8QA
أنا جاهز لأي استفسار بإذن الله
تجدونه على الرابط التالي
http://www.multiupload.com/JB93PQT8QA
أنا جاهز لأي استفسار بإذن الله
Sniper- مدير المنتدى
- عدد المساهمات : 201
نقاط : 153311
السٌّمعَة : 1
تاريخ التسجيل : 06/06/2010
العمر : 32 -
الوظيفة
من طرف Sniper 27/7/2010, 5:30 am
هذه الوظيفة
أنا أعرف لن يقوم بها أحد
ولكن أفعل ما علي فقط
1- كتابة العاملي
2- جمع أرقام من الـ 1 إلى الـ n
وإذا قام أحد بالوظيفة يضعها في مناقشة دورات VB.net
أنا أعرف لن يقوم بها أحد
ولكن أفعل ما علي فقط
1- كتابة العاملي
2- جمع أرقام من الـ 1 إلى الـ n
وإذا قام أحد بالوظيفة يضعها في مناقشة دورات VB.net
Sniper- مدير المنتدى
- عدد المساهمات : 201
نقاط : 153311
السٌّمعَة : 1
تاريخ التسجيل : 06/06/2010
العمر : 32 -
مواضيع مماثلة» دورات VB.net : الدرس الرابع
» دورات VB.net : الدرس الأول
» دورات VB.net : الدرس الثاني
» الاستمرار في دورات الـ VB.net
» مناقشة دورات تعليم VB.net
» دورات VB.net : الدرس الأول
» دورات VB.net : الدرس الثاني
» الاستمرار في دورات الـ VB.net
» مناقشة دورات تعليم VB.net
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
» Planes Game
» الختمة الجماعية في رمضان
» بعد رحيل العشر الأول ...
» رســـالــة مـــن ...؟؟!!
» Happy Birthday To U
» إحدى وعشرون نصيحة نحو صلاة الفجر
» ماذا تتمنى في هذه اللحظة ؟!
» برنامج Imageshackert
» كيف نستعد لرمضان