08-26-2023, 09:25 PM
An addition to make the output more understandable.
Code: (Select All)
While i < eingabe
i = i + 1
If i Mod modBedingung = 0 Then
Berechnen (i)
ElseIf i Mod 23 = 0 Then
Print
Print "Bricht bei Eingabe MOD 23 = 0 ab!"
Print
Input "Weiter J/N: ", antwort
If UCase$(antwort) = "J" Then
Run "D:\Lab\QuickBasic64\Finanz+Mathe\Geometrie\Rechtwinkliges-Dreieck-Hypo.exe"
Else
Exit While
End If
End If
Wend