منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف أجعل البرنامج يقبل عمليات حسابية بأعداد عشرية

بسم الله الرحمان الرحيم من فضلكم أنا مبتدئ لا أعرف شيء و أنا أصنع برنامج رياضيات و لكن عند إدخال الرقم بالفاصلة يظهر لي مايلي :
Conversion from string "العدد الذي أدخلته" to type Integer is not valid
و لا أعلم ماذا أفعل الكود الذي استخدمته هو :

كود :

Dim a,b,c as Integer

a= Textbox1.Text

b= Textbox2.Text

c= a/b

Textbox3.Text = c

الرجاء محتاج حل في أسرع وقت و شكرا سلفا.

(13-11-20, 11:18 PM)Necro PC كتب : [ -> ]بسم الله الرحمان الرحيم من فضلكم أنا مبتدئ لا أعرف شيء و أنا أصنع برنامج رياضيات و لكن عند إدخال الرقم بالفاصلة يظهر لي مايلي :
Conversion from string "العدد الذي أدخلته" to type Integer is not valid
و لا أعلم ماذا أفعل الكود الذي استخدمته هو :

كود :

Dim a,b,c as Integer a= Textbox1.Text b= Textbox2.Text c= a/b Textbox3.Text = c
الرجاء محتاج حل في أسرع وقت و شكرا سلفا.

(11-11-20, 07:48 PM)Anas Mahmoud كتب : [ -> ]عرف المتغيرات من النوع Double وسيقبل العمليات

Dim x,y,z As Double
x=12.5
y=2.5
z=x*y
msgbox(z) '31.25

سأجرب أخي الكريم و سأخبرك. هل يقبل Double جميع العمليات مثلا القسمة الضرب الجمع الطرح ؟

للأسف أخي الكريم لم يقبل هل من حل في أسرع وقت وشكرا لكم

من فضلكم هل من حل في أسرع وقت

حسنا اخي الحل باستخدام Double.Parse اعطني بعض الوقت اجهز لك مثال

باستخدام Double.Parse تحول المدخلات النصية الى مدخلات من نوع Double

كود :

       Dim a, b, c As Double

        a = Double.Parse(TextBox1.Text)

        b = Double.Parse(TextBox2.Text)

        c = a / b

        TextBox3.Text = c.ToString()

ولكنها تقوم برمي Exception وتوقف البرنامج اذا تم ادخال رقم غير صالح ،

الافضل استخدام TryParse لتحكم اكبر وهي تعيد True اذا نجحت عمليه التحويل و False اذا فشلت العملية :

كود :

       Dim a, b, c As Double

        If Double.TryParse(TextBox1.Text, a) = False Then

            MsgBox("ادخل رقم صالح")

            Return

        End If

        If Double.TryParse(TextBox2.Text, b) = False Then

            MsgBox("ادخل رقم صالح")

            Return

        End If

        c = a / b

        TextBox3.Text = c.ToString()

المثال به الطريقتين في المرفقات
وهذا موضوع عن التعامل مع TryParse :
http://vb4arb.com/vb/showthread.php?tid=36426
الان يجب ان تفهم ان النوع Double هو نوع اوسع من Integer يعني بامكانه ان يقوم بما يقوم به Integer واكثر ، بالاضافة الى انه يدعم الارقام العشرية
وهناك Single وهو نوع يقبل الارقام العشرية ايضا ولكن بمدى ( او دقة عشرية ) اقل من Double
وايضا Decimal وهو يقبل الارقام العشرية ايضا ولكن بمدى كبير جدا جدا يستخدم للتعاملات المالية

(13-11-20, 11:18 PM)Necro PC كتب : [ -> ]بسم الله الرحمان الرحيم من فضلكم أنا مبتدئ لا أعرف شيء و أنا أصنع برنامج رياضيات و لكن عند إدخال الرقم بالفاصلة يظهر لي مايلي :
Conversion from string "العدد الذي أدخلته" to type Integer is not valid
و لا أعلم ماذا أفعل الكود الذي استخدمته هو :

كود :

Dim a,b,c as Integer a= Textbox1.Text b= Textbox2.Text c= a/b Textbox3.Text = c
الرجاء محتاج حل في أسرع وقت و شكرا سلفا.

(15-11-20, 01:42 AM)salahalmasry كتب : [ -> ]
(13-11-20, 11:18 PM)Necro PC كتب : [ -> ]بسم الله الرحمان الرحيم من فضلكم أنا مبتدئ لا أعرف شيء و أنا أصنع برنامج رياضيات و لكن عند إدخال الرقم بالفاصلة يظهر لي مايلي :
Conversion from string "العدد الذي أدخلته" to type Integer is not valid
و لا أعلم ماذا أفعل الكود الذي استخدمته هو :

كود :

Dim a,b,c as Integer a= Textbox1.Text b= Textbox2.Text c= a/b Textbox3.Text = c
الرجاء محتاج حل في أسرع وقت و شكرا سلفا.

Dim a, b, c As Double
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = a / b
TextBox3.Text = Format(Val©, "0.000")

"0.000" هتحدد لك عدد الارقام العشرية

(15-11-20, 01:42 AM)salahalmasry كتب : [ -> ] Dim a, b, c As Double
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = a / b
TextBox3.Text = Format(Val©, "0.000")

اعذرني اخي الكريم شكرا لمساعدتك جدا ولكن وجب التنبيه الى ان استخدام Val خطأ كبير في بيئة ال .Net لانه من الاصدارات القديمة من الفيجوال بيسيك ، وهي موجودة في الاصدارات الجديدة من باب التكامل مع البرامج التي تنتقل من vb6 مثلا الى ال .Net

الطرق المدعومة من VB.Net للتحويل من String الى Double هي : Cdbl و Convert.ToDouble و Double.Parse و Double.TryParse

Cdbl : تقوم بعمل Cast اذا كان النوع هو double فعلا ، او تقوم باستدعاء Convert.ToDouble اذا كان من نوع اخر
Convert.ToDouble : تقوم باعادة 0 في حالة كان المدخل null والا تستدعي Double.Parse
https://referencesource.microsoft.com/#m...7819f63d0f
Double.Parse : تقوم باستدعاء Double.TryParse لاختبار اذا كانت عملية التحويل صالحة ام لا ، وترمي استثناء InvalidCastException في حالة لم تكن صالحة
Double.TryParse : تأخذ مدخلان هما النص المطلوب تحويله و المتغير الذي تضع فيه نتيجة التحويل ، و تعيد قيمة من Boolean تمثل هل نجحت عملية التحويل ام لا

اذا كما رأينا الامر كله يؤول الى Double.TryParse في النهاية ، لذلك اذا كنت متأكد ان المدخل من نوع String وانه ليس null استخدم Double.TryParse وفي المقابل ستستفيد من معلومة اذا كانت عملية التحويل صالحة ام لا ومن ثم تظهر رسالة مثلا للمستخدم تخبره ان مدخله غير صالح ، وهذا مالا تمكنك منه val

شكرا إخواني بارك الله فيكم تم حل المشكل