practica #13

Aplicaciones Windows Forms

ejercicio 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.

Código VB .NET:

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

ejercicio 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.

Código VB .NET:

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