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 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
Código en Visual Basic.
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
End Sub
Private Sub desc1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles desc1.CheckedChanged
porc.Text = "0"
End Sub
Private Sub desc2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles desc2.CheckedChanged
porc.Text = "1"
End Sub
Private Sub desc3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles desc3.CheckedChanged
porc.Text = "5"
End Sub
Private Sub desc4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles desc4.CheckedChanged
porc.Text = "10"
End Sub
Private Sub desc5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles desc5.CheckedChanged
porc.Text = "15"
End Sub
Private Sub calcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calcular.Click
subt.Text = precio.Text * cantidad.Text
Dim desc, total As Decimal
desc = porc.Text & "%"
desc = porc.Text / 100
iva.Text = 0.13
total = subt.Text * (iva.Text + 1)
total = FormatCurrency(total * (1 - desc), 2)
End Sub
Private Sub salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles salir.Click
Me.Close()
End
End Sub
End Class
Pantalla de Salida.
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 en Visual Basic.
Public Class datos
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
TextBox1.Clear()
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
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
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
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
Pantalla de Salida.
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 en Visual Basic.
Public Class semaforo
Private Sub semaforo()
For i As Integer = 5 To 100
Me.Timer1.Start()
Next
End Sub
Private Sub semaforo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.amarillo.Visible = False
Me.Rojo.Visible = False
Me.verde.Visible = False
semaforo()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Rojo.Visible = True
Me.verde.Visible = False
Me.Timer1.Stop()
Me.Timer2.Start()
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Me.amarillo.Visible = True
Me.Rojo.Visible = False
Me.Timer2.Stop()
Me.Timer3.Start()
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Me.verde.Visible = True
Me.amarillo.Visible = False
Me.Timer3.Stop()
Me.semaforo()
End Sub
End Class
Pantalla de Salida.
Los formularios son el elemento básico de la interfaz gráfica de usuario (GUI) en aplicaciones creadas para Microsoft Windows. Proporcionan un marco de trabajo que puede utilizarse por toda la aplicación para crear un aspecto coherente. Los formularios de aplicaciones basadas en Windows se utilizan para presentar información al usuario y
ResponderEliminaraceptar la introducción de datos por parte del mismo. El formulario es un control derivado de la clase Form, que a su vez deriva de la clase ContainerControl. El marco de trabajo también permite heredar de formularios existentes para añadir más funcionalidades o modificar el comportamiento existente. Cuando se añade un formulario a un proyecto, se
puede escoger si hereda de la clase Form proporcionada por el .NET Framework, o de un formulario creado con anterioridad. Un formulario no es otra cosa que una clase que hereda de la clase System.Windows.Forms.Form.
El espacio de nombres que contiene la definición de las clases para creación de aplicaciones Windows Forms es System.Windows.Forms
Windows Forms se utiliza para desarrollar aplicaciones en las que se espera que el cliente tenga una parte importante de la carga de proceso de una aplicación (aplicaciones de dibujo o gráficas, sistemas de introducción de datos, sistemas punto de venta, y juegos, entre otros)
La creación de un proyecto de tipo Aplicación Windows es similar a la creación de Aplicaciones de Consola, debemos establecer el nombre del proyecto, su ubicación y el nombre de la carpeta de la solución, si fuera el caso.