[Visual Basic] Warunki sprawdzające trójkąt

Kto podpowie mi, jak poprawić warunki?
Dim a As Double Dim b As Double Dim c As Double Dim p As Double Dim S As Double Dim dokladnosc As Integer Dim dok As String Dim Sqrt As Double a = HScrollBar1.Value b = HScrollBar2.Value c = HScrollBar3.Value dokladnosc = HScrollBar4.Value dok = "N" & CStr(dokladnosc) If (a + b > c) And (b + c > a) And (c + a > b) Then p = (a + b + c) / 2 S = Math.Sqrt(p * (p - a) * (p - b) * (p - c)) TextBox5.Text = S.ToString(dok) Else MessageBox.Show("Nie można zbudować trójkąta! Wprowadź dane jeszcze raz", "Informacja") End If If (a * a) + (b * b) And (c * c) Then MessageBox.Show("Trójkat jest prostokątny", "Informacja") End If If (a = b) And (a = c) And (b = c) Then MessageBox.Show("Trójkat jest równoboczny", "Informacja") End If

---

Na moje oko masz to chyba dobrze...
Napisz, co dokładnie ci w programie nie działa.

Pozdr :D

Ja się tylko przyczepie sprawdzania trójkąta prostokątnego - w VB nie pisałem nic od bardzo dawna,ale moim zdaniem linia:
If (a * a) + (b * b) And (c * c) Then
powinna wyglądać tak:
If (a * a) + (b * b) = (c * c) Then
:)


Ja się tylko przyczepie sprawdzania trójkąta prostokątnego - w VB nie pisałem nic od bardzo dawna,ale moim zdaniem linia:
If (a * a) + (b * b) And (c * c) Then
powinna wyglądać tak:
If (a * a) + (b * b) = (c * c) Then
:)

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl