Private Sub CommandButton1_Click()
'Variablen definieren
Dim i As Integer
Dim ywerte() As Double
Dim rakete() As Double
Dim weg() As Double
Dim Zeit() As Double
Dim geschwindigkeit As Double
Dim startzeit As Double
Dim stargeschwindigkeit As Single
Dim masse As Double
gesamt = Mrakete
total = Mrakete - mtreibstoff
 
'Start
Erase Zeit
ReDim Zeit(0)
Zeit(0) = zeitschritt
 
Erase ywerte
ReDim ywerte(0)
 
ywerte(0) = gzuwachs(mt, Vaustritt, Mrakete) '1. Berechnung der Geschwindigkeit
i = 0
mtreibstoff = mtreibstoff - (mt * zeitschritt)
Mrakete = total + mtreibstoff
 
ReDim rakete(0)
rakete(0) = mtreibstoff
ReDim weg(0)
weg(0) = ywerte(0) * zeitschritt
 
While mtreibstoff > 0
i = i + 1
 
If Mrakete - (mt * zeitschritt) < total Then
zeitschritt = -(total - Mrakete) / mt
Mrakete = total
zeitschritt = CDbl(zeitschritt)
End If
 
geschwindigkeit = gzuwachs(mt, Vaustritt, Mrakete)
mtreibstoff = mtreibstoff - (mt * zeitschritt)
Mrakete = total + mtreibstoff
 
'Werte in Array schreiben
ReDim Preserve ywerte(i)
ywerte(i) = geschwindigkeit + ywerte(i - 1)
ReDim Preserve weg(i)
weg(i) = ywerte(i) * zeitschritt + weg(i - 1)
ReDim Preserve rakete(i)
rakete(i) = mtreibstoff
ReDim Preserve Zeit(i)
Zeit(i) = zeitschritt + Zeit(i - 1)
Wend