تبدیل رشته به عدد

[ebrahimv]

سلام برای تبدیل رشته به عدد بخصوص اعشاری از چه روشی استفاده میکنید؟
MsgBox(Val(TextBox1.Text))
MsgBox(Convert.ToDouble(TextBox1.Text))
MsgBox(Double.Parse(TextBox1.Text))

آقا فقط همین روشها وجود دارد؟
تفاوتشون چیه؟
الان با خودتون میگید این چه سوالی هست دیگه
ولی خب من در یک شرایط خاص با دستور val به مشکل برخوردم دو دستور دیگه رو هم امتحان کردم که مشکل خاص خودشونو داشتن

[shahryari]

سلام
دوتا دستور آخر تقریبا کارشون یکیه ولی اولی مقدار عددی یک رشته رو میگره
شما مشکلتو بگو کجا میخای استفاه کنی ، تاجایی از دستمون برمیاد کمکت میکنیم

[ebrahimv]

سلام
دوتا دستور آخر تقریبا کارشون یکیه ولی اولی مقدار عددی یک رشته رو میگره
شما مشکلتو بگو کجا میخای استفاه کنی ، تاجایی از دستمون برمیاد کمکت میکنیم

راستیتش مشکل رو وقتی فهمیدم که ویندوز ۸ نصب کردم
در ویندوز ۸ وقتی ویندوز با زبان فارسی نصب میشه جدا کننده اعشار کاراکتر / قرار میگیره
پس تمام مقادیر وفتی نمایش داده میشه به این صورت نشان داده میشه 2/25
حال اگر این عدد رو دوباره با دستور val به عدد تبدیل کنید میشه 2
با دو دستور بعدی تبدیل کنی درست تبدیل میشه
و حالت دیگه اگه عدد 2.25 رو با val بگیری میشه 2/25 اما با دو دستور بعدی خطا میده
حالا موندم چیکار کنم بهتره

[shahryari]

این مربوط میشه به تنظیمات ویندوز به شرح زیر عمل کنید
> Click on START and open up the CONTROL PANEL
> Open REGIONAL AND LANGUAGE OPTIONS
> On the REGIONAL OPTIONS tab click on CUSTOMIZE
> On the NUMBERS tab ensure that the DECIMAL SYMBOL is set as a . (full stop)
> On the CURRENCY tab ensure that the DECIMAL SYMBOL is set as a . (full stop)
> Click on APPLY and on OK
> Click on APPLY and on OK
> Open up Pastel

[ebrahimv]

این مربوط میشه به تنظیمات ویندوز به شرح زیر عمل کنید
> Click on START and open up the CONTROL PANEL
> Open REGIONAL AND LANGUAGE OPTIONS
> On the REGIONAL OPTIONS tab click on CUSTOMIZE
> On the NUMBERS tab ensure that the DECIMAL SYMBOL is set as a . (full stop)
> On the CURRENCY tab ensure that the DECIMAL SYMBOL is set as a . (full stop)
> Click on APPLY and on OK
> Click on APPLY and on OK
> Open up Pastel
خب من میخوام مشکل حل بشه نه این که صورت رو پاک کنم
به برنامه های ماکروسافت دقت بکنید تو همون حالتم خوب کار میکنن برنامه ماشین حساب و ایکسل رو ببینید
کلا وقتی دکمه نکته رو میزنی همون کاراکتر مناسب رو وارد میکنه و اجازه اشتباه نمیده

[neverlieme]

متغیر Num ورودی
حاصل عملیات های محاسباتی در متغیر Functions
و Answer هم متغیر خروجیه

Dim Num As Decimal = 12/56
Num = Val(Replace(Str(Num),"/",".")
Dim Functions As Decimal = Num * 2 +3 ......
Dim Answer As Decimal = Val(Replace(Str(Functions),".","/")