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 
Utilizando el IDe Microsoft Visual Studio 2013.

Pueden ver los vídeos directamente en youtube:

Visita nuestro canal en youtube y revisa cursos 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.


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 - Programación Visual Basic. Net con Visual Studio 2013 (14-25) Reviewed by Liliana Nataly Arcila Diaz on 13:47 Rating: 5

3 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
  3. Hola Juan Carlos te felicito eres mi mentor , estudio visual. Net ,asp.Net y ms sql me preguntó si piensas subir vídeos sobre asp.Net gracias

    ResponderEliminar

All Rights Reserved by www.IncanatoIT.com - Desarrollando Software © 2014 - 2015
Powered By Blogger, Designed by Sweetheme

Formulario de contacto

Nombre

Correo electrónico *

Mensaje *

IncanatoIt.com. Con la tecnología de Blogger.