Tp 4

Trabajo Practico funciones de cadenas de caracteres

1-     Escribir para que se utilizan y como se deben escribir las siguientes sentencias

LEN

LEFT

RIGHT

MID

2-     Hacer un programa que realice lo siguiente:

Ingresar una palabra, informe la cantidad de letras, muestre la primera y la ultima letra.

3-     Hacer un programa que pida el ingreso de una palabra y luego la imprima en forma vertical

4-     Ingresar una palabra (ejemplo : alegria) y luego imprimirla de la siguiente manera

Alegria

Alegri

Alegr

Aleg

Ale

Al

A

5-     Ingresar una palabra, y luego una letra. Indicar si la letra ingresada pertenece o no a la palabra. En el caso que pertenezca indicar en que posición esta

6-     Ingresar una frase y luego mostrar cuantas letras A tiene dicha frase.

7-     Idem anterior pero indicando la cantidad de Vocales que tiene la frase

8-     Ingresar una frase y luego separar las palabras una debajo de otra. ( por ejemplo: Hoy es un lindo día de sol)

HOY

ES

UN

LINDO

DIA

DE

SOL

9-     Para que se utilizan las funciones Lcase y Ucase

10- Para que se utilizan las funciones TRIM, LTRIM y RTRIM, dar ejemplos

TP 3

TP de Aplicación FOR – NEXT- RND DO WHILE

1-     Ingresar 10 números, luego mostrar cuantos son mayores a 20 y cuantos menores a 10.

Resolver haciendo el formulario y corrigiendo los posibles errores que se presentaran al ejecutar el programa

Dim x,a,c,m as integer

For x= 1 to 10

      Rem la siguiente línea permite ingresar un numero en una ventana

     A=inputbox(“ingrese numero”)

     Rem esta línea sirve para mostrar en una etiqueta el numero ingresado

     Label1= label1 & A & “          “ 

     If a>20 then

         C=c+1

           Endif

      Next x

      Label2= “ La cantidad de números mayores a 20 son “ & c

    

2-     Generar 100 números al azar entre 1 y 20, luego informar cuantos fueron iguales a 10

3-     Generar 500 números al azar entre 1 y 10, luego informar cuantos de cada uno se repitieron

4-      Ingresar números hasta que se  ingrese un cero, luego informar cuantos números se ingresaron, la suma de los números ingresados y el promedio

SELECT CASE

INSTRUCCIÓN SELECT CASE

---

También existen ocasiones o programas donde se exige evaluar muchas condiciones a la vez, en estos casos, o se usan una condición compuesta muy grande o se debe intentar convertir el problema a uno que se pueda resolver usando la instrucción SELECT CASE.

Esta instrucción, es una instrucción de decisión múltiple, donde el compilador prueba o busca el valor contenido en una variable contra una lista de constantes, cuando el computador encuentra el valor de igualdad entre variable y constante, entonces ejecuta el grupo de instrucciones asociados a dicha constante, si no encuentra el valor de igualdad entre variable y constante, entonces ejecuta un grupo de instrucciones asociados a un default, aunque este ultimo es opcional.

El formato de esta instrucción es el siguiente;

---

capturar o asignar variable de condición;

Select Case variableopcion

case const1 instrucción(es)

case const2 instrucción(es)

case const3 Instrucción(es)

…

Case Else instrucción(es);

End Select

Ejemplo

Private Sub Command1_Click()
Dim a As Integer
Dim b As String
Select Case List1.ListIndex
   Case 0
      a = 100
   Case 1
      a = 200
   Case 2
      a = 300
   Case 3
      a = 400
   Case 4
     a=500
End Select
 
  If Option1.Value = True Then
      a = a * 1.21
  End If
  Label1 = a
 
End Sub

Private Sub Form_Load()
List1.AddItem "Radio"
List1.AddItem "TV"
List1.AddItem "Cocina"
List1.AddItem "DVD"
List1.AddItem "PC"

End Sub

Ejercicios de Programación 2

Ejercicio 1

Ingresar la media de una distancia en KM y luego mostrar su equivalencia en Metros, Millas y Yardas

Millas= 0.6213 x KM

Yardas = Km * 1093

Ejercicio 2

Ingresar los tres lados de un triangulo y luego informar si es EQUILATERO, ESCALENO o ISOSCELES

Ejercicio 3

Ingresar en 3 textbox la hora, los minutos y los segundos, Luego mostrar el total de segundos equivalentes

Ejercicio 4

Utilizando TEXTBOX y OPTIONBUTTON aplicar colores al textbox, mediante el siguiente código

Text1.BackColor = vbRed

N = (Limsup - Liminf) * Rnd + Liminf

Tp Diagramacion nro 1

1) Ingresar dos números naturales y mostrar el menor o “iguales” en caso de quesean iguales.

2) Ingresar dos números naturales y mostrar el mayor o “iguales” en caso de que sean iguales.

3) Ingresar tres números y mostrar el mayor (asuma que los n° son distintos).

4) Ingresar tres números y mostrar el mayor y el menor (asuma que los n° son distintos).

5) Repita el ejercicio anterior pero utilizando el operador lógico Y en las condiciones para minimizar su cantidad.

6) Diseñar un algoritmo que imprima el número de docena (“primera”, “segunda” o“tercera”) dado el resultado de una jugada de ruleta. Utilizar el operador lógico Y.

7) Diseñar un algoritmo que imprima “par” si el valor ingresado es 2, 4, o 6; “impar” si es 1, 3, o 5; y en cualquier otro caso “error”. Utilizar el operador lógico O.

8) Diseñar un algoritmo que, dado un número, imprima “válido” si está entre 0 y 10 e“inválido” si es mayor a 10 o menor a cero.

a. Resolver el ejercicio con el operador lógico Y.

b. Resolver el ejercicio con el operador lógico O.

9) Una empresa desea calcular los nuevos salarios de sus empleados de la siguiente forma: quienes ganan hasta $ 500.000 tendrán un incremento del 10%, quienes devengan más de $ 500.000 y hasta 800.000 recibirán un aumento del 8% y los demás del 5%. ¿Cuál será el valor del aumento? ¿Cuál será el valor del nuevo sueldo? Dato de entrada: sueldo.

Programación Orientada a Objeto

Entrar a VISUAL BASIC

FINAL de ACCESS

BAJAR EVALUACION