Folleto de visual basic

MODULO DE LENGUAJE DE PROGRAMACION II - VISUAL BASIC
INTRODUCCIÓN.
CARACTERÍSTICAS DE VISUAL BASIC.
Podríamos decir que Visual Basic es un lenguaje orientado a eventos. En las aplicaciones tradicionales o "por
procedimientos", la aplicación es la que controla qué partes de código y en qué secuencia se ejecutan. La ejecución
comienza con la primera línea de código y continúa con una ruta predefinida a través de la aplicación, llamando a los
procedimientos según se necesiten.
En una aplicación controlada por eventos, el código no sigue una ruta predeterminada; ejecuta distintas secciones de
código como respuesta a los eventos. Los eventos pueden desencadenarse por acciones del usuario, por mensajes
del sistema o de otras aplicaciones, o incluso por la propia aplicación. La secuencia de estos eventos determina la
secuencia en la que se ejecuta el código, por lo que la ruta a través del código de la aplicación es diferente cada vez
que se ejecuta el programa.
Para manejar los objetos y controles del lenguaje hay que conocer tres conceptos asociados a ellos:
• Propiedades: Para todos los objetos y controles de Visual Basic, hay definidas una serie de propiedades que
nos permiten controlarlos: nombre, tamaño, color, posición, etc..., la mayoría de las propiedades serán
comunes, pero evidentemente, habrá objetos que tengan unas determinadas propiedades específicas.
• Eventos: Cada objeto lleva asociados unos determinados eventos que le pueden ocurrir, por ejemplo a un
botón, le puede ocurrir que el usuario pulse con el botón principal del ratón sobre él, eso es el evento
NombreDelBotón_Click(), bien cuando esto ocurra, se dispara este evento, al cual nosotros le añadiremos el
código de lo que queremos que haga la aplicación cuando el usuario pulse el botón.
• Métodos: Son procedimientos asociados a un objeto, es decir, nos permiten realizar acciones como por
ejemplo escribir un texto en un objeto, necesitaríamos usar el método Print, con la siguiente sintaxis:
NombreDelObjeto.Print "Texto deseado".
Encontraremos tanto propiedades, eventos como métodos comunes, si bien, dependiendo de los objetos que
utilicemos encontraremos elementos específicos y exclusivos del objeto.
El esquema de programación es muy sencillo, para crear una aplicación, primero crearemos un formulario vacío sobre
el que iremos poniendo los controles que deseemos, en tiempo de diseño podremos especificar las propiedades
iniciales de esos controles. Posteriormente escribiremos el "código respuesta" a los eventos que queramos controlar
de nuestros objetos. En ese "código respuesta", que es lo que llamaremos tiempo de ejecución, podremos modificar
algunas propiedades de los objetos, lanzar métodos, ejecutar rutinas, llamar a otros procedimientos etc..
DESCRIPCIÓN DEL ENTORNO.
Para desarrollar el curso se ha utilizado Visual Basic 6.0 en castellano, y todas las referencias e imágenes serán
sobre esa versión, si bien se podría seguir el curso con la versión anterior, puesto que las diferencias radicarán, más
que en que no se pueda realizar, en la forma de hacer o llamar a las cosas.
Cuando ejecutamos VB, después de cargar el entorno, nos aparece el siguiente cuadro:
Docente: Ing. Renán Javier Gálvez Astudillo 1

Nos ofrece tres solapas: Nuevo, con las diferentes opciones que nos permite crear VB, en principio sólo utilizaremos
EXE estándar, que nos llevará a un formulario vacío desde el cual comenzaremos a desarrollar nuestra aplicación.
Existente, nos permite abrir proyectos que ya existen para continuar implementándolos. Recientes, lo mismo pero
sobre los últimos proyectos que hayamos estado desarrollando.
Una vez que hayamos elegido EXE estándar, aceptamos y aparece la siguiente ventana (salvo por las diferencias de
tamaño, necesarias para que entre la imagen), en la cual vemos que tenemos un proyecto abierto que en principio
cuenta con un formulario vacío. Posteriormente, si los necesitamos podremos insertarle tantos formularios al proyecto
como queramos.
La ventana principal está formada además de por la barra de menús y la barra de botones superiores, de un conjunto
de ventanas con funciones diversas, cada una de ellas es configurable en cuanto tamaño, o incluso se pueden ocultar
para ganar espacio para otras. Las principales son:

• Ventana del Proyecto: Es la ventana que va a contener el objeto activo del proyecto, en la imagen superior
vemos que contiene el formulario vacío, que utilizaremos para el diseño gráfico. Pero cuando le queramos
añadir código, la ventana de código también estará contenida aquí.
• Explorador de proyectos: Ventana superior derecha, nos permite visualizar los objetos que contiene el
proyecto actual agrupados por categorías, en nuestro caso y por el momento solo hay un formulario colgando
de la carpeta formularios. Además en la parte superior izquierda de esta ventana hay dos botones que nos
permiten intercambiar la vista de diseño gráfico con la ventana de código en la ventana del proyecto. No
obstante para pasar a la ventana de código bastaría con hacer doble click sobre cualquier control.
• Ventana de propiedades: Situada debajo de la anterior, contiene el conjunto de propiedades, con el valor
actual correspondiente, de cada uno de los objetos. Es aquí donde podremos modificar los valores iniciales de
esas propiedades, en lo que se conoce como tiempo de diseño.
• Ventana de posición del formulario: Situada debajo de la anterior, permite la colocación del formulario en la
pantalla, representado la misma con una imagen a escala.
• Caja de herramientas: Situada a la izquierda, contiene los controles que podemos ir colocando en el
formulario, para ello bastará con hacer doble click sobre uno de ellos, o pulsar sobre el control y "dibujarlo"
sobre el formulario.
PRIMER EJEMPLO.
Crearemos un EXE estándar, al cual le insertaremos de la caja de herramientas un botón, el cual podemos posicionar
donde queramos y establecerle el tamaño deseado. Nuestro primer programa ya funcionaría en el sentido de que si lo
ejecutásemos ahora, ya podríamos pulsar el botón tantas veces como quisiésemos (no haría nada, pero tampoco
provocaría un error).
Para que al pulsar el botón "ocurra algo", debemos escribir el código que deseamos que se ejecute cuando el usuario
pulse el botón (que el usuario pulse el botón, significa para Visual que se dispara el evento Click del objeto
Command1). Por lo tanto el código deberemos escribirlo en el procedimiento Command1_Click().
La forma más cómoda de hacer esto consiste en hacer doble click sobre el botón de nuestro formulario, esto nos
llevará a la ventana de código y además nos escribirá en ella el encabezado y final del evento que necesitamos,
dejándolo preparado para que podamos escribir nuestro código:
Como código escribiremos la línea:
Print "Has pulsado el botón" que
escribe en el formulario el texto
encerrado entre comillas.
Para ejecutar nuestro programa
tenemos diversas opciones,
incluyendo la generación de un
ejecutable, pero en la fase de
desarrollo de un programa es la opción
más lenta. Digamos que hasta que no
hayamos terminado de implementar el
programa, no crearemos el ejecutable.
La forma más cómoda consiste en
ejecutarlo sin compilar, es decir,
interpretando las órdenes, de esta
forma detectamos más rápidamente
posibles errores. Para ello iremos al
menú Ejecutar / Iniciar, o pulsaremos
F5, (también podemos iniciar la ejecución pulsando el botón de la barra de botones de Visual Basic). Veremos

