السلام عليكم ورحمة الله

أخي مهند عبادي

أولاً أشكرك جداً على هذه الدروة الرائعة .. وكنت اتطلع لها من قبل

ما شاء الله شرح أكثر من وافي .. وكل شيء موضح .. لكن رجائي الاسراع بها حتى لا تبرد همم المتابعين
ِ
وأنا بانتظار المزيد من الدروس على أحر من الجمر

السلام عليكم ،،،

مشكور أخوي مهند وبارك الله فيك

أي لغة برمجة ينقسم تعليمها إلى قسمين :
1- تعليم كتابة الكود وبنى التعليمات
2- تعليم العناصر والأغراض المستخدمة في واجهة المستخدم (خصائصها - برمجتها - طرقها - بناءها )

وبالنسبة لنا سنبدأ بتعلم البند الأول وهو الكود وكتابته .. لذلك سنعتمد حالياً في أمثلتنا القادمة على شاشة سطور الأوامر Consol Application

أسلوب كتابة صيغ التعليمات

عندما سنذكر أي تعليمة أثناء الدورة سنكتب صيغتها .. وتضمن الصيغة بعض الاصطلاحات سنذكرها الآن من خلال هذا المثال :


كود:

Command name (A, {B|C|D} ,[E] )

◄ كل شيء بدون أقواس يجب كتابته أو كتابة ما يعوضه
◄ كل شيء ضمن أقواس مجموعات يجب عليك اختيار شيء واحد منها فقط ويفصل بينها بإشارة |
◄ كل شيء بين اقواس مربعة يكون اختياري مكن أن نستخدمه أو لا نستخدمه حسب رغبتنا

الثوابت

عندما نستخدم أرقاماُ في برنامجنا كثيرة .. أو نستخدم كلمات متكررة .. ونحتاج فيما بعد إلى تغيير رقم منها أو كلمة ما .. فإن تتبع هذه الأرقام في الشفرة يكون صعباً ... أيضاً تكون غير مفهومة في الكود إذا ما رجعنا لتعديله مستقبلاً ، لذلك ينصح في هذه الحالات أن نستخدم الثوابت
الثابت Constant : هو مكان الذاكرة ستخدم لحفظ قيمة ما .. ويعطى كل ثابت اسم خاص به ولا يمكن تغيير قيمة الثابت ضمن البرنامج ..
يتم التصريح عن الثوابت في VB باستخدام كلمة Const وفق هذه الصيغة


كود:

Const name [As Type] = initexpr

Name : اسم الثابت
Type : تحديد نمط الثابت
Initexpr : قيمة الثابت

يمكن التصريح عن أكثر من ثابت واحد بنفس تعليمة الـ const وذلك بسردها بشكل متتالي بحيث يفصل بينها فاصلة عادية

مثال :

كود:

Imports System.Console Module Module1 Sub Main() Const ForumGreeting = "Welcome To Arab Moheet " WriteLine(ForumGreeting) End Sub End Module

مثال آخر على تعريف أكثر من ثابت واحد:

كود:

Const ForumGreeting = "Welcome To Arab Moheet " , ForumManager = "عبد الله جابر شقلية" , SubForumNumber = 35

أنماط التعداد

تستخدم أنماط التعداد من أجل تعريف عدد من الثوابت وجمعها ضمن مجموعة واحدة .. الفائدة من هذه المجموعات كبيرة جداً أحدها أننا نتخلص من مشكلة استخدام اسم الثابت أكثر من مرة للدلالة على أكثر من قيمة ، أيضاً استخدام كلمات محجوزة يصبح ممكناً في هذه الحالة .. ولكننا نستطيع أن نستخدم فقط قيم رقمية من نوع صحيح ... اي أحد الأنواع :
Byte
Short
Integer
Long
نستخدم لذلك تعليمة ENUM .

صيغة التعليمة

كود:

Enum name [As Type] member1 [=initexpr1] member2 [=initexpr2] member3 [=initexpr3] . . . End Enum

مثال :

كود:

Imports System.Console Module Module1 Enum dayes Sat = 1 Sun = 2 Mon = 3 Tue = 4 Wed = 5 Thu = 6 Fri = 7 End Enum Sub Main() WriteLine("this is " & dayes.sat) End Sub End Module

المتحولات Variables

المتحولات أماكن في الذاكرة تستخدم لتخزين بيانات ، هي مثل الثوابت تماماً مع خلاف أنها قابلة لتعديل قيمها أثناء سير البرنامج . وهي يتم التصريح عنها باستخدام التعليمة Dim وفق هذه الصيغة :


كود:

Dim name [As [New] Type] [=initexpr]

Name : اسم المتحول
New : تستخدم عند رغبتنا بإنشاء (غرض) جديد مباشرة عند التصريح عنه
Type : تحديد نمط المتحول ، إذا لم يتم تحديد نمط المتحول يعتبر أنه من نوع القيمة البدائية له وإذا لم يكن له قيمة بدائية يعتبر من النوع Object ، وإذا أردنا تعريف أكثر من متحول من نفس النوع نضع أسماؤهم بشكل متتالٍ يفصل بينهما بفاصلة
Initexpr : القيمة البدائية للمتحول . وإذا لم تحدد هذه القيمة تعطى قيمة الصفر لجميع المتحولات من النمط العددي ومن نمط Boolean القيمة False ومن باقي الأنماط القيمة Nothing

مثال :

كود:

Dim memberID as Integer Dim memberName as String = "SomeOne" Dim A,B as Byte , C ,D as string

المصفوفات : المصفوفة هي عبارة عن متحول يحتوي على أكثر من خانة لتخزين القيم ضمنه (بشكل يشبه الجدول) ويتم الإشارة إلى تلك الخانات من خلال أرقام تبدأ عادةً من الرقم صفر .. ويتم تعريف المصفوفة كما يلي


كود:

Dim name(BoundList) [As [New] Type] [=initexpr]

Boundlist : تدل على أبعاد المصفوفة

مثال :

كود:

Dim A(5) as Integer : مصفوفة ذات بعد واحد Dim B(3,1) as string : مصفوفة ذات بعدين

في السطر الأول عرفنا مصفوفة اسمها A تحتوي ست خانات لتخزين القيم .. أول خانة اسمها A(0) وآخر خانة اسمه A(5)
في السطر الثاني عرفنا مصفوفة اسمها B تحتوي على ثماني خانات هي :


كود:

A(0,0) A(0,1) A(1,0) A(1,1) A(2,0) A(2,1) A(3,0) A(3,1)

المصفوفات الديناميكية :
المصفوفة الديناميكية هي مصفوفة عدد عناصرها لا يعين عند تعريفها .. بل يتم تعيينه أثناء سير البرنامج
لتعريف مصفوفة ديناميكية نستعمل تعليمة Dim مع إبقاء ما بين الأقواس فارغاً .. ثم أثناء سير البرنامج عندما نود تعيين أبعاد هذه المصفوفة نستعمل تعليمة ReDim وفق هذه الصيغة :

كود:

ReDim ArrName(subscripts)

ArrName : اسم المصفوفة التي سبق تعريفها بتعليمة Dim مع بقاء الأقواس فارغة
subscripts : الأبعاد
مثال

كود:

Module Module1 Sub Main() Dim ArrStr() As String . . . ReDim ArrStr(10) ArrStr(0) = "String 0" . . . ReDim ArrStr(100) ArrStr(77) = "String 77" End Sub End Module

نلاحظ من المثال السابق أن تعليمة ReDim ممكن استخدامها أكثر من مرة لتغيير أبعاد نفس المصفوفة أثناء سير البرنامج


قواعد التسمية في VB.NET عندما نختار اسم لثابت أو متحول أو أي كائن يجب أن نتقيد ببعض القواعد وهي :
1- أن يبدأ الاسم بحرف أبجدي
2- أن لا يحتوي على عوامل رياضية وبعض الرموز مثل + - / \ = * # ^ ؟ ! > < : ' الأقواس ، الأقواس المربعة ، أقواس المجموعات ، الفواصل العادية ، الفواصل المنقوطة ....
3- لا يمكن استخدام الكلمات المحجوزة مثل : name - Dim - Const .... الخ


أنماط المعطيات في VB.NET
♦ Boolean : حجمه: 2 بايت ، قيمه : True أو False
♦ Byte : حجمه : 1 بايت ، قيمه : 0 إلى 255
♦ Char : حجمه : 2 بايت ، قيمه : 0 إلى 65534
♦ Date : حجمه : 8 بايت ، قيمه : من 1/1/0001 إلى 31/12/9999
♦ Decimal : حجمه : 16 بابت ، قيمه : رقم من 29 خانة تقريباً (ممكن مع فواصل أو بدون)
♦ Double : حجمه : 8 بايت ، قيمه : رقم يقبل عدد كبير من الأرقام بعد الفاصلة
♦ Single : حجمه : 4 بايت ، قيمه : رقم يقبل عدد كبير من الأرقام بعد الفاصلة ولكن أقل من النوع Double
♦ Integer : حجمه : 4 بايت ، قيمه : من -2147483648 إلى + 2147483647
♦ Long : حجمه : 8 بايت ، قيمه : من -922337203685477808 إلى +922337203685477807
♦ Object : حجمه : 4 بايت ، قيمه : أي نمط يمكن أن يخزن في متحول من نوع Object
♦ Short : حجمه : 2 بايت ، قيمه : من -32768 إلى + 32767
♦ String : يعتمد الحجم على نظام التشغيل ، قيمه : من 0 إلى 2 مليار حرف تقريباً

