miércoles, 20 de febrero de 2019

Formulario en Visual Basic Calculo de Promedio

Formulario en Visual Basic, donde se calcula el promedio de un alumno ingresando 4 notas parciales, agregando observaciones y Estado donde se muestra si el alumno ha aprobado el parcial, y si el alumno tiene la observación bueno, insuficiente, muy bueno y sobresaliente. 

Formulario de Promedio en Visual Basic
Para que puedan aplicar los códigos pueden ver el video y seguir las instrucciones, para que al final puedan tener un formulario que contenga las mismas funciones que las que se presentan en el tutorial.
VIDEO TUTORIAL



Código que ira en el Textbox de Nota 4: 
pr.Text = (Val(n1.Text) + Val(n2.Text) + Val(n3.Text) + Val(n4.Text)) / 4
        If pr.Text <= 60 Then
            estado.Text = "REPROBADO"
            obs.Text = "Insuficiente"
            pr.ForeColor = Color.Red
        Else
            pr.ForeColor = Color.Black
            estado.Text = "APROBADO"
        End If
        If pr.Text >= 60 And pr.Text <= 70 Then
            obs.Text = "Bueno"
            pr.ForeColor = Color.Black
            estado.Text = "APROBADO"
        End If
        If pr.Text >= 70 And pr.Text <= 80 Then
            obs.Text = "Muy Bueno"
            pr.ForeColor = Color.Black
            estado.Text = "APROBADO"
        End If
        If pr.Text >= 80 And pr.Text <= 90 Then
            obs.Text = "Excelente"
            pr.ForeColor = Color.Black
            estado.Text = "APROBADO"
        End If
        If pr.Text >= 90 And pr.Text <= 100 Then
            obs.Text = "Sobresaliente"
            pr.ForeColor = Color.Black
            estado.Text = "APROBADO"
        End If
BOTON LIMPIAR CODIGO:
TextBox1.Clear()
        TextBox2.Clear()
        n1.Clear()
        n2.Clear()
        n3.Clear()
        n4.Clear()
        pr.Clear()
        moda.Text = ""
BOTON SALIR
me.close()

Eso es todo, espero que les sirvan de ayuda este video tutorial y recuerden que ustedes pueden lograr mayores cosas si se lo proponen. 

Mr Johnson "KJC"

Author & Editor

Mi Nombre es Keny Johnson, Educador Profesional en el Area de Informatica Educativa. Con mas de 12 años de experiencia, la cual para mi es un orgullo compartir mis conocimientos adquiridos durante mi educacion y preparacion con los alumnos que comparto mis Clases

0 comentarios:

Publicar un comentario