mehdi.0345
چهارشنبه 01 بهمن 1393, 05:23 صبح
سلام من این کد زیر رو خودم نوشتم
برنامه ایه که رابطه فیثاغورث رو بدست میاره
اما کد برنامه یک اشکال داره
که ارور run time 5 رو میده میخواستم بدونم میشه راهنماییم کنید.
:افسرده::افسرده::افسرده::افس ده::افسرده:
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim y, z As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a <> Null Then
Else
a = c ^ 2 - b ^ 2
a = Sqr(a)
Text1.Text = a
y = a * b / 2
z = a + b + c
End If
If b <> Null Then
Else
Dim x2 As Integer
x2 = c ^ 2 - a ^ 2
x2 = Sqr(x2)
Text2.Text = x2
y = a * x2 / 2
z = a + x2 + c
End If
If c <> Null Then
Else
Dim x As Integer
x = a ^ 2 + b ^ 2
x = Sqr(x)
Text3.Text = x
y = a * b / 2
z = a + b + x
End If
برنامه ایه که رابطه فیثاغورث رو بدست میاره
اما کد برنامه یک اشکال داره
که ارور run time 5 رو میده میخواستم بدونم میشه راهنماییم کنید.
:افسرده::افسرده::افسرده::افس ده::افسرده:
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim y, z As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a <> Null Then
Else
a = c ^ 2 - b ^ 2
a = Sqr(a)
Text1.Text = a
y = a * b / 2
z = a + b + c
End If
If b <> Null Then
Else
Dim x2 As Integer
x2 = c ^ 2 - a ^ 2
x2 = Sqr(x2)
Text2.Text = x2
y = a * x2 / 2
z = a + x2 + c
End If
If c <> Null Then
Else
Dim x As Integer
x = a ^ 2 + b ^ 2
x = Sqr(x)
Text3.Text = x
y = a * b / 2
z = a + b + x
End If