Practica 02 Taller de Programacion 121226180145 Phpapp02 130910205321 Phpapp02

  • View
    6

  • Download
    1

Embed Size (px)

Transcript

  • Ing. Hobby Saavedra Rosas Visual Basic .Net

    PRCTICA 4: TALLER DE PROGRAMACIN VISUAL BASIC .NET

    1. Realice la siguiente el siguiente diseo de formulario, el cual permita calcular, la velocidad a la

    cual viaja un automvil.

    Los controles usados son los siguientes:

    Control Nombre

    Labels lblResultado lblVelUnidades

    TextBox txtEspacio txtTiempo

    TrackBar trbVelocidad

    Button btnCalcular btnLimpiar btnAyuda

    2. Elaborar el siguiente diseo de formulario, el cual te permitir generar un pedido.

  • Ing. Hobby Saavedra Rosas Visual Basic .Net

    3. En una empresa el sueldo bsico de los trabajadores es en base a la categora que tienen:

    4. Cuando un cliente se acerca a comprar 1 kilo de arroz a una tienda se da cuenta de lo

    siguiente: el arroz se venda en tres presentaciones: bolsa, lata y vidrio. El kilo de arroz en

    bolsa cuesta 10 soles, en lata cuesta 12 soles y el vidrio cuesta 16 soles. Desarrolle un

    algoritmo que permita calcular y mostrar cuanto pagar el cliente si se sabe que:

    Total a pagar = Precio * Cantidad

  • Ing. Hobby Saavedra Rosas Visual Basic .Net

    5. En un hotel los costos por da de las habitaciones son de acuerdo al tipo, segn la tabla:

    6. Desarrollar un algoritmo que permita calcular y mostrar la suma de los n primeros nmeros en

    la siguiente progresin, deber ingresar el lmite de nmeros a sumar.

    S = 2 + 4 + 6 + 8 +... + n

    7. Se ingresarn 30 nmeros (asumir que todos son positivos), determinar cuntos fueron pares

    y cuantos fueron impares. Usar la funcin Random para generar los nmeros.

    ListBox1.Items.Add(Str(Math.Round(Rnd() * 100, 0)))

  • Ing. Hobby Saavedra Rosas Visual Basic .Net

    8. Disear un algoritmo que permita ingresar 100 nmeros y que permita mostrar al final

    cuantos de los nmeros ingresados fueron positivos, cuantos fueron negativos y cuantos

    fueron cero, adems se deber mostrar las suma de ellos en cada caso.

    Para generar los nmeros use las siguientes lneas de cdigo.

    ListBox1.Items.Clear()

    For i = 1 To 100

    If (Rnd() * 50 > i) Then

    ListBox1.Items.Add(Str(Math.Round(Rnd() * 100, 0)))

    Else

    ListBox1.Items.Add(Str(-Math.Round(Rnd() * 100, 0)))

    End If

    Next i

    9. Realizar un algoritmo que permita que permita leer los datos de 100 alumnos (Num_Seccin y

    Sexo), luego calcule y muestre:

    Total de varones por cada seccin, Total de mujeres por cada seccin.

    Total general de varones, Total general de mujeres.

    Se sabe que solo existen 3 secciones: 1, 2 y 3

    Para el sexo: H = varones y M = mujeres

  • Ing. Hobby Saavedra Rosas Visual Basic .Net

    Cdigo fuente.

    Public Class Form2 Dim CN As Byte Dim i As Byte Dim TVS1 As Byte Dim TVS2 As Byte Dim TVS3 As Byte Dim TMS1 As Byte Dim TMS2 As Byte Dim TMS3 As Byte Dim TGV As Byte Dim TGM As Byte Private Sub CmdSalir_Click()

    If MsgBox("Desea salir?", vbInformation + vbYesNo, "SALIDA") = vbYes Then End End If

    End Sub Private Sub cmdgenerar_Click ListBox1.Items.Clear() ListBox2.Items.Clear()

    For i = 1 To 100 ListBox1.Items.Add(Str(Math.Round(Rnd() * 2 + 1, 0))) If (Math.Round(Rnd() * 1 + 1, 0) = 1) Then ListBox2.Items.Add("H") Else ListBox2.Items.Add("F")

    End If Next i

    End Sub Private Sub cmdnuevo_Click

    ListBox1.Items.Clear() ListBox2.Items.Clear() TextBox1.Text = 0 : TextBox2.Text = 0 : TextBox3.Text = 0 : TextBox4.Text = 0 : TextBox5.Text = 0 : TextBox6.Text = 0 : TextBox7.Text = 0 : TextBox8.Text = 0

    End Sub Private Sub cmdprocesar_Click

    Dim sc, sx As String

    TVS1 = 0 : TVS2 = 0 TVS3 = 0 : TMS1 = 0 TMS2 = 0 : TMS3 = 0 TGV = 0 : TGM = 0 : CN = 0 Do While (CN < 100) CN = CN + 1 SC = Trim(ListBox1.Items(CN - 1)) SX = Trim(ListBox2.Items(CN - 1)) If (SC = "1") Then

    If (SX = "H") Then TVS1 = TVS1 + 1 Else TMS1 = TMS1 + 1 End If

    Else If (SC = "2") Then If (SX = "H") Then TVS2 = TVS2 + 1 Else TMS2 = TMS2 + 1

  • Ing. Hobby Saavedra Rosas Visual Basic .Net

    End If Else

    If (SX = "H") Then TVS3 = TVS3 + 1 Else TMS3 = TMS3 + 1 End If

    End If End If Loop TGV = TVS1 + TVS2 + TVS3 TGM = TMS1 + TMS2 + TMS3 TextBox1.Text = TVS1 : TextBox2.Text = TVS2 TextBox3.Text = TVS3 : TextBox4.Text = TMS1 TextBox5.Text = TMS2 : TextBox6.Text = TMS3 TextBox7.Text = TGV : TextBox8.Text = TGM

    End sub

    10. Se van a ingresar dos notas de 100 alumnos, deber hallar el promedio y almacenarlo en un arreglo; una vez

    realizado ello, tendr que recorrer el arreglo y determinar cuntos alumnos aprobaron y cuantos desaprobaron.

    Cdigo fuente

    Dim X(0 To 19) As Integer

    Dim N1 As Byte

    Dim N2 As Byte

    Dim PR As Single

    Dim AP As Integer

    Dim DS As Integer

    Private Sub cmdgenerar_Click

    DataGridView1.RowCount = 2

    For i = 0 To 19

    N1 = Rnd() * 20

    N2 = Rnd() * 20

    PR = Format((N1 + N2) / 2, 0.0#)

    DataGridView1.Item(0, i).Value = N1

    DataGridView1.Item(1, i).Value = N2

    DataGridView1.Item(2, i).Value = PR

    X(i) = PR

    DataGridView1.RowCount = DataGridView1.RowCount + 1

    Next i

    End Sub

  • Ing. Hobby Saavedra Rosas Visual Basic .Net

    Private Sub cmdprocesar_Click

    AP = 0

    DS = 0

    For i = 0 To 19

    If (X(i) > 10) Then

    AP = AP + 1

    Else

    DS = DS + 1

    End If

    Next i

    TextBox1.Text = AP

    TextBox2.Text = DS

    End Sub

    Private Sub cmdNuevo_Click

    DataGridView1.RowCount = 1

    TextBox1.Text = 0

    TextBox2.Text = 0

    End Sub

    11. Desarrolle un algoritmo que permita ingresar 100 nmeros, en un arreglo X se debern ir

    almacenando aquellos que son mltiplos de 3; finalmente ordenar el arreglo.

  • Ing. Hobby Saavedra Rosas Visual Basic .Net

    12. Desarrolle un algoritmo que permita ingresar: tres notas(nota de prctica, nota de trabajo y

    examen parcial) de 100 alumnos a una matriz bidimencional, en la misma se deber ir

    calculando el promedio y a medida que se va operando se deber mostrar un mensaje:

    aprobado o desaprobado.

    Ej: 13, 15, 14.................... 14.......... Aprobado

  • Ing. Hobby Saavedra Rosas Visual Basic .Net