Ejercicios para clases Visual Basic 6.0 + link descarga

Primeros ejercicios de Visual Basic 6.0
Link para descargar abajo:

Link para descargar Visual Basic portable

Primer Ejercicio Visual Basic

“Tomar 2 valores numéricos y efectuar la resta del mayor menos el menor, de manera que el resultado siempre sea positivo”

NOTA: Es recomendable crear una carpeta por cada proyecto a realizar, debe tomarse en cuenta además, que por muy sencillo que sea un programa este estará grabado como un proyecto y un formulario.

a) Entrar a Visual Basic

b) Abrir un nuevo proyecto

c) Reconozca el formulario, esta será su “Pantalla de presentación”

d) Caption del formulario: “Mi Primer Programa”

e) Name del Formulario: frmprimero. Esta propiedad va a representar como el nombre de la variable cuando se vaya a modificar

f) Hacer un Click en el Botón de Control Label de la Caja de Herramientas, dibujar un área rectangular dentro del Formulario, este control debe mirarse como un PRINT de un título en la Programación Estructurada.

g) Introducir 2 Control Label adicionales debajo del primero introducido.

h) Para el primer control: Name: lblvalor1, Caption: Primer Valor. Para el segundo control: Name: lblvalor2, Caption: Segundo Valor . Para el tercer control: Name: lblresultado, Caption: El resultado es.

i) Agregar 2 TextBox al lado de los Control Label, Name: txtvalor1 y txtvalor2. Colocar en blanco la propiedad Text de cada uno. Agregar un tercer TextBox con Name: txtresult y propiedad text en blanco.

j) Ejecutar el Programa solamente para ver el producto generado hasta el momento.

k) Ahora agregar un CommandButton con Caption “Calcular Resultado” y Name “cmdcalcular”

l) Doble Click sobre el area del CommandButton, agregar las siguientes líneas de código:

Private Sub cmdcalcular_Click0

If Val(txt1.Text)>Val(txt2.Text) Then

lbltotal.caption=val(txt1.Text) – val(txt2.Text)

End If

If val(txt2.text)>val(txt1.text) then

Lbltotal.caption = val(txt2.text) – val(txt1.text)

End if

End Sub

Nota: Sólo escribir las instrucciones ejecutables, los encabezados como se nota aparecen automáticamente.

m)

Grabe su proyecto con el nombre Ejemplo1, anote los pasos

Link para descargar Visual Basic portable

· Ejercicio 1: Modificar el Proyecto anterior de manera que el fondo del formulario aparezca en rojo, los fondos de cada botón en azul y sustituir el tercer txtControl por un lblControl.

· Ejercicio 2: Agregar un CommandButton cuya cara muestre el título “FINALIZAR”, agregue el código asociado al evento Click de ese Botón

· Ejercicio 3: Modificar el Formulario de manera que la ejecución del Proyecto se realice de manera maximizada. Propiedad Windows state – Maximized (2)

· Ejercicio 4: Bloquear los botones de control del Formulario, de manera que la ventana no se pueda minimizar, solo cerrar. Propiedad MinButton – false

· Ejercicio 5: Quitar la barra de títulos y los botones de control, luego volverlos a restablecer. Border style

Link para descargar Visual Basic portable

SEGUNDO EJERCICIO

Ejemplo 2: Minicalculadora elemental

En este ejemplo se muestra una calculadora elemental

que permite hacer las cuatro operaciones aritméticas

(Figura 1.3). Los ficheros de este proyecto se pueden

llamar minicalc.vbp y minicalc.frm.

El usuario introduce los datos y clica sobre el

botón correspondiente a la operación que desea

realizar, apareciendo inmediatamente el resultado en la

caja de texto de la derecha.

La Tabla 1.3 muestra los objetos y las propiedades más importantes de este ejemplo.

Link para descargar Visual Basic portable

TERCER EJERCICIO

Ejemplo 3: Sencillo programa de colores y posiciones

En la Figura 1.2 se muestra el formulario y los controles de un ejemplo muy sencillo que permite

mover una caja de texto por la pantalla, permitiendo a su vez representarla con cuatro colores diferentes.
En la Tabla 1.2 se describen los controles utilizados, así como algunas de sus propiedades más importantes (sobre todo las que se separan de los valores por defecto). Los ficheros de este proyecto se llamarán Colores0.vbp y Colores0.frm. Figura 1.2. Formulario y controles del Ejemplo 1.1.



Capítulo 1: Introducción página 7





A continuación se muestra el código correspondiente a los procedimientos de este ejemplo.

 



