Hesham
27 - 07 - 2009, 23:13
بسم الله الرحمن الرحيم
أهلاً ومرحباً قاعدة val سهلة الأستخدام
أهميتها هي
لو عايز تحفظ ال Text الخاص بـ ال Text Box في متغير رقمي هاتستاخدمها
هو في Method تانية أسمها Parse Method وه وطريقة أستعمالها كالأتي
(القيمة الحرفية التي نريد تحويلها)Parse.نوع المتغير الرقمي
والمثال
Dim Result As Integer
Result = Integer.Parse (Me.Textbox1.Text)
وربما ستكون الشاشة كذالك
http://imagesu.com/up/uploads/0196c8dc5c.jpg (http://imagesu.com/up)
وعند عمل هذا يتم تخزين العدد 8 بأفتراض أن ال Text الخاص بـ Textbox1=8 في المتغير الرقمي Result
فعند هذا إذا كانت القيمة Text وليست Number ك How Are You فسوف يحدث خطأ
وربما ستكون الشاشة كذالك
http://imagesu.com/up/uploads/15d17874a4.jpg (http://imagesu.com/up)
وأياك :crash:
أحسنلك تستخدم قاعدة Val
وطريقة أستخدامها كالأتي
(القيمة الحرفية التي نريد تحويلها)Val.نوع المتغير الرقمي
والمثال
Dim Result As Integer
Result = Val(Me.Textbox1.Text)
وعند عمل هذا يتم تخزين العدد 8 بأفتراض أن ال Text الخاص بـ Textbox1=8 في المتغير الرقمي Result
فعند هذا إذا كانت القيمة Text وليست Number ك How Are You فسوف تتسجل القيمة 0 في المتغير وبهاذا قد حللنا المشكلة
ولكن إذا أردت أن يقوم الكمبيوتر بالتصحييح تلقائياً فعليك إضافة الأمر
Me.Textbox1.Text=Result.ToString
عليك أضفافة الأمران في ال Text Changed
ونرجو أن تكونو أستفدو بهاذا
أهلاً ومرحباً قاعدة val سهلة الأستخدام
أهميتها هي
لو عايز تحفظ ال Text الخاص بـ ال Text Box في متغير رقمي هاتستاخدمها
هو في Method تانية أسمها Parse Method وه وطريقة أستعمالها كالأتي
(القيمة الحرفية التي نريد تحويلها)Parse.نوع المتغير الرقمي
والمثال
Dim Result As Integer
Result = Integer.Parse (Me.Textbox1.Text)
وربما ستكون الشاشة كذالك
http://imagesu.com/up/uploads/0196c8dc5c.jpg (http://imagesu.com/up)
وعند عمل هذا يتم تخزين العدد 8 بأفتراض أن ال Text الخاص بـ Textbox1=8 في المتغير الرقمي Result
فعند هذا إذا كانت القيمة Text وليست Number ك How Are You فسوف يحدث خطأ
وربما ستكون الشاشة كذالك
http://imagesu.com/up/uploads/15d17874a4.jpg (http://imagesu.com/up)
وأياك :crash:
أحسنلك تستخدم قاعدة Val
وطريقة أستخدامها كالأتي
(القيمة الحرفية التي نريد تحويلها)Val.نوع المتغير الرقمي
والمثال
Dim Result As Integer
Result = Val(Me.Textbox1.Text)
وعند عمل هذا يتم تخزين العدد 8 بأفتراض أن ال Text الخاص بـ Textbox1=8 في المتغير الرقمي Result
فعند هذا إذا كانت القيمة Text وليست Number ك How Are You فسوف تتسجل القيمة 0 في المتغير وبهاذا قد حللنا المشكلة
ولكن إذا أردت أن يقوم الكمبيوتر بالتصحييح تلقائياً فعليك إضافة الأمر
Me.Textbox1.Text=Result.ToString
عليك أضفافة الأمران في ال Text Changed
ونرجو أن تكونو أستفدو بهاذا