if else Estructura Condicional Doble - Programación Visual Basic. Net con Visual Studio 2013 (6-32)

En este Artículo se explica las estructuras condicionales dobles con la estructura If else en Visual Basic.Net con Microsoft Visual Studio 2013.

Desarrollaremos un programa que permita calcular el  promedio de tres alumnos y si está  aprobado o desaprobado.

Pueden consultar toda la documentación respectiva (Diapositiva, textos, videos, códigos, fuentes, librerías,etc,) de este conjunto de posts.

Pueden ver los vídeos directamente en youtube:

https://www.youtube.com/watch?v=33uPg7kEPic&list=PLZPrWDz1MoloGD4irFB-YMIKvUYNu1i3m&index=1

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

www.youtube.com/jcarlosad7

Estructuras Condicionales IF – Else

Evalúa una expresión lógica (Condición), si es verdadero el resultado ejecuta una determinada instrucción o instrucciones; y si es falso ejecuta otro grupo de Instrucciones.

Problema 4:  Promedio

Hacer un programa que permita ingresar tres notas para un alumno, la nota A que tiene una importancia de 3 créditos, la nota B tiene 4 Créditos, y la nota C tiene sólo 2 créditos; se debe de calcular el promedio teniendo en cuenta las notas y al final si el alumno tiene un promedio igual o mayor a 10.5 mostrar “Aprobado”, en caso contrario “Desaprobado”.

Formulario

Diagrama de Flujo

Código Botón btncalcular

Private Sub btncalcular_Click(sender As Object, e As EventArgs) Handles btncalcular.Click

        'Declaración de Variables

        Dim notaa As Byte, notab As Byte, notac As Byte

        Dim prom As Single

        Dim situacion As String

        'Entrada de Datos

        notaa = Val(txtnotaa.Text)

        notab = Val(txtnotab.Text)

        notac = Val(txtnotac.Text)

        'Proceso

        prom = (notaa * 3 + notab * 4 + notac * 2) / 9

        'Evaluamos la condición

        If (prom >= 10.5) Then

            situacion = "Aprobado"

        Else

            situacion = "Desaprobado"

        End If

        'Salida de Información

        txtpromedio.Text = prom

        txtsituacion.Text = situacion

    End Sub

 Código del Botón btnsalir

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

        End

End Sub

Código Botón btnnuevo

Private Sub btnnuevo_Click(sender As Object, e As EventArgs) Handles btnnuevo.Click

        txtnotaa.Clear()

        txtnotab.Clear()

        txtnotac.Clear()

        txtpromedio.Clear()

        txtsituacion.Clear()
End Sub

if else Estructura Condicional Doble (6-32) Programación Visual Basic. Net con Visual Studio 2013

Saludos Imperio, un abrazo a la distancia!!!