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. 

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. 

Continuar Leyendo..

Como crear un Semáforo Simple en Visual Basic

En este post aprenderemos como crear un semáforo usando el programa de Visual Basic, cabe destacar que no es un semáforo completo pero la idea de las clases que comparto en mi blog es para que ustedes tengan una referencia de como funciona y con los códigos o comando básicos puedan pensar, crear y diseñar uno nuevo que sea mas completo que la que comparto yo en mi post.

Este post es para que tengan una idea de como programar algo básico usando mi programa favorito Visual Basic, lo único que tienen que hacer es ver el video tutoríal que esta aquí mismo en el post y baya aplicando los códigos y comandos que están en la misma. Sigan bien los pasos y al final del tutoríal ustedes también tendrán un semáforo en visual basic como la que se ve en este Post.

VIDEO TUTORIAL 

El Código para el Botón Iniciar es la Siguiente: 

        semaforo = 0

        Timer1.Enabled = True

        Timer1.Interval = 1000

Código para Declarar la Variable Semáforo:

 Dim semaforo As Integer

Código dentro el Timer:

             semaforo = semaforo + 1

            If semaforo = 1 Then

            Rojo.Visible = False

            Amarillo.Visible = True

            Verde.Visible = True

        End If

        If semaforo = 4 Then

           Rojo.Visible = True

            Amarillo.Visible = False

            Verde.Visible = True

        End If

       If semaforo = 6 Then

            Rojo.Visible = True

            Amarillo.Visible = True

            Verde.Visible = False

        End If

        If semaforo = 9 Then

           semaforo = 0

        End If 

Espero que les sirva de mucha ayuda esta clase de como hacer un Semáforo con el programa de Visual Basic. No olviden suscribirse en mi Canal, comentar Mis Post y compartirlos Gracias

Continuar Leyendo..

Calculo de Suma, Resta, Multiplicación y División Visual Basic

Vamos a ver como hacer un formulario en visual Basic donde nos lance un resultado dependiendo del signo que escojamos, combinando 2 Texbox y un tercer TextoBox de Resultado.

En este video tutorial se les enseñara paso a paso con todas las características de que forma pueden hacer una pequeña aplicación basado en el entorno de windows que funcione como una Mini calculadora  de Suma, Resta, Multiplicación y División. 

Todo esto simplemente un pequeño conocimiento que les puede servir a ustedes para hacer aun mas grande la idea. Lo que comparto en este post es simplemente algo básico que les puede servir a ustedes para prepararse en un proyecto mucho mas completo, pero que tengan ya un conocimiento previo de lo que es Manejar Visual Basic.

Espero que les sirvan de ayuda, no olviden seguir mi Canal de Youtube y Compartir nuestro tutoriales en las Redes Sociales.

Continuar Leyendo..

Como Crear una Factura Simple en Visual Basic

Video tutorial completo donde se explica paso a paso como crear una factura simple usando el programa Visual Basic (Visual Studio 2015), la cual contiene también los código usados en el video tutorial.

El programa esta diseñado para orientarlos de como se puede crear un programa dentro de la plataforma de visual Basic. Es como una ilustración o iniciativa para que ustedes mismos lo Puedan Mejorar.

Imagen de como se puede ver El Diseño Final de Nuestra Factura Diseñado en Visual Basic

VIDEO TUTORIAL

Código de Importe 1:

imp1.Text = Val(ct1.Text * pu1.Text)

        subt.Text = Val(imp1.Text)

        isv.Text = Val(subt.Text) * 0.15

Código de Importe 2:

imp1.Text = Val(ct2.Text * pu2.Text)

        subt.Text = Val(imp2.Text)

        isv.Text = Val(subt.Text) * 0.15

Código de Importe 3:

imp1.Text = Val(ct3.Text * pu3.Text)

        subt.Text = Val(imp3.Text)

        isv.Text = Val(subt.Text) * 0.15

Código de Importe 4:

imp1.Text = Val(ct4.Text * pu4.Text)

        subt.Text = Val(imp4.Text)

        isv.Text = Val(subt.Text) * 0.15

Código de Importe 5:

imp1.Text = Val(ct5.Text * pu5.Text)

        subt.Text = Val(imp5.Text)

        isv.Text = Val(subt.Text) * 0.15

Código de Se pago Con:

 If chk1.Checked = True Then

            cambio.Text = Val(pago.Text) - Val(tp.Text)

        End If

        pago.Text = Val(pago.Text)

        cambio.Text = Val(pago.Text) - Val(tp.Text)

Código de Chekcbox 1:
If chk1.Checked = True Then

            des.Text = Val(tp.Text) * 0.05

            tp.Text = Val(tp.Text) - Val(des.Text)

            cambio.Text = Val(pago.Text) - Val(tp.Text)

            chk2.Checked = False

        End If

Código de Chekcbox 2:
If chk2.Checked = True Then

            chk1.Checked = False

            tp.Text = Val(subt.Text) + Val(isv.Text)

            des.Text = 0

            cambio.Text = Val(pago.Text) - Val(tp.Text)

        End If

Continuar Leyendo..