Hallo Leute,
beim starten von folgendem Code bekomme ich immer die Fehlermeldung: System.FormatException
Woran liegt das und wie kann ich das beseitigen?
Vielen Dank schonmal!!
LG
beim starten von folgendem Code bekomme ich immer die Fehlermeldung: System.FormatException
VB.NET-Quellcode
- Public Class Form1
- Public t As Double = 0
- Public e31 As Double = 0
- Public e32 As Double = 0
- Public z1 As Double = 0
- Public z2 As Double = 0
- Public alpha As Double = 0
- Public d1 As Double = 0
- Private Sub cmdRechnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRechnen.Click
- lblSchalter.Visible = False
- End Sub
- Private Sub lblSchalter_VisibleChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblSchalter.VisibleChanged
- Dim a1, a2, b1, b2, c As Double 'als lokale variablen, damit später wiederverwendbar'
- Try
- t = Convert.ToDouble(txtTragrollenabstand.Text)
- e31 = Convert.ToDouble(txtAchszapfenMR.Text)
- e32 = Convert.ToDouble(txtAchszapfenSR.Text)
- d1 = Convert.ToDouble(txtTragrollendurchmesser.Text)
- alpha = Convert.ToDouble(txtmuldungswinkel.Text * (Math.PI / 180))
- c = t / (2 * Math.Cos(alpha / 2))
- b1 = (c + e31) / Math.Tan(alpha / 2)
- b2 = (c + e32) / Math.Tan(alpha / 2)
- a1 = b1 - (0.5 * d1)
- a2 = b2 - (0.5 * d1)
- z1 = ((c + e31) * a1) / b1
- z2 = ((c + e32) * a2) / b2
- lblWertZ.Text = "z1: " & Math.Round(z1, 2) & " z2: " & Math.Round(z2, 2)
- Catch ex As Exception
- 'MsgBox("Es ist ein Fehler aufgetreten: " & ex.ToString, _
- ' MsgBoxStyle.Critical, "Fehler!")
- lblFehler.Text = "Fehler" & ex.Message
- End Try
- End Sub
- End Class
Woran liegt das und wie kann ich das beseitigen?
Vielen Dank schonmal!!
LG