دوال الفيجوال بيسك (الجزء2)

الدالة UCase : وظيفتها بسيطة جدا فهي ببساطة تحول حالة النص المدخل من حالة الأحرف الصغيرة (Small Letters) إلى حالة الأحرف الكبيرة (Capital Letters)
فالمثال التالي يحول "taftaf1267" إلى "TAFTAF1267”
code: Ucase("taftaf1267")
الدالة LCase : : تعيد الدالة LCase نسخة من النص string تكون فيه جميع الحروف صغيرة Lowercase المتغيرة myText في المثال التالي ستحتوي على عبارة it works
code: myText = "It Works"
myText = LCase(myText)
دوال سلاسل البيانات . String Functions
الدالة chr : تقوم الدالة chr بأخذ قيمة بين 0 و 255 وتعيد الحرف الممثل لهذه القيمة في جدول رموز ASCII، على سبيل المثال العبارة التالية :
code: Hi,
I'm "TafTaf"
ستجد أنك لا تستطيع كتابتها بهذا الشكل :
code: myText = "Hi," & vbCrLf & "I'm "TafTaf""
لأن البرنامج سيعتقد بأن نهاية السلسة النصية السابقة هي عند علامات الاقتباس التي تقع مباشرة قبل كلمة TafTaf وستظهر لك رسالة خطأ، لذلك فإننا نلجأ لاستخدام الدالة chr حيث أن رمز علامة الاقتباس المزدوجة في جدول ASCII هو 34، فتكون الصياغة الصحيحة للعبارة البرمجية السابقة كالتالي :
myText = "Hi," & vbCrLf & "I'm " & chr(34) & "TafTaf" & chr(34)
الدالة Len : ستجد فيما بعد حاجة في كثير من الأحيان لمعرفة طول السلسلة النصية ( عدد الأحرف )، ولعمل ذلك استخدم الدالة Len، مرر إليها النص وستعيد لك عدد الحروف.
code: myLength = Len("TafTaf")
الدالة InStr : : يمكنك بواسطة هذه الدالة معرفة أول مكان يظهر فيه نص ما ضمن نص آخر أكبر منه. الوسيطة الأولى هي وسيطة اختيارية تحدد مكان بدء البحث، أما الوسيطة الثانية string1 فتحدد السلسلة النصية التي سيتم البحث فيها، والوسيطة الثالثة string2 تحدد السلسلة النصية التي سيتم البحث عنها في السلسلة الأولى، أما الوسيطة الأخيرة فهي اختيارية أيضا وتحدد نوع المقارنة التي يجب إجرائها وهي تأخذ أحد الثوابت التالية :
0 - vbBinaryCompare
1 - vbTextCompare
والفرق بينهما هو أن الأولى تراعي حالة الأحرف والثاني لا تراعي حالة الأحرف.
في المثال التالي الدالة i ستحتوي على القيمة 1 :
code: i = InStr("TafTaf","T")
وأما المثال التالي فستحتوي i فيه على القيمة 3 :
code: i = InStr("aafTaf","T")
حيث أن الدالة في المثال السابق ستبحث عن الحرف T بادئه من الحرف الثاني ولذلك فهي لن تجد الحرف الأول.
الدالة Str : قد تبدو الدالة Str متشابهة مع الدالة chr، إلا أنها تؤدي وظيفة مختلف تماما، فهي تحول الأرقام إلى سلاسل نصية، وهي تفيد مثلا في حال أردت أن تقوم بالتحام بين رقمين فتقوم بتحويل كل منهما إلى سلسلة نصية وتطبق بينهما جمع السلاسل ( & ) الذي يختلف عن جمع الأرقام وبالتالي تحصل على سلسلة جديدة يمكنك أن تحولها إلى رقم من جديد، على سبيل المثال الدالة myNumber تحتوي على القيمة 123456.
code: myNumber = Str(123) & Str(456)
ستواجهك مشكلة في الشفرة السابقة حيث يقوم فبجوال بيسيك بإضافة مسافة قبل كل سلسلة نصية تنتج من الدالة السابقة.
الدالة Left : حيث تقوم بوضع سلسلة نصية string وتحدد الجزء الذي تريد اقتطاعه من بداية السلسلة length، والتعبير بكلمة من بداية السلسلة أدق من يسار السلسلة لأن هذا قد يحدث اشتباها في السلاسل النصية للغات التي تكتب من اليمين إلى اليسار مثل العربية، هنا تعيد السلسلة العدد المحدد من الحروف من اليمين أي أنها لا تهتم لاتجاه ظهور أحرف السلسة وإنما اتجاه تخزينها، وللتخلص من هذه المشكلة سنقول بداية السلسلة .
الدالة Right : مطابقة للدالة Left في كل شيء، إلا أنها تأخذ العدد المحدد من الحروف من نهاية السلسلة.
الدالة Mid : تعيد الدالة Mid عددا من الأحرف قدره length بدءا من حرف معين هو start، في سلسلة نصية string لاحظ أيضا أن الوسيطة length اختيارية وإذا لم تمرر بها أي قيمة فإن الدالة ستعيد الأحرف إلى نهاية السلسلة .
في المثال التالي ستحتوي المتغيرة myText على العبارة I'm Taf :
code: myText = Mid("I'm TafTaf", 1, 7)
أما في المثال التالي فستحتوي على الكلمة TafTaf :
code: myText = Mid("I'm TafTaf", 5)
التصريح Mid : يقوم التصريح Mid باستبدال مقطع محدد من النص بنص آخر، وهو يكتب في صورة مشابهة جدا لطريقة كتابة دالة Mid ولكن توضع بعده علامة مساواة وبعدها العبارة الجديدة، في المثال التالي ستحتوي المتغيرة myText على القيمة I'm TafTaf :
code: name = "TafTaf"
myText = "I'm name"
Mid(myText, 5) = name
حيث سيتم حذف الجزء المحدد بالخاصية Mid ويوضع الجزء الذي بعد علامة المساواة في مكان الجزء المحذوف .
ملحوظة :
أذا وجد اي شي خطأ فارجو تصحيحة لي .
الدالة Round : وهي دالة التقريب التي من خلالها يمكنك تحديد عدد الأرقام العشرية وتأخذ الصورة التالية :
code: MyNumber= Round(4.52696,2)
حيث 4.52696 الرقم المراد تقريبه أما الرقم 2 فهو عدد التي ستقرب بعد العلامة العشرية وسيكون الناتج 4.53
الدالة CInt : وهي تشبه الدالة Round مع اختلاف بسيط وهو لا يمكنك تحديد عدد الأرقام التي ستقرب إليه بعد العلامة العشرية وتأخذ الصورة التالية :
code: MyNumber= CInt(4.52696)
حيث 4.52696 الرقم المراد تقريبه وسيكون الناتج عدد صحيح مقرب 5
الدالة Fix : وهي تشبه الدالة Int تماما أي أنها تستخدم لحساب الجزء الصحيح فقط وتأخذ الصورة التالية :
code: MyNumber= Fix(4.52696)
فإن نتيجة تنفيذ الدالة هي MyNumber=4
الدالة InStrRev : وهي شبيهه بدالة InStr ( وقد سبق شرحها من قبل ) ولكن تكون عملية البحث عن الحرف عكسية أي تبدأ من نهاية القيمة . وهي حساسة لحالة الأحرف وتأخذ الصورة التالية :
code: Print InStrRev("Mostafa", "a")
Print InStr("Mostafa", "a")
بالنسبة للحالة الأولى سيكون الناتج رقم 7 لأنها تبدأ من نهاية القيمة .
أما في الحالة الثانية فسيكون الناتج 5 لأنها تبدأ من بداية القيمة .
الدالة Val : وهي تحول السلاسل النصية إلى قيمة رقمية وهي عكس الدالة Str() التي تحول الأرقام إلى سلاسل نصية وتأخذ الصورة التالية :
code: myNumber = Val (Text1.text)
وهنا تعمل الدالة علي تحويل القيمة الموجودة في Text1 إلى قيمة رقمية .
الدالة Button : إيجاد الرقم المقابل لضغط علي كل جهة من الماوس .
الزر الأيسر = 1
الزر الأيمن = 2
الزر الأوسط =4
code: Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y
As Single)
If Button = 1 Then
txtResult.Text = "زر الفأرة اليسرى مضغوط الآن"
End If
If Button = 2 Then
txtResult.Text = "زر الفأرة اليمني مضغوط الآن"
End If
If Button = 4 Then
txtResult.Text = "زر الفأرة الوسطي مضغوط الآن"
End If
End Sub
دوال التحويلات Conversion Functions
ودوال التحويلات هي عبارة عن مجموعة من الدوال يمكن استخدامها في تحويل نوع معين من البيانات إلي نوع آخر مثلا من نوع رقمي إلي نوع حرفي أو من رقمي لعملة .. وهكذا وتبدأ دوال تحويل أنواع البيانات دائما بالحرف C ( مأخوذ من كلمة Convert بمعني تحويل ) ودوال تحويل نوع معين من البيانات إلي نوع آخر هي :
الدالة Ccur : وتعمل هذه الدالة بتحويل التعبير الموجود بين القوسين إلى قيمة محولة عملة Currency . وتأخذ الصورة التالية :
code: MyNumber= Ccur(32465)
وتقوم هذه الدالة بتخزين نوع الرقم 32465 في المتغير MyNumber بعد تحويلة إلى نوع عملة .
الدالة CInt : وهي تشبه الدالة Round مع اختلاف بسيط وهو لا يمكنك تحديد عدد الأرقام التي ستقرب إليه بعد العلامة العشرية وتأخذ الصورة التالية :
code: MyNumber= CInt(4.52696)
حيث 4.52696 الرقم المراد تقريبه وسيكون الناتج عدد صحيح مقرب 5
وقد سبق شرح هذه الدالة من قبل ولكني فضلت أن أضعها هنا لتكمل هذه المجموعة .
الدالة CDbl : : وتعمل هذه الدالة علي تحويل نوع بيانات متغيرها إلى عدد مضاعف الدقة Double وتأخذ الصورة التالية :
code: MyNumber= CDbl(678)
الدالة CLng : تعمل هذه الدالة علي تحويل نوع بيانات متغيرها إلى عدد طويل Long وتأخذ الصورة التالية :
code: MyNumber= CLng(25427.45)
MyNumber= CLng(25427.55)
الدالة CLng تحول القيمة من عدد أحادي Single إلي عدد طويل Long لاحظ أن الرقم 25427.45 تم تقريبه إلي أقرب رقم صحيح ولذلك حصلنا علي الناتج 25427 أما الرقم 25427.55 فقد تم تقريبه إلي 25428 .
الدالة CSng : وتحول هذه الدالة نوع بيانات متغيرها إلي عدد أحادي الدقة Single لاحظ في هذا المثال الدالة CSng تحول القيمة Double إلي Single .
code: MyNumber= CSng(75.3421115)
ليكون الناتج 75.34211
الدالة CStr : وتقوم هذه الدالة علي تحويل نوع بيانات متغيرها إلى سلسلة من الحروف ثابتة الطول وتأخذ الشكل التالي :
code: MyStr= CStr(1254)
الدالة CVar : وتعمل هذه الدالة علي تحويل بيانات متغيرها إلي النوع Variant ( الوقت / التاريخ أو عدد ذو علامة عشرية عائمة أو سلسلة حروف )
code: MyVar= CVar(1254)

