Practica 13

Tema Nº13: Aplicaciones Windows Forms

Comentarios: 

¿Qué es un formulario?

Un formulario es una hoja en blanco que el desarrollador rellena con controles, para crear una interfaz de usuario, y con código, para procesar los datos.

Para ese fin, Visual Studio proporciona un entorno de desarrollo integrado que ayuda a escribir el código, así como un completo conjunto de controles escrito con .NET Framework. La funcionalidad de estos controles se complementa con el código escrito por el desarrollador, lo que permite desarrollar fácil y rápidamente las soluciones deseadas.

¿Qué es un control?

Un control es aquel elemento situado dentro de una ventana o formulario, y que permite al usuario de la aplicación Windows, interactuar con la misma, para introducir datos o recuperar información.

Conclusiones:

Una aplicación Windows Forms o un formulario es la interfaz gráfica que el programador/desarrollador crea para facilitarle al usuario el uso de su programa. Esta interfaz va integradas con controles que ayuda al programador  que la interfaz interactue con el usuario y genere datos.

Practica #13

Problema 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) 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 Object, e As EventArgs) Handles Button2.Click
        End
    End Sub

End Class

Problema 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) Handles Button1.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) Handles Button2.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) Handles Button3.Click
        End
    End Sub

End Class

Problema 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) Handles MyBase.Load
        rojo.Visible = True
        amarillo.Visible = False
        verde.Visible = False
    End Sub

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

    Private Sub cambio_Click(sender As Object, e As 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

Archivo de solución del Proyecto

[haga clic en la imagen para descargar]


* Nota, el archivo de solución de este proyecto se encuentra en formato Visual Studio 2012, si se planea abrir el proyecto en una versión 2010 visite el siguiente link.