كيفية تحويل القيمة الحرفية إلى رقمية

ProFesOr-xP كتب:

dim x as string="123"

dim y as integer=CInt(x)

dim y as Double=CDouble(x)

أخي الكرم بارك الله فيك والله يعطيك العافية بالنسبة cint نجحت ولكن cdouble لا يقبلها المترجم

تعقيب صغير

   Dim x As String = "123.5"
        Dim y As Integer = CInt(x)
        Dim y As Double = CDbl(x)

اخي الصراحة برأيي الشخصي ان تستخدم كلاس Convert .. فهذا شئ يخدم ..

 Dim x As String = "123.23"
        Dim y As Double
        y = Convert.ToDouble(x)
        MsgBox(y)

ولو اردت ان تحول الىInteger .. هذا ممكن بعد تحول الى Double

يعني حول المتغير y الى integer بنفس الطريقة ..

dim c as Integer 
c = Convert.ToInt32(y)

سيتم حذف ما بعد الفارزة ليصبح متغير صحيح ..

اتمنى ان يكون الكود قد خدمك ..

تحياتي العطرة ..

السلام عليكم ورحمة الله وبركاته

أخواني الكرام مشكورين جدا وبارك الله فيكم بالفعل إجابات ممتازة والله يعطيكم الصحة والعافية

أخي استخدم val(textbox.text)