Do Loop Schleife ohne Do

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?

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
 
Hi,

.. weil Deine zweite for-Schleife nicht geschlossen wird:
Code:
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
Next i
'Rundenende

Gruß
.
 
hallo meine retter, :)

ich habe das selbe problem wie mein "vorschreiber" es heist die ganze zeit ich hätte ein loop ohne do!
Code:
ublic Sub formularAktualisieren(formular As Form)

Dim j As Integer
Dim k As Integer
Dim h As Integer

j = 1
k = 0
    Do
        If Left(feldid(j), Len(formular.Name)) = formular.Name Then
        If LCase(Right(feldid(j), 7)) = "caption" Then 'muss noch auf textboxen usw. erweitert werden
        k = Len(feldid(j)) 'variable definiert
        h = (10 + Len(formular.Name))
        formular.Controls(Mid(feldid(j), Len(formular.Name) + 2, k - h)).Caption = feldBezeichnung(j, aktuelleSprache) 'Len(feldid(j) - (10 + Len(formular.Name))))).Caption = feldBezeichnung(j, aktuelleSprache)
        End If
    Loop Until j = maxTexte Or feldid(j) = ""

End Sub
ich komm einfach nicht auf meinen fehler! hoffe ihr könnt mir helfen!
 
Zurück