GUIA PRACTICA #12

FORMULARIOS WINDOWS 

Objetivos:

• Desarrollar aplicaciones Windows Form

• Practicar el uso de propiedades, métodos y eventos

• Utilizar diferentes tipos de controles

1. Elaborar una mini factura, para capturar: el nombre del producto, precio unitario y cantidad, el empleado 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 System.Object, e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rad1.CheckedChanged
        porc.Text = "0"
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rad2.CheckedChanged
        porc.Text = "1"
    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rad3.CheckedChanged
        porc.Text = "5"
    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rad4.CheckedChanged
        porc.Text = "10"
    End Sub

    Private Sub RadioButton5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rad5.CheckedChanged
        porc.Text = "15"
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.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 System.Object, e As System.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 Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cCheck As Integer = 0
        If CheckBox1.Checked = True Then
            cCheck = cCheck + 1
        End If
        If CheckBox2.Checked = True Then
            cCheck = cCheck + 1
        End If
        If CheckBox3.Checked = True Then
            cCheck = cCheck + 1
        End If
        If CheckBox4.Checked = True Then
            cCheck = cCheck + 1
        End If

        If TextBox1.Text = "" Or TextBox2.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 CheckBox1.CheckState = CheckState.Checked Then
                Label4.Text = Label4.Text + 1
            End If
            If CheckBox2.CheckState = CheckState.Checked Then
                Label5.Text = Label5.Text + 1
            End If
            If CheckBox3.CheckState = CheckState.Checked Then
                Label6.Text = Label6.Text + 1
            End If
            If CheckBox4.CheckState = CheckState.Checked Then
                Label7.Text = Label7.Text + 1
            End If
            TextBox2.Clear()
            RadioButton1.Checked = False
            RadioButton2.Checked = False
            CheckBox1.Checked = False
            CheckBox2.Checked = False
            CheckBox3.Checked = False
            CheckBox4.Checked = False
            cCheck = 0
            TextBox1.Select()


        End If


    End Sub
    Sub main()
        TextBox1.Clear()
        TextBox2.Clear()
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        CheckBox1.Checked = False
        CheckBox2.Checked = False
        CheckBox3.Checked = False
        CheckBox4.Checked = False
        Label4.Text = "0"
        Label5.Text = "0"
        Label6.Text = "0"
        Label7.Text = "0"
        TextBox1.Select()
    End Sub

End Class