E-Portafolio: 2014

viernes, 21 de noviembre de 2014

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

GUIA PRACTICA #11

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

jueves, 20 de noviembre de 2014

GUÍA PRACTICA #10

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

domingo, 12 de octubre de 2014

GUÍA PRÁCTICA #9

ESTRUCTURAS DE CONTROL EN VB .NET

Objetivos:

 Practicar las estructuras de control de selección

 Practicar las estructura de control de repetición

1. Capturar por teclado la cantidad vendida y si la venta supera los 25,000 imprimir el mensaje meta superada.

2. Capturar la edad de una persona, determinar e imprimir si es o no mayor de edad. (mayoría de edad 18 años)

3. Capturar el nombre y sueldo de un empleado, si el empleado posee un sueldo menor a 400 realizar un aumento del 10% y si el sueldo es superior realizar un aumento del 5%, mostrar el nuevo sueldo.

4. Capturar el número de minutos de duración de una llamada y calcular costo a pagar de acuerdo a la zona donde se realizó la llamada, zona occidental 0.30 el minuto, zona central 0.27 el minuto y zona oriental 0.36 el minuto.

5. Capturar el nombre, edad y sexo de una cantidad de personas especificadas por teclado, calcular e imprimir cuantos de los capturados son mujeres y cuantos son hombres y la sumatoria de ambos.

GUÍA PRACTICA #8

INTRODUCCIÓN AL IDE DE VS .NET Y AL DESARROLLO DE
APLICACIONES DE CONSOLA EN VISUAL BASIC .NET

Objetivos:

 Identificar las distintas partes del IDE

 Hacer uso del IDE, para crear aplicaciones de consola

 Depurar y ejecutar aplicaciones

 Crear aplicaciones de consola en Visual Basic .NET

 Identificar la estructura de una aplicación de consola

 Practicar los miembros principales de las clases Console y String

1. Crear una aplicación que imprima en pantalla su nombre completo.

2. Elaborar una aplicación que almacene en variables el nombre de su mascota, especie y edad; y luego las muestre en pantalla.

3. Elaborar una aplicación que capture un número entero positivo y que muestre la raíz cuadrada del número.

4. Crear una aplicación que capture por teclado el nombre y la cantidad invertida por 3 empresarios, que muestre el nombre, cantidad invertida y el porcentaje de inversión que corresponde a cada uno.

5. Crear una aplicación que capture el nombre del empleado y el sueldo, luego que limpie pantalla y muestre en color azul el nombre del empleado y el sueldo, y en color amarillo los descuentos de ISSS, Renta y AFP, y en color rojo el sueldo a pagar. Formatear las cantidades numéricas y monetarias.

6. Elaborar una aplicación para capturar el nombre de una persona y luego sustituir las vocales que posea de la siguiente manera (* por a, % por e, $ por i, # por o, / por u) y mostrar el nuevo nombre.

domingo, 31 de agosto de 2014

GUÍA PRACTICA #5

INTRODUCCIÓN A LOS DIAGRAMA DE FLUJOS (DIAGRAMAS DE FLUJO)

Objetivo: practicar la creación de diagramas de flujo los cuales incluyen entrada, proceso y salida de datos.

1. Escriba un algoritmo tal que dado como datos dos números reales, calcule la suma, resta y multiplicación de dichos números.

3. En una casa de cambio necesitan construir un programa tal que dado como dato una cantidad expresada en dólares, convierta esa cantidad a euros. Construya el algoritmo correspondiente.

5. Una persona invierte en un banco una determinada cantidad de dinero y a una cierta tasa de interés mensual. Construya un algoritmo que permita obtener el monto del dinero que obtendrá al finalizar el mes.

7. La misma empresa comercializadora de vehículos XGW ofrece planes de financiamiento hasta 36 meses con una prima del 35%, pero aplicando al saldo restante una tasa de interés global del 12%. Construya un algoritmo que permita obtener tanto el importe de la prima como el de las mensualidades que debe pagar el cliente.

9. Construya un algoritmo tal que dado el radio de una esfera, calcule e imprima el área y su volumen.

GUÍA PRACTICA #4

INTRODUCCIÓN A LOS ALGORITMOS (PSEUDOCÓDIGO)

Objetivo: practicar la creación de algoritmos en pseudocódigo resolviendo problemas que incluye la entrada, proceso y salida de datos.

Indicaciones: a continuación se presenta una serie de problemas cuyas fórmulas para resolverlos están contenidas en el capítulo 6 del libro Metodología de la programación de Osvaldo Cairó, para dichos algoritmos, todos los datos deberán ser capturados por teclado.

1. Escriba un algoritmo tal que dado como datos dos números reales, calcule la suma, resta y multiplicación de dichos números.

3. En una casa de cambio necesitan construir un programa tal que dado como dato una cantidad expresada en dólares, convierta esa cantidad a euros. Construya el algoritmo correspondiente.

9. Construya un algoritmo tal que dado el radio de una esfera, calcule e imprima el área y su volumen.

11. Construya un algoritmo tal que dadas las coordenadas de los puntos P1, P2 y P3 que corresponden a los vértices de un triángulo, calcule el perímetro.

GUÍA PRACTICA #3

ARITMÉTICA BINARIA

Objetivo: practicar la suma, resta, multiplicación y división de números binarios.

Indicaciones: resuelva cada uno de los problemas que se le presentan a continuación.

1) Realice las siguientes sumas binarias:

a) 101110 + 101011