ويمكن للمبرمج أن يعرف أنماط Structure خاصة به .

مشكور جدا على الشرح التفصيلى اخى مهند جزاك الله خيرا ...

يعطيك العافيه أخ مهند عبادي على الدروس وانا والله قمت بتطبيق جميع الدروس التي قمت بسلاسة وبغاية الروعة.

كل عام وانتم بخير ، وشكرا جزيلا اخي مهند ، انا بإنتظار باقي الدروس بشوق والله يعطيك الف عافيه

التحويل بين أنماط المعطيات

كما مر معنا فإن إن قيمة الخيار Option Strict إذا كانت ON يعني : عدم قيام VB.net بالتحويل ببين أنماط المعطيات بشكل تلقائي ،
مثال :

كود:

Option Strict On Module Module1 Sub Main() Dim dblData As Double, intData As Integer dblData = 12.26548 intData = dblData End Sub End Module

إذا حاولنا تنفيذ هذا الكود فإن المترجم سيعطينا خطأ في السطر السادس .. لأننا نحاول وضع قيمة من النوع Double في متحول من النوع Integer ..
ولتلافي هذا الخطأ علينا :
إما أن نضع Option Strict Off
أو أن نقوم باستخدام دوال التحويل بين أنماط المعطيات

وهذه هي دوال التحويل بين الأنماط مع شرح عنها :
◄ Cbool التحويل إلى النمط Boolean
◄ CByte التحويل إلى النمط Byte
◄ CInt التحويل إلى النمط Integer
◄ CShort التحويل إلى النمط Short
◄ CLng التحويل إلى النمط Long
◄ CChar التحويل إلى النمط Char
◄ CStr التحويل إلى النمط String
◄ CDate التحويل إلى النمط Date
◄ CDbl التحويل إلى النمط Double
◄ CSng التحويل إلى النمط Single
◄ CDec التحويل إلى النمط Decimal
◄ CObj التحويل إلى النمط Object

مثال :

كود:

Option Strict On Module Module1 Sub Main() Dim dblData As Double, intData As Integer dblData = 12.26548 intData = CInt(dblData) System.Console.WriteLine( intData ) End Sub End Module

تعليمة CType :
وظيفتها التحويل لأي نمط معطيات .. وصيغته كما يلي :

كود:

CType (expression , typename)

expression : هو التعبير المراد تحويل نمط معطياته
typename : هو نمط المعطيات المطلوب التحويل إليه

مثال:

كود:

Option Strict On Module Module1 Sub Main() Dim dblData As Double, intData As Integer dblData = 12.26548 intData = CType(dblData , Integer) System.Console.WriteLine( intData ) End Sub End Module

يوجد أيضاً دوال أخرى تستعمل لتحويل أنماط المعطيات وهي ستمر معنا خلال الدورة إن شاء الله فيما بعد ..

التحقق من أنماط المعطيات

يوجد دوال خاصة للتحقق من أنماط المعطيات في VB.Net .. وهي كلها ترجع قيمة True أو False حسب التحقق .
وهذه هي الدوال مع الشرح :
IsArray : التحقق من أن الوسيط الممرر هو مصفوفة
IsDate : التحقق من أن الوسيط الممرر هو تاريخ
IsNumeric : التحقق من أن الوسيط الممرر هو رقم
IsDbNull : التحقق من أن الوسيط الممرر هو Null في قاعدة البيانات
IsError : التحقق من أن القيمة الممررة هي قيمة خطأ
IsReference : التحقق من أن الوسيط الممرر هو متحول من النمط Object غير مربرط بأي كائن فعلي

مثال:

كود:

Module Module1 Sub Main() Dim ArrStr(10) As String System.Console.WriteLine(IsArray(ArrStr)) End Sub End Module

نتيجة تنفيذ هذا المثال ستكون كتابة كلمة True على الشاشة.

مشكووووووووووووووووووووووور جداً أخ مهند عبادي على هذه الدروس الأكثر من رائعه وأول منتدى عربي أراه بحياتي يشرح دروس الفيجول بيسك نت بهذه الطريقه، وانا استفدت كثيراً من هذه الدروس، وبارك الله فيك، ونحن ننتظر باقي الدروس الشيقة والدخول بصلب اللغه، فلا تتأخر علينا.
وربنا يبارك الك في جزاء الأعمال الصالحة التي تقدمها في هذا المنتدى الرائع، الذي وفر أفضل الامكانيات التي لم تتوفر في باقي المنتديات.

التعامل مع سلاسل المحارف /1/