nuestro formulario en pantalla y cada vez que pulsemos el botón, se escribirá en el mismo el texto que indicamos
entrecomillado, esto lo podemos hacer tantas veces como queramos.
El formulario es redimensionable, lo podemos situar donde queramos, tiene el cuadro de control estándar de
Windows, y todo ello sin que hallamos dedicado ni un pensamiento al respecto.
Para detener la ejecución del programa, podemos pulsar la X del cuadro de control del formulario, o pulsar el botón
de la barra de botones de Visual Basic.
Este es el método básico de programación que desarrollaremos en Visual Basic: Uno o varios formularios a los que
les insertaremos controles, los cuales gestionaremos mediante eventos que desencadenen los usuarios. Como
respuesta a los eventos, deberemos programar el código que deseemos ejecutar en cada momento.
GUARDAR UN PROYECTO.
Crearemos una carpeta en nuestro disco duro, por ejemplo: C:Mis DocumentosVisual BasicProyectos, donde
almacenaremos tanto los proyectos como los formularios.
Podemos guardar los formularios o el proyecto separadamente, pero lo más cómodo es ir al menú Archivo / Guardar
proyecto. De esta forma nos sale primero una ventana para que guardemos los formularios que componen nuestro
proyecto, en la cual le podemos indicar la carpeta y el nombre que queremos asignar. Cuando tengamos guardados
todos los formularios del proyecto, nos sale otra ventana para hacer lo mismo con el proyecto.
Guardaremos el ejemplo anterior en la carpeta predeterminada, asignando Form1 al formulario y Proyecto1 al
proyecto. Posteriormente para acceder al mismo, bastará con abrir el proyecto Proyecto1, lo cual nos abrirá todos los
formularios que contenga.
Cuando se desarrolla un aplicación, se trabaja con un archivo de proyecto para administrar todos los diferentes
archivos que se crean. Un proyecto consta de:
• Un archivo de proyecto que realiza el seguimiento de todos los componentes (.vbp)
• Un archivo para cada formulario (.frm).
• Un archivo de datos binarios para cada formulario que contiene datos sobre propiedades de controles del
formulario (.frx). Estos archivos no se pueden modificar y los genera automáticamente cualquier archivo .frm
que tenga propiedades en formato binario, como Picture o Icon.
• Opcionalmente, un archivo para cada módulo de clase (.cls).
• Opcionalmente, un archivo para cada módulo estándar (.bas).
• Opcionalmente, uno o más archivos con controles ActiveX (.ocx).
• Opcionalmente, un único archivo de recursos (.res).

• Opcionalmente, un único archivo de espacio de trabajo de proyecto de Visual Basic (.vbw).
El archivo de proyecto es simplemente una lista de todos los archivos y objetos asociados con el proyecto, así como
información acerca de las opciones de entorno establecidas. Esta información se actualiza cada vez que se guarda el
proyecto. Todos los archivos y objetos también se pueden compartir con otros proyectos.
Cuando ha completado todos los archivos del proyecto podremos convertir el proyecto en un archivo ejecutable (.exe):
en el menú Archivo, eligiendo el comando Generar proyecto.exe.
Ejercicio 1.
Ejecutar Visual Basic, Abrir un EXE estándar, pulsando en la X de cada una, cerrar todas las ventanas menos la
principal, de forma que dejemos la siguiente visualización:
En el menú Herramientas / Opciones, ir a la solapa Acople, activar todas las casillas que no estuviesen activas
menos la del "Examinador de objetos" y Aceptar. Con esto conseguimos que
cuando queramos visualizar una ventana de las del entorno esta se acople
junto con las demás para que no aparezcan solapadas.
Ir al menú Ver y elegir: Explorador de proyectos, Ventana Propiedades y
Ventana posición del formulario. Deberemos redimensionar cada una hasta
obtener aproximadamente:
Ahora haciendo doble click en Form1 del Explorador de proyectos
aparecerá la ventana del formulario cargándose la ventana de propiedades, y
ya sólo nos queda volver al menú Ver para elegir Cuadro de herramientas, el
cual se posiciona a la izquierda de la ventana principal.
Podremos establecer diferentes configuraciones del entorno, siendo esta
quizá la más adecuada para comenzar a familiarizarse con el entorno.

