Ejercicios 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
