ایراد این کد چیه؟

[Younestalebi]

این کد رو برای تقسیم نوشتم


If

Val(TXT_Result.Text) = 0 Then

MsgBox(
"Error", MsgBoxStyle.Information, "Error")


Else

TXT_Result.Text =
CStr(first / Val(TXT_Result.Text))


End If


اگه شرط برقرار باشه مشکلی ندارد ولی عمل تقسیم انجام نمی شه
لطفاً کمک کنین خیلی ضروریه

[Hybrid]

سلام ،

اگه خطایی رو مه برنامه میده و همچنین کد رو کامل مینوشتین خیلی خوب میشد... الان من نمیدونم که این First چیه و نوعش چیه؟؟؟

لطفا کد رو کامل بنویس همچنین عکسی از خطا رو هم اگه ممکنه بزارین..

موفق باشید./

[Younestalebi]

First , Txt_Result هر دو از نوع دابل هستند

[Hybrid]

نمیدونم شما چطور مقدار First رو میگیرین ولی من این کدی رو براتون گذاشتم مینویسم هیچ مشکلی رو نمیگیره :


Dim first As Double = 15.5
If Val(txt_Result.Text) = 0 Then
MessageBox.Show("Error!", "Error")
Else
txt_Result.Text = CStr(first / Val(txt_Result.Text))
End If

موفق باشید./