شرح وضائف دوال سلاسل البيانات . String Functions الدوال بالفيجوال بيسك ال 6 اهميتها وناتج استخدامها
تعريف الدوال وفوائدها وما وضيفة كل دالة
من كتاب الطالب الثانوية العامة كتاب الحاسب وتقنية المعلومات 4 المستوى
تحضير وضائف دوال سلاسل البيانات . String Functions الدوال بالفيجوال بيسك ال 6
اههم وضائف واستخدامات دوال سلاسل البيانات في استخدام الحاسب
مرحباً بكم أعزائي الطلاب والطالبات في موقع النورس العربي المتميز بإجابتها الصحيحه من شتى المجالات التعلمية يسعدنا بزيارتكم أن نقدم لكم حل جميع الأسئلة المتعلقة بسوالكم هذا.. كما نقدم لكم الأن الاجابة النموذجية والصحيحة للسؤال الذي يقول..شرح وضائف دوال سلاسل البيانات . String Functions الدوال بالفيجوال بيسك ال 6 اهميتها وناتج اسنخدامها . من كتاب الحاسب شرح الدوال بالفيجوال بيسك ال 6
وكما عودناكم متابعينا الزوار في موقع النورس العربي أن نقدم الإجابة الصحيحة للسؤال التالي..شرح وضائف دوال سلاسل البيانات . String Functions الدوال بالفيجوال بيسك ال 6 وهي
دوال سلاسل البيانات . String Functions
1_ وضيفة الدالة 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)
2_وضيفة الدالة Len :النورس العربي
ستجد فيما بعد حاجة في كثير من الأحيان لمعرفة طول السلسلة النصية ( عدد الأحرف )، ولعمل ذلك استخدم الدالة Len، مرر إليها النص وستعيد لك عدد الحروف.
code: myLength = Len("TafTaf")
3 _وضيفة الدالة InStr : النورس العربي
: يمكنك بواسطة هذه الدالة معرفة أول مكان يظهر فيه نص ما ضمن نص آخر أكبر منه. الوسيطة الأولى هي وسيطة اختيارية تحدد مكان بدء البحث، أما الوسيطة الثانية string1 فتحدد السلسلة النصية التي سيتم البحث فيها، والوسيطة الثالثة string2 تحدد السلسلة النصية التي سيتم البحث عنها في السلسلة الأولى، أما الوسيطة الأخيرة فهي اختيارية أيضا وتحدد نوع المقارنة التي يجب إجرائها وهي تأخذ أحد الثوابت التالية :
0 - vbBinaryCompare
1 - vbTextCompare
والفرق بينهما هو أن الأولى تراعي حالة الأحرف والثاني لا تراعي حالة الأحرف.
في المثال التالي الدالة i ستحتوي على القيمة 1 :
code: i = InStr("TafTaf","T")
وأما المثال التالي فستحتوي i فيه على القيمة 3 :
code: i = InStr("aafTaf","T")
حيث أن الدالة في المثال السابق ستبحث عن الحرف T بادئه من الحرف الثاني ولذلك فهي لن تجد الحرف الأول.
4_وضيفة الدالة Str :النورس العربي
قد تبدو الدالة Str متشابهة مع الدالة chr، إلا أنها تؤدي وظيفة مختلف تماما، فهي تحول الأرقام إلى سلاسل نصية، وهي تفيد مثلا في حال أردت أن تقوم بالتحام بين رقمين فتقوم بتحويل كل منهما إلى سلسلة نصية وتطبق بينهما جمع السلاسل ( & ) الذي يختلف عن جمع الأرقام وبالتالي تحصل على سلسلة جديدة يمكنك أن تحولها إلى رقم من جديد، على سبيل المثال الدالة myNumber تحتوي على القيمة 123456.
code: myNumber = Str(123) & Str(456)
ستواجهك مشكلة في الشفرة السابقة حيث يقوم فبجوال بيسيك بإضافة مسافة قبل كل سلسلة نصية تنتج من الدالة السابقة.
5_ وضيفة الدالة Left : النورس العربي
حيث تقوم بوضع سلسلة نصية string وتحدد الجزء الذي تريد اقتطاعه من بداية السلسلة length، والتعبير بكلمة من بداية السلسلة أدق من يسار السلسلة لأن هذا قد يحدث اشتباها في السلاسل النصية للغات التي تكتب من اليمين إلى اليسار مثل العربية، هنا تعيد السلسلة العدد المحدد من الحروف من اليمين أي أنها لا تهتم لاتجاه ظهور أحرف السلسة وإنما اتجاه تخزينها، وللتخلص من هذه المشكلة سنقول بداية السلسلة .
6_ وضيفة الدالة Right : النورس العربي
مطابقة للدالة Left في كل شيء، إلا أنها تأخذ العدد المحدد من الحروف من نهاية السلسلة.
7_وضيفة الدالة 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 ويوضع الجزء الذي بعد علامة المساواة في مكان الجزء المحذوف .
ملحوظة :
أذا وجد اي شي خطأ فارجو تصحيحة لي .
8_ وضيفة الدالة Round : النورس العربي
وهي دالة التقريب التي من خلالها يمكنك تحديد عدد الأرقام العشرية وتأخذ الصورة التالية :
code: MyNumber= Round(4.52696,2)
حيث 4.52696 الرقم المراد تقريبه أما الرقم 2 فهو عدد التي ستقرب بعد العلامة العشرية وسيكون الناتج 4.53
9_ وضيفة الدالة CInt :النورس العربي
وهي تشبه الدالة Round مع اختلاف بسيط وهو لا يمكنك تحديد عدد الأرقام التي ستقرب إليه بعد العلامة العشرية وتأخذ الصورة التالية :
code: MyNumber= CInt(4.52696)
حيث 4.52696 الرقم المراد تقريبه وسيكون الناتج عدد صحيح مقرب 5
الدالة Fix : وهي تشبه الدالة Int تماما أي أنها تستخدم لحساب الجزء الصحيح فقط وتأخذ الصورة التالية :
code: MyNumber= Fix(4.52696)
فإن نتيجة تنفيذ الدالة هي MyNumber=4
10_ وضيفة الدالة InStrRev : النورس العربي
وهي شبيهه بدالة InStr ( وقد سبق شرحها من قبل ) ولكن تكون عملية البحث عن الحرف عكسية أي تبدأ من نهاية القيمة . وهي حساسة لحالة الأحرف وتأخذ الصورة التالية :
code: Print InStrRev("Mostafa", "a")
Print InStr("Mostafa", "a")
بالنسبة للحالة الأولى سيكون الناتج رقم 7 لأنها تبدأ من نهاية القيمة .
أما في الحالة الثانية فسيكون الناتج 5 لأنها تبدأ من بداية القيمة .
10_وضيفة الدالة 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
شكراً لزيارتكم موقعنا النورس العربي. وفقنا الله وإياكم إلى ما يحبه ويرضاه
