مشکل با if و iif

[ali-software]

سلام.من یک مشکل در مورد تابع ایف داشتم.لطفا یک label و دو textbox و یک button بگذارید.
سپس در button این کد را تایپ کنید.

Dim a As String
Dim b As String
a = TextBox1.Text
b = TextBox2.Text
Label1.Text = IIf(Val(a) > Val(b), a, b)

با این کد برنامه جواب میده ولی با if جواب نمیده:

Dim a As String
Dim b As String
a = TextBox1.Text
b = TextBox2.Text
If a > b Then
Label1.Text = a
Else
Label1.Text = b
End If

لطفا کمک کنید.ممنون

[pouyansaraf]

من با if مشکلی ندارم
و جواب میده
می خوای سورسش را بگذارم

[ali-software]

سلام.لطفا سورسشو بگذارید.ممنون

[pouyansaraf]

اینم سورسش

[ali-software]

سلام.ولی این برنامه هم کار نمیکنه.اگه تو تکست اولی مثلا عدد 12121111111 را تایپ کنیم و در تکست دوم عدد 33333333 را تایپ کنیم عددی که در تکست دوم هست رو در لیبل نشون میده.لطفا کمک کنید.

[pouyansaraf]

مشکل در سرریز بافر است
باید نوع متغیر مورد استفاده خود را عوض کنید
کد زیر را در button بگذارید


Dim a As Decimal
Dim b As Decimal
a = Convert.ToDecimal(TextBox1.Text)
b = Convert.ToDecimal(TextBox2.Text)
If a > b Then
Label1.Text = a
Else
Label1.Text = b
End If
من در اینجا نوع متغیر را decimal انتخاب کرده ام که 16 بایت استفاده میکند که فکر کنم بزرگترین نوع متغیر است
انواع متغیر ها در MSDN هست ولی یه عکس از توضیحات متغیر ها رو پیوست کرده ام

[Ghaisard]

سلام

مقدار رشته اي a و b رو بايد به مقدار عددي تبديل كني، با تابع Val
توي قسمت IIf اين كارو كردي ولي توي قسمت If يادت رفته

قسمت if و else رو اين طور بنويس :


If Val(a) > Val(b) Then


اگه باز هم نشد مشكل از برنامه نويسيته، من تست كردم جواب داد

[ali-software]

بله.ممنون جواب داد.