101110

101011

1011001

b) 110101 + 111101

110101

111101

1110010

c) 1011 + 10101 + 110

1011

10101

110

100110

d) 1111011 + 1000011 + 1011

1111011

1000011

1011

11001001

e) 1011100 + 10101010 + 1011

1011100

10101010

1011

100010001

2) Reste los siguientes números binarios (sin usar complementos a la base):

a) 1111 - 1010

1111

1010

0101

b) 1001 - 101

1001
101
0100

c) 11001 - 111

11001
111
10010

3) Utilice complemento a 1 para efectuar estas restas binarias:

a) 1101 - 110 = 101

1101

- 0110

Se convierte a complemento 1:

1101

+ 0001

1100

100

+ 1

101

e) 101011 - 11101 = 1110

101011

- 011101

Se convierte a complemento 1:

101011

+ 100010

1001101

001101

+ 1

001110

f) 111001 - 1111 = 101010

111001

- 001111

Se convierte a complemento 1:

111001

+ 110000

1101001

101001

+ 1

101010

miércoles, 27 de agosto de 2014

GUÍA PRACTICA # 2.2

CONVERSIÓN ENTRE DIFERENTES BASES DE NÚMERACION

Objetivo: Practicar la conversión entre diferentes bases de númeracion.

Indicaciones: Resuelva cada uno de los problemas que se le presentan a continuación.

1. Convertir de binario a decimal.

c) 110101,110

110101=2⁵+2⁴+2²+2⁰
^{=32+16+4+1=53}

^,110=^{2^-1+2^-2}
^{= 0.5+0.25=0.75}

R// 53.75

2. Convertir de decimal a binario: (utilizar suma de pesos)

c. 873.85

^{La potencia de 2 mas cercana de 873 es 512 (2 a la 9°, decimo bit) 873-512=361}
^{La potencia de 2 mas cercana de 361 es 256 (2 a la 8°, noveno bit) 361-256=105}
^{La potencia de 2 mas cercana de 105 es 64 (2 a la 6°, septimo bit) 105-64=41}
^{La potencia de 2 mas cercana de 41 es 32 (2 a la 5°, sexto bit) 41-32=9}
^{La potencia de 2 mas cercana de 9 es 8 (2 a la 3°, cuarto bit) 9-8=1}
^{La potencia de 2 mas cercana de 1 es 1 (2 a la 0, primer bit) 1-1=0}

^{^{2⁹
2⁸ 2⁷ 2⁶ 2⁵ 2⁴ 2³
2² 2¹ 2⁰}}

^{^{1   1   0 1 1 0   1 0 0 1   = 873}}

^{La potencia de 2 mas cercana de 0.85 es 0.50 (2 a la 1°, primer bit) 0.85-0.50=0.35}
^{La potencia de 2 mas cercana de 0.35 es 0.25 (2 a la 2°, segundo bit) 0.35-0.25=0.10}
^{La potencia de 2 mas cercana de 0.1 es 0.0625 (2 a la 4°, cuarto bit) 0.1-0.0625=0.0375}

3. Convertir de binario a octal:

b) 1101011,011

1    101 011 ,011
|     | |    |
1    5 3       1

4. Convertir de octal a binario:

b. 5073

5    0 7    3
|       |       |       |
101   000   111    011

5. Convertir de hexadecimal a decimal:

b. F1AE

     F          1        A        E
     |        |      |         |
1111 0001    1010    1110 = 2^{15 +}2¹⁴ +2^{13 +}2¹² +2⁸ +2⁷ +2⁵ +2³ +2²+2¹=32768+16384+8192+4096+256+128+32+8+4+2=

61870₁₀

6. Convertir de hexadecimal a binario:

b. FD47

F D 4 7
| | | |
1111 1101 0100 0111

7. Convertir de octal a hexadecimal:

c. 364.75

8. Convertir de hexadecimal a octal:

c) F1F0

F 1 F 0
| | | |
17 1 17 0

9. Convertir de base 4 a base 6:

a. 320 = 132

Se convierte primero a base 10 con la notación polinomial y luego se divide el resultado al numero de la base a convertir, en este caso 6.

( 3 x 4²) + ( 2 x 4¹) + ( 0 x 4⁰) = 56₁₀

56/6 = 9, residuo = 2

9/6 = 1, residuo = 3
1/6 = 0, residuo = 1

viernes, 21 de noviembre de 2014

FORMULARIOS WINDOWS

ARREGLOS EN VISUAL BASIC .NET

jueves, 20 de noviembre de 2014

PROCEDIMIENTOS Y FUNCIONES EN VB .NET

domingo, 12 de octubre de 2014

ESTRUCTURAS DE CONTROL EN VB .NET

INTRODUCCIÓN AL IDE DE VS .NET Y AL DESARROLLO DEAPLICACIONES DE CONSOLA EN VISUAL BASIC .NET

domingo, 31 de agosto de 2014

INTRODUCCIÓN A LOS DIAGRAMA DE FLUJOS (DIAGRAMAS DE FLUJO)

INTRODUCCIÓN A LOS ALGORITMOS (PSEUDOCÓDIGO)

ARITMÉTICA BINARIA

miércoles, 27 de agosto de 2014

CONVERSIÓN ENTRE DIFERENTES BASES DE NÚMERACION

INTRODUCCIÓN AL IDE DE VS .NET Y AL DESARROLLO DE
APLICACIONES DE CONSOLA EN VISUAL BASIC .NET