الدالة FileLen : تعود هذه الدالة بقيمه تمثل حجم الملف بالبايت وتأخذ الصورة التالية
code: ss = FileLen("c:\TafTaf.txt")
MsgBox ss & " Byte"
الدالة FileDateTime : وتعطي لك هذه الدالة معلومات عن وقت وتاريخ إنشاء الملف وتأخذ الصورة التالية :
code: ss = FileDateTime("c:\TafTaf.txt")
MsgBox ss
الدالة LOF : وهذه الدالة قريبة الشبه بالدالة FileLen ولكن الاختلاف بينهم أن هذه الدالة تعود بقيمه تمثل حجم الملفات المفتوحة بتمرير رقم للملف المفتوح وتأخذ الصورة التالية :
code: Open "C:\TafTaf.txt" For Binary As #1
MsgBox LOF(1) & " Byte"
Close 1
الدالة LOC : تعيد هذه الدالة موقع مؤشر القراءة والكتابة في الملف المفتوح وتأخذ الصورة التالية :
code: Dim ss
Open "c:\TafTaf.txt" For Input As #1
Loc (1)
Line Input #1, ss
MsgBox ss
Close #1
الدالة EOF : تعود هذه الدالة بقيمة منطقية تبين ما إذا قد تم الوصول لنهاية الملف أم لا (False – True ) وتأخذ الصورة التالية :
code: Dim ss
Open "c:\TafTaf.txt" For Input As #1
Do While Not EOF(1(
Line Input #1, ss
Text1.Text = Text1.Text & vbNewLine & ss
Loop
Close #1
الدالة GetAttr : : تمكنك هذه الدالة من معرفة خصائص الملف File Attributes وتأخذ الصورة التالية :
code: If GetAttr("c:\TafTaf.txt") = vbNormal Then
MsgBox "الملف غير مخفي"
Else
MsgBox "الملف مخفي"
End If
الدالة SetAttr : وهذه الدالة تمكنك من تغير خصائص الملفات شرط أساسي أن يكون الملف غير مفتوح وتأخذ الصورة التالية :
code: SetAttr ("c:\TafTaf.txt"), vbHidden
الدالة FreeFile : تعود هذه الدالة برقم غير محجوز ( رقم حر غير مستخدم ) لفتح الملف وتأخذ الصورة التالية :
code: MyFree = FreeFile
Open "c:\TafTaf.txt" For Input As #MyFree
MsgBox MyFree
Close #MyFree
الدالة Seek : تعمل هذه الدالة علي تغير موقع مؤشر القراءة والكتابة في الملف وتأخذ الصورة التالية :
code: Dim ss
Open "c:\TafTaf.txt" For Input As #1
Seek #1, 20
Line Input #1, ss
MsgBox ss
Close #1
الدالة SavePicture : تعمل هذه الدالة علي حفظ الصورة إلى ملف خارجي بأي امتداد تريده ومن أي أداة يمكنها احتواء صورة بداخلها وتأخذ الشكل التالي :
code: SavePicture Picture1.Picture, "C:\TafTaf.bmp"
الدالة LoadPicture : تعمل هذه الدالة علي ( تحميل ) الصورة من مكان تحدده أنت أو من الممكن ( تحميل ) الصورة تابعة لكائن وتأخذ الصورة التالية :
code: Picture1.Picture = LoadPicture("c:\TafTaf.bmp")
الدالة Split : و الدالة Split من الدوال الجديدة في فيجول بيسك فهي لا توجد في الإصدارات القديمة ووفرت لك هذه الدالة التعامل مع النصوص بفاعلية اكثر . فيمكنها تقسيم النص إلى أجزاء أو كلمات كما تحدد لها أو يمكنها حذف الفراغان بين الكلمات أو السطور . وتعمل هذه الدالة علي وضع الكلمات في مصفوفة افتراضية . وتأخذ الصورة التالية .
code: Dim QQ() As String
Dim XX As Integer
'العمل علي تقسيم النص الموجود
'في صندوق النص إلى كلمات منفصلة
QQ = Split(Text1.Text)
For XX = 0 To UBound(QQ)
MsgBox QQ(XX)
Next
مثال آخر ..
code: 'لمعرفة عدد الأسطر
QQ = UBound(Split(Text1.Text, vbNewLine)) + 1
MsgBox QQ
مثال آخر ..
code: Dim MyText() As String
'تقسيم الجملة إلى اكثر من قسم
aa = "Welcome To V.B World"
MyText() = Split(aa,” “)
Text1.Text = MyText(0)
Text2.Text = MyText(1)
Text3.Text = MyText(2)
Text4.Text = MyText(3)
الدالة Join : وتعمل هذه الدالة علي إعادة النص المقسم إلى وضعة السابق وـاخذ الصورة التالية :
code: 'العمل علي تجميع النص مرة ثانية كما كان
CC = Join(QQ)
MsgBox CC
للمساعدة .. هذه الدوال لم أجد الوقت الكافي لتحضيرها وتجهيزها ..
CVDate : لاحظت عند استخدام هذه الدالة أنها تشبه الدالة CDate وتؤدي نفس وظيفتها فهل هناك فرق بينهم .
CVErr - ISError - Switch - Choose - Environ
IsMissing - FileAttr - StrPtr - VarPtr -- Filter
الدالة SendKeys : وتعمل هذه الدالة علي إرسال أمر معين إلى لوحة المفاتيح لاستدعائه في تنفيذ هذا الأمر وتأخذ الصورة التالية :
code: SendKeys "(TAB)"
إرسال أمر إلى زرار TAB في لوحة المفاتيح لاستخدام وظيفته .
code: SendKeys "^+"
وهذا الأمر لإرسال أمر إلى مفتاحي Alt+Sheft يمين لتغير من إنجليزي إلى عربي .ارفقت مثال ليوضح وظيفة هذه الدالة
الدالة StrConv : وهي دالة تحويل وتعمل هذه الدالة علي تحويل متغيرها علي حسب الثابت التي تستخدمه معها وـاخذ الصورة التالية :
code: aa = "welcome to 4arab"
MsgBox StrConv(aa, vbProperCase)
وهنا استخدمنا الثابت vbProperCase ويعمل علي تكبير الحرف الأول من كل كلمة .
والثابت vbLowerCase يعمل علي تصغير النص والثابت vbUpperCase تكبير النص
والثابت vbUncode تحويل النص من ASCII إلى Unicode والثابت vbFromUnicode العكس
الدالة Ascw : وهي عكس الدالة Asc فالدالة Ascw ترجع كود الرمز المدخل إلى الترميز Unicode وتأخذ الصورة التالية :
code: MsgBox Ascw("ت")
الدالة Chrw : وهي عكس الدالة Chr تعيد الحرف الممثل لهذه القيمة في الترميز Unicode وتأخذ الصورة التالية :
code: MsgBox ChrW(1578(
توضيح اكثر للدوال الأربع :
code: Private Sub Command1_Click()
MsgBox Asc("ت")
MsgBox AscW("ت")
MsgBox Chr(202(
MsgBox ChrW(1578)
End Sub
الدالة Hex : وتعمل هذه الدالة علي تحويل الرقم العشري إلى ما يقابله في النظام السادس عشر Hexadecimal وتأخذ الصورة التالية :
code: Dim HexNO, Character As String
Character = "A 'أو أي قيمة أخرى "
HexNO = Hex(Asc(Character))
MsgBox "Character " & Character & " = " & HexNO
الدالة OCT : وهذه الدالة تعمل علي تحويل نظام الرقم العشري إلى ما يقابله في النظام الثمانية Octal وتأخذ الصورة التالية :
code: MsgBox Oct(100(