Como la ventana Posición del formulario no es necesaria permanentemente, conviene ocultarla para que se amplíe
la de Propiedades. Cuando tengamos que decidir la posición del formulario en pantalla (cuando se ejecute), bastará
con mostrarla entonces.
Ejercicio 2.
Abrir un EXE estándar, obtendremos un formulario vacío, pulsando en el botón (Ver código) saldrá la ventana de
código vacía, en el cuadro superior izquierdo desplegaremos y elegiremos Form, veremos como automáticamente
nos pone el evento Private Sub Form_Load(), que es el evento predeterminado para el objeto Form, lo ignoramos
puesto que no es el que necesitamos (posteriormente el editor lo eliminará ya que no va a contener código). En el
cuadro superior derecho desplegamos y elegimos el evento DblClick, (doble click), es decir el usuario desencadenará
la acción cuando haga doble click sobre el formulario. En este evento escribimos un mensaje (recordar que el texto
debe ir entrecomillado) usando el método Print.
Antes de ejecutar visualizaremos la ventana Posición del formulario si no estaba ya presente y colocaremos el
formulario aproximadamente en medio de la pantalla.
Ejecutaremos y además de observar como el formulario aparece en la posición que hemos asignado, veremos como
al hacer doble click sobre el mismo aparece el mensaje.
Elementosdellenguaje.
Introducción.
Como todo lenguaje de programación, Visual Basic tiene un conjunto de variables y estructuras que el programador
puede usar. Empezaremos introduciendo conceptos poco a poco ya que la extensión del lenguaje haría necesaria la
dedicación de mucho tiempo para conocerlo todo antes de empezar a realizar el primer programa. A medida que
avancemos se irán añadiendo conceptos, sólo los más importantes en cada caso ya que estudiarlos en profundidad
haría del curso una labor muy tediosa. Sirva como ejemplo que el control Textbox tiene 43 propiedades, 24 eventos y
11 métodos. Cierto es que muchos elementos son comunes a otros controles, por eso sólo veremos los más
significativos de cada uno. En cualquier caso, cuando el alumno desee conocer un determinado control con mayor
profundidad puede recurrir a la ayuda, que sorprendentemente está muy bien organizada y clara.
Variables.
Las variables que podemos usar en Visual pueden ser de los siguientes tipos:
Integer: Número entero que oscila entre los valores -32.768 y 32.767
Long: Número entero (entero largo) que oscila entre los valores -2.147.483.648 y 2.147.483.647
Simple: Número real que oscila entre los valores -3.40E+38 y 3.40E+38
Double: Número real que oscila entre los valores -1.8E+308 y 1.8E+308
Variant: Puede representar diferentes tipos de datos en distintas situaciones.
String: Cadena de caracteres, sirve para almacenar textos, aproximadamente hasta 65000 caracteres.
Boolean: Sólo admite dos estados, Verdadero (True) (-1) o Falso (False) (0).
Date: Almacena fecha y hora.

Aún hay más tipos, pero en principio sólo vamos a usar estos, para lo cual deberemos seguir el siguiente proceso:
Primero para poder usar una variable debemos declararla, esto lo haremos mediante la sentencia Dim, esto nos crea
la variable y reserva el espacio necesario para ella, utilizaremos la siguiente sintaxis:
Dim Nombre_de_la_variable As tipo
El nombre de la variable puede tener hasta 40 caracteres y debe empezar por letra.
El tipo debe ser uno de los disponibles, cuando escribamos la sentencia, al llegar al tipo veremos como nos sale un
cuadro de lista donde nos muestra las posibilidades para el mismo, podemos escribirlo nosotros o con las flechas del
cursor buscarlo y pulsando espacio o intro que lo escriba el sistema.
Podemos especificar la longitud: Dim Cadena As String*4, esta sentencia nos declara una variable de tipo string y
longitud fija de 4 caracteres. Si no especificamos longitud, la cadena tendrá longitud variable.
Para declarar vectores basta con poner el tamaño entre paréntesis: Dim Vector(25) As Integer, declara un vector de
25 posiciones que van de la 0 a la 24, y del tipo Integer.
Otro aspecto a tener en cuenta es dónde hacemos la declaración, ya que si la hacemos dentro de un procedimiento
específico, esta sólo tendrá validez dentro de él, si queremos que la variable pueda ser usada por varios
procedimientos deberemos declararla en el área General.
El segundo paso es la inicialización del valor de la variable, cosa que deberemos hacer salvo que nos sirvan los
valores por defecto: 0 para las numéricas y "" para las alfanuméricas. Esto deberemos hacerlo dentro de algún
procedimiento ya que en el área General no es posible, aunque sea una variable común. La sintaxis adecuada es:
Nombre_de_la_variable = Valor o expresión
Nota: Si queremos usar variables del sistema como Date o Time que contienen la fecha y hora del sistema
respectivamente, no es necesario que las declaremos.
Ejemplo.
Abrir Proyecto1, esto lo podemos hacer desde el menú Archivo / Abrir proyecto, o desde la ventana inicial cuando
abrimos Visual Basic, buscándolo tanto en la solapa Existente como en la solapa Recientes.
El objetivo es incluir un contador que me informe del número de veces que he pulsado el botón, para ello
necesitaremos usar una variable. Si declaro la variable en el procedimiento Private Sub Command1_Click(), esta se
inicializará cada vez que pulsemos el botón, con lo que por mucho que la incrementemos, no conseguiremos que nos
muestre el número de veces que lo hemos pulsado. Necesitamos declararla fuera del procedimiento, bien pues
escribimos la declaración al inicio del código: Dim contador As Integer, fuera de cualquier procedimiento (área
General), con esto conseguimos que sea una variable pública para nuestro formulario y que sólo se inicialice al
ejecutar el programa. Además observaremos como el editor de código nos separa esta declaración del resto de
procedimientos mediante una línea horizontal.
Modificamos el procedimiento Private Sub Command1_Click(), de forma que nos quede: Print "Has pulsado el
botón"; contador; "veces", añadimos debajo de esta: contador = contador + 1 y ejecutamos. Comenzando por 0
veremos como se incrementa el número cada vez que pulsemos el botón.
El siguiente paso en la depuración del programa sería conseguir que comenzase por 1 y no por 0. Si inicializamos la
variable contador a 1 en el procedimiento Private Sub Command1_Click(), tenemos el mismo problema que antes,
no conseguimos que se incremente ya que cada vez que pulsemos, vuelve a valer 1.

