El bucle while (código) – Small Basic y Visual Basic


a1

El bucle while (mientras) es otro método de repetición que se usa cuando la cantidad de repeticiones no se conoce por adelantado. Mientras el bucle For se ejecuta una cantidad predefinida de veces, el bucle while se ejecuta mientras una condición dada es cierta

En este ejemplo el programa trazará una línea del ancho y color (“Red”) indicado, en un fondo de escritorio (“Yellow”) también especificado. Mientras la variable definida es mayor que 1 se repetirá el trazado

Small Basic 

numero = 1000

etiquetaInicio:

TextWindow.WriteLine(numero)

GraphicsWindow.Show()

GraphicsWindow.BackgroundColor= “Yellow”

GraphicsWindow.PenWidth= 10

GraphicsWindow.PenColor = “Red”

GraphicsWindow.DrawLine(10, 300, numero, 10)

numero= numero/2

 

While (numero>1)

  Goto etiquetaInicio

  EndWhile

 Visual Basic 

Module whileModule

    Dim numero As Primitive

    Sub Main()

        numero = 1000

etiquetaInicio:

        TextWindow.WriteLine(numero)

        GraphicsWindow.Show()

        GraphicsWindow.BackgroundColor = “Yellow”

        GraphicsWindow.PenWidth = 10

        GraphicsWindow.PenColor = “Red”

        GraphicsWindow.DrawLine(10, 300, numero, 10)

        numero = numero / 2

 

        While numero > 1

            Goto etiquetaInicio

        End While

    End Sub

End Module

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s