• 0
مجرد مسلم

شرح معظم الدوال المستخدمة في الفيجول بيسك مع مثال لكل دالة

سؤال

الشرح منقول

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

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

1.الدوال الرياضية . Mathematics Functions

2.دوال سلاسل البيانات . String Functions

3.دوال الوقت و التاريخ Date and Time Functions

4.دوال التحقق من أنواع البيانات Data Type Inspection Functions

5.دوال المدخلات و المخرجات Program Output and User Input Functions

6.دوال مالية Financial Functions

7.و دوال متنوعة أخري

8.دوال معرفة من قبل المبرمج. User Defined Functions ( UDF )

ونلاحظ أن نوع الدوال من رقم (1) حتى رقم (7) أنها دوال داخلية ضمن اللغة، أي تأتي مُعرفة في لغة الفيجول بيسك و مبرمجة مسبقاً لكي تستخدمها مباشرة.ً أما النوع الأخير فيتم تعريفه بواسطة المبرمج، أي بواسطتك أنت.

1. الدوال الرياضية . Mathematics Functions

الدالة Abs : ترجع القيمة المطلقة لآي عدد وترجعه من نفس نوع البيانات المعطى للدالة والمقصود بالقيمة المطلقة هي قيمة العدد بدون إشارة فالقيمة المطلقة ل (-13) مثلا هي (13) وهكذا, فمثلا لو كتبنا الكود التالي

code: MyNumber=Abs(-45.6)

Text1.Text=MyNumber

فإن نتيجة تنفيذ الدالة هي MyNumber=45.6

ولاحظ أن القيمة المدخلة للدالة لابد أن تكون عدد أو تعبير عددي فإذا كانت القيمة المدخلة للدالة Null ستكون النتيجة Null وإذا كانت القيمة المدخلة للدالة متغير فارغ أو لم يتم تعيين قيمة له ستكون النتيجة (0).

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

code: MyNumber=Sqr(10)

Text1.Text=MyNumber

فإن نتيجة تنفيذ الدالة هي MyNumber=3.1622776

الدالة Log : تستخدم هذه الدالة في تحديد قيمة اللوغاريتم العشري لرقم وتأخذ الصورة العامة التالية :

code: MyNumber=Log (20)

Text1.Text=MyNumber

فإن نتيجة تنفيذ الدالة هي MyNumber=2.9957327

الدالة Exp : تستخدم هذه الدالة في تحديد القيمة (e) وهي قاعدة اللوغاريتم الطبيعي مرفوعة بقوة الرقم الذي تتضمنه حيث (e) تساوي تقريبا 2.7182818 وتأخذ الصورة العامة التالية :

code: MyNumber=Exp (رقم)

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

code: MyNumber=Rnd (عدد)

فمثلا الدالة Rnd(10) قد تعطي رقما مثل 0.7055475 وعند تشغيل الدالة مرة أخري ينتج رقما آخر مثل 0.533424 وهكذا .

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

code: MyNumber=Int (332.54)

فإن نتيجة تنفيذ الدالة هي MyNumber=332

الدالة Atn : تستخدم هذه الدالة في حساب مقلوب ظل الزاوية "ظتا" للرقم الذي تشتمل علية مقدار بالتقدير الدائري وتأخذ الصورة العامة التالية :

code: MyNumber=Atn (رقم)

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

code: MyNumber=Tan (رقم)

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

code: MyNumber=Cos (رقم)

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

code: MyNumber=Sin (رقم)

2. دوال سلاسل البيانات . String Functions

الدالة Array : تحول عدة بيانات مدخلة كنصوص تفصلها فاصلة إلى مصفوفة يكون رقم أول عنصر فيها (Lower Bound) هو (0) فمثلا لو أدخلنا النص التالي إلى الدالة .

code: "Frist","Second","Third","Forth"

MyNumber= Array("First" , "Second" , "Third" , "Forth" )

Print MyNumber(0)

Print MyNumber(1)

Print MyNumber(2)