Podemos pensar que la solución está en inicializarla a 1 fuera de cualquier procedimiento, pero eso no es posible, ya
que en lo que se conoce como el área General (donde hemos declarado la variable) sólo podemos declarar variables,
pero no inicializarlas.
La solución está en usar un evento que se dispare automáticamente una sola vez al inicio de la ejecución de nuestro
programa. Ese evento es el Load del objeto Form, este evento se dispara cada vez que se carga el formulario y en él
se suelen poner los parámetros comunes y especificaciones iniciales del formulario.
En la ventana de código, desplegamos el cuadro combinado de la izquierda y veremos los objetos de los que
disponemos, seleccionamos Form, en el cuadro combinado de la derecha veremos que automáticamente sale el
evento Load y nos escribe en el código el encabezamiento y pie del procedimiento Private Sub Form_Load(). Si
necesitásemos usar otro evento del objeto Form, bastaría con desplegar el cuadro combinado de la derecha donde
veríamos todos los que tiene disponible ese objeto. En este procedimiento escribimos la inicialización de la variable a
1, quedándonos la ventana de código:
Operadores.
Para construir expresiones, además
de variables o constantes
utilizaremos los operadores, que se
clasifican de la siguiente forma y
respetando la jerarquía que con la
que aparecen:
ARITMÉTICOS.
^ Exponenciación.
* Multiplicación / División
División entera
MOD Módulo (resto de la división entera)
+ Suma - Resta
ALFANUMÉRICOS.
&, + Concatenan textos.
LÓGICOS.
NOT Negación
AND Y
OR O
COMPARATIVOS.
< Menor que <= Menor o igual que

> Mayor que >= Mayor o igual que
= Igual que <>, != Distinto que
Estructuras.
A continuación veremos las estructuras que podemos usar en Visual Basic:
ESTRUCTURAS DE DECISIÓN
If: Esta estructura nos permite desviar el flujo de programa dependiendo de si se cumple una condición. La sintaxis
es:
If Condición then
Conjunto de ordenes que se ejecutarán cuando la Condición sea verdadera.
Else
Conjunto de ordenes que se ejecutarán cuando la Condición sea falsa.
End If
Select: Dependiendo del valor de una expresión o variable ejecuta una opción u otra. La sintaxis es:
Select Case Expresión
Case Valor1
Conjunto de ordenes que se ejecutarán cuando la Expresión tenga Valor1.
Case Valor2
Conjunto de ordenes que se ejecutarán cuando la Expresión tenga Valor2.
............
Case Else
Conjunto de ordenes que se ejecutarán cuando la Expresión no sea ningún valor anterior.
End Select
ESTRUCTURAS DE BUCLE
Las estructuras de bucle permiten ejecutar una o más líneas de código repetidamente. Las estructuras de bucle que
acepta Visual Basic son:
Do...Loop: Utilizaremos el bucle Do para ejecutar un bloque de instrucciones un número indefinido de veces. Hay
algunas variantes en la instrucción Do...Loop, pero cada una evalúa una condición numérica para determinar si
continúa la ejecución. Como ocurre con If...Then, la condición debe ser un valor o una expresión que dé como
resultado False (cero) o True (distinto de cero).
Las instrucciones se ejecutan siempre y cuando condición sea True, la sintaxis es:
Do While condición
instrucciones
Loop
Cuando Visual Basic ejecuta este bucle Do, primero evalúa condición. Si condición es False (cero), se salta todas las
instrucciones. Si es True (distinto de cero), Visual Basic ejecuta las instrucciones, vuelve a la instrucción Do While y
prueba la condición de nuevo.
Por tanto, el bucle se puede ejecutar cualquier número de veces, siempre y cuando condición sea distinta de cero o
True. Nunca se ejecutan las instrucciones si condición es False inicialmente.

Otra variante de la instrucción Do...Loop ejecuta las instrucciones primero y prueba condición después de cada
ejecución. Esta variación garantiza al menos una ejecución de instrucciones:
Do
instrucciones
Loop While condición
Hay otras dos variantes análogas a las dos anteriores, excepto en que repiten el bucle siempre y cuando condición
sea False en vez de True.
Hace el bucle cero o más veces Hace el bucle al menos una vez
Do Until condición
instrucciones
Loop
Do
instrucciones
Loop Until condición
For...Next
Los bucles Do funcionan bien cuando no se sabe cuántas veces se necesitará ejecutar las instrucciones del bucle. Sin
embargo, cuando se sabe que se van a ejecutar las instrucciones un número determinado de veces, es mejor elegir el
bucle For…Next. A diferencia del bucle Do, el bucle For utiliza una variable llamada contador que incrementa o
reduce su valor en cada repetición del bucle. La sintaxis es la siguiente:
For contador = iniciar To finalizar [Step incremento]
instrucciones
Next [contador]
Los argumentos contador, iniciar, finalizar e incremento son todos numéricos.
Nota El argumento incremento puede ser positivo o negativo. Si incremento es positivo, iniciar debe ser menor o
igual que finalizar o no se ejecutarán las instrucciones del bucle. Si incremento es negativo, iniciar debe ser mayor o
igual que finalizar para que se ejecute el cuerpo del bucle. Si no se establece Step, el valor predeterminado de
incremento es 1.
Al ejecutar el bucle For, Visual Basic:
1. Establece contador al mismo valor que iniciar.
2. Comprueba si contador es mayor que finalizar. Si lo es, Visual Basic sale del bucle.
(Si incremento es negativo, Visual Basic comprueba si contador es menor que finalizar.)
3. Ejecuta instrucciones.
4. Incrementa contador en 1 o en instrucciones, si se especificó.
5. Repite los pasos 2 a 4.
Ejemplo.
Abrir Proyecto1. El objetivo es modificar el programa de forma que al pulsar el botón la primera vez, el texto que
muestre sea "Has pulsado el botón 1 vez", en lugar de lo que muestra ahora que es: "Has pulsado el botón 1 veces".
Hay que incluir una estructura If, de forma que cuando contador valga 1 haga una cosa, y cuando tenga un valor
diferente haga otra. La ventana de código, mostrará:

