Clases practicas

Guías de clases.
II-Computo
Guía de insertar Status strip

Guia de insertar el Tool Strip

Ejercicio con Combo Box

Formularios MDI

Codigo:

Formularios Hijos:

1- Computo

1. El dueño de una tienda compra un articulo a un precio determinado. Calcular el precio de venta para obtener una ganancia del 30%.
Código

















Ejecución

2. En un día de triple saldo, un cliente Tigo desea saber cuanto es su saldo disponible, su saldo triplicado y la cantidad de minutos que llamaría a redes Tigo con el saldo triplicado, conociendo el precio por minuto.

Código

Ejecución

3. Un vendedor recibe un sueldo base, mas un 15% de comisiones sobre el monto de sus ventas mensuales. El vendedor desea saber cuanto de dinero ganara en el mes de Julio por comisiones y sueldo liquido.

Otras Prácticas.

Este es el código de un programa que visualiza la nota promedio de un curso de estudiantes:

Código:

Module Module1

    Sub Main()

        Dim cadena, nombre, msg, texto, nuevotexto, mayus, minus As String

        Dim opcion, longitud As String

        Console.WriteLine("En el siguiente menú elija una opcion" & vbCrLf)

        Console.WriteLine("1- Concatenar cadenas")

        Console.WriteLine("2- Conocer longitud")

        Console.WriteLine("3- Convertir Mayusculas")

        Console.WriteLine("4- Convertir Minusculas")

        Console.WriteLine("5- Reemplazar elementos en una cadena")

        Console.WriteLine("6- Eliminar elementos")

        opcion = Console.ReadLine

        Select Case opcion

            Case 1

                Console.WriteLine("Ingrese un nombre")

                nombre = Console.ReadLine

                Console.WriteLine("Ingrese un mensaje")

                msg = Console.ReadLine()

                cadena = nombre + " " + msg

                Console.WriteLine("1- Resultado: " & cadena)

                Console.ReadLine()

            Case 2

                Console.WriteLine("Ingrese un texto")

                texto = Console.ReadLine

                longitud = MsgBox(texto.Length)

                Console.WriteLine("La longitud del texto es de: " & longitud)

                Console.ReadLine()

            Case 3

                Console.WriteLine("Ingrese un texto en minusculas")

                texto = Console.ReadLine

                mayus = UCase(texto)

                Console.WriteLine("El texto en mayusculas es: " & mayus)

                Console.ReadLine()

            Case 4

                Console.WriteLine("Ingrese un texto en MAYUSCULAS")

                texto = Console.ReadLine

                minus = LCase(texto)

                Console.WriteLine("El texto en minusculas es: " & minus)

                Console.ReadLine()

            Case 5

                Console.WriteLine("Ingrese un texto")

                texto = Console.ReadLine

                Console.WriteLine("Ingresar un nuevo texto")

                nuevotexto = (Replace(texto, "a", "x"))

                Console.WriteLine("El nuevo texto es: " & nuevotexto)

                Console.WriteLine("El texto antiguo es: " & texto)

                Console.ReadLine()

            Case 6

                Console.WriteLine("Ingrese un texto")

                texto = "Me gusta la programacion en Visual Basic"

                Console.ReadLine()

                Console.WriteLine("Ingrese un nuevo texto")

                nuevotexto = Console.ReadLine

                nuevotexto = texto.Remove(0, 2)

                Console.WriteLine("Nuevo texto es: " & nuevotexto)

                Console.ReadLine()

            Case Else

                Console.WriteLine("No es una opcion en el menu")

        End Select

    End Sub

End Module