الدالتين  Val و Str

من المهام الشائعة في مشروعات فيجوال بيسك أن يدخل المستخدم أرقام لتنفيذ بعض العمليات علي تلك الأعداد ، فقد تستخدم المؤثرات الحسابية لحساب النتيجة وأداة العنوان Label لعرض النتائج  ولكن لدينا مشكلتين هما :

·        أن المؤثرات الحسابية تعمل فقط مع الأعداد (مثل المتغيرات الصحيحة والخواص الصحيحة) ولكن القيم التي يدخلها المستخدم من خلال أداة النص تكون حرفية String وبالتالي لا يمكنك أن تضرب المتغيرات الحرفية أو القيم الحرفية .

·        أن نتيجة إجراء العمليات الحسابية تكون أعداد بينما أداة العنوان أو نص تقبل قيم حرفية ، فلا يمكنك أن تختزن قيم عددين في متغيرات حرفية مباشرة .

 

لذا فنحن نحتاج لحل تلك المشكلتين ، والحل موجود في دوال الفيجوال بيسك ، فيمكننا أن نحول القيم العددية إلي حرفية بالدالة STR ، ويمكننا استرجاع تلك الأعداد التي تحولت لحروف بالدالة Val .

وهنا يمكنك أخذ الأرقام من أداة النص و تحويلها لأعداد بالدالة Val ثم تجري عليها العمليات ، وتأخذ الناتج وتحوله لحرفية ، وتضعه مباشرة في خاصية العنوان Caption في أداة العنوان أو أداة النص .

وصيغة الدالتين هي :

 

FunctionValue = FunctionName(ArgumentList)

مثلاً :

StrValue = STR(5)

NumValue =Val (NumValue)

 

 حيث FunctionName هو اسم الدالة ، و ArgumentList هي القيمة المراد تحويلها من وإلي (حرفي و عدد) ، ويجب أن يكون مدخل الدالة مناسب لها ، فالدالة Val مدخلها عدد حرفي ، والدالة Str مدخلها عدد .

فالدالة Val تحول عدد حرفي لعدد ، والدالة Str تحول عدد لعدد حرفي .

 

YourNumber = Val(YourString)

 

YourNumber = Val(“23”)

 

فجملة التخصيص خصصت للمتغير العددي YourNumber العدد 23 لذلك يمكن إجراء العمليات الحسابية عليه

 

YourString = Str(23)

ولكن المتغير YourString الآن يختزن عدد حرفي هو 23 ، لا يمكنك إجراء العمليات الحسابية ، ولكنه يعالج كحروف .

 

والواقع يجب أن تألف تحويل الأعداد لحرفية والعكس باستخدام الدالتين  Val و Srt فهما استخدامات شائعة في مشروعات الفيجوال بيسك .

 
صفحة البداية ما الجديد حاليا ؟ فيجوال بيسك للتطبيقات موضوعات متقدمة فيجوال بيسك لتلاميذ المدارس

أرسل استفسارك أو تعليقك  الآن

أرسل رسالتك أو استفسارك الآن

أكتب ملاحظتك أو استفسارك أو تعليقك أو ابحث عن مواقع فيجوال بيسك أخري و غيره.....

حقوق الطبع والنسخ محفوظة  © 2000 مركز الكمبيوتر التربوي
آخر تعديل: April 18, 2001