Print MyNumber(3)

نرى أن النتيجة هي

code: First

Second

Third

Forth

أي أن المتغير MyNumber يحمل مصفوفة ممتلئة بالنصوص المدخلة بعد أن تحولت إلى عناصر للمصفوفة

لاحظ أن المتغير MyNumber كان من نوع Variant لأننا لم نعلن عنه ويمكن للمتغير من هذا النوع أن يحمل مصفوفة وكذلك يمكن أن تكون المصفوفة من أي نوع آخر فالمصفوفة المستعملة في المثال هي مصفوفة نصية بينما لو كانت العناصر المدخلة أرقما (لاستعملنا علامات التنصيص مع الأرقام حتى لا تعتبر نصوصا) لكانت مصفوفة من نوع Integer مثلا .

الدالة Asc : ترجع كود الرمز المدخل (ASCII Code) فمثلا الحرف A له الكود 65 فعند إدخال حرف A مثلا ستكون النتيجة 65 وهكذا ( لاحظ أن حرف A يختلف عن حرف a في الكود) .

code: MyNumber = Asc("a")

تجد أن المتغير MyNumber أصبح يحمل القيمة 97 . وهكذا .. انتبه فيما لو غيرة الحرف من صغير إلى كبير ستتغير القيمة إلى 65

الدالة IsNumeric : تستخدم لمعرفة ما إذا كان تعبير معين يدل على عدد أم لا فنحن ندخل للدالة تعبير من نوع Variant أو String فتختبر الدالة هذا التعبير هل يمكن التعامل مع هذا التعبير كعدد أم لا فإذا كان يمكن التعامل معه كعدد فإن الدالة IsNumeric ترجع بالقيمة True وإذا كان التعبير لا فإن الدالة ترجع بالقيمة False , فمثلا في المثال التالي كان المتغير ric من نوع String ويحمل عدد معين و نريد أن نختبر هذا العدد هل يمكن التعامل معه كعدد أم لا وفي حالتنا هذه سوف تكون قيمة المتغير True لان المتغير ric يصلح لأن يكون عدد

code: Dim ric as string

ric="7.1342"

TafTaf=IsNumeric(ric)

ستكون النتيجة هنا True لأن المتغير ric يحمل عددا بالفعل .

code: Dim ric as string

ric="LM7.1342"

TafTaf=IsNumeric(ric)

ستكون النتيجة هنا False لأن المتغير ric لا يحمل عددا فقط بل عدد مع أحرف وهذا غير صالح للتعامل معه كعدد .

الدالة 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(

2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

7 إجابة على هذا السؤال .

  • 0

جزيت خيرا أخي الكريم لكن لو ترتب الموضوع أكثير يكون أحسن

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

يارب تزيد اكثر معلوماتك وفعلا هناك دوال كتبتها لم اشاهدها من قبل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

جزاك الله خيرا يا أخى

وهذا برنامج جميل جدا يوجد به الدوال كلها

يارب ينال اعجابكم ، ولا تنسونا من صالح دعائكم

الرابط اضغط هنا بس صلى على الحبيب المصطفى الأول عليه أفضل الصلاة والتسليم

اضغط هنا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

hi i am bizi a looking or a faver and it is a faver

i thanke you a lote about what do you do for as

but if you can do this is for me and them

if you can explane hou we can use api functopn wardly a to z

i am not ask for the function becase i have it but i do not now how it is use ,what men with labrery like kernel32 and user 32 and ather like byval hwad and alias a lotof i veseted alotof of web sit but i did nit find the answer

i will be a brcheat if you do it

and السلام عليكم

by by by by by by by by by by

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي bizi : الرجاء الالتزام بالكتابة باللغة العربية قدر الإمكان

0

شارك هذا الرد


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

code: MyNumber=Sin (رقم)

وما هى دالة تحديد الزاوية بمعلومية جيبها؟

مثلآ جا  أ = 0.25  اوجد قياس زاوية أ

ولكم ألف شكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أليس لذلك دالة؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .