zialem
Member
درخواست کد تعیین ریشه های یک معادله درجه دو برای ویژوال بیسیک(خیلی فوری فردا امتحان دارم)
سلام
دوستان من یه برنامه خودم نوشتم که چند تا ایراد داره:
یکی اینکه وقتی ضریب x^2 برابر صفر میشه (هیچی ورودی نداریم) چون مخرج کسر صفر می شه برنامه ایراد می گیره (Run-time eror) یعنی وقتی تابع درجه یک می شه .میشه بگید کجا رو باید عوض کنم؟؟؟
یه مشکل دیگه هم هست وقتی جای عدد ،حرف وارد می کنم باز هم جواب می ده ،می شه بگید چه طور می تونم کاری کنم که وقتی جای عدد حرف وارد می شه یه پیغام ظاهر بشه.
این هم شکل صفحه ای که من طراحی کردم
سلام
دوستان من یه برنامه خودم نوشتم که چند تا ایراد داره:
یکی اینکه وقتی ضریب x^2 برابر صفر میشه (هیچی ورودی نداریم) چون مخرج کسر صفر می شه برنامه ایراد می گیره (Run-time eror) یعنی وقتی تابع درجه یک می شه .میشه بگید کجا رو باید عوض کنم؟؟؟
کد:
Private Sub Command1_Click()
Dim a, b, c As Integer
a = Val(txt1)
b = Val(txt2)
c = Val(txt3)
Dim d As String
d = b ^ 2 - (4 * a * c)
If d < 0 Then
txt4 = "No Answer"
txt5 = "No Answer"
ElseIf d = 0 Then
txt4 = -b / (2 * a)
txt5 = -b / (2 * a)
ElseIf d > 0 Then
txt4 = ((-b) + Sqr(d)) / (2 * a)
txt5 = ((-b) - Sqr(d)) / (2 * a)
End If
End Sub
این هم شکل صفحه ای که من طراحی کردم