شرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت

ledo: نائب المدير; حالتك ايه دلوقتى ؟ :
العمر : 36
عدد المشاركات : 6452
التقييم : 282

مساهمة رقم 1

شرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت

من طرف ledo الجمعة أكتوبر 18, 2013 3:28 pm

شرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت

الدوال Function

هذا الموضوع من شرحي الشخصي وليس منقول

سأقوم بشرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت وهي الدوال الأكثر استخداما من بين الكثير الكثير من الدوال الموجودة فيها.

مقدمة:ما هي الدوال:هي عبارة عن كلمات محجوزة ومعرفة مسبقا أو بتعبيراخرهي برامج مكتوبة مسبقا وموجودة داخل الفيجوال بيسيك دوت نت لكي نقوم باستدعائها والاستفادة منها في برامجنا ويوجد في فيجوال بيسيك الكثير منها كما ذكرت سابقا كما يمكننا ان نبرمج دوالنا الخاصة ونقوم بأستدعائها في برامجنا وسأقوم بشرح الأنواع التالية:

1- الدوال الرياضية
2- دوال التاريخ والوقت
3- دوال التحويل
4- دوال التحقق
5- الدوال التي تتعامل مع السلاسل
6- دوال متنوعة أخرى
7- كيف نصنع دوالنا الخاصة بأنفسنا

اولا:الدوال الرياضية:

الدالة Abs: هذه الدالة لحساب القيمة المطلقة الآي عدد والمقصود بالقيمة المطلقة هي قيمة العدد بدون إشارة يعني القيمة المطلقة للعدد -13هي 13وهكذا مع كل الأرقام
صيغتها العامة أو مثال عليها التالي:

كود:
Dim A As Single
A = Math.ِAbs(-20)
TextBox1.Text = A

نتيجة تنفيذ الكود ستكون A=Math.Abs=(20)

الدالة Cos:هذه الدالة لحساب قيمة جيب تمام الزاوية المعينة وتأخذ الصيغة العامة التالية:

كود:
Dim A As Single
A=Math.Cos(0)

الدالة Exp:هذه الدالة لحساب قيمة العدد (e) مرفوعا إلى القوة (n) الممررة وتأخذ الصيغة العامة
التالية :

كود:
Dim A As Single
A=Math.Exp(4)

الدالة(n) log:هذه الدالة لحساب قيمة اللوغاريتم العشري لرقم إليكم المثال التالي:

كود:
Dim A As Single
A = Math.Log(20)
TextBox1.Text = A

الدالة Log10(n): هذه الدالة لحساب قيمة اللوغاريتم وفق الأساس عشرة للقيمة (n)الممررة وصيغتها كالتالي:

كود:
Dim A As Single
A = Math.Log10(1000)

الدالة Round:هذه الدالة تقوم بتدوير القيمة الممررة إلى اقرب قيمة وصيغتها كالتالي :

كود:
Dim A As Single
A = Math.Round(3.5)

الدالة Sign(n):هذه الدالة تعيد القيمة ناقص واحد إذا كان العدد الممرر سالب والقيمة واحد في حال كان موجب والقيمة صفر إذا كان العدد الممرر صفر صيغتها كالتالي :

كود:
Dim A As Single
A = Math.Sign(-113)
TextBox1.Text = A

نتيجة تنفيذ الكود ستكون : A = Math.Sign(-1)

الدالة:Sqrt : هذه الدالة تقوم بحساب الجذر التربيعي للقيمة الممررة وكمثال عليها لاحظ الكود التالي:

كود:
Dim A As Single
A = Math.Sqrt(10)
TextBox1.Text = A

ستكون نتيجة تنفيذ الكود كالتالي: A = Math.Sqrt(3.162278)

الدالة:Sin:تستخدم هذه الدالة في تحديد قيمة جيب الزاوية المعينة وتأخذ الصورة العامة التالية:

كود:
Dim A As Single
A = Math.Sin(90)

الدالة:Tan:هذه الدالة لحساب ظل الزاوية الممررة وتأخذ الصورة لتالية :

كود:
Dim A As Single
A = Math.Tan(90)

الدالة Pow(X,N):تستخدم هذه الدالة في إعادة قيمة (X) مرفوعا إلى القوة (N) وتأخذ الصورة التالية:

كود:
Dim A As Single
A = Math.Pow(5, 2)

الدالة Rnd:تستخدم هذه الدالة في توليد أرقام عشوائية مثلا عندما تقوم بتنفيذها تولد رقم معين ك 5 وعندما نقوم بتنفيذها مرة أخرى تقوم بتوليد رقم آخر مثلا 8 وهكذا في مثالنا القادم سنقوم بتوليد أرقام عشوائية من 1 إلى 10 لاحظ المثال القادم

كود:
TextBox1.Text = CStr(Int(Rnd() * 10))

الدالة Int : وتستخدم هذه الدالة لحساب الجزء الصحيح من رقم يشمل أرقام صحيحة وعشرية أو بعبارة أخرى حذف الأرقام العشرية الموجودة بعد العلامة العشرية بدون تقريب تأخذ الصورة التالية :

