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
ARREGLOS EN VISUAL BASIC .NET
Objetivos:
- Identificar la sintaxis para declarar arreglos.
- Diseñar aplicaciones utilizando arreglos.
1. Crear una aplicación para capturar el nombre de 10 personas y luego mostrarlos ordenados y en letras mayúsculas.
2. Elaborar una aplicación para capturar números en dos arreglos 4 x 4 y luego mostrar la sumatoria de los arreglos.
-------------------------------------------------------------------------------------------------------------
Module Module2
Sub Main()
Dim n1(3, 3) As Integer
Dim n2(3, 3) As Integer
Dim n3(3, 3) As Integer
For f = 0 To 3
For c = 0 To 3
Console.Write("Datos Primer Matriz: ")
n1(f, c) = Console.ReadLine
Next
Next
For f = 0 To 3
For c = 0 To 3
Console.Write("Datos Segunda Matriz: ")
n2(f, c) = Console.ReadLine
Next
Next
For f = 0 To 3
For c = 0 To 3
n3(f, c) = n1(f, c) + n2(f, c)
Next
Next
Console.WriteLine("Sumatoria de Matrices: ")
Console.WriteLine()
For f = 0 To n3.GetUpperBound(0)
For c = 0 To n3.GetUpperBound(1)
Console.Write(n3(f, c) & " ")
Next
Console.WriteLine()
Next
Console.ReadLine()
End Sub
End Module
-----------------------------------------------------------------------------------------------------
3. Elaborar una aplicación para almacenar en un arreglo una cantidad de números enteros indicada por el usuario y luego imprimir cuantos de los números almacenados en el arreglo son pares y cuantos impares.
-----------------------------------------------------------------------------------------------------------
Module Module3
Sub Main()
Dim k, pares, impar As Integer
pares = 0
impar = 0
Console.WriteLine("Cantidad de números a ingresar:")
k = Console.ReadLine()
k = k - 1
Console.WriteLine()
Dim num(k) As Integer
Console.WriteLine("Ingrese los números del arreglo:")
For i = 0 To k
Dim n As Integer
n = Console.ReadLine()
num(i) = n
Next
For i = 0 To k
If num(i) Mod 2 = 0 Then
pares = pares + 1
Else
impar = impar + 1
End If
Next
Console.WriteLine()
Console.WriteLine("Pares: " & pares)
Console.WriteLine("Impares: " & impar)
Console.ReadLine()
End
End Sub
End Module
------------------------------------------------------------------------------------------------------
PROCEDIMIENTOS Y FUNCIONES EN VB .NET
Objetivos:
- Practicar el uso de procedimientos y funciones.
- Diferenciar funciones de procedimientos.
1. Escriba un procedimiento que imprima la fecha y hora actual.
3. Escriba una aplicación para capturar el número de teléfono de 5 participantes y que posea un procedimiento que seleccione e imprima de forma aleatoria el número de teléfono ganador.
--------------------------------------------------------------------------------------------------------------
Module Module2
Sub main()
Dim cel1, cel2, cel3, cel4, cel5 As String
Console.Write("Numero 1: ")
cel1 = Console.ReadLine
Console.Write("Numero 2: ")
cel2 = Console.ReadLine
Console.Write("Numero 3: ")
cel3 = Console.ReadLine
Console.Write("Numero 4: ")
cel4 = Console.ReadLine
Console.Write("Numero 5: ")
cel5 = Console.ReadLine
ganador(cel1, cel2, cel3, cel4, cel5)
Console.ReadLine()
End Sub
------------------------------------------------------------------------------------------------------------
Sub Ganador(cel1 As String, cel2 As String, cel3 As String, cel4 As String, cel5 As String)
Dim r As New Random
Randomize()
Select Case r.Next(1, 5)
Case 1
Console.Write("Ganó el: " & cel1)
Case 2
Console.Write("Ganó el: " & cel2)
Case 3
Console.Write("Ganó el: " & cel3)
Case 4
Console.Write("Ganó el: " & cel4)
Case 5
Console.Write("Ganó el: " & cel5)
End Select
End Sub
End Module
--------------------------------------------------------------------------------------------------------------
7. Escriba una aplicación para calcular la nota final de un alumno, utilizando el sistema de evaluación de la materia programación I, crear una sola función que permita calcular la nota promedio de cada periodo
--------------------------------------------------------------------------------------------------------------
Module Module3
Sub main()
Dim nota1, nota2, nota3, prom1, prom2, prom3, final As Decimal
Console.WriteLine("Calcule la nota final de un alumno:")
Console.WriteLine()
Console.WriteLine("PERIODO 1")
Console.WriteLine("Ingrese nota 1")
nota1 = Console.ReadLine()
Console.WriteLine("Ingrese nota 2")
nota2 = Console.ReadLine()
Console.WriteLine("Ingrese nota 3")
nota3 = Console.ReadLine()
prom1 = prom(nota1, nota2, nota3)
Console.Clear()
'---------------------------------------------
Console.WriteLine("PERIODO 2")
Console.WriteLine("Ingrese nota 1")
nota1 = Console.ReadLine()
Console.WriteLine("Ingrese nota 2")
nota2 = Console.ReadLine()
Console.WriteLine("Ingrese nota 3")
nota3 = Console.ReadLine()
prom2 = prom(nota1, nota2, nota3)
Console.Clear()
'---------------------------------------------
Console.WriteLine("PERIODO 3")
Console.WriteLine("Ingrese nota 1")
nota1 = Console.ReadLine()
Console.WriteLine("Ingrese nota 2")
nota2 = Console.ReadLine()
Console.WriteLine("Ingrese nota 3")
nota3 = Console.ReadLine()
prom3 = prom(nota1, nota2, nota3)
Console.Clear()
Console.WriteLine("RESULTADOS")
Console.WriteLine()
Console.WriteLine("Periodo 1: " & prom1)
Console.WriteLine("Periodo 2: " & prom2)
Console.WriteLine("Periodo 3: " & prom3)
final = (prom1 + prom2 + prom3) / 3
Console.WriteLine()
Console.WriteLine("Nota final: " & FormatNumber(final, 1))
Console.ReadLine()
End Sub
--------------------------------------------------------------------------------------------------------------
Function prom(ByVal x As Decimal, ByVal y As Decimal, ByVal z As Decimal)
Dim total As Decimal
total = ((x * 0.25) + (y * 0.25) + (z * 0.5))
'cada promedio
'en este formato 25% + 25% de actividades y 50% de parcial.
Return FormatNumber(total, 1)
End Function
End Module
--------------------------------------------------------------------------------------------------------------
