Top Ad unit 728 × 90

Recientes

recent

Contadores y Acumuladores - Programación Visual Basic. Net con Visual Studio 2013 (14-25)

En este artículo  seguiremos implementando estructuras iterativas con el bucle for en Microsoft Visual Basic. Net, desarrollaremos un ejemplo utilizando contadores y acumuladores.

Pueden ver los vídeos directamente en youtube:

Visita nuestro canal en youtube donde encontrarás cursos completos de Desarrollo de software y aprende a diseñar sistemas informáticos totalmente gratis:


Estructura Iterativas Bucles: For, While, do…Wile

Contadores y Acumuladores

Contador : Son variables enteras que se incrementan (+) o decrementan (-).
num+=1     num-=1   num=num+1

Acumulador: Son variables de cualquier tipo que almacenan valores variables.

   num+=valor     num-=i    num=num+valor

Problema 11

Se tiene un conjunto de calificaciones de un grupo de “n” alumnos, realizar un algoritmo para calcular la calificación media y la calificación más baja de dicho grupo.


Formulario



Código del botón Calcular


Private Sub btncalcular_Click(sender As Object, e As EventArgs) Handles btncalcular.Click
        Try
            'Declaración de variables
            Dim numalumnos As Integer
            Dim nota, sumanotas, notabaja, promedio As Double

            If (Val(txtnumero.Text) - Int(Val(txtnumero.Text)) = 0) Then
                'Entrada de datos
                numalumnos = Val(txtnumero.Text)
                'Inicializamos las variables
                sumanotas = 0
                notabaja = 20

                For i = 1 To numalumnos Step 1
                    nota = InputBox("Ingrese Nota del alumno " & i, "Registro de Notas")
                    sumanotas = sumanotas + nota
                    'Evaluamos si esta nota es la más baja
                    If (nota < notabaja) Then
                        notabaja = nota
                    End If
                Next
                promedio = sumanotas / numalumnos
                'Salida de Información
                txtpromedio.Text = promedio
                txtnotabaja.Text = notabaja
            Else
                MessageBox.Show("Ingrese un valor entero", "Promedio de                   Notas", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

End Sub

Código del botón Nuevo


Private Sub btnnuevo_Click(sender As Object, e As EventArgs) Handles btnnuevo.Click
        txtnumero.Clear()
        txtnotabaja.Clear()
        txtpromedio.Clear()

End Sub

Código del botón Salir


Private Sub btnsalir_Click(sender As Object, e As EventArgs) Handles btnsalir.Click
        Me.Close()
End Sub

Contadores y Acumuladores (14-25) Programación Visual Basic. Net con Visual Studio 2013



Saludos Imperio, un abrazo a la distancia.
Contadores y Acumuladores - Programación Visual Basic. Net con Visual Studio 2013 (14-25) Reviewed by Liliana Nataly Arcila Diaz on 13:47 Rating: 5

2 comentarios:

  1. existe esta estructura para visual basic 6.0?

    ResponderEliminar
  2. Excelente ejemplo ! temas abarcados:
    Declaración de variables.
    Contadores
    Acumuladores.
    Ciclo For
    Condicional if
    Try Catch

    Un ejemplo muy básico abarcando temas importantes :D

    ResponderEliminar

Todos los derechos reservados www.IncanatoIT.com - Desarrollando Software © 2014 - 2019
Desarrollado por Blogger, Designed by Sweetheme
IncanatoIt.com. Con la tecnología de Blogger.
y>