تحضير الدوال بالفيجوال دوال التحويلات Conversion Functions ما هي دوال التحويلات كتاب الحاسب
شرح درس الدوال بالفيجوال دوال التحويلات Conversion Functions ما هي دوال التحويلات كتاب الحاسب
تحضير الدوال بالفيجوال دوال التحويلات Conversion Functions ما هي دوال التحويلات كتاب الحاسب
في موقعنا النورس العربي نرحب بكل زوارنا الكرام طلاب وطالبات المتفوقين في علم الحاسب وتقنية المعلومات يسعد أن نقدم لكم في صفحتنا النورس العربي شرح درس الدوال بالفيجوال بيسك ال 6 كما قدمنا لكم في الصفحة السابقة ما هي الدوال بالفيجوال وما هي أقسام الدوال بالفيجوال الأن نقدم لكم شرح دوال
التحويلات Conversion Functions
دوال التحويلات Conversion Functions
وكما عرفنا لكم معنا دوال التحويلات Conversion Functions على الصورة نقدم لكم الأن تحضير كامل عن دوال التحويلات 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