Grado Undécimo Documento de Apoyo programa Cíclicas

PROGRAMA CICLICAS

INTERFAZ GRÁFICA

Imagen 4. GUI programa cíclicas.

Se le solicita al usuario que digite un número entre 0 y 50.000 luego de lo cual al pulsar el botón Calcular, se le muestra en otra caja de texto la suma de los números comprendidos entre 1 y dicho número.

Además del formulario se usan las siguientes herramientas:

Herramienta	Name	Text
Label	lblAviso1	Digite un número entre 0 – 50.000
Label	lblAviso2	No aplica (en tiempo de ejecución)
TextBox	txtNumero	No aplica (en tiempo de ejecución)
TextBox	txtResultado	No aplica (en tiempo de ejecución)
Button	btnCalcular	Calcular
Button	btnBorrar	Borrar

Tabla2. Herramientas y propiedades

En este programa aprenderemos el manejo de la estructura cíclica Do Until Loop, que permite realizar por uno o varios ciclos una serie de operaciones o acciones, mientras se da cumplimiento a una condición. Esta estructura nos permite realizar la suma de todos los números comprendidos entre 1 y el número digitado.

CÓDIGO FUENTE

Public Class frmCiclicas

Dim Suma As Integer ' Declaración de la variable que acumulará la suma

Dim Numero As Integer ' Declaración de la variable en que se guardará el número digitado

Dim Contador As Integer ' Declaración de la variable que llevará la cuenta de las operaciones realizadas

Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click

        'Controlamos que el número no sea negativo, cero o mayor de 50.000

 If Val(txtNumero.Text) <= 0 Or Val(txtNumero.Text) > 50000 Then

            'Caja de mensaje indicando tal situación

 MsgBox("El número no debe ser negativo, cero o mayor de 50.000", MsgBoxStyle.Critical, "Ciclicas")

 Else

   Numero = CInt(txtNumero.Text) 'Convertimos el valor digitado en número entero y lo guardamos en la variable

  'Ciclo que permite hallar la suma. Se puede entender como: Haga hasta que...

   Do Until Contador > Numero 'Condición

       Suma = Suma + Contador 'Acumulación

       Contador = Contador + 1 'Incremento uno a uno del contador

   Loop 'Indica repetición de las acciones

       txtResultado.Text = Suma

       txtResultado.Visible = True

       lblAviso2.Text = "La suma de los números del 1 al " & txtNumero.Text & " es:"

        End If

    End Sub

Private Sub btnBorrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBorrar.Click

        txtNumero.Text = ""

        lblAviso2.Text = ""

        txtResultado.Text = ""

        Numero = 0

        Contador = 0

        Suma = 0

        txtResultado.Visible = False

End Sub

End Class