PRACTICA 13

FORMULARIOS WINDOWS

Indicaciones: crear un proyecto de tipo Windows Forms con los siguientes formularios.

1. Elaborar una mini factura, para capturar el nombre del producto, precio unitario y cantidad, el usuario seleccionara un descuento de del 0 al 15% y al hacer clic en calcular mostrará el subtotal, descuento, iva y total a pagar.

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
——————————————————————————————————————
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs)Handles RadioButton1.CheckedChanged
porc.Text = ”0″
End Sub
——————————————————————————————————————
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs)Handles RadioButton2.CheckedChanged
porc.Text = ”1″
End Sub
——————————————————————————————————————
Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs)Handles RadioButton3.CheckedChanged
porc.Text = ”5″
End Sub
Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs)Handles RadioButton4.CheckedChanged
porc.Text = ”10″
End Sub
——————————————————————————————————————
Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs)Handles RadioButton5.CheckedChanged
porc.Text = ”15″
End Sub
——————————————————————————————————————
Private Sub Button1_Click(sender As Object, e As EventArgs) HandlesButton1.Click
subtotal.Text = precio.Text * cantidad.Text
Dim desc, totaln As Decimal
descuento.Text = porc.Text & ”%”
desc = porc.Text / 100
iva.Text = 0.13
totaln = subtotal.Text * (iva.Text + 1)
total.Text = FormatCurrency(totaln * (1 – desc), 2)
End Sub
——————————————————————————————————————
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub
End Class
2. Elaborar un formulario para capturar datos personales, nombre, email, sexo y estudios realizados, al hacer clic en el botón Agregar que actualice los contadores, limpie los textboxs, radios y checkboxs y envíe el cursor al cuadro de texto para ingresar el nombre. Al dar clic en Reiniciar que limpie el formulario, ponga a cero todos los contadores y envíe el enfoque al cuadro de texto para ingresar el nombre. Validar que al dar clic en Agregar el usuario haya ingresado el nombre, email, sexo y haya seleccionado al menos uno de los estudios realizados.

Public Class Form2
    Private Sub Button1_Click(sender As Object, e As EventArgs) HandlesButton1.Click
        ’Contador de checkbox activos
        Dim cCheck As Integer = 0
        If CheckBachi.Checked = True Then
            cCheck = cCheck + 1
        End If
        If CheckUni.Checked = True Then
            cCheck = cCheck + 1
        Then
        If CheckMae.Checked = True Then
            cCheck = cCheck + 1
        Then
        If CheckDoc.Checked = True Then
            cCheck = cCheck + 1
        Then
        ’Condiciones para que funcione el botón
        If nombre.Text = “” Or email.Text = “” Or cCheck = 0 And(RadioButton1.Checked = False Or RadioButton2.Checked = False) Then
            MsgBox(”                  Faltan datos!!” & vbCrLf & vbCrLf & ”       Ingrese toda la información.”)
        Else
            If CheckBachi.CheckState = CheckState.Checked Then
                cBachi.Text = cBachi.Text + 1
            End If
            If CheckUni.CheckState = CheckState.Checked Then
                cUni.Text = cUni.Text + 1
            End If
            If CheckMae.CheckState = CheckState.Checked Then
                cMae.Text = cMae.Text + 1
            End If
            If CheckDoc.CheckState = CheckState.Checked Then
                cDoc.Text = cDoc.Text + 1
            End If
            nombre.Clear()
            email.Clear()
            RadioButton1.Checked = False
            RadioButton2.Checked = False
            CheckBachi.Checked = False
            CheckUni.Checked = False
            CheckMae.Checked = False
            CheckDoc.Checked = False
            cCheck = 0
            nombre.Select()
        End If
    End Sub
——————————————————————————————————————
    Private Sub Button2_Click(sender As Object, e As EventArgs) HandlesButton2.Click
        nombre.Clear()
        email.Clear()
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        CheckBachi.Checked = False
        CheckUni.Checked = False
        CheckMae.Checked = False
        CheckDoc.Checked = False
        cBachi.Text = “0″
        cUni.Text = “0″
        cMae.Text = “0″
        cDoc.Text = “0″
        nombre.Select()
    End Sub
——————————————————————————————————————
    Private Sub Button3_Click(sender As Object, e As EventArgs) HandlesButton3.Click
        End
    End Sub
End Class
3. Diseñar una aplicación Windows Form que almacene en un arreglo las notas de un parcial (Capturando la nota en un control NumericUpDown con límites de 0 a 10 y con incrementos de 0.1) y colocar opciones de radio para que el usuario pueda obtener cualquiera de los siguientes resultado al hacer clic en el botón Consultar: (nota: crear una función para obtener el resultado solicitado en cada una de las opciones presentadas)
a. La mayor nota.
b. La menor nota.
c. La nota promedio.
d. La cantidad de aprobados.
e. La cantidad de reprobados.
f. El porcentaje de aprobados.
g. El porcentaje de reprobados.
h. La mediana (el arreglo debe estar ordenado; si el número de elementos es impar, la mediana es el elemento de en medio; si el número de elementos es par, la mediana es el promedio de los dos elementos centrales)
i. La moda (es el elemento que más se repite)


4. Crear una aplicación Windows Form para almacenar en un arreglo los resultados de las últimas elecciones presidenciales donde participan 10 candidatos. y que posea las siguientes opciones: (nota: elaborar una función para cada uno de las opciones que se presentan)
j. Imprimir la tabla de votos por departamento y candidato.
k. Calcular e imprimir el número total de votos recibidos por cada candidato y el porcentaje del total de votos emitidos. Asimismo visualizar el candidato más votado.
l. Si algún candidato recibe más del 50% de los votos, declararlo ganador.
m. Si ningún candidato recibe más del 50% de los votos, imprimir los dos más votados, que son los que pasarán a la segunda vuelta de las elecciones.

5. Diseñar una aplicación Windows Form que simule el funcionamiento de un semáforo, controlando el cambio de luces de forma manual, es decir, colocando un solo botón de comando para que el semáforo vaya realizando el cambio de luces (Rojo, Amarillo, Verde).

Código VB .NET:

Public Class Form5

    'Como no se especificó por que método hacer el funcionamiento del semáforo
    'decidi hacerlo con picture box, utilizando una imagen de internet y modificandola
    'para crear los colores del semáforo. Creo que le da una mejor presentación :)

    '*Adjunto con el archivo de solución, el proyecto de Photohop y las imagenes utilizadas.

    Private Sub Form5_Load(sender As Object, e As EventArgs) HandlesMyBase.Load
        rojo.Visible = True
        amarillo.Visible = False
        verde.Visible = False
    End Sub

------------------------------------------------------------------------------------------------------------------

    Private Sub cambio_Click(sender As Object, eAs EventArgs) Handles cambio.Click

        If rojo.Visible = True Then
            amarillo.Visible = True
            rojo.Visible = False
            verde.Visible = False
        ElseIf amarillo.Visible = True Then
            verde.Visible = True
            rojo.Visible = False
            amarillo.Visible = False
        ElseIf verde.Visible = True Then
            rojo.Visible = True
            amarillo.Visible = False
            verde.Visible = False
        End If

    End Sub

End Class