Public Class dwumian

Private Sub Dwumian_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub cmdOblicz_Click(sender As System.Object, e As EventArgs) Handles cmdOblicz.Click
Dim a, b, c, d, x1, x2 As Single 'utworzenie zmiennych lokalnych
'wczytywanie zmiennych lokalnych
a = CSng(txtA.Text)
b = CSng(txtB.Text)
c = CSng(txtC.Text)
'obliczamy d czyli deltę
d = b ^ 2 - 4 * a * c
If a = 0 Then 'sprawdzanie czy a=0
If b = 0 Then 'sprawdzanie czy b=0
If c = 0 Then 'sprawdzanie czy c=0
txtWy1.Text = "Równanie torzsamościowe"
txtWy2.Text = " "
Else
txtWy1.Text = "Równanie sprzeczne"
txtWy2.Text = " "
End If
Else
x1 = (-c) / b
txtWy1.Text = x1
txtWy2.Text = "Równanie liniowe"
End If

Else
If d > 0 Then 'sprawdzanie czy d>0
'obliczenia gdy d>0
x1 = (-b - Math.Sqrt(d)) / (2 * a)
x2 = (-b + Math.Sqrt(d)) / (2 * a)
txtWy1.Text = x1
txtWy2.Text = x2
Else
'obliczenia gdy d<0
txtWy1.Text = "Brak rozwiązań rzeczywistych"
txtWy2.Text = ""

End If
End If

End Sub
Private Sub cmdKoniec_Click(sender As System.Object, e As System.EventArgs) Handles cmdKoniec.Click
End
End Sub


End Class