إن التعامل مع سلاسل المحارف في البرامج التي نقوم بعملها يكتسي أهمية عملية كبيرة .. كفصل الجمل إلى كلمات أو تركيب جمل من عدة مفردات أو مقارنة الأوتار أو البحث عن أحرف معينة ضمن جملة .. الخ
إن نمط سلاسل المحارف في VB.NET هو String حيث يمكن أن يصل حجم المتحول من هذا النمط إلى 2 مليار محرف ، ويتم التصريح عنه كما يلي

كود:

Dim SyStr as String

كما يمكن إعطاء المتحول قيمة ابتدائية عند تعريفه هكذا :

كود:

Dim SyStr as String = "Welcome To ArabMoheet Forums"

وفيما يلي قائمة بالطرق المستخدمة في التعامل مع سلاسل المحارف :

>> دمج سلاسل المحارف : String.Join , String.Contact , + , &
أملثة :

كود:

Sub Main() Dim MyStr1, MyStr2 As String MyStr1 = "Welcome To You" MyStr2 = "ArabMoheet.Net" System.Console.WriteLine(MyStr1 & " In " & MyStr2) End Sub

كود:

System.Console.WriteLine(MyStr1 + " In " + MyStr2)

كود:

System.Console.WriteLine(String.Concat(MyStr1, " In ", MyStr2))

أما تعليمة Join فهي تختلف قليلاً .. إذ أنها تستخدم لدمج مصفوفة من السلاسل المحرفية باعتماد فاصل معين يوضع بين كل عنصر وآخر من المصفوفة وفق هذه الصيغة

كود:

String.Join (separator <> , StrArry)

مثال :

كود:

Sub Main() Dim freinds() As String = {"Muhannad", "Abdullah", "Khaled"} System.Console.WriteLine("My freinds : " & String.Join(" , ", freinds)) End Sub

>> مقارنة سلاسل المحارف :

- String.Equals : هذه الدالة تعطي قيمة True إذا كانت سلسلتا الأحرف اللتان تتم مقارنتهما متساويتان .. وغير ذلك تعطي قيمة False وفق هذه الصيغة :

كود:

String.Equals(Str1,Str2)

مثال :

كود:

Sub Main() Dim A As String = "WWW.ArabMoheet.Net" Dim B As String = "www.arabmoheet.net" System.Console.WriteLine(String.Equals(A, B)) End Sub

طبعاً نتيجة تنفيذ هذا البرنامج هي False لأن المقارنة تأخذ بالحسبان حالة الأحرف
- String.Compare : تقوم هذه الدالة بمقارنة سلسلتي أحرف وتعطي نتيجة :
1 : إذا كانت السلسة الأولى أكبر من الثانية
-1 : إذا كانت السلسة الثانية أكبر من الأولى
0 : إذا كانتا السلسلتان متساويتين
وفق هذه الصيغة :

كود:

String.Compare(Str1,Str2)

مثال :

كود:

Sub Main() Dim A As String = "WWW.ArabMoheet.Net" Dim B As String = "www.arabmoheet.net" System.Console.WriteLine(String.Compare(A, B)) End Sub

- StrComp : يقارن أي سلسلتي محارف وفق نمط مقارنة نحدده وفق هذه الصيغة :

كود:

StrtComp (Str1 , Str2 [, Compare Settings])

حيث :
Str1 , Str2 : سلسلتا محارف
Compare Settings : (اختياري) يستخدم لتحديد أسلوب المقرنة حيث يمكن الاختيار بين :
>> CompareMethod.Binary : يقارن وفق رقم الآسكي للحروف (يتحسس حالة الأحرف الكبيرة والصغيرة)
>> CompareMethod.Text : يقارن وفق ترتيب الأحرف بدون النظر إلى حالتها
مثال :

كود:

Dim MyStr1, MyStr2 As String Dim MyComp As Integer MyStr1 = "ABCD" MyStr2 = "abcd" ' Defines variables. ' The two strings sort equally. Returns 0 MyComp = StrComp(MyStr1, MyStr2, CompareMethod.Text) ' MyStr1 sorts after MyStr2. Returns -1. MyComp = StrComp(MyStr1, MyStr2, CompareMethod.Binary) ' MyStr2 sorts before MyStr1. Returns 1. MyComp = StrComp(MyStr2, MyStr1)

- String.CompareTo : تقوم هذه الدالة بمقارنة المرجع (ساسلة محارف) مع سلسلة محارف أخرى وتكون النتيجة :
1 : إذا كان المرجع أكبر من السلسة
-1 : إذا كانت المرجع أصغر من السلسة
0 : إذا كان المرجع والسلسة متساويين

مثال :

كود:

Sub Main() Dim A As String = "WWW.ArabMoheet.Net" Dim B As String = "www.arabmoheet.net" System.Console.WriteLine(A.CompareTo(B)) End Sub

مشكور أخي مهند والله يوفقك وأتمنى المزيد من النجاح والتفوق