بدست آوردن ریشه های معادله درجه دو

[ESHVEL]

1-کاربربتواندباکلیک روی دکمه های green,blue.redرنگ قلم رادرنام گاربری روی رنگ قرمزیاسبزیاآبی تنظیم کند


2-ریشه های معادله درجه 2رابدست آورد





ممنون ازسایتتون

[mansourii]

کاربربتواندباکلیک روی دکمه های green,blue.redرنگ قلم رادرنام گاربری روی رنگ قرمزیاسبزیاآبی تنظیم کندیعنی چی ؟ یعنی 3 تا دکمه بنام های سبز و قرمز و آبی رنگ یک لیبل رو تغییر بده؟ یا نه یک فونت کالر باز بشه تا کاستوم انتخاب بشه؟

سوال دوم

Dim a, b, c As Integer
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
Dim d As Integer = b * b - 4 * a * c
Try

If d < 0 Then
MsgBox("معادله جواب ندارد")

End If
If d > 0 Then
Dim _template1, _template2 As String
_template1 = -b + Math.Sqrt(d) / 2 * a
_template2 = -b - Math.Sqrt(d) / 2 * a
MsgBox(_template1 + vbCrLf + _template2)
End If

Catch ex As Exception
MsgBox(ex)
End Try

[ESHVEL]

لیبلش عوض بشه ممنون