Hi, wollte für Physik ein Programm schreiben, dass mir die Methode der kleinen Schritte ausführt und Geschwindigkeit, Beschleunigung, etc. zu einem bestimmten Zeitpunkt widergibt.
Jetzt hab ich nur das Problem, dass ich bei Zeile 35 (x1 = x0 + ...) den Fehler bekomme:
"InvalidCastException wurde nicht behandelt. Ungültige Konvertierung von der Zeichenfolge 0,8972024159251,10733060732316 in Typ Double."
Mir ist bewusst, dass ich noch der volle Anfänger bin und man das evtl. auch besser hätte schreiben können, aber so hab ichs nunmal gemacht.
Wäre für eine Lösung echt dankbar
David
Jetzt hab ich nur das Problem, dass ich bei Zeile 35 (x1 = x0 + ...) den Fehler bekomme:
"InvalidCastException wurde nicht behandelt. Ungültige Konvertierung von der Zeichenfolge 0,8972024159251,10733060732316 in Typ Double."
Mir ist bewusst, dass ich noch der volle Anfänger bin und man das evtl. auch besser hätte schreiben können, aber so hab ichs nunmal gemacht.
Wäre für eine Lösung echt dankbar
David
VB.NET-Quellcode
- Public Class Form1
- Dim y As String
- Dim z As Integer
- Dim t0 As String = "0"
- Dim v0 As String = "0"
- Dim x0 As String = "0"
- Dim a0 As String = "9,81"
- Dim t1 As String
- Dim v1 As String
- Dim x1 As String
- Dim a1 As String
- Dim deltaT As String = "0,05"
- Dim g As String = "9,81"
- Dim k As String
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Cw.Text = "0,9"
- Fläche.Text = "0,2"
- Masse.Text = "60"
- Dichte.Text = "1,29"
- Zeit.Text = "0,1"
- y = Zeit.Text
- z = y / deltaT
- k = (Cw.Text * Fläche.Text * Dichte.Text) / 2 * Masse.Text
- Dim w As String = z
- ZA.Text = z
- Do Until z = 0
- t1 = t0 + deltaT
- v1 = v0 + a0 * deltaT
- x1 = x0 + 0.5 * (v0 + v1) * deltaT
- a1 = g - k * v1 * v1
- t0 = t1 + deltaT
- v0 = v1 + a1 * deltaT
- x0 = x1 + 0.5 * (v0 * v1) * deltaT
- a0 = g - k * v0 * v0
- z = z - 1
- Loop
- If Not (w - Int(w)) > 0 Then
- tNeu.Text = t1
- vNeu.Text = v1
- xNeu.Text = x1
- aNeu.Text = a1
- End If
- End Sub
- End Class