Edukiak
Indizea 🔎︎

# Do...Loop instrukzioa

Do eta Loop instrukzioen artean instrukzioak errepikatzen ditu baldintza True den bitartean edo baldintza True bihurtu arte.

## Sintaxia

Do [{While | Until} baldintza = True]

instrukzio-blokea

[Exit Do]

instrukzio-blokea

Loop

edo

Do

instrukzio-blokea

[Exit Do]

instrukzio-blokea

Loop [{While | Until} baldintza = True]

## Parametroak/elementuak

Baldintza: True (egiazkoa) edo False (faltsua) ebaluatzen duen konparazio-, zenbakizko edo kate-adierazpena.

Instrukzio-blokea: baldintza True den bitartean edo True izan arte errepikatzea nahi dituzun instrukzioak.

Do...Loop instrukzioak begizta bat exekutatzen du baldintza jakin bat True den bitartean edo True izan arte. Begiztatik irteteko baldintza Do edo Loop instrukzioaren atzetik sartu behar da. Ondorengo adibideak baliozko konbinazioak dira:

## Sintaxia

Do While Baldintza = True

...instrukzio-blokea

Begizta

Do While eta Loop instrukzioen arteko instrukzio-blokea errepikatu egingo da baldintza True den bitartean.

Do Until baldintza = True

...instrukzio-blokea

Begizta

Do Until eta Loop instrukzioen arteko instrukzio-blokea errepikatu egingo da baldintza False den bitartean.

Do

...instrukzio-blokea

Loop While baldintza = True

Do eta Loop instrukzioen arteko instrukzio-blokea errepikatu egingo da baldintza True den bitartean.

Do

...instrukzio-blokea

Loop Until balbintza = True

Do eta Loop instrukzioen arteko instrukzio-blokea errepikatu egingo da baldintza True izan arte.

Exit Do instrukzioa erabili begizta baldintzarik gabe amaitzeko. Instrukzio hori Do...Loop instrukzioen artean sartu behar duzu. Irteera-baldintza If...Then egitura erabiliz ere defini dezakezu:

Do...

instrukzioak

If baldintza = True Then Exit Do

instrukzioak

Loop...

## Adibidea:

    Sub ExampleDoLoop
    Dim sFile As String
    Dim sPath As String
        sPath = "c:\"
        sFile = Dir$( sPath ,22)
        If sFile <> "" Then
            Do
                MsgBox sFile
                sFile = Dir$
            Loop Until sFile = ""
        End If
    End Sub