كود:
Dim A As Single
A = Int(332.45)

بعد تنفيذ الكود ستكون النتيجة هكذا : A= int(322)

الدالة Fix :مثل الدالة السابقة تماما فهي تقوم بحساب العدد الصحيح فقط وتأخذ الصورة التالية :

انتهينا من الدوال الرياضية

يتبع في المرة القادمة

دوال التاريخ والوقت

ledo

ledo: نائب المدير; حالتك ايه دلوقتى ؟ :
العمر : 36
عدد المشاركات : 6452
التقييم : 282

مساهمة رقم 2

رد: شرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت

من طرف ledo الجمعة أكتوبر 18, 2013 3:29 pm

دوال التاريخ والوقت

الدالة Now :وتعيد هذه الدالة الوقت وتاريخ اليوم الحاليين باستخدام ساعة الحاسب وكمثال على استخدامها :

كود:
TextBox1.Text = Now

بعد تنفيذ الكود سينزل داخل التيكست بوكس الوقت والتاريخ الحاليين.

الدالة TimeOfDay :وتعيد هذه الدالة الوقت الحالي حسب ساعة النظام وكمثال عليها:

كود:
TextBox1.Text = TimeOfDay

الدالة DateString:وتعيد هذه الدالة التاريخ الحالي حسب تاريخ المسجل في الحاسوب لديك وكمثال عليها:

كود:
TextBox1.Text = DateString

الدالتان : Month, year

Year : تعيد هذه الدالة رقما يعبر عن السنة لتاريخ معين وتكون على الصورة التالية :

