Dark Ranger
Erfahrenes Mitglied
Warum sagt er mir bei dem Code, das Loop without Do ist?
Mehr Code gibt es in meinem ganzen Programm bis jetzt noch nicht, das Programm soll halt nur etwas berechnen und es ist doch ein Do da oder nicht?
Mehr Code gibt es in meinem ganzen Programm bis jetzt noch nicht, das Programm soll halt nur etwas berechnen und es ist doch ein Do da oder nicht?
Code:
Dim Runde As Integer
Dim i As Integer
Dim m As Integer
Dim zwErg As Integer
Dim Erg As Integer
Dim ZerVer As Integer
Dim ZerAng As Integer
Dim Kampfende As Boolean
Private Sub cmdBerechnen_Click()
Runde = 0
Do
Runde = Runde + 1
'Angreifer
For i = 0 To txtAngreifer.Text
zwErg = 20 - 50
If zwErg < 0 Then
Erg = (2000 / 10) - (50 - 20)
End If
If Erg < 0 Then
ZerVer = ZerVer + 1
End If
Next i
'Verteidiger
For i = 0 To txtVerteidiger.Text
zwErg = 10 - 80
If zwErg < 0 Then
Erg = (4000 / 10) - (80 - 10)
End If
If Erg < 0 Then
ZerAng = ZerAng + 1
End If
'Rundenende
txtAngreifer.Text = txtAngreifer.Text - ZerAng
txtVerteidiger.Text = txtVerteidiger.Text - ZerVer
If txtAngreifer.Text <= 0 Or txtVerteidiger.Text <= 0 Then
Kampfende = True
End If
Loop Until Runde = 6 Or Kampfende = True
End Sub