evaluacion

BAJAR EVALUACION

Instrucciones de Dibujo en VB

Veamos un pequeño ejemplo de como utilizar algunas de las herramientas de dibujo que nos brinda visual basic

Option Explicit
Dim Color As Long
Dim p As Integer

Private Sub Command1_Click()
'Define el color rojo en la Picture1 
Color = RGB(255, 0, 0)
End Sub

Private Sub Command2_Click()
'Define el color rosa en la picture1
Color = RGB(255, 192, 203)
End Sub

Private Sub Command3_Click()
'Define el color negro en la Picture1 
Color = RGB(0, 0, 0)
End Sub

Private Sub Command4_Click() 
'Define el color amariyo en la Picture1 
Color = RGB(255, 255, 0)
End Sub

Private Sub Command5_Click()
'Define el grosor del puntero 
Picture1.DrawWidth = InputBox("Dame el grosor del puntero:", "Grosor")
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then 
Picture1.PSet (X, Y), Color 
End If 
If Button = 2 Then 
Picture1.PSet (X, Y), RGB(255, 255, 255) 
End If
End Sub

tp 6

Game of the gallows

Desarrollar el juego del ahorcado, aplicando diseños y puntares, Permitir 3 niveles (BÁSICO , 6 letras, MEDIO, 7 letras, AVANZADO, 8 letras)

Se tendrá en cuenta la lógica, el diseño y los recursos empleados, para su calificación

Fecha tope de entrega: 21 de Noviembre

tp 5

Sentencias de Control

1-     Realizar un programa que de como resultado la suma de los primeros 100 números naturales

2-     Realizar un programa que de como resultado la suma de los números naturales pares comprendidos entre a y b

3-     Realizar un programa que dé como resultado una tabla donde se especifique el cuadrado y el cubo de los n primeros números

         NUMERO      CUADRADO    CUBO

4-     Realizar un programa que de como resultado la suma y la media de un conjunto de números que se introducen por teclado. La entrada de datos finalizara por ejemplo cuando se ingrese el numero 9999

5-     Realizar un programa que de como resultado el mayor y el menor de un conjunto de números introducidos por teclado. La entrada debe finalizar al ingresar el numero 9999

6-     Realizar un programa que dibuje un triangulo de N filas. Empleando el carácter asterisco. Realice el programa utilizando

a)      FOR

b)      DO WHILE

*******

  *****

    ***

      *

Evaluacion

Fecha : 23 de Octubre

Lo que hay que saber
Para que se utilizan las funciones LEN, LEFT, RIGHT, MID
Que funcionan los ciclos FOR-NEXT, DO WHILE-LOOP
Principales propiedades de los Botones (caption, forecolor, font, passwordchar)
TEXTBOX
LABEL
LISTBOX
COMBOBOX
OPTIONBUTTON

Tipos de Variables
STRING, INTEGER, DOBLE, LONG, SINGLE

Instrucciones condicionales
IF THEN ELSE ENDIF
SELECT CASE - ENDCASE

Instrucciones para ingreso de valores
INPUTBOX

Random
RND()

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