Sobre este primer programa en Visual Basic 6.0 se pueden hacer algunos comentarios:

1. El comando Option Explicit sirve para obligar a declarar todas las variables que se utilicen.

Esto impide el cometer errores en los nombres de las variables (confundir masa con mesa, por

ejemplo). En este ejemplo esto no tiene ninguna importancia, pero es conveniente

acostumbrarse a incluir esta opción. Declarar una variable es crearla con un nombre y de un

tipo determinado antes de utilizarla.

2. Cada una de las partes de código que empieza con un Private Sub y termina con un End Sub

es un procedimiento, esto es, una parte de código independiente y reutilizable. El nombre de

uno de estos procedimientos, por ejemplo optAzul_Click(), es típico de Visual Basic. La

primera parte es el nombre de un objeto (control); después va un separador que es el carácter

de subrayado (_); a continuación el nombre de un evento -click, en este caso-, y finalmente

unos paréntesis entre los que irían los argumentos, en caso de que los hubiera.

ESIISS: Aprenda Visual Basic 6.0 como si estuviera en Primero página 8

3. Es también interesante ver cómo se accede desde programa a la propiedad backColor de la

caja de texto que se llama txtCaja: se hace utilizando el punto en la forma txtCaja.BackColor.

Los colores se podrían también introducir con notación hexadecimal (comenzando con &H,

seguidos por dos dígitos entre 00 y FF (es decir, entre 0 y 255 en base 10) para los tres colores

fundamentales, es decir para el Red, Green y Blue (RGB), de derecha a izquierda. Aquí se

han utilizado las constantes simbólicas predefinidas en Visual Basic 6.0: vbRed, vbGreen y

vbBlue (ver Tabla 6.1, en la página 69).

4. Recuérdese que si se desea que el código de todos los eventos aparezca en una misma ventana

hay que activar la opción Default to Full Module View en la solapa Editor del comando

Tools/Options. También puede hacerse directamente en la ventana de código con uno de los

botones que aparecen en la parte inferior izquierda ( ).

5. Es muy importante crear primero el control frame y después, estando seleccionado, colocar

los botones de opción en su interior. No sirve hacerlo a la inversa. Visual Basic supone que

todos los botones de opción que están dentro del mismo frame forman parte del mismo grupo

y sólo permite que uno esté seleccionado.

Link para descargar Visual Basic portable

CUARTO EJERCICIO VB

Realiza un programa en Visualbasic, teniendo como datos de entrada los 3 números que tenga cómo resultado lo siguiente:

A) Resta de 3 números (1).

B) Determine cual es el menor de los 3 números y exprésalo en una respuesta

C) Colocar los nombres y caption correctos de los objetos.

D) Colocar una imagen de Fondo con el tamaño del Formulario, dejar sólo el Botón de Cerrar y ejecutar maximizado.

E) Botones “Salir”, “Borrar Información” y “Borrar Números”.

F) Cambiar la fuente y Fondo de los Commandbutton.

G) Cambiar el color de los Label con Fuente Tahoma 16 ptos cursiva estilo de fondo. Los resultados en Comic Sans Ms 18 ptos.

H) Cambiar el color de los Textbox con Fuente Verdana 16 ptos negrita.



I) Organizar y administrar el diseño del Formulario de acuerdo a la calidad visual. Ejm: centrar los objetos etc…   

Link para descargar Visual Basic portable

El Cuarto Programa en Visual Basic

Hacer un proyecto que muestre una Pantalla como la siguiente:

Además muestre una figura alusiva a la comida elegida por el usuario.

El proyecto paso a paso:

1) Crear carpeta llamada Ejemplo2

2) Abrir un nuevo proyecto

3) Modificar las propiedades Name y Caption del Formulario (frmcomidas y Comidas rápidas respectivamente)

4) Agregar 3 OptionButtons, cambiar las propiedades Name de estos 3 botones para que digan pothambur, optperro y optpepito respectivamente, y cambiar las propiedades Caption de estos 3 botones de manera que muestren los títulos: Hamburguesa, Perro y Pepito respectivamente.

5) Agregas 2 CommandButtons con Name cmdlimpiar y cmdsalir respectavimente, y Caption: Limpiar Mesa y Salir del Restaurant respectivamente.

6) Agregar 3 image Buttons como Imagen 1, Imagen 2 e Imagen 3 respectivamente.

7) Cambiar la propiedad Picture de cada Imagen y buscar una figura respectivamente de cada comida, también cambiar la propiedad Stretch que está debajo de Picture colocarlo en TRUE si no consigue tal figura coloque cualquiera en concordancia con su instructor.

