Introducción a .NET

Programa Final

Elabora un programa que solicite la edad del usuario, si es menor de edad, mostrar, plan infantil, y muestre una lista de 5 películas infantiles, Mostrar la edad, la película y la hora de la película.

Si es mayor de edad, listar el tipo de película, (acción, drama, terror), según el tipo de película listar el nombre de 3 películas por tipo. Las películas tienen horario de 24 horas, si el usuario ve la película después de las 18 horas, tiene un costo de $8500; Mostrar de cada usuario el tipo de película, el nombre de la película, la hora en que el usuario verá la película y el valor.

Semáforo

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Label1.Text = DateTime.Now.ToString("M/d/yyyy")
        Label2.Text = DateTime.Now.ToString("h:mm tt")
        Label3.Text = DateTime.Now.ToString("M/d/yyyy h:mm tt")

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Oval2.BackColor = Color.OrangeRed
        Oval1.BackColor = Color.Black

        Pictpasa.Visible = False

        Timer1.Enabled = False
        Timer2.Enabled = True


    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Oval2.BackColor = Color.Black
        Oval3.BackColor = Color.Green

        Timer2.Enabled = False
        Timer3.Enabled = True


    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        Oval3.BackColor = Color.Black
        Oval2.BackColor = Color.OrangeRed

        Timer3.Enabled = False
        Timer4.Enabled = True

    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        Oval2.BackColor = Color.Black
        Oval1.BackColor = Color.Red

        Pictpasa.Visible = True

        Timer4.Enabled = False
        Timer1.Enabled = True



    End Sub

Montar en drive

Práctica 4 (Tienda)
Factura de llamadas (práctica 2)
Descuento (bola de color)
Taller de Introducción (práctica 1)


Serie Fibonacci

Dim ant As Integer = 0
Dim pos As Integer = 1
Dim suma As Integer

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


While suma < 100

         combo.Items.Add(suma)

         ant = pos
         pos = suma
         suma = ant + pos

End While

End Sub


Práctica 4

En una tienda se requiere sistematizar sus ventas:

- 1. Registro de ventas
- 2. Consultar las ventas por producto
- 3. Ventas totales del día.

Antes de realizar la venta se le solicita al cliente su nombre y apellido.

Para el registro de ventas, solo se venden los siguientes productos: Mostrar la imagen de cada producto

- mecato $500
- gaseosa $1200
- papitas $800
- pasteles &750
- tinto $500
- confites $200

Se solicita la cantidad y se muestra el valor del producto, el cliente puede llevar varios productos

Mostrar el total a pagar por el cliente.

Para consultas. Se digita el código del producto y se visualiza:

el nombre del producto.
su valor unitario
cantidad de productos vendidos
valor vendido

Para las ventas totales. se muestra el valor vendido de todos los productos.

Práctica 3

Diseñar el entorno y respuesta a las siguientes necesidades de usuario.

1.       Calcular el peso promedio de 10 personas

2.       Elaborar un programa para calcular el promedio final de la materia de algoritmos. Dicha calificación se compone de los siguientes porcentajes.

33% -----del promedio final de las 3 notas del desempeño

33% ----- de la calificación del conocimiento

34% ----- de la calificación del final

3.       Elaborar un programa  que obtenga e imprima el valor de y a partir de la ecuación.Y= 8*x² + 56x - 15

4.    Realizar un programa que calcule el total del sueldo que recibirá un empleado, teniendo en cuenta que recibirá bonificación por la cantidad de años laborados en la empresa. Los porcentajes de bonificación son:

a.       Menos de 5 años 10%

b.       De 5 años hasta 10 años 20 %

c.       Más de 10 años el 30 %

Práctica 2

https://drive.google.com/file/d/0B_6-JwZLL1bbSHV1WTloVEJMTzQ/view?usp=sharing

Documento

https://drive.google.com/file/d/0B_6-JwZLL1bbbG1BZzdVdlhmbkk/view?usp=sharing


Práctica 1

https://drive.google.com/file/d/0B_6-JwZLL1bbN2tYam9mU2pNdmM/view?usp=sharing