هنا

[spyman]

هذا الموضوع هو الدرس الرابع من دورة شرح دوال vb.net , سوف اقوم بشرح دوال التحويل مع وضع مثال مبسط لاستخدام الدالة .
لمن لا يعرف ما هي الدالة البرمجة function او نهج المعالجة procedure , هي عبارة عن كتلة من السطور البرمجية تعمل بصورة مستقلة ونقوم بأستدعاها عند الحاجة , و من المستحيل تنفذيها بدون استدعاء , وهناك نوعين منهما :
1- الدوال القياسية ( وهي دوال مكتوبة من قبل مبرمجين للغة وموجودة دائماً ).
2- الدوال المكتوبة من قبل المبرمج .

ماهو الفرق بين الدالة ونهج المعالجة ؟
الدالة تحتوي على نوع بياني , بينما نهج المعالجة هو دالة اصلاً ولكن دون نوع بياني اي لا ترجع اي قيمة , وهناك بعض الامور لا يحبذ استخدامها من الدوال مثل طباعة النواتج بداخل الدالة بأستخدام عبارات الطباعة المختلفة ,, وهذا الكلام لا يخص لغة vb.net فقط وانما يخص جميع لغات البرمجة المهيكلة والشيئية ( الكائنية التوجه ) مثل C++ , Java , pascal , delphi وغيرها .

قبل التطرق الى دوال التحويل يجب عليك معرفة المتغيرات بصورة جيدة ومعرفة ما هي المتغيرات المسجلة و غير المسجلة وكذلك عدد الـ Bits الذي يحجزه كل متغير في الذاكرة لان هذا الشيء مهم جداً لفهم دوال التحويل بصورة جيدة , لاحظ الجدول ادناه يوضح لك المتغيرات و نوعها وعدد الـ Bits المحجوز بالذاكرة و هل ان المتغير مسجل ام لا
بأختصار ان المتغير المسجل هو المتغير الموجب الذي لا يمكن اي يحتوي اشارة سالبة ويسمى ( unsigned )






الجدول ادناه يوضح الدوال وعملها :

الدالة	عملها	القيمة المرجعة
CBool	تحويل من char او string او number الى متغير بولياني	Boolen
CByte	دالة تقريبية من 0 الى 255 (غير مسجلة unsigned)	Byte Data Type
CDate	دالة تحويل البيانات الى تمثيل الوقت والتاريخ	Date Data Type
CInt	دالة تقريب الجزء الكسري	long
CLng	دالة تقريبية ايضاً واختلافها عن CInt بعدد الخانات المحجوزة فقط	long
CObj	تحويل اي متغير (مصفوفة , رقمي , سلسلة) الى كائن	Object Data Type
CSByte	تحويل المتغير الى نوع Byte ( تقريبية )	Byte
CShort	تحويل المتغير الى نوع short ( تقريبية )	Short
CSng	تحويل اي متغير اي متغير من نوع single	Single Data Type
CStr	تحويل اي متغير اي متغير من نوع String	String
CUInt	دالة تقريبية لتقريب الكسور العشرية ( غير مسجلة )	UInteger Data Type
CULng	نفس عمل الدالة السابقة مع اختلاف عدد الـ Bits بالذاكرة	ULong Data Type
CUShort	نفس عمل الدالة السابقة مع اختلاف عدد الـ Bits بالذاكرة	UShort Data Type

امثلة منوعة :

CBool Example

Dim a, b, c As Integer Dim check As Boolean a = 5 b = 5 ' The following line of code sets check to True. check = CBool(a = b) c = 0 ' The following line of code sets check to False. check = CBool(c) 

CByte Example

Dim aDouble As Double Dim aByte As Byte aDouble = 125.5678 ' The following line of code sets aByte to 126. aByte = CByte(aDouble) 

CDate Example

Dim aDateString, aTimeString As String Dim aDate, aTime As Date aDateString = "February 12, 1969" aTimeString = "4:35:47 PM" ' The following line of code sets aDate to a Date value. aDate = CDate(aDateString) ' The following line of code sets aTime to Date value. aTime = CDate(aTimeString) 

CInt Example

Dim aDbl As Double Dim anInt As Integer aDbl = 2345.5678 ' The following line of code sets anInt to 2346. anInt = CInt(aDbl) 

CLng Example

Dim aDbl1, aDbl2 As Double Dim aLng1, aLng2 As Long aDbl1 = 25427.45 aDbl2 = 25427.55 ' The following line of code sets aLng1 to 25427. aLng1 = CLng(aDbl1) ' The following line of code sets aLng2 to 25428. aLng2 = CLng(aDbl2) 

CObj Example

Dim aDouble As Double Dim anObject As Object aDouble = 2.7182818284 ' The following line of code sets anObject to a pointer to aDouble. anObject = CObj(aDouble) 

CSByte Example

Dim aDouble As Double Dim anSByte As SByte aDouble = 39.501 ' The following line of code sets anSByte to 40. anSByte = CSByte(aDouble) 

CShort Example

Dim aByte As Byte Dim aShort As Short aByte = 100 ' The following line of code sets aShort to 100. aShort = CShort(aByte) 

CSng Example

Dim aDouble1, aDouble2 As Double Dim aSingle1, aSingle2 As Single aDouble1 = 75.3421105 aDouble2 = 75.3421567 ' The following line of code sets aSingle1 to 75.34211. aSingle1 = CSng(aDouble1) ' The following line of code sets aSingle2 to 75.34216. aSingle2 = CSng(aDouble2) 

CStr Example

Dim aDouble As Double Dim aString As String aDouble = 437.324 ' The following line of code sets aString to "437.324". aString = CStr(aDouble) 

اتمنى لكم التوفيق

[أغرد بهمس]

جهود مشكورة علي

[Scrap]

شكرا جزيلا ع الشرح اخوي

[مكلاويه وافتخر]

[Suzana]

عااشت ايدك يا مبدع

[spyman]

شكرا لكم على المرور

[sawsanmahmoud]

عاشت ايدك علي عل الشرح والتوضيح
تحيتي

[spyman]

عاشت ايدك علي عل الشرح والتوضيح
تحيتي

حياج الله سوسن

منورة الموضوع

[تقى المطيع]

دُمتَمْ بِهذآ الع ـطآء أإلمستَمـرٍ

يُسع ـدني أإلـرٍد على مـوٍأإضيعكًـم

وٍأإألتلـذذ بِمـآ قرٍأإتْ وٍشآهـدتْ

[مؤرفين 'ۦ ']

شكرا"جزيلا