Además modificar el tamaño del formulario y el botón, así como su posición, de forma que el resultado sea:
Salir guardando todos los cambios.
Ejercicio 1.
Crear un nuevo proyecto, vamos a ver como utilizar variables que contengan texto. Deberemos declarar tres variables
de tipo String: Nombre, Apellidos y Todo. En el formulario pondremos un botón de forma que al pulsarlo el
programa haga lo siguiente: asigne a las variables Nombre y Apellidos los textos correspondientes, mediante
concatenación construya la variable Todo, compuesta de los contenidos de Nombre y Apellidos mostrando por
pantalla el contenido de la variable Todo.
Ayuda: Para asignar valores a una variable de tipo String, deberemos encerrar entre comillas el texto: Nombre =
"Ramón".
Si hacemos concatenación normal entre la variables el resultado mostrará los textos sin separación, podríamos incluir
un espacio al final del nombre o al inicio de los apellidos, pero la mejor forma de hacerlo consistirá en concatenar un
espacio en blanco: Todo = Nombre & " " & Apellidos.

Ejercicio 2.
Crear un nuevo proyecto, vamos a ver como usar una estructura de bucle. Insertaremos un botón de forma que al
pulsarlo nos muestre por pantalla cinco líneas que se corresponderán a cinco pasos del bucle. Incluso numeraremos
cada línea con un contador.
Ayuda: Para realizar este ejercicio, basta con usar un bucle de tipo For, ya que cada vez que pulsemos el botón
reiniciaremos la cuenta de las líneas.
Ejercicio 3.
Crear un nuevo proyecto, vamos a ver como mantener un acumulador. Insertaremos un botón de forma que al
pulsarlo nos muestre por pantalla cinco líneas que se corresponderán a cinco pasos del bucle. Incluso numeraremos
cada línea con un contador. Además, a diferencia del ejercicio anterior, cuando volvamos a pulsar el botón la
numeración de las líneas debe continuar correlativamente.
Ayuda: Para realizar este ejercicio, basta con usar un bucle de tipo For, pero para que cada vez que pulsemos el
botón, continúe la cuenta de las líneas, deberemos declarar otra variable que inicializaremos en el Form_Load del
formulario. Esta nueva variable será la que mostraremos y como sólo se inicializa una vez mantendrá el último valor
asignado pudiendo así seguir a secuencia.
Dentro del bucle For deberemos ocuparnos de incrementar nosotros la variable mediante: Acumulador =
Acumulador + 1. (En vez de Acumulador, deberemos poner el nombre de la variable que hayamos definido para la
tarea).
Como el orden de ejecución es de derecha a izquierda, primero incrementa la variable en uno y luego se lo asigna a la
misma variable, con lo que conseguimos que se vaya incrementando de uno en uno.
Funcionesypalabrasreservadas.
Visual Basic tiene un conjunto de funciones que podremos usar. A continuación veremos las más representativas, si
bien hay muchas más. Se aconseja ir a la ayuda para ampliar o profundizar sobre la cuestión
Palabras reservadas.
Rem: Nos permite incluir comentarios sobre el programa en medio del código, la sintaxis es:
Rem Comentario
Además, se puede conseguir lo mismo sin necesidad de escribir Rem, utilizando la comilla simple, es decir, la anterior
orden es equivalente a:
'Comentario
Observaremos como el editor de código reconoce los comentarios ya que les aplica como color del texto el verde.
Exit Sub: Nos permite acabar la ejecución del procedimiento en el que lo pongamos, y en punto del mismo donde se
halle situado.

End: Nos permite acabar la ejecución del programa en el punto del mismo donde se halle situado.
Funciones.
MsgBox: Muestra un mensaje en un cuadro de diálogo, espera a que el usuario haga clic en un botón y devuelve un
tipo Integer correspondiente al botón elegido por el usuario.
Sintaxis
MsgBox(prompt[, buttons][, title][, helpfile, context])
La sintaxis de la función MsgBox consta de estos argumentos:
Parte Descripción
prompt Requerido. Cadena que representa el prompt en el cuadro de diálogo. La longitud máxima de prompt
es de aproximadamente 1024 caracteres, según el ancho de los caracteres utilizados.
buttons Opcional. Expresión numérica que corresponde a la suma de los valores que especifican el número y
el tipo de los botones que se pretenden mostrar, el estilo de icono que se va a utilizar, la identidad del
botón predeterminado y la modalidad del cuadro de mensajes. Si se omite este argumento, el valor
predeterminado para buttons es 0.
title Opcional. Expresión de cadena que se muestra en la barra de título del cuadro de diálogo. Si se omite
title, en la barra de título se coloca el nombre de la aplicación.
helpfile Opcional. Expresión de cadena que identifica el archivo de Ayuda que se utiliza para proporcionar
ayuda interactiva en el cuadro de diálogo. Si se especifica helpfile, también se debe especificar
context.
context Opcional. Expresión numérica que es igual al número de contexto de Ayuda asignado por el autor al
tema de Ayuda correspondiente. Si se especifica context, también se debe especificar helpfile.
Valores
El argumento buttons tiene estos valores:
Constante Valor Descripción
VbOKOnly 0 Muestra solamente el botón Aceptar.
VbOKCancel 1 Muestra los botones Aceptar y Cancelar.
VbAbortRetryIgnore 2 Muestra los botones Anular, Reintentar e Ignorar.
VbYesNoCancel 3 Muestra los botones Sí, No y Cancelar.
VbYesNo 4 Muestra los botones Sí y No.
VbRetryCancel 5 Muestra los botones Reintentar y Cancelar.
VbCritical 16 Muestra el icono de mensaje crítico.
VbQuestion 32 Muestra el icono de pregunta de advertencia.
VbExclamation 48 Muestra el icono de mensaje de advertencia.
VbInformation 64 Muestra el icono de mensaje de información.
VbDefaultButton1 0 El primer botón es el predeterminado.
VbDefaultButton2 256 El segundo botón es el predeterminado.