8) Doble click en el OptionButton Hamburguesa, en el código escribir:



Prívate Sub opthambur_Click()

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

End sub









9) Doble click en el OptionButton Perro, en el código escribir:



Private Sub optperro_Click0

Image1.Visible = False

Image2.Visible = True

Image3.Visible = False

End sub



10) Doble click en el OptionButton Pepito, en el código escribir:



Private Sub optpepito_Click()

Image1.Visible = False

Image2.Visible = False

Image3.Visible = True

End sub



11) Doble click en el CommandButton Liampiar mesa, en el código escribir:



Private Sub CMDLIMPIAR_Click(Index As integer)

Opthambur.Value = False

Optperro.Value = False

Optpepito.Value = False

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

End sub



12) Doble click en el CommandButton Salir del Bar, en el código escribir:



Private Sub cmdSALIR_Click0

End

End sub



13) Doble click en el area del Formulario, en el código escribir:



Private Sub Form_Load()

Opthambur.Value = False

Optperro.Value = False

Optpepito.Value = False

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

End sub


14) Ejecutar y guardar el Proyecto como Cómida_Rápida Nombre y Apellido (Abreviado)

15) Agregamos un comandbutton de nombre: cmdprecio y caption: Totalizar o Precio a pagar.

16) Hacemos doble click en el comandbutton Totalizar e introducir los códigos necesarios para que al momento de hacer click aparezca el precio de la comida seleccionada.

Link para descargar Visual Basic portable

Del ejemplo anterior describimos ahora las Propiedades Value e Invisible:
Value (Propiedad)

· Controles CheckBox y OptionButton: devuelve o establece el estado del control

· Control CommandButton: duelve o establece un valor que indica si se ha elegido el botón. No está disponible en el tiempo de diseño

· Objeto Field: devuelve o establece el contenido de un campo. No esta disponible en el tiempo de diseño

· Controles HscrollBar y VscrollBar (Barras de desplazamiento horizontal y vertical) : devuelve o establece la posición actual de la barra de desplazamiento; cuyo valor de retorno se encuentra siempre entre los valores de las propiedades Max y Min, inclusive Sintaxis

Quinto Programa de Visual Basic  (Triángulo)

Realiza un programa en Visualbasic  que ayude a determinar los tipos de triángulo de acuerdo al tamaño de cada uno de sus lados.

Nota: Recuerda los tipos de los triángulos:

Isósceles: 2 lados iguales y 1 distinto

Equilátero: Todos los lados iguales

Escaleno: Todos los lados diferentes

Ejemplo del diseño del programa en ejecución:

1. Insertar 3 label

a. nombre: lbllado1, lbllado2, lbllado3

b. caption: Introduzca lado 1, Introduzca lado 2, Introduzca lado 3

2. Insertar 3 textbox

a. Nombre: txtlado1, txtlado2, txtlado3 sin text

3. Insertar un label de resultado

a. Nombre: lbltriangulo

b. Caption: En blanco

4. Realizar 3 dibujos en Powerpoint o Paint que represente cada uno de los triángulos (equilátero, isósceles, escaleno) y guardar como imágenes JEPG.

5. Insertar 3 Imagen button y busca las imágenes que realizaste de los triángulos (recuerda cambiar la propiedad Stretch=true y Picture)

a. Nombre: imgequilátero

b. Nombre: imgisósceles

c. Nombre: imgescaleno

6. Insertar un comandbutton para calcular Tipo de triángulo

a. Nombre: cmdcalcular

b. Caption: Calcular tipo de triángulo Realiza los códigos necesarios que permita calcular el tipo de triángulo correspondiente con la imagen adecuada. A continuación algunos códigos de ayuda

EJEMPLO OPCIÓN 1: 
CÓDIGO TIPO DE TRIÁNGULO CON OPERADORES LÓGICOS  

EJEMPLO OPCIÓN 2: 
CÓDIGO TIPO DE TRIÁNGULO CON VARIABLES (CONTADOR)

Private Sub cmdcalcular_Click()

  c = 0

  If Val(txtlado1.Text) = Val(txtlado2.Text) Then c = c + 1

  If Val(txtlado1.Text) = Val(txtlado3.Text) Then c = c + 1

  If Val(txtlado2.Text) = Val(txtlado3.Text) Then c = c + 1

  If c = 0 Then lbltriangulo.Caption = "escaleno"

  If c = 3 Then lbltriangulo.Caption = "equilatero"

  If c = 1 Then lbltriangulo.Caption = "isósceles"

End Sub