if estructura condicional - Programación Visual Basic. Net con Visual Studio 2013 (5-25)

En este artículo se explica las estructuras condicionales simples con la estructura If en Visual Basic .Net utilizando el IDE Microsoft Visual Studio 2013.

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


Estructura condicional If 

 Evalúa una expresión lógica (Condición), si es verdadero ejecuta una determinada instrucción o instrucciones.

Sintanxis Estructura Condicional If

Problema 3:  Descuento

Hacer un aplicación que permita ingresar el precio unitario de un producto vendido y la cantidad de venta; después calcular el precio parcial (precio unitario * cantidad), mostrar un descuento del 7% sólo si el vendedor a seleccionado la opción de aplicar descuento, al final mostrar también el precio neto (precio parcial – descuento).

Formulario

Diagrama de Flujo

Código Fuente del btncalcular

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

        'Declaración de variables

        Dim cant As Integer

        Dim punitario As Single, pparcial As Single

        Dim desc As Single, pneto As Single

        Dim marcadodesc As Boolean

        'Entrada de datos

        cant = Val(txtcant.Text)

        punitario = Val(txtpunitario.Text)

        marcadodesc = chkdescuento.Checked

        'Inicializamos el descuento en

        desc = 0

        'Proceso

        pparcial = cant * punitario

        'Evaluamos si tiene o no descuento

        If marcadodesc = True Then

            desc = pparcial * 0.07

        End If

        pneto = pparcial - desc

        'Salida de Información

        txtpparcial.Text = pparcial

        txtdesc.Text = desc

        txtpneto.Text = pneto

    End Sub

Código Fuente del btnsalir

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

        End

    End Sub

Código Fuente del btnnuevo

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

        txtcant.Clear()

        txtpunitario.Clear()

        txtpparcial.Clear()

        txtdesc.Clear()

        txtpneto.Clear()

    End Sub

if estructura condicional (5-25) Programación Visual Basic. Net con Visual Studio 2013

Saludos Imperio, un abrazo a la distancia.