كود:
TextBox1.Text = Year(#1/5/1997#)

Month:تعيد هذه الدالة رقما بين واحد واثنا عشر يعبر عن ترتيب الشهر المقابل لقيمة تاريخية وتكون على هذه الصورة :

كود:
TextBox1.Text = Month(Date)

الدالة WeekDay:ولهذه الدالة وسيطين الأول من نوع Date وهو تكتب في أي تاريخ تريده سواء كان التاريخ الحالي اواي تاريخ آخر والوسيط الثاني تحدد فيه اليوم الأول من الأسبوع وبالمحصلة عمل هذه الدالة يكون أنها تعيد رقم يعبر عن ترتيب اليوم بالأسبوع وذلك على أساس التاريخ الذي حددناه في الوسيط الأول واليوم الأول من الأسبوع الذي حددناه في الوسيط الثاني شاهد هذا المثال:

كود:
TextBox1.Text = Weekday(Now, FirstDayOfWeek.Friday)

لاحظ المثال السابق حددنا التاريخ الحالي في الوسيط الأول وفي الوسيط الثاني حددنا يوم الجمعة على انه اليوم الأول من الأسبوع ونتيجة تنفيذ الكود ستكون ترتيب اليوم الحالي من الأسبوع إذا كان يوم الجمعة هو الأول.

الدالة WeekdayName :هذه الدالة متعلقة بالدالة السابقة لان الدالة السابقة تعيد رقما يمثل ترتيب اليوم بالأسبوع كما قلنا سابقا أما هذه الدالة فهي تعيد اسم اليوم الذي تحدده الدالة السابقة مثال:
إذا كان اليوم الأول بالأسبوع هو الجمعة وترتيب اليوم الحالي بالنسبة لليوم الأول هو خمسة فتقوم هذه الدالة بإعادة قيمة نصية باسم اليوم الحالي الخامس وهو الثلاثاء شاهد الكود القادم:

كود:
Dim A As Integer
A = Weekday(Now, FirstDayOfWeek.Friday)
TextBox1.Text = WeekdayName(A, True, FirstDayOfWeek.Friday)

:FormatDateTimeالدالة
ولهذه الدالة وسيطين الأول تحدد فيه التاريخ الذي تريده وليكن التاريخ الحالي وبالنسبة للوسيط الثاني فعمل الدالة متعلق به لان فيه عدة خيارات محددة والدالة تعيد القيمة حسب الاختيار الذي تختاره فيما يلي الاختيارات وعمل كل واحد منها على شكل أمثلة :

كود:
TextBox1.Text = FormatDateTime(Now, DateFormat.GeneralDate)

لاحظ الاختيار في الوسيط الثاني DateFormat.GeneralDate

وهنا القيمة التي ستعيدها الدالة هي التاريخ والوقت الحاليين معا

كود:
TextBox1.Text = FormatDateTime(Now, DateFormat.LongDate)

أما هنا القيمة التي ستعيدها الدالة هي تاريخ اليوم باليوم والسنة والشهر ولكن بالنسبة للشهر ليس رقما بل يكون اسم الشهر الحالي يعني هكذا 24 جمادى الثانية, 1433

كود:
TextBox1.Text = FormatDateTime(Now, DateFormat.LongTime)

وهنا القيمة التي ستعيدها الدالة هي الوقت الحالي بالثواني والدقائق والساعات

كود:
TextBox1.Text = FormatDateTime(Now, DateFormat.ShortDate)

أما هنا القيمة التي ستعيدها الدالة هي تاريخ اليوم بالأرقام

كود:
TextBox1.Text = FormatDateTime(Now, DateFormat.ShortTime)

وأخيرا بالنسبة إلى هنا القيمة التي ستعيدها الدالة هي الوقت بالدقائق والساعات.

:TimeStringالدالة هذه الدالة تقوم بإعادة الوقت الحالي وهذا مثال عليها:

كود:
TextBox1.Text = TimeString

وهي مثل عمل الدالة TimeOfDay

الدالة TimeSerial:تعيد هذه الدالة الوقت المتسلسل المقابل للساعة والدقيقة والثانية المدونة بين الأقواس وتأخذ الصورة التالية :

كود:
TextBox1.Text = TimeSerial(4, 5, 1)

الدالة TimeValue: وهذه الدالة أيضا مثل سابقاتها تعيد قيمة الوقت على هذا الشكل

كود:
TextBox1.Text = TimeValue(Now)

الدوال Second,,Minute,,Hour :

كود:
TextBox1.Text = Second(Now)

تقوم بإعادة الوقت الحالي بالثواني فقط

كود:
TextBox1.Text = Minute(Now)

تقوم بإعادة الوقت الحالي بالدقائق فقط

كود:
TextBox1.Text = Hour(Now)

تقوم بإعادة الوقت الحالي بالساعات فقط

الدالة DateSerial:تعيد هذه الدالة التاريخ المتسلسل المقابل للسنة والشهر واليوم المدونة بين الأقواس تأخذ الصورة التالية :

كود:
TextBox1.Text = DateSerial(2005, 5, 5)

الدالة DateValue:وتعيد هذه الدالة التاريخ المقابل لتعبير معين على هذه الصورة :

كود:
TextBox1.Text = DateValue(Now)

الدالة DateDiff : وتقوم هذه الدالة بإعادة الفرق بين تاريخين وفيها خمسة وسطاء الوسيط الأول نحدد فيه ما إذا كنا نريد أن يكون الفارق الزمني بين التاريخين بالأيام أو الأسابيع او السنوات او الساعات او الدقائق او الثواني أما الوسيط الثاني نحدد فيه التاريخ الأول والوسيط الثالث نحدد فيه التاريخ الثاني والوسيط الرابع نحدد فيه اليوم الأول من الأسبوع والوسيط الخامس نحدد فيه الأسبوع الأول من السنة شاهد المثال القادم:

كود:
Dim a As Date
Dim C As Date
a = DateSerial(2007, 5, 5)
C = DateSerial(2005, 5, 5)
TextBox1.Text = DateDiff(DateInterval.Year, C, a, FirstDayOfWeek.Friday, FirstWeekOfYear.Jan1)

في هذا المثال قمنا بتحديد الفارق الزمني بالسنوات وحددنا التاريخ الأول (2007, 5, 5) والتاريخ الثاني (2005, 5, 5) وحددنا اليوم الأول من الأسبوع هو الجمعة وحددنا أول أسبوع من السنة هو الأسبوع الأول من كانون الثاني .

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

الدالة DatePart:تقوم هذه الدالة بإعادة جزء من التاريخ يوم سنة شهر ساعة وفيها أربع وسطاء الأول تحديد الجزء الذي سيتم إعادته هل هو السنة أم اليوم أم الشهر او غيرهم الوسيط الثاني تحديد التاريخ الذي تريده أما الوسيط لثالث تحديد أول يوم بالأسبوع والوسيط الرابع تحديد أول أسبوع في السنة شاهد المثال القادم :

كود:
Dim A As Date
A = DateSerial(2005, 5, 5)
TextBox1.Text = DatePart(DateInterval.Year, A, FirstDayOfWeek.Friday, FirstWeekOfYear.Jan1)

في هذا المثال حددنا بان الجزء الذي سنعيده هو السنوات وحددنا التاريخ التالي (2005, 5, 5) وحددنا أول يوم بالأسبوع هو الجمعة وحددنا أول أسبوع في السنة هو الأسبوع الأول من كانون الثاني

بما إننا حددنا أن الجزء الذي سيتم إعادته هو السنوات فبعد تنفيذ الكود ستكون النتيجة هي 2005

الدالة DateAdd : وتعيد هذه الدالة تاريخ او وقت جديدين بعد أن تضيف لهم قيمة جديدة وفيها ثلاثة وسطاء الأول تحدد فيه نوع القيمة الجديدة التي سيتم إضافتها باليوم او الشهر او السنة او الساعة او الدقيقة او الثانية أما الوسيط الثاني تحدد فيه القيمة التي ستضيفها على الوقت او التاريخ والوسيط الثالث تحدد فيه تاريخ معين شاهد هذا المثال :

كود:
Dim A As Date
A = DateSerial(2005, 5, 5)
TextBox1.Text = DateAdd(DateInterval.Day, 10, A)

في هذا المثال حددنا بان القيمة التي سيتم إضافتها ستكون باليوم وحددنا هذا التاريخ (2005, 5, 5) وحددنا بان عدد الأيام التي سيتم إضافتها على هذا التاريخ عشرة

بعد تنفيذ الكود سيتم إضافة عشرة أيام على التاريخ الذي حددناه وسيصير هكذا (2005, 5, 15)

نهاية دوال الوقت والتاريخ

يتبع في المرة القادمة

دوال التحويل

ledo

ledo: نائب المدير; حالتك ايه دلوقتى ؟ :
العمر : 36
عدد المشاركات : 6452
التقييم : 282

مساهمة رقم 3

رد: شرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت

من طرف ledo الجمعة أكتوبر 18, 2013 3:29 pm

دوال التحويل

الدالة Asc :تأخذ هذه الدالة وسيط سلسلة حرفية يعني من نوع String وتعيد هذه الدالة الرقم المقابل للرمز الممرر حسب ترميز الأسكي Ascii وكمثال عليها التالي :

كود:
TextBox1.Text = Asc("A")

نتيجة تنفيذ الكود ستكون 65 وهو الرقم المقابل للحرف A في ترميز الاسكي

الدالة Chr:وتأخذ هذه الدالة وسيط عدد صحيح يعني من نوع Integer وهذه الدالة عكس السابقة لأنها تعيد الرمز المقابل للعدد الممرر حسب ترميز الأسكي Ascii وكمثال عليها التالي:

كود:
TextBox1.Text = Chr(65)

نتيجة تنفيذ الكود ستكون A وهو كما ذكرنا سابقا الرمز المقابل للعدد 65 في ترميز الاسكي

الدالة CBool:وتأخذ هذه الدالة وسيط سلسلة حرفية String أو تعبيرا حسابي وتعيد هذه الدالة قيمة من نوع Boolean إذا كانت القيمة الممررة لها صحيحة فتعيد القيمة True إما إذا كانت القيمة الممررة لها خاطئة فتعيد القيمة False يعني للتوضيح شاهد هذا المثال :

كود:
TextBox1.Text = CBool(7 > 6)

ستكون نتيجة تنفيذ الكود القيمة true لان القيمة الممررة في المثال السابق صحيحة فبالتأكيد أن السبعة اكبر من الستة معلومة صحيحة أما المثال القادم :

كود:
TextBox1.Text = CBool(5 > 6)

فستكون نتيجة تنفيذ الكود False لان القيمة الممررة في هذا المثال خاطئة لأنه أكيد الخمسة ليست اكبر من الستة ولهذا خاطئة.

الدالة Cdate : وتحول هذه الدالة القيمة الممررة إلى نمط التاريخ شاهد المثال القادم :

كود:
Dim A As Date
A = CDate(Date.FromOADate(1 / 5 / 2005))
TextBox1.Text = A

الدالة Cint:تقوم هذه الدالة بتحويل القيمة الممررة إلى نمط عدد صحيح Integer شاهد المثال القادم :

كود:
TextBox1.Text = CInt("5555")

في هذا المثال لاحظ علامتي التنصيص "5555" يعني هذه القيمة التي بالمثال تعتبر نصية وتقوم هذه الدالة بتحويلها إلى عدد صحيح.5555

الدالة Csng:تقوم هذه الدالة بتحويل القيمة الممررة إلى نمط الأرقام Single شاهد المثال القادم :

كود:
TextBox1.Text = CSng("5.555")

الدالة :Cstr وتقوم هذه الدالة بتحويل القيمة الممررة إلى قيمة نصية من نوع String شاهد المثال القادم:

كود:
TextBox1.Text = CStr(555)

الدالة CDbl:وتقوم هذه الدالة بتحويل القيمة الممررة إلى قيمة عددية من نوع Double شاهد المثالك

كود:
TextBox1.Text = CDbl("55")

الدالة CLng:وتقوم هذه الدالة بتحويل القيمة الممررة لها لقيمة عددية من نوع Long المثال :

كود:
TextBox1.Text = CLng("555")

الدالة CShort : وتقوم هذه الدالة بتحويل القيمة الممررة لها إلى قيمة عددية من نوع Short المثال :

كود:
TextBox1.Text = CShort("555")

نهاية دوال التحويل

يتبع في المرة القادمة

دوال التحقق

ledo

ledo: نائب المدير; حالتك ايه دلوقتى ؟ :
العمر : 36
عدد المشاركات : 6452
التقييم : 282

مساهمة رقم 4

رد: شرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت

من طرف ledo الجمعة أكتوبر 18, 2013 3:32 pm

الدوال التي تتعامل مع السلاسل

الدالة UCase :وظيفة هذه الدالة هي تحويل النصوص المدخلة لها من الأحرف الصغيرة إلى الأحرف الكبيرة شاهد هذا المثال :

كود:
TextBox1.Text = UCase("mohmmed")

ستكون نتيجة تنفيذ الكود MOHMMED

الدالة LCase : وظيفة هذه الدالة هي عكس وظيفة الدالة السابقة فهي تحويل النصوص المدخلة لها من الأحرف الكبيرة إلى الأحرف الصغيرة شاهد هذا المثال :

كود:
TextBox1.Text = LCase("MOHMMED")

ستكون نتيجة التنفيذ mohmmed

الدالة Chr : وظيفة هذه الدالة هي أنها تأخذ قيمة بين 0 و255 وتعيد الحرف الممثل لهذه القيمة في جدول رموز ASCIIوسأكتب الآن هذا المثال لاستخدام هذه الدالة :

مثلا إذا أردنا أن نكتب الجملة التالية :

Najy is My friend

عندها لو كتبنا الكود التالي :

كود:
Dim A As String
A="Najy," & vbCrLf & "IS "MY friend""

سيظهر لنا خطأ برمجي ولن يقبل الفيجوال بيسك كتابة الجملة بهذه الطريقة بسبب علامتي التنصيص الموجودتان في آخر المجلة ولحل هذه المشكلة نستخدم الدالة Chr انظر كيف سيصير الكود بعد استخدامها :

كود:
Dim A As String
A = "Najy," & vbCrLf & "IS " & Chr(34) & "MY friend" & Chr(34)
TextBox1.Text = A

عندها سيكون الكود صحيح وستظهر الجملة داخل التيكست بوكس بعد تنفيذ البرنامج .

الدالة Len :وظيفة هذه الدالة هي معرفة عدد الأحرف لسلسلة نصية يعني تعطيك عدد أحرف أي كلمة أو جملة تمررها لها شاهد هذا المثال :

كود:
TextBox1.Text = Len("Mohmmed Aebo")

ستكون نتيجة تنفيذ الكود هي 12

الدالة InStr : وظيفة هذه الدالة هي انك تستطيع من خلالها معرفة ترتيب نص معين ضمن نص أخر اكبر منه وتأخذ ثلاثة وسطاء الأول هو النص الأساسي والثاني هو النص الذي ستعرف ترتيبه من النص الأول الأساسي والثالث هو فيه اختيارين هما

كود:
CompareMethod.Text
CompareMethod.Binary

وفائدتهما هي الأول لا يراعي حالة الأحرف أما الثاني فيراعي حالة الأحرف مثلا انظر هذا المثال :

كود:
TextBox1.Text = InStr("Mohmmed ", "d", CompareMethod.Text)

في المثال السابق لدينا هذه الكلمة كجملة أساسية في الوسيط الأول

Mohmmed

وضعنا في الوسيط الثاني الحرف d لنعرف ترتيبها في الكلمة السابقة :

ستكون نتيجة تنفيذ الكود هي 7 أي ترتيب هذا الحرف بالكلمة الأولى هو الحرف السابع.

الدالة InStrRev : وظيفة هذه الدالة هي نفس وظيفة الدالة السابقة ولكن الفرق بينهما هو انك في هذه الدالة تحدد عدد أحرف الجملة أو الكلمة التي تريد معرفة ترتيب حرف منها ولهذا الغرض في هذه الدالة وسيط رابع من نوع Integer تحدد فيه عدد أحرف الكلمة شاهد هذا المثال :

كود:
TextBox1.Text = InStrRev("Mohmmed", "h", 7, CompareMethod.Text)

في الوسيط الأول الكلمة الأساسية وفي الوسيط الثاني الحرف الذي تريد معرفة ترتيبه من الكلمة الأساسية وفي الوسيط الثالث وهو الوسيط الذي لم يكن موجود في الدالة السابقة وهو الذي تحدد فيه عدد أحرف الكلمة الأساسية وهنا عدد أحرفها هي 7
ستكون نتيجة تنفيذ الكود هي 3 ترتيب الحرف h من الكلمة الأساسية هو الثالث

الدالة Str :وظيفة هذه الدالة هي تحويل القيمة العددية إلى قيمة سلسلة نصية وتستطيع الاستفادة منها إذا أردت دمج رقمين مع بعضهما شاهد هذا المثال :

كود:
Dim A As String
A = Str(145) & Str(500)
TextBox1.Text = A

في هذا المثال نقوم باستخدام الدالة Str لتحويل رقمين إلى قيمة نصية ثم نقوم بدمجهما باستخدام هذه الإشارة & التي تستخدم لدمج نصين مع بعضهما بعد تنفيذ الكود ستكون النتيجة 145500 تم دمجهما وتستطيع تحويلها إلى قيمة رقمية مجددا .

الدالة Val :وهي عكس الدالة Str ووظيفتها تحويل السلاسل النصية إلى قيمة عددية شاهد هذا المثال :

كود:
Dim A As Integer
A = Val(TextBox1.Text)

وهنا سيتم تحويل القيمة الموجودة ضمن التيكست بوكس إلى قيمة عددية .

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

الدالة Right :مطابقة للدالة Left في كل شيء، إلا أنها تأخذ العدد المحدد من الحروف من نهاية السلسلة.

الدالة Mid :تعيد الدالة Mid عددا من الأحرف قدره length بدءا من حرف معين هو start، في سلسلة نصية string لاحظ أيضا أن الوسيطة length اختيارية وإذا لم تمرر بها أي قيمة فإن الدالة ستعيد الأحرف إلى نهاية السلسلة .
في المثال التالي ستحتوي المتغيرة A على العبارةMohmmed:

كود:
Dim A As String
A = Mid("Mohmmed", 1, 7)

أما في المثال التالي فستحتوي على الكلمةMed:

كود:
Dim A As String
A = Mid("Mohmmed", 5)

الدالة StrReverse: وظيفة هذه الدالة هي أنها تقوم بعكس قيمة السلاسل النصية الممررة لها شاهد هذا المثال :

كود:
TextBox1.Text = StrReverse("Mohmmed")

ستكون نتيجة تنفيذ الكود demmhom أي عكس كلمة Mohmmed

الدالة Replace : وظيفة هذه الدالة هي مثلا إذا كان لدينا كلمة ونريد تبديل حرف من هذه الكلمة بحرف أخر عندها نستطيع فعل هذا عن طريق هذه الدالة وتأخذ هذه الدالة خمسة وسطاء الوسيط الأول هو الكلمة الأساسية والوسيط الثاني نحدد فيه الحرف الذي نريد تغييره والوسيط الثالث نكتب فيه الحرف الجديد الذي نريد وضعه بدال الحرف القديم والوسيط الرابع نكتب فيه رقما نحدد فيه بداية السلسلة النصية يعني من أي حرف ستبدأ الكلمة التي نريد والوسيط الخامس نحدد فيه عدد أحرف الكلمة الأساسية والوسيط السادس فيه اختيارين هما :

كود:
CompareMethod.Text
CompareMethod.Binary

الاختيار الثاني لمراعاة حالة الأحرف أما الأول لا يراعي حالة الأحرف .

شاهد هذا المثال :

كود:
TextBox1.Text = Replace("Mohmmed", "Mo", "A", 1, 7, CompareMethod.Binary)

في هذا المثال حددنا الكلمة الأساسية في الوسيط الأول Mohmmed وفي الوسيط الثاني حددنا أول حرفين منها وهما Mo وذلك بهدف تبديلهما وفي الوسيط الثالث كتبنا الحرف A ليكون بديل للحرفين Mo وفي الوسيط الرابع حددنا أن بداية السلسلة النصية ستكون من الحرف الأول للكلمة وفي الوسيط الخامس حددنا عدد أحرف الكلمة وعدد أحرفها سبعة .

الآن بعد تنفيذ الكود ستكون النتيجة Ahmmed أي انه تم تبديل الحرفين Mo بالحرف A.

الدالة format : وظيفة هذه الدالة هي أنها تقوم بتنسيق رقم أو سلسلة نصية أو قيمة تاريخ ووقت شاهد هذا المثال :

كود:
Dim A As Date
TextBox1.Text = Format(A, "5/5/2005")

وفي هذا المثال نقوم بتنسيق قيمة تاريخ .

الدالة Trim :وظيفة هذه الدالة بسيطة جدا فهي تقوم بحذف الفراغات من الجهتين اليمنى وليسرى لسلسلة نصية شاهد هذا المثال :

كود:
TextBox1.Text = Trim(" MohAebo ")

الدالة Rtrim :وظيفتها أنها تقوم بحذف الفراغات من سلسلة نصية من الجهة اليمنى شاهد المثال :

كود:
TextBox1.Text = RTrim("MohAebo ")

الدالة Ltrim : وهي عكس الدالة لسابقة فهي تقوم بحذف الفراغات من الجهة اليسرى شاهد المثال:

كود:
TextBox1.Text = LTrim(" MohAebo")

الدالة Space : وظيفة هذه الدالة هي أنها تضيف فراغات إلى النصوص وتأخذ وسيطا من نوع Integer تمرر له رقما يمثل عدد الفراغات التي تريد إضافتها إلى النصوص شاهد المثال :

كود:
TextBox1.Text = "Moh" + Space(10) + "Aebo"

في هذا المثال سنقوم بإضافة عشرة فراغات إلى هذين الكلمتين وستكون نتيجة تنفيذ الكود هي
Moh Aebo لا حظ الفراغ .

الدالة StrComp :وظيفة هذه الدالة هي أنها تقارن بين نصين إذا كانا متساويين أو لا إذا كانا متساويين فتعيد الرقم صفر أما إذا لم يكونا متساويين فتعيد الرقم واحد وتأخذ الصورة العامة التالية :

كود:
TextBox1.Text = StrComp("Moh", "Aeb", CompareMethod.Text)

الدالة Chrw :وهي عكس الدالة Chr وتعيد الحرف الممثل لهذه القيمة في ترميز Unicode وتأخذ الصورة العامة التالية :

كود:
TextBox1.Text = ChrW(140)

الدالة StrDup :وتستطيع من خلال هذه الدالة تكرار حرف بعدد معين شاهد المثال القادم :

كود:
TextBox1.Text = StrDup(10, "A")

في هذا المثال سنقوم بتكرار الحرف A عشر مرات ستكون نتيجة تنفيذ الكود :AAAAAAAAAA

نهاية الدوال التي تتعامل مع السلاسل

يتبع في المرة القادمة

دوال أخرى متنوعة

ledo

ledo: نائب المدير; حالتك ايه دلوقتى ؟ :
العمر : 36
عدد المشاركات : 6452
التقييم : 282

مساهمة رقم 5

رد: شرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت

من طرف ledo الجمعة أكتوبر 18, 2013 3:33 pm

دوال متنوعة أخرى

سأشرح في هذا الجزء مجموعة من الدوال في عدة مجالات متنوعة ولن تكون هذه الدوال التي سأشرح عنها في هذا الجزء هي كل شيء بل سأحاول في الأيام القادمة تحديث هذا الجزء ووضع دوال أكثر من التي سأضعها الآن .

الدالة FileCopy :وظيفة هذه الدالة هي أنها تقوم بنسخ ملف وتأخذ وسيطين الوسيط الأول هو مسار الملف المصدر الذي نريد نسخه أما الوسيط الثاني هو المسار الذي نريد أن ينزل فيه الملف بعد نسخه يعني الملف الهدف شاهد هذا المثال :

كود:
FileCopy("D:\MYEmail.txt", "E:\MYEmail.txt")

في هذا المثال الملف MYEmail.txt الموجود في القرص D: سيتم نسخه إلى القرص E:

الدالة FileDateTime :وظيفة هذه الدالة هي أنها تقوم بإعادة تاريخ أخر تعديل لملف معين وتأخذ وسيط واحد نمرر له مسار الملف الذي نريد أن نعرف تاريخ آخر تعديل له شاهد هذا المثال :

كود:
TextBox1.Text = FileDateTime("D:\MYEmail.txt")

الدالة FileLen :وظيفة هذه الدالة هي أنها تعود بقيمة تمثل حجم الملف بالبايت ونمرر لها وسيطا واحدا وهو مسار الملف المطلوب شاهد هذا المثال :

كود:
TextBox1.Text = FileLen("D:\5.exe")

الدالة FileAttr :وظيفة هذه الدالة هي أنها تعيد لنا لماذا فتحنا الملف للقراءة أو الإضافة ......الخ فيظهر لنا رسالة مكتوب فيها الرقم 8 وذلك لأننا فتحنا الملف للإضافة بالنسبة للقيم التي يرجعها هي كالتالي:
Input=1
Output=2
Random=3
Append=8
Binary=32
وكمثال عليها شاهد التالي :

كود:
Dim FileNum, Mode

FileNum = 1

Open "c:\mofak.txt" For Append As FileNum

Mode = FileAttr(FileNum, 1)

MsgBox(Mode)

Close(FileNum)

الدالة FreeFile :وظيفة هذه الدالة هي أنها تعود برقم غير محجوز لفتح الملف وتأخذ الصورة التالية:

كود:
MyFree = FreeFile()
Open "c:\TafTaf.txt" For Input As #MyFree
MsgBox(MyFree)
Close #MyFree

الدالة SetAttr :وظيفة هذه الدالة هي أنها تمكنك من تغيير خصائص الملفات بشرط أن يكون الملف غير مفتوح شاهد هذا المثال :

كود:
SetAttr("D:\5.exe", FileAttribute.Hidden)

في مثالنا السابق سنغير خصائص هذا الملف وسنجعله مخفي

الدالة GetAttr :وظيفة هذه الدالة هي أنها تعيد رقم يمثل خصائص الملف وأرقام الخصائص تكون على الشكل التالي :
vbNormal 0 عادي Normal.
vbReadOnly 1 للقراءة فقط Read-only.
vbHidden 2 مخفي Hidden.
vbSystem 4 ملف نظام System file.
vbDirectory 16 مجلد Directory or folder.
vbArchive 32 أرشيف File has changed since last backup

شاهد هذا المثال :

كود:
TextBox1.Text = GetAttr("D:\5.exe")

الدالة Kill :وظيفة هذه الدالة هي أنها تقوم بحذف الملفات وتأخذ وسيطا واحدا هو مسار الملف المطلوب حذفه شاهد هذا المثال :

كود:
Kill("D:\5.exe")

الدالة Seek :وظيفة هذه الدالة هي أنها تعمل على تغيير موقع مؤشر القراءة والكتابة في الملف وتأخذ الصورة التالية :

كود:
Dim ss
Open "c:\TafTaf.txt" For Input As #1
Seek #1, 20
Line Input #1, ss
MsgBox(ss)
Close #1

الدالة Dir وظيفة هذه الدالة هي أنها تقوم بعرض اسم الملف أو المجلد الذي يوافق شرط البحث مثلا إذا أردنا أن نعرف الملف أو المجلد الفلاني إذا كان موجودا أو لا شاهد المثال التالي :

كود:
If Dir("D:\5.exe") <> "" Then
MsgBox("الملف موجود")
Else
MsgBox("الملف غير موجود")
End If

الدالة MkDir :وظيفة هذه الدالة هي أنها تقوم بإنشاء مجلد جديد وتأخذ وسطا واحدا وهو اسم المجلد:
شاهد المثال التالي:

كود:
MkDir("D:\Mohmmed")

الدالة RmDir : وظيفة هذه الدالة هي أنها تقوم بحذف لمجلد وتأخذ وسيطا واحدا هو اسم المجلد المراد حذفه شاهد المثال :

كود:
RmDir("D:\Mohmmed")

الدالة Reset :وظيفة هذه الدالة هي أنها تغلق جميع الملفات المفتوحة للقراءة أو الكتابة وغيرها .....الخ بدلا من إغلاق كل ملف لوحده باستخدام Close شاهد هذا المثال:

كود:
Dim FileNumber
For FileNumber = 1 To 5
Open "c:\TEST" & FileNumber For Output As #FileNumber
Write #FileNumber, "Hello World"
Next FileNumber
Reset()

الدالة ****l :وظيفة هذه الدالة هي أنها تقوم بتشغيل الملفات التنفيذية وتأخذ وسيطا واحدا وهو مسار الملف الذي نريد تشغيله شاهد هذا المثال :

كود:
****l("D:\5.exe")

الدالة Choose :وظيفة هذه الدالة هي إنها تستخدم للاختيار بين عدة خيارات ضمن نطاق محدد شاهد المثال التالي:

كود:
TextBox1.Text = Choose(3, "Mohmmed", "Ahmed", "Najy")

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

الدالة MsgBox :وهذه هي الدالة الشهيرة والمعروفة لكل مبرمجين الفيجوال بيسك ووظيفة هذه الدالة هي أنها تقوم بعرض مربع رسالة وتأخذ ثلاثة وسطاء الوسيط الأول هو النص الذي سيظهر في مربع الرسالة والوسيط الثاني هو شكل الرسالة والوسيط الثالث هو عنوان الرسالة شاهد هذا المثال:

كود:
MsgBox("نص الرسالة ", MsgBoxStyle.Critical, "عنوان الرسالة")

الدالة InputBox :وظيفة هذه الدالة عكس وظيفة الدالة السابقة فهذا الدالة تقوم بعرض مربع حوار لإدخال البيانات له شاهد هذا المثال :

كود:
Dim A As String
A = (InputBox("ادخل أي بيانات تريدها", " عنوان", "البيانات المدخلة", 5, 5))
MsgBox(A)

في المثال السابق عندما يظهر مربع الحوار ندخل له أي قيمة وستظهر هذه القيمة في مربع رسالة .

الدالة SaveSetting :وظيفة هذه الدالة هي أنها تقوم بحفظ البيانات الممررة لها في محرر التسجيل وتقوم بإنشاء مفتاح في محرر التسجيل وتحفظ القيمة فيه وتأخذ ثلاثة وسطاء الوسيط الأول هو اسم المفتاح والوسيط الثاني هو اسم المفتاح الفرعي والوسيط الثالث هو اسم القيمة التابعة للمفتاح والوسيط الرابع هو البيانات التي سيتم حفظها داخل المفتاح شاهد المثال :

كود:
SaveSetting("Mohmmed", "Aebo", "TexB", TextBox1.Text)

في المثال السابق أي بيانات تدخلها داخل مربع النص TextBox سيتم حفظها بمحرر التسجيل .

الدالة GetSetting :وظيفة هذه الدالة هي استعادة البيانات من محرر التسجيل بعد حفظها فيه بواسطة الدالة السابقة وتأخذ ثلاثة وسطاء هي الأول اسم المفتاح والثاني اسم المفتاح الفرعي والثالث هو اسم القيمة التي ستحفظ بها البيانات شاهد المثال :

كود:
TextBox1.Text = GetSetting("Mohmmed", "Aebo", "TexB")

في المثال السابق سيتم استعادة البيانات من محرر التسجيل وستظهر داخل مربع النص .

الدالة DeleteSetting :وظيفة هذه الدالة هي أنها تقوم بحذف المفاتيح من محرر التسجيل حذف المفاتيح التي كنا سابقا قد انشأناها بواسطة الدالة SaveSetting شاهد هذا المثال :

كود:
DeleteSetting("Mohmmed","Aebo","TexB")

مواضيع مماثلة

» الآن يمكنك كشف رادار السرعة الموجودة في الطرقات السريعة بدون برامج من الموبايل

شبكة ابداع

شرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت

شرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت

رد: شرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت

رد: شرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت

رد: شرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت

رد: شرح بعض الدوال الموجودة في فيجوال بيسيك دوت نت

مواضيع مماثلة

مواضيع مماثلة