VbDefaultButton3 512 El tercer botón es el predeterminado.
VbDefaultButton4 768 El cuarto botón es el predeterminado.
VbApplicationModal 0 Aplicación modal; el usuario debe responder al cuadro de mensajes
antes de poder seguir trabajando en la aplicación actual.
VbSystemModal 4096 Sistema modal; se suspenden todas las aplicaciones hasta que el
usuario responda al cuadro de mensajes.
VbMsgBoxHelpButton 16384 Agrega el botón Ayuda al cuadro de mensaje.
VbMsgBoxSetForeground 65536 Especifica la ventana del cuadro de mensaje como la ventana de
primer plano.
VbMsgBoxRight 524288 El texto se alinea a la derecha.
VbMsgBoxRtlReading 1048576 Especifica que el texto debe aparecer para ser leído de derecha a
izquierda en sistemas hebreo y árabe.
El primer grupo de valores (0 a 5) describe el número y el tipo de los botones mostrados en el cuadro de diálogo; el
segundo grupo (16, 32, 48, 64) describe el estilo del icono, el tercer grupo (0, 256, 512) determina el botón
predeterminado y el cuarto grupo (0, 4096) determina la modalidad del cuadro de mensajes. Cuando se suman números
para obtener el valor final del argumento buttons, se utiliza solamente un número de cada grupo.
Nota: Estas constantes las especifica Visual Basic para Aplicaciones. Por tanto, el nombre de las mismas puede
utilizarse en cualquier lugar del código en vez de sus valores reales.
Valores devueltos
Constante Valor Descripción
vbOK 1 Aceptar
vbCancel 2 Cancelar
vbAbort 3 Anular
vbRetry 4 Reintentar
vbIgnore 5 Ignorar
vbYes 6 Sí
vbNo 7 No
Ejemplo.
La siguiente orden genera un cuadro al cual le indicamos título, texto, le ponemos tres botones: Sí, No y Cancelar.
Además le incluimos el icono de pregunta:
MsgBox "¿Esta seguro de que quiere continuar?", vbYesNoCancel + vbQuestion, "Confirmación"
El resultado en ejecución es:

InputBox: Muestra un mensaje en un cuadro de diálogo, espera que el usuario escriba un texto o haga clic en un
botón y devuelve un tipo String con el contenido del cuadro de texto.
Sintaxis
InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])
La sintaxis de la función InputBox consta de estos argumentos:
Parte Descripción
prompt Requerido. Cadena que se muestra como mensaje en el cuadro de diálogo. La longitud máxima de
prompt es de aproximadamente 1024 caracteres, según el ancho de los caracteres utilizados.
title Opcional. Expresión de cadena que se muestra en la barra de título del cuadro de diálogo. Si omite
title, en la barra de título se coloca el nombre de la aplicación.
default Opcional. Expresión de cadena que se muestra en el cuadro de texto como respuesta
predeterminada cuando no se suministra una cadena. Si omite default, se muestra el cuadro de
texto vacío.
xpos Opcional. Expresión numérica que especifica, en twips, la distancia en sentido horizontal entre el
borde izquierdo del cuadro de diálogo y el borde izquierdo de la pantalla. Si se omite xpos, el
cuadro de diálogo se centra horizontalmente.
ypos Opcional. Expresión numérica que especifica, en twips, la distancia en sentido vertical entre el borde
superior del cuadro de diálogo y el borde superior de la pantalla. Si se omite ypos, el cuadro de
diálogo se coloca a aproximadamente un tercio de la altura de la pantalla, desde el borde superior
de la misma.
helpfile Opcional. Expresión de cadena que identifica el archivo de Ayuda que se utilizará para proporcionar
ayuda interactiva para el cuadro de diálogo. Si se especifica helpfile, también deberá especificarse
context.
context Opcional. Expresión numérica que es el número de contexto de Ayuda asignado por el autor al tema
de Ayuda correspondiente. Si se especifica context, también deberá especificarse helpfile.
Comentarios
Cuando se especifica tanto helpfile como context, el usuario puede presionar F1 para ver el tema de Ayuda
correspondiente a context. Algunas aplicaciones como por ejemplo, Microsoft Excel, también agregan
automáticamente un botón Ayuda al cuadro de diálogo. Si el usuario hace clic en Aceptar o presiona Entrar , la
función InputBox devuelve lo que haya en el cuadro de texto. Si el usuario hace clic en Cancelar, la función devuelve
una cadena de caracteres de longitud cero ("").
Nota: Si deseamos especificar más que el primer argumento con nombre, debemos utilizar InputBox en una
expresión. Si deseamos omitir algunos argumentos de posición, debemos incluir el delimitador de coma
correspondiente.

Ejemplo.
La siguiente orden genera un cuadro al cual le indicamos texto, título y asignamos el texto que escriba el usuario a la
variable cadena:
Dim cadena As String
cadena = InputBox("Introduzca el nombre del usuario", "Identificación")
Observar que como asignamos el resultado de la función InputBox a una variable, debemos encerrar los argumentos
entre paréntesis.
El resultado en ejecución es:
Ejemplo.
Crear un EXE estandar, llamar Ejemplo2 al formulario, al cual le insertaremos un botón en la parte inferior derecha,
ponerle como nombre BotonSalir y como Caption Salir ( si queremos que el usuario pueda activar el botón con la
combinación de teclas ALT + S, deberemos anteponer a la letra S del caption el símbolo &).
A este botón le insertaremos código de forma que cuando el usuario pulse, salga un cuadro por pantalla pidiendo
confirmación para salir del programa, si el usuario pulsa Sí, debe acabar la ejecución y si pulsa No, no debe hacer
nada.
Insertar otro botón en la parte inferior izquierda, ponerle como nombre BotonFecha y como Caption Fecha y hora
del sistema ( si queremos que el usuario pueda activar el botón con la combinación de teclas ALT + F, deberemos
anteponer a la letra F del caption el símbolo &)
A este botón le insertaremos código de forma que cuando el usuario pulse, imprima en el formulario la fecha en
formato largo, es decir, día de la semana, día, nombre del mes y año con 4 cifras. Debajo debe imprimir la hora del
sistema. El formulario en diseño quedará:

Y la ventana de código:
EJERCICIOS PRACTICOS
EJERCICIOS CON LABELS, TEXTBOXES Y BOTONES EN VISUAL BASIC
Vamos a plantear el enunciado para una serie de ejercicios y posteriormente mostraremos la solución a los mismos.
EJERCICIO EJEMPLO RESUELTO Nº1
Transformar en código el pseudocódigo que se muestra a continuación, relativo a proporcionar el volumen de un cilindro
dados su altura y diámetro.

1. Inicio
2. Mostrar “Introduzca el diámetro, en metros” : Pedir D
3. Mostrar “Introduzca la altura, en metros” : Pedir H
4. R = D/2 : Pi = 3,141593
5. V = Pi * (R ^ 2) * H
6. Mostrar “El volumen del cilindro es de”, V, “metros
cúbicos”
7. Fin
SOLUCIÓN EJERCICIO EJEMPLO Nº1
Creamos un formulario donde insertamos dos Labels (podemos usar arrays de controles como Label1(0) yLabel1(1)) ó
simplemente dos controles como Label1 y Label2, dos TextBox (podemos decir lo mismo que para los labels)y un Label
para resultados al que vamos a ponerle nosotros el nombre y que llamaremos (LabelResultados), así como un botón al
que llamaremos ButtonCalcular. El primer Label mostrará el mensaje de solicitud del diámetro y el segundo Label el
correspondiente a la altura. A través de los TextBox el usuario introducirá los datos solicitados y a través del Label de
resultados mostraremos los resultados. El código será algo así:
Código (versionesVB menos recientes)
Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit
Rem Declaración de variables
Const Pi As Single = 3.141592654
Dim R!, H!, V As Single
Rem Contenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo volumen cilindro"
ButtonCalcular.Caption = "Calcular Volumen"
Label1.Caption = "Introduzca aquí el diámetro, en metros"
Label2.Caption = "Introduzca aquí la altura, en metros"
End Sub
Rem Cálculo y muestra resultados
Private Sub ButtonCalcular_Click()
R = Val(Text1) / 2
H = Val(Text2)
V = Pi * (R ^ 2) * H
LabelResultados.FontSize = 10
LabelResultados.FontBold = True
LabelResultados.Alignment = 2
LabelResultados = "El volumen del cilindro es de " & V & " metros cúbicos"
End Sub

El resultado gráfico será similar a este:
Ejercicios resueltos básicos y de estructuras de decisión en Visual Basic 6.0
1) Escribir un programa que agregue un valor de la suma
Se debe crear:
3 Label (En el tercer Label cambia el BorderStyle de 0 - None a 1 - Fixed Single)
1 TextBox
1 CommandButton
Debe quedar así
Hay dos formas de hacerlo: Forma simple(Nivel: Facil) y Forma simple(Nivel: Normal). Verán porque.
Forma simple(Nivel: Facil): El problema de la forma simple es que al agregar el primervalor y al darle sumar nos
agrega el primer valor ingresado, en vez de esperar los otros valores que se van a sumar. Por ejemplo:
1) Si ingreso 1 en lugar de quedar el Label3 en blanco te muestra el primer valor ingresado, en vez de quedarse en
blanco el Label3, para poder ingresar el siguiente valor sumarlo y mostrar el resultado. Pruebenlo y veran porque.
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)

Option Explicit
Dim Suma As Double
_____________________________________________________________________
Private Sub Command1_Click()
Dim Valor As Double
Valor = Text1
Suma = Suma + Valor
Label3 = Suma
End Sub
Forma simple(Nivel: Normal): Esta es la forma en que vemos si se ha ingresado datos o no en el TextBox usando
condicionales, y también nos ayuda a sumar de forma cómoda como las calculadora de Windows.
Debe quedarte así:
Dim Operacion As String
Dim Inicio As Boolean
Dim PrimerValor, ValorSiguiente, Suma
PrimerValor = Val(Text1.Text)
Text1.Text = ""
Inicio = False
Operacion = "Suma"
End Sub
Text1.Text = ""

Label3 = ""
ValorSiguiente = 0
Inicio = False
End Sub
If Text1 = "" Then
MsgBox "Usted no ha ingresado su numero"
End If
ValorSiguiente = Text1.Text
Select Case Operacion
Case "Suma"
Suma = PrimerValor + ValorSiguiente
Label3 = Suma
End Select
End Sub
2) Escribir un programa que lea 5 números enteros y escriba la media aritmética (Promedio) de los mismos
Se hace de tres maneras
Primera manera
Se debe crear:
5 TextBox
7 Label (En el último Label cambia el BorderStyle de 0 - None a 1 - Fixed Single)
1 CommandButton
Debe quedarte así

Dim PrimerValor As Integer, SegundoValor As Integer, TercerValor As Integer, CuartoValor As Integer,
QuintoValor As Integer
PrimerValor = Text1
SegundoValor = Text2
TercerValor = Text3
CuartoValor = Text4
QuintoValor = Text5
Label7 = (PrimerValor + SegundoValor + TercerValor + CuartoValor + QuintoValor) /5
End Sub
Segunda manera:
Esta manera es para que cuando se nos olvide poner el algún valor en cualquierTextBox, nos muestre un mensaje de
que falta ingresar un valor en tal TextBox

Se debe crear:
5 TextBox
1 CommandButton
Debe quedarte así

PrimerValor = Val(Text1)
SegundoValor = Val(Text2)
TercerValor = Val(Text3)
CuartoValor = Val(Text4)
QuintoValor = Val(Text5)
If Text1 = "" Then
MsgBox "Falta el un valor en la casilla 1"
ElseIf Text2 = "" Then
Else
Label7 = (PrimerValor + SegundoValor + TercerValor + CuartoValor + QuintoValor) / 5
End If
End Sub
Tercera forma:
Para eso debemos crear una "Matriz de Controles", lo que significa que debemos crear 9 veces un TEXT1
Como se muestra gráficamente.
Creamos un TextBox

Le damos click derecho del Mouse y nos saldrá el siguiente cuadro lo cual sale una opción que dice copiar.
Ahora acercamos el cursor en el espacio del formulario le damos click derecho y pegar. O lo más fácil apretamos la
tecla Ctrl y la tecla V las dos (teclas a la vez)

Luego de haberle dado pegar te va a salir un cuadro que te dice lo siguiente:
"Ya existe un control llamado Text1 ¿Deseas crear una matriz de controles?"
Les das click en SI o en Aceptar
Creas 5 Text1
7 Labels
y un CommandButton
El formulario debe quedarte así

PrimerValor = Val(Text1(0))
SegundoValor = Val(Text1(1))
TercerValor = Val(Text1(2))
CuartoValor = Val(Text1(3))
QuintoValor = Val(Text1(4))
If Text1(1) = "" Then
ElseIf Text1(2) = "" Then

Else
Label7 = (PrimerValor + SegundoValor + TercerValor + CuartoValor + QuintoValor) /5
End If
End Sub
3) El alquiler de un vehículo cuesta 70.000 bolívares por día más 750 bolívares por cada kilómetro recorrido. Escribir
un programa que lea por teclado el número dedías en alquiler y el números de kilómetros recorridos y muestre el
monto total que se debe pagar.
Se debe crear:
2 TextBox
1 CommandButton
Debe quedarte así

'Declaramos las constantes
Const AlquilerDelAuto = 70000
Const KilometrosRecorrido = 750
Dim DiasDeAlquiler As Integer
Dim KilometrosRecorridos As Integer
DiasDeAlquiler = Val(Text1)
Kilometros = Val(Text2)
If Text1 = "" Then
MsgBox "No has ingresado los dias"
MsgBox "No has ingresado los kilometros"
Else
Label3 = (DiasDeAlquiler * AlquilerDelAuto) + (KilometrosRecorrido * Kilometros)
End If
End Sub
4) Escribir un programa que lea por teclado un numero entero, el cual representa un monto en bolívares y muestre
cuantos billetes de 50.000, 20.000, 10.000, 5.000,2.000 y 1.000 y cuantas monedas
de 500, 100, 50, 20, 10, 5 y 1 constituyen esa cantidad.
Aquí usaremos InputBox
Se debe crear:
13 TextBox
13 Label
1 CommandButton

Debe quedarte así
Option Explicit
Dim Monto As Long
'Ingresamos los datos
Monto = InputBox("Ingrese su monto")
Text1 = Monto 50000
Text2 = Monto 20000
Text3 = Monto 10000
Text4 = Monto 5000
Text5 = Monto 2000
Text6 = Monto 1000
Text7 = Monto 500
Text8 = Monto 100
Text9 = Monto 50
Text10 = Monto 20
Text11 = Monto 10
Text12 = Monto 5
Text13 = Monto 1

End Sub
5) Escribir un programa que solicite al usuario la introducción de un número de tresdígitos y que lo imprima en orden
inverso. Ejemplo: Para una entrada de 695,la salida deberá ser 596.
Se debe crear:
2 TextBox
2 Label
1 CommandButton
Debe quedarte así
Dim Numero As Integer

Dim CalculoUno As Integer, RespuestaUno As Integer
Dim CalculoDos As Integer, RespuestaDos As Integer
Numero = Text1
CalculoUno = Numero 100
RespuestaUno = Numero Mod 100
CalculoDos = RespuestaUno 10
RespuestaDos = RespuestaUno Mod 10
Text2 = RespuestaDos & CalculoDos & CalculoUno
End Sub
6) Dados tres valores enteros, los cuales representan las longitudes de los lados de un triángulo, escribir un programa
que determine si el triángulo es isósceles, equilátero o escaleno.
Se debe crear:
4 Label
3 TextBox
1 CommandButton
Debe quedar así

Dim LadoUno As Integer, LadoDos As Integer, LadoTres As Integer
LadoUno = Text1
LadoDos = Text2
LadoTres = Text3
If LadoUno = LadoDos And LadoDos = LadoTres Then
Label4 = "Es equilátero"
ElseIf LadoUno = LadoDos Or LadoUno = LadoTres Or LadoDos = LadoTres OrLadoDos = LadoUno Or LadoTres =
LadoUno Or LadoTres = LadoDos Then
Label4 = "Isosceles"
Else
Label4 = "Escaleno"
End If
End Sub
7) Escribir un programa que dada la hora en HH:MM:SS calcule y muestre la hora un segundo después.
Donde:
HH es la hora

MM son los minutos
SS son los segundos
Se debe crear:
3 TextBox
3 CommandButton
Debe quedar así
VariableHora = Text1
VariableMinutos = Text2
VariableSegundos = Text3
VariableSegundos = VariableSegundos + 1
If VariableSegundos = 60 Then
VariableSegundos = 0
VariableMinutos = VariableMinutos + 1
If VariableMinutos = 60 Then
VariableMinutos = 0
VariableHora = VariableHora + 1
If VariableHora > 12 Then
VariableHora = 1
End If
End If
End If
Text1 = VariableHora
Text2 = VariableMinutos

Text3 = VariableSegundos
End Sub
_____________________________________
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
_______________________________
End
End Sub
_________________________________
NOTA:
A) El CommandButton3 es el botón Hora
B) El CommandButton1 es el botón Borrar
C) El CommandButton2 es el botón Salir

Folleto de visual basic

Más contenido relacionado

La actualidad más candente (20)

Destacado (20)

Similar a Folleto de visual basic (20)

Último (20)

Folleto de visual basic