[Anas Mahmoud]

حسنا اخي الحل باستخدام 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 وهو يقبل الارقام العشرية ايضا ولكن بمدى كبير جدا جدا يستخدم للتعاملات المالية