Gua de Visual Basic 6.

0 Segundo Parcial
Grficos y barras de desplazamiento.
Programa,
cuyo
formulario se muestra
en la siguiente figura,
es un ejemplo sencillo
que permite utilizar
algunas
de
las
herramientas grficas
de Visual Basic. Para
ello se han utilizado
dos
barras
de
desplazamiento que,
junto a otras dos cajas
de texto, modificarn
y visualizarn las
coordenadas
del
punto a dibujar.
Objetos y propiedades
Objeto
Propiedad
Hscrollbar
Name
LargeChange
Max
Min
SmallChange
VScrollbar
Name
LargeChange
Max
Min
SmallChange

Label

Name
Caption

Valor
hsbX
5
100
0
1
VScroll1
5
100
0
1

Objeto
TextBox

Propiedad
Name
Text
TextBox
Name
Text
PictureBox
Name
BackColor
CommandButton Name
Caption
ComboBox
Name
List

lblColor
Selecciona
el color

Text

Valor
txtCaja2
0
txtCaja3
0
PctBox
&H00FFFFFF&
cmdSalir
Salir
CboColor
Rojo
Azul
Verde
Magenta
Amarillo
Negro
Cyan
Rojo

Gua de Visual Basic 6.0 Segundo Parcial

Cdigo del programa
Option Explicit
Dim Color As String
Private Sub CboColor_Click()
Select Case CboColor.ListIndex
Case 0
Color = vbRed
Case 1
Color = vbBlue
Case 2
Color = vbGreen
Case 3
Color = vbMagenta
Case 4
Color = vbYellow
Case 5
Color = vbBlack
Case 4
Color = vbCyan
End Select
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Private Sub Form_Load()
Color = vbRed
PctBox.Scale (0, 0)-(100, 100)
End Sub
Private Sub hsbX_Change()
txtCaja3.Text = Format(hsbX.Value)
PctBox.PSet (hsbX.Value, vsbY.Value), Color
End Sub

Gua de Visual Basic 6.0 Segundo Parcial

Private Sub txtCaja2_KeyPress(KeyAscii As Integer)
Dim valor As Integer
valor = Val(txtCaja2.Text)
If KeyAscii = 13 Then
If valor <= vsbY.Max And valor >= vsbY.Min Then
vsbY.Value = valor
ElseIf valor > vsbY.Max Then
vsbY.Value = vsbY.Max
Else
vsbY.Value = vsbY.Min
End If
End If
End Sub
Private Sub txtCaja3_KeyPress(KeyAscii As Integer)
Dim valor As Integer
valor = Val(txtCaja3.Text)
If KeyAscii = 13 Then
If valor <= hsbX.Max And valor >= hsbX.Min Then
hsbX.Value = valor
ElseIf valor > hsbX.Max Then
hsbX.Value = hsbX.Max
Else
hsbX.Value = hsbX.Min
End If
End If
End Sub
Private Sub vsbY_Change()
txtCaja2.Text = Format(vsbY.Value)
PctBox.PSet (hsbX.Value, vsbY.Value), Color
End Sub
Guardar el proyecto como Dibujar y el nombre del formulario es Dibujar con la propiedad
Name Dibujar.

Gua de Visual Basic 6.0 Segundo Parcial

Representacin grfica de la solucin de la ecuacin de
segundo grado
En este ejemplo, cuyo formulario se muestra en la Figura de abajo, se representa el lugar
de races de la ecuacin de segundo grado en funcin de los coeficientes, o ms en
concreto en funcin de los cocientes B/A y C/A. El valor de estas relaciones se cambia
interactivamente por medio de dos barras de desplazamiento.
El programa permite adems la posibilidad de mantener dibujadas las soluciones
anteriores de la ecuacin, o borrarlas y dibujar slo las ltimas races calculadas borrando
las anteriores. Para finalizar el programa basta presionar el botn Salir.

Gua de Visual Basic 6.0 Segundo Parcial

Objetos y propiedades
Objeto
Frame

Frame

HScrollBar

HScrollBar

PictureBox
Label1

Propiedad
Name

Valor
fraDib

Caption

Dibujo

Name

fraEjes

Caption
Name

Divisiones
Ejes
hsbBA

LargeChange
Max
Min

10
1000
-1000

SmallChange

Name
LargeChange
Max
Min
SmallChange
Name
BackColor
Name
Caption

hsbCA
10
100
-100
1
pctBox
&H00FFFFFF&
Label1
B/A

Objeto
Label2

Propiedad
Name
Caption
Label3
Name
Caption
Label4
Name
Caption
Label5
Name
Caption
Label6
Name
Caption
CommandButton Name
Caption
Label7,8,9 y 10
Name

Option
Option
Option
Option

BackColor
Caption
Name
Caption
Name
Caption
Name
Caption
Name
Caption

Valor
Label2
C/A
Label3
B
Label4
C
Label5
X1/XR
Label6
X2/XI
CmdSalir
Salir
lblBA, lblCA,
lblX1, lblX2
&H00C0FFFF&
0
optD1
Borrar
optD2
Mantener
OptSi
Si
OptNo
No

Todas las labels que aparecen tienen la propiedad BorderStyle igual a 1 - Fixed Single.

Gua de Visual Basic 6.0 Segundo Parcial

Arrays
Un array permite referirse a una serie de elementos del mismo tipo con un mismo
nombre, y hace referencia un nico elemento de la serie utilizando uno o ms ndices,
como un vector o una matriz en lgebra.
Visual Basic 6.0 permite definir arrays de variables de una o ms dimensiones (hasta 60) y
de cualquier tipo de datos (tipos fundamentales y definidos por el usuario). Pero adems
Visual Basic introduce una nueva clase de arrays, los arrays de controles (esto es, arrays de
botones, de etiquetas, de paneles, etc.) que permiten una programacin ms breve y
clara. En este apartado slo se tratarn los arrays de variables.
Todos los elementos de un array deben ser del mismo tipo y estn almacenados de forma
contigua en la memoria. Por supuesto, si el array es de tipo Variant cada elemento puede
contener un dato de tipo diferente, e incluso puede contener otro array.
Entre los arrays de variables cabe distinguir dos tipos fundamentales, dependiendo de que
nmero de elementos sea constante o pueda variar durante la ejecucin del programa.
1. Arrays estticos, cuya dimensin es siempre la misma.
2. Arrays dinmicos, cuya dimensin se puede modificar durante la ejecucin del
programa.
Arrays estticos
La declaracin de un array esttico depender de su mbito.
La declaracin de un array pblico se hace en la seccin de declaraciones de un
mdulo utilizando la sentencia Public.
La declaracin de un array a nivel del mdulo o del formulario se hace en la
seccin de declaraciones del mdulo o del formulario utilizando la sentencia Dim o
Private.
Para declarar un array local a un procedimiento, se utiliza la sentencia Dim, Private
o Static dentro del propio procedimiento.
A continuacin se presentan algunos ejemplos:
Dim vector(19) As Double

Gua de Visual Basic 6.0 Segundo Parcial

Este ejemplo declara un array de una dimensin, llamado vector, con veinte elementos,
vector(0), vector(1), ... , vector(19), cada uno de los cuales permite almacenar un Double.
Salvo que se indique otra cosa, los ndices se empiezan a contar en cero.
Dim matriz(3, 1 To 6) As Integer
Este ejemplo declara un array de dos dimensiones, llamado matriz, con 4x6 elementos,
matriz(0,1), ... matriz(3,6), de tipo entero.
Public cadena(1 To 12) As String
El ejemplo anterior declara un array de una dimensin, cadena, con doce elementos,
caract(1), ... , caract(12), cada uno de los cules permite almacenar una cadena de
caracteres.
La declaracin de los arrays estticos es bastante cmoda. Se declaran una vez. Sin
embargo tienen el inconveniente que en la mayora de los casos estn
sobredimensionados y utilizan ms memoria de la que realmente necesitan. Esto implica
que se est malgastando memoria. Para solucionar este problema se utilizan los arrays
dinmicos.
Arrays dinmicos
El espacio necesario para un array esttico se asigna al iniciarse el programa y permanece
fijo durante su ejecucin. El espacio para un array dinmico se asigna durante la ejecucin
del programa. Un array dinmico, puede ser redimensionado en cualquier momento de la
ejecucin. La forma mejor de redimensionar los arrays es mediante variables que
contienen los valores adecuados.
Para crear un array dinmico primero hay que declararlo como si fuera una array esttico,
pero sin darle dimensin. Es decir, se deja la lista -entre parntesis- vaca sin ponerle
ningn nmero.
Esto se hace con la sentencia Public si se quiere que sea global, con Dim o Private si se
quiere a nivel de mdulo o con Static, Dim o Private si se quiere que sea local.
Para asignar el nmero actual de elementos del array se utiliza la sentencia ReDim. La
sentencia ReDim puede aparecer solamente en un procedimiento y permite cambiar el
nmero de elementos del array y sus lmites inferior y superior, pero no el nmero de
dimensiones. Esto quiere decir que, por ejemplo, no se puede trasformar un vector en una
matriz.
7

Gua de Visual Basic 6.0 Segundo Parcial

A continuacin se presenta un ejemplo de cmo se declaran arrays dinmicos en Visual
Basic. Si se declara el array Matriz a nivel del formulario,
Dim Matriz( ) As Integer
y ms tarde, un procedimiento Calculo puede asignar espacio para el array, como se indica
a continuacin:
Sub Calculo( )
...
ReDim Matriz(F, C)
...
End Sub
Cada vez que se ejecuta la sentencia ReDim, todos los valores almacenados en el array se
pierden (si son Variant se ponen a Empty; si son numricos a cero y si son cadenas de
caracteres a la cadena vaca). Cuando interese cambiar el tamao del array conservando
los valores del array, hay que ejecutar ReDim con la palabra clave Preserve. Por ejemplo,
supngase un array A de dos dimensiones. La sentencia,
ReDim Preserve A(D1, UBound(A, 2) + 2)
incrementa el tamao del array en dos columnas ms. Cuando se utiliza la palabra
Preserve no puede cambiarse el ndice inferior del array (s el superior). La funcin
UBound utilizada en este ejemplo es una funcin que devuelve el valor ms alto de la
segunda dimensin de la matriz.

MTODO PRINT
Este mtodo permite escribir texto en formularios, cajas pictureBox y en un objeto
llamado Printer.
Caractersticas generales
La forma general del mtodo Print se explica mejor con algunos ejemplos como los
siguientes:
pctBox.Print "La distancia es: "; Dist; " km."
pctBox.Print 123; 456; "San"; "Sebastin"
8

Gua de Visual Basic 6.0 Segundo Parcial

pctBox.Print 123, 456, "San", "Sebastin"
pctBox.Print -123; -456
cuyo resultado se puede ver
en la Figura (puede variar
dependiendo del tipo y
tamao de las letras):
De estos ejemplos se pueden
ya
sacar
algunas
conclusiones:
1. El mtodo Print recibe
como datos una lista
de
variables
y/o
cadenas de caracteres.
Las cadenas son impresas y las variables se sustituyen por su valor.
2. Hay dos tipos bsicos de separadores para los elementos de la lista. El carcter
punto y coma (;) hace que se escriba inmediatamente a continuacin de lo
anterior. La coma (,) hace que se vaya al comienzo de la siguiente rea de salida.
Con letra de paso constante como la Courier las reas de salida empiezan cada 14
caracteres, es decir en las columnas 1, 15, 29, etc. Con letras de paso variable esto
se hace slo de modo aproximado.
3. Las constantes numricas positivas van precedidas por un espacio en blanco y
separadas entre s por otro espacio en blanco. Si son negativas el segundo espacio
es ocupado por el signo menos (-).
4. El tipo y tamao de letra que se utiliza depende de la propiedad Font del
formulario, objeto PictureBox u objeto Printer en que se est escribiendo.
Existen otros separadores tales como Tab(n) y Spc(n). El primero de ellos lleva el punto de
insercin de texto a la columna n, mientras que el segundo deja n espacios en blanco
antes de seguir escribiendo. Tab sin argumento equivale a la coma (,). Estos espaciadores
se utilizan en combinacin con el punto y coma (;), para separarlos de los dems
argumentos.
Por defecto, la salida de cada mtodo Print se escribe en una nueva lnea, pero si se coloca
un punto y coma al final de un mtodo Print, el resultado del siguiente Print se escribe en
la misma lnea.
9

Gua de Visual Basic 6.0 Segundo Parcial

Puede controlarse el lugar del formulario o control donde se imprime la salida del mtodo
Print. Esta salida se imprime en el lugar indicado por las propiedades CurrentX y CurrentY
del formulario o control donde se imprime. Cambiando estas propiedades se modifica el
lugar de impresin, que por defecto es la esquina superior izquierda. Existen unas
funciones llamadas TextWidth(string) y TextHeight(string) que devuelven la anchura y la
altura de una cadena de caracteres pasada como argumento. Estas funciones pueden
ayudar a calcular los valores ms adecuados para las propiedades CurrentX y CurrentY.
La funcin str(valor_numrico) convierte un nmero en cadena de caracteres para facilitar
su impresin. En realidad, es lo que Visual Basic 6.0 ha hecho de modo implcito en los
ejemplos anteriores. En versiones anteriores del programa era necesario que el usuario
realizase la conversin de modo explcito.

TIPOS DE FICHEROS
Tanto en Windows como en Visual Basic 6.0 existen, principalmente, dos tipos de
archivos:
1. Ficheros ASCII o ficheros de texto. Contienen caracteres codificados segn el
cdigo ASCII y se pueden leer con cualquier editor de texto como Notepad. Suelen
tener extensin *.txt o *.bat, pero tambin otras como *.m para los programas de
Matlab, *.c para los ficheros fuente de C, *.cpp para los ficheros fuente de C++ y
*.java para los de Java.
2. Ficheros binarios: Son ficheros imagen de los datos o programas tal como estn en
la memoria del ordenador. No son legibles directamente por el usuario. Tienen la
ventaja de que ocupan menos espacio en disco y que no se pierde tiempo y
precisin cambindolos a formato ASCII al escribirlos y al leerlos en el disco.
Con Visual Basic 6.0 se pueden leer tanto ficheros ASCII como ficheros binarios. Adems el
acceso a un fichero puede ser de tres formas principales.
1. Acceso secuencial. Se leen y escriben los datos como si se tratara de un libro:
siempre a continuacin del anterior y sin posibilidad de volver atrs o saltar datos.
Si se quiere acceder a un dato que est hacia la mitad de un fichero, habr que
pasar primero por todos los datos anteriores. Los ficheros de texto tienen acceso
secuencial.
2. Acceso aleatorio (random): Permiten acceder directamente a un dato sin tener que
pasar por todos los dems, y pueden acceder a la informacin en cualquier orden.
10

Gua de Visual Basic 6.0 Segundo Parcial

Tienen la limitacin de que los datos estn almacenados en unas unidades o
bloques que se llaman registros, y que todos los registros que se almacenan en un
fichero deben ser del mismo tamao. Los ficheros de acceso aleatorio son ficheros
binarios.
3. Acceso binario. Son como los de acceso aleatorio, pero el acceso no se hace por
registros sino por bytes.
Antes de poder leer o escribir en un fichero hay que abrirlo por medio de la sentencia
Open. En esta sentencia hay que especificar qu tipo de acceso se desea tener,
distinguiendo tambin si es para lectura (input), escritura (output) o escritura aadida
(append).

Apertura y cierre de ficheros

Para poder leer o escribir en un fichero antes debe ser abierto con la sentencia Open, cuya
forma general es la siguiente:
Open filename For modo As # fileNo
donde:
filename es el nombre del fichero a abrir. Ser una variable string o un nombre entre
dobles comillas ( ).
modo Para acceso secuencial existen tres posibilidades: Input para leer, Output para
escribir al comienzo de un fichero y Append para escribir al final de un fichero ya
existente. Si se intenta abrir en modo Input un fichero que no existe, se produce un error.
Si se abre para escritura en modo Output un fichero que no existe se crea, y si ya exista se
borra su contenido y se comienza a escribir desde el principio. El modo Append es similar
al modo Output, pero respeta siempre el contenido previo del fichero escribiendo a
continuacin de lo ltimo que haya sido escrito anteriormente.
fileNo es un nmero entero (o una variable con un valor entero) que se asigna a cada
fichero que se abre. En todas las operaciones sucesivas de lectura y/o escritura se har
referencia a este fichero por medio de este nmero. No puede haber dos ficheros abiertos
con el mismo nmero. Visual Basic dispone de una funcin llamada FreeFile que devuelve
un nmero no ocupado por ningn fichero.
A continuacin puede verse un ejemplo de fichero abierto para lectura:
11

Gua de Visual Basic 6.0 Segundo Parcial

Open "C:\usuarios\PRUEBA1.txt" For Input as #1
Despus de terminar de leer o escribir en un fichero hay que cerrarlo. Para ello, se
utilizara el comando Close, que tiene la siguiente forma:
Close # fileNo
donde el fileNo es el nmero que se la haba asignado al abrirlo con la instruccin Open.
Lectura y escritura de datos
Sentencia Input
Existen varias formas de leer en un fichero de acceso secuencial. Por ejemplo, para leer el
valor de una o ms variables se utiliza la sentencia Input:
Input # fileNo, varName1, varName2, varName3, ...
donde el fileNo es el nmero asignado al archivo al abrirlo y varName1, varName2, ... son
los nombres de las variables donde se guardarn los valores ledos en el fichero. Debe
haber una correspondencia entre el orden y los tipos de las variables en la lista, con los
datos almacenados en el fichero. No se pueden leer directamente vectores, matrices o
estructuras. Si los datos del disco han de ser escritos por el propio programa, conviene
utilizar la sentencia write (mejor que Print) para garantizar que los valores estn
convenientemente separados. La sentencia Write se ver posteriormente.
Funcin Line Input y funcin Input
La funcin Line Input # lee una lnea completa del archivo y devuelve su contenido como
valor de retorno. Su forma general es:
varString = Line Input #fileNo
Conviene recordar que en los ficheros de texto se suele utilizar el carcter return (o Intro)
para delimitar las distintas lneas. Este es el carcter ASCII n 13, que por no ser un
carcter imprimible se representa en Visual Basic 6.0 como chr(13). En muchas ocasiones
(como herencia del MS-DOS) se utiliza como delimitador de lneas una combinacin de los
caracteres return y linefeed, representada en Visual Basic 6.0 como chr(13)+chr(10). En la
cadena de caracteres que devuelve Line no se incluye el carcter de terminacin de la
lnea.
12

Gua de Visual Basic 6.0 Segundo Parcial

Para leer todas las lneas de un fichero se utiliza un bucle for o while. Visual Basic 6.0
dispone de la funcin EOF (End of File) que devuelve True cuando se ha llegado al final del
fichero. Vase el siguiente ejemplo:
Do While Not EOF(fileNo)
miLinea = Line Input #fileNo
...
Loop
Tambin se puede utilizar la funcin Input, que tiene la siguiente forma general:
varString = Input(nchars, #fileNo)
donde nchars es el nmero de caracteres que se quieren leer y varString es la variable
donde se almacenan los caracteres ledos por la funcin. Esta funcin lee y devuelve todos
los caracteres que encuentra, incluidos los intro y linefeed. Para ayudar a utilizar esta
funcin existe la funcin LOF (fileNo), que devuelve el n total de caracteres del fichero.
Por ejemplo, para leer todo el contenido de un fichero y escribirlo en una caja de texto se
puede utilizar:
Funcin Print #
Para escribir el valor de unas ciertas variables en un fichero previamente abierto en modo
Output o Append se utiliza la instruccin Print #, que tiene la siguiente forma:
Print #fileNo, var1, var2, var2, ...
Considrese el siguiente ejemplo:
Print #1, "El valor de la variable I es: ", I
donde I es una variable con un cierto valor que se escribe a continuacin de la cadena. Las
reglas para determinar el formato de la funcin Print # son las mismas que las del mtodo
Print visto previamente.
Funcin Write #
A diferencia de Print #, la funcin Write # introduce comas entre las variables y/o cadenas
de caracteres de la lista, adems encierra entre dobles comillas las cadenas de caracteres
antes de escribirlas en el fichero. La funcin Write # introduce un carcter newline, esto
es, un return o un return+linefeed despus del ltimo carcter de las lista de variables. Los
13

Gua de Visual Basic 6.0 Segundo Parcial

ficheros escritos con Write # son siempre legibles con Input #, cosa que no se puede decir
de Print #. Vase el siguiente ejemplo:
Se abre el fichero para escritura
Open "C:\Temp\TestFile.txt" For Output As #1
Write #1, "Hello World", 234
Datos separados por comas
MyBool = False: MyDate = #2/12/1969#
Valores de tipo boolean y Date
Write #1, MyBool; " is a Boolean value"
Write #1, MyDate; " is a date"
Close #1
Se cierra el fichero
El fichero TestFile.txt guardado en C:\Temp contendr:
"Hello World",234
#FALSE#," is a Boolean value"
#1969-02-12#," is a date"

SENTENCIAS DE CONTROL
Las sentencias de control, denominadas tambin estructuras de control, permiten tomar
decisiones y realizar un proceso repetidas veces. Son los denominados bifurcaciones y
bucles. Este tipo de estructuras son comunes en cuanto a concepto en la mayora de los
lenguajes de programacin, aunque su sintaxis puede variar de un lenguaje de
programacin a otro. Se trata de unas estructuras muy importantes ya que son las
encargadas de controlar el flujo de un programa segn los requerimientos del mismo.
Visual Basic 6.0 dispone de las siguientes estructuras de control:
If ... Then ... Else
Select Case
For ... Next
Do ... Loop
While Wend
For Each Next
Sentencia IF ... THEN ... ELSE ...
Esta estructura permite ejecutar condicionalmente una o ms sentencias y puede
escribirse de dos formas. La primera ocupa slo una lnea y tiene la forma siguiente:
If condicion Then sentencia1 [Else sentencia2]
14

Gua de Visual Basic 6.0 Segundo Parcial

La segunda es ms general y se muestra a continuacin:
If condicion Then
sentencia(s)
[Else
sentencia(s)]
End If
Si condicion es True (verdadera), se ejecutan las sentencias que estn a continuacin de
Then, y si condicion es False (falsa), se ejecutan las sentencias que estn a continuacin de
Else, si esta clusula ha sido especificada (pues es opcional). Para indicar que se quiere
ejecutar uno de varios bloques de sentencias dependientes cada uno de ellos de una
condicin, la estructura adecuada es la siguiente:
If condicion1 Then
sentencias1
ElseIf condicion2 Then
sentencias2
Else
sentencia-n
End If
Si se cumple la condicion1 se ejecutan las sentencias1, y si no se cumple, se examinan
secuencialmente las condiciones siguientes hasta Else, ejecutndose las sentencias
correspondientes al primer ElseIf cuya condicin se cumpla. Si todas las condiciones son
falsas, se ejecutan las sentencias-n correspondientes a Else, que es la opcin por defecto.
La Figura 3.2 presenta esquemticamente ambas formas de representar estas sentencias:

15

Gua de Visual Basic 6.0 Segundo Parcial

Por ejemplo,
Numero = 53 Se inicializa la variable.
If Numero < 10 Then
Digitos = 1
ElseIf Numero < 100 Then
' En este caso la condicin se cumple (True) luego se ejecuta lo siguiente.
Digitos = 2
Else 'En el caso en que no se cumplan los dos anteriores se asigna 3
Digitos = 3
End If
Sentencia SELECT CASE
Esta sentencia permite ejecutar una de entre varias acciones en funcin del valor de una
expresin.
Es una alternativa a If ... Then ... ElseIf cuando se compara la misma expresin con
diferentes valores. Su forma general es la siguiente:
Select Case expresion
Case etiq1
[sentencias1]
Case etiq2
[sentencias2]
Case Else
sentenciasn
End Select
donde expresion es una expresin numrica o alfanumrica, y etiq1, etiq2, ... pueden
adoptar las formas siguientes:
1. expresion
2. expresion To expresion
3. Is operador-de-relacin expresion
4. combinacin de las anteriores separadas por comas
Por ejemplo,
Numero = 8 Se inicializan las variable.
Select Case Numero Se va a evaluar la variable Numero.
Case 1 To 5 ' Numero est entre 1 y 5.
Resultado = "Se encuentra entre 1 y 5"
16

Gua de Visual Basic 6.0 Segundo Parcial

' Lo siguiente se ejecuta si es True la expresin.
Case 6, 7, 8 ' Numero es uno de los tres valores.
Resultado = "Se encuentra entre 6 y 8"
Case Is = 9 , Is = 10 ' Numero es 9 10.
Resultado = "El valor es 9 o 10"
Case Else ' Resto de valores.
Resultado = "El nmero no se encuentra entre 1 y 10"
End Select
Cuando se utiliza la forma expresion To expresion, el valor ms pequeo debe aparecer en
primer lugar.
Cuando se ejecuta una sentencia Select Case, Visual Basic evala la expresion y el control
del programa se transfiere a la sentencia cuya etiqueta tenga el mismo valor que la
expresin evaluada, ejecutando a continuacin el correspondiente bloque de sentencias.
Si no existe un valor igual a la expresion entonces se ejecutan las sentencias a
continuacin de Case Else.
Sentencia FOR ... NEXT
La sentencia For da lugar a un lazo o bucle, y permite ejecutar un conjunto de sentencias
cierto nmero de veces. Su forma general es:
For variable = expresion1 To expresion2 [Step expresion3]
[sentencias]
Exit For
[sentencias]
Next [variable]
Cuando se ejecuta una sentencia For, primero se asigna el valor de la expresion1 a la
variable y se comprueba si su valor es mayor o menor que la expresion2. En caso de ser
menor se ejecutan las sentencias, y en caso de ser mayor el control del programa salta a
las lneas a continuacin de Next. Todo esto sucede en caso de ser la expresion3 positiva.
En caso contrario se ejecutarn las sentencias cuando la variable sea mayor que
expresion2. Una vez ejecutadas las sentencias, la variable se incrementa en el valor de la
expresion3, o en 1 si Step no se especifica, volvindose a efectuar la comparacin entre la
variable y la expresion2, y as sucesivamente.
La sentencia Exit For es opcional y permite salir de un bucle For ... Next antes de que ste
finalice. Por ejemplo,
17

Gua de Visual Basic 6.0 Segundo Parcial

MyString="Sistemas computacionales "
For Words = 3 To 1 Step -1
' 3 veces decrementando de 1 en 1.
For Chars = Words To Words+4
'5 veces.
MyString = MyString & Chars
' Se aade el nmero Chars al string.
Next Chars
' Se incrementa el contador
MyString = MyString & " "
' Se aade un espacio.
Next Words
'El valor de MyString es: Sistemas computacionales 34567 23456 12345
Sentencia DO ... LOOP
Un Loop (bucle) repite la ejecucin de un conjunto de sentencias mientras una condicin
dada sea cierta, o hasta que una condicin dada sea cierta. La condicin puede ser
verificada antes o despus de ejecutarse el conjunto de sentencias. Sus posibles formas
son las siguientes:
Formato 1:
Do [{While/Until} condicion]
[sentencias]
[Exit Do]
[sentencias]
Loop
Formato 2:
Do
[sentencias]
[Exit Do]
[sentencias]
Loop [{While/Until}condicion]
La sentencia opcional Exit Do permite salir de una bucle Do ... Loop antes de que finalice
ste. Por ejemplo,

18

Gua de Visual Basic 6.0 Segundo Parcial

Check = True Se inicializan las variables.
Counts = 0
Do
' Empieza sin comprobar ninguna condicin.
Do While Counts < 20
' Bucle que acaba si Counts>=20 o con Exit Do.
Counts = Counts + 1 ' Se incrementa Counts.
If Counts = 10 Then ' Si Counts es 10.
Check = False ' Se asigna a Check el valor False.
Exit Do
' Se acaba el segundo Do.
End If
Loop
Loop Until Check = False
' Salir del "loop" si Check es False.
En el ejemplo mostrado, se sale de los bucles siempre con Counts = 10. Es necesario fijarse
que si se inicializa Counts con un nmero mayor o igual a 10 se entrara en un bucle
infinito (el primer bucle acabara con Counts = 20 pero el segundo no finalizara nunca,
bloquendose el programa y a veces el ordenador).
Sentencia WHILE WEND
Esta sentencia es otra forma de generar bucles que se recorren mientras se cumpla la
condicin inicial. Su estructura es la siguiente:
While condicion
[sentencias]
Wend
Por ejemplo,
Counts = 0
While Counts < 20
Counts = Counts + 1
Wend

Se inicializa la variable.
Se comprueba el valor de Counts.
Se incrementa el valor de Counts.
Se acaba el bucle cuando Counts > 19.

En cualquier caso se recuerda que la mejor forma de mirar y aprender el funcionamiento

de todas estas sentencias es mediante el uso del Help de Visual Basic. Ofrece una
explicacin de cada comando con ejemplos de utilizacin.
Sentencia FOR EACH ... NEXT
Esta construccin es similar al bucle For, con la diferencia de que la variable que controla
la repeticin del bucle no toma valores entre un mnimo y un mximo, sino a partir de los
elementos de un array (o de una coleccin de objetos). La forma general es la siguiente:
19

Gua de Visual Basic 6.0 Segundo Parcial

For Each variable In grupo
[sentencias]
Next variable
Con arrays variable tiene que ser de tipo Variant. Con colecciones variable puede ser
Variant o una variable de tipo Object. Esta construccin es muy til cuando no se sabe el
nmero de elementos que tiene el array o la coleccin de objetos.
Ejemplo
En este ejemplo, cuyo formulario se muestra en la Figura de abajo, se representan las
tablas de multiplicar del 1 al 10
El programa permite adems imprimir las tablas en un PictureBox , borrarlas y volver a
imprimirlas, seleccionar con qu tipo de control se genera la tabla, tambin crea un
archivo que se guarda y lee. Para finalizar el programa basta presionar el botn Salir.

Barra Horizontal que permite

escalar para imprimir con Zoom.

20

Gua de Visual Basic 6.0 Segundo Parcial

Objetos y propiedades
Objeto
Propiedad
Label
Nombre
Caption
Combo

Frame

Nombre
Text

Command2

Command4
Command5

Tablas
multiplicar
cboTabla

Objeto
Option
(matriz)
de
Index 0

Propiedad
Nombre

Valor
optControl

Caption

FOR ... NEXT

Index 1

Value
Caption

True
DO ... LOOP
(Formato 1)
DO ... LOOP
(Formato 2)
WHILE ... WEND

Nombre

fraTipoControl

Index 2

Caption

Caption

Index 3

Caption

Index 4

Caption

Nombre

Tipo
de
control
Selecciona la
tabla
pctTabla

BackColor

&H00FFFFFF&

Nombre
Caption
Visible
Enabled
Nombre
Caption
Nombre
Caption

cmdHabilitar
Habilitar
False
False
cmdImprimir
Imprimir
cmdGuardar
Guardar
Archivo

Text
Picture

Valor
lblTabla

Index 1 Value
a4
Command1 Nombre
Caption
Command3 Nombre
Caption
Visible
HScroll1
Nombre
Min
Max
Command6 Nombre
Caption

Sentencia FOR
EACH ... NEXT
False
cmdSalir
Salir
CmdDeshabilitar
Deshabilitar
False
hsbZoom
1
10
cmdLeer
Leer Archivo

Cdigo fuente
Option Explicit
Dim Cuenta, Temporal As Integer
Dim Tabla(10, 1), TipoControl, Ruta As String
Dim LosControles As Control

Private Sub Deshabilitar_Frame(UnFrame As Control, Habilitar As Boolean)

'Variable de tipo Control Para los controles del contenedor en este caso del Frame
'recorre los controles
For Each LosControles In Controls
21

Gua de Visual Basic 6.0 Segundo Parcial

'si est dentro lo deshabilita
If LosControles.Container Is UnFrame Then
LosControles.Enabled = Habilitar
End If
Next
End Sub
Private Sub cboTabla_Click()
optControl_Click (Temporal)
End Sub
Private Sub CmdDeshabilitar_Click()
Call Deshabilitar_Frame(fraTipoControl, False)
cmdHabilitar.Enabled = True
CmdDeshabilitar.Enabled = False
End Sub
Private Sub cmdGuardar_Click()
Open Ruta & "\Tabla.txt" For Output As #1
For Cuenta = 1 To 10
Print #1, Cuenta; "x "; cboTabla.ListIndex + 1; "= "; Cuenta * Tabla(cboTabla.ListIndex
+ 1, 1)
Next Cuenta
Close #1
' Se cierra el fichero
End Sub
Private Sub cmdHabilitar_Click()
Call Deshabilitar_Frame(fraTipoControl, True)
cmdHabilitar.Enabled = False
CmdDeshabilitar.Enabled = True
End Sub
Private Sub cmdImprimir_Click()
pctTabla.Picture = pctTabla.Image
Printer.PaintPicture pctTabla.Picture, 0, 0, pctTabla.Width * hsbZoom.Value, _
pctTabla.Height * hsbZoom.Value, 0, 0, pctTabla.Width, _
pctTabla.Height
Printer.EndDoc
End Sub
Private Sub cmdLeer_Click()
22

Gua de Visual Basic 6.0 Segundo Parcial

On Error GoTo Errores
Dim VarTexto As String
pctTabla.Cls
Open Ruta & "\Tabla.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, VarTexto
pctTabla.Print VarTexto
Loop
Close #1
' Se cierra el fichero
Exit Sub
Errores:
Select Case Err
Case 53
MsgBox "An no se ha creado el archivo, necesita guardarlo primero", vbCritical
End Select
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Private Sub Form_Load()
With pctTabla
.AutoRedraw = True
.ScaleMode = vbPixels
End With
cboTabla.AddItem "Tabla del 1"
cboTabla.AddItem "Tabla del 2"
cboTabla.AddItem "Tabla del 3"
cboTabla.AddItem "Tabla del 4"
cboTabla.AddItem "Tabla del 5"
cboTabla.AddItem "Tabla del 6"
cboTabla.AddItem "Tabla del 7"
cboTabla.AddItem "Tabla del 8"
cboTabla.AddItem "Tabla del 9"
cboTabla.AddItem "Tabla del 10"
'Llena el array
For Cuenta = 1 To cboTabla.ListCount
Tabla(Cuenta, 1) = Cuenta
23

Gua de Visual Basic 6.0 Segundo Parcial

Next Cuenta
Ruta = App.Path
End Sub
Private Sub optControl_Click(Index As Integer)
Temporal = Index
cmdHabilitar.Visible = False
CmdDeshabilitar.Visible = False
Select Case Index
Case 0
TipoControl = "For - Next"
ForNext
Case 1
TipoControl = "DO ... LOOP (Formato 1)"
DO_LOOPFormato1
Case 2
TipoControl = "DO ... LOOP (Formato 2)"
DO_LOOPFormato2
Case 3
TipoControl = "WHILE ... WEND"
WHILE_WEND
Case 4
cmdHabilitar.Visible = True
CmdDeshabilitar.Visible = True
End Select
End Sub
Sub ForNext()
On Error GoTo Errores:
pctTabla.Cls
For Cuenta = 1 To 10
pctTabla.Print Cuenta; "x "; cboTabla.ListIndex
Tabla(cboTabla.ListIndex + 1, 1)
Next Cuenta
pctTabla.Print
pctTabla.Print cboTabla.Text
pctTabla.Print "Tipo de control: "; TipoControl
Exit Sub
Errores:
MsgBox Err
24

1;

"=

";

Cuenta

Gua de Visual Basic 6.0 Segundo Parcial

Select Case Err
Case 13
MsgBox "Selecciona la tabla de multiplicar", vbCritical
End Select
End Sub
Sub DO_LOOPFormato1()
On Error GoTo Errores:
pctTabla.Cls
Cuenta = 1
Do While Cuenta <= 10
pctTabla.Print Cuenta; "x "; cboTabla.ListIndex +
Tabla(cboTabla.ListIndex + 1, 1)
Cuenta = Cuenta + 1
Loop
pctTabla.Print
pctTabla.Print cboTabla.Text
pctTabla.Print TipoControl
Exit Sub
Errores:
Select Case Err
Case 13
MsgBox "Selecciona la tabla de multiplicar", vbCritical
End Select
End Sub
Sub DO_LOOPFormato2()
On Error GoTo Errores:
pctTabla.Cls
Cuenta = 1
Do
pctTabla.Print Cuenta; "x
Tabla(cboTabla.ListIndex + 1, 1)
Cuenta = Cuenta + 1
Loop While Cuenta <= 10
pctTabla.Print
pctTabla.Print cboTabla.Text
pctTabla.Print TipoControl
Exit Sub
Errores:
Select Case Err

";

cboTabla.ListIndex

25

1;

"=

";

Cuenta

1;

"=

";

Cuenta

Gua de Visual Basic 6.0 Segundo Parcial

Case 13
MsgBox "Selecciona la tabla de multiplicar", vbCritical
End Select
End Sub
Sub WHILE_WEND()
On Error GoTo Errores:
pctTabla.Cls
Cuenta = 1
While Cuenta <= 10
pctTabla.Print Cuenta; "x "; cboTabla.ListIndex +
Tabla(cboTabla.ListIndex + 1, 1)
Cuenta = Cuenta + 1
Wend
pctTabla.Print
pctTabla.Print cboTabla.Text
pctTabla.Print TipoControl
Exit Sub
Errores:
Select Case Err
Case 13
MsgBox "Selecciona la tabla de multiplicar", vbCritical
End Select
End Sub

1;

"=

";

Cuenta

Preguntas:
1.

Presenta una opcin de tipo Verdadero o Falso, o S o No. Puede activar varias casillas
de verificacin en un mismo formulario al mismo tiempo.

2.

Presenta directorios y rutas de acceso, y permite que el usuario los seleccione.

3.

Presenta unidades de disco vlidas y permite que el usuario las seleccione.

26

Gua de Visual Basic 6.0 Segundo Parcial

4.

Presenta una lista de archivos y permite que el usuario los seleccione.

5.

Proporciona un contenedor visual y funcional para otros controles.

6.

Permite que un usuario agregue barras de desplazamiento a controles que no las

tienen de forma automtica. (No son las barras de desplazamiento incorporadas que
se incluyen en muchos controles.)

7.

Presenta mapas de bits, iconos o metarchivos de Windows, archivos JPEG o GIF, y

acta como un botn de comando cuando se hace clic en l.

8.

Presenta texto con el que el usuario no puede interactuar ni modificar.

9.

Agrega un segmento de lnea recta a un formulario.

10. Presenta una lista de elementos entre los que el usuario puede elegir.

27

Gua de Visual Basic 6.0 Segundo Parcial

11. Incrusta datos en una aplicacin de Visual Basic.

12. El control OptionButton, como parte de un grupo de opciones con otros botones de
opcin, presenta varias opciones entre las que el usuario slo puede elegir una.

13. Presenta mapas de bits, iconos o metarchivos de Windows, archivos JPEG o GIF.
Tambin presenta texto o acta como contenedor visual para otros controles.

14. Cmo se le llama a esta ejecucin controlada que para ejecutar parcialmente un
programa se pueden utilizar varias formas. Una de ellas consiste en incluir esta
ejecucin controlada (puntos de parada de la ejecucin) en determinadas lneas del
cdigo. La ejecucin controlada se indican con un punto grueso en el margen y un
cambio de color de la lnea.
Breakpoints

28

Gua de Visual Basic 6.0 Segundo Parcial

15. Un mdulo puede contener variables y procedimientos o funciones pblicos y
privados. Son aquellos a los que se puede acceder libremente desde cualquier punto
del proyecto. Para definir una variable, un procedimiento o una funcin es necesario
preceder a la definicin de la palabra.
Los pblicos Public
16. Cmo se le llama a este nombre que designa a una zona de memoria (se trata por
tanto de un identificador), que contiene un valor de un tipo de informacin? Tal y
como su nombre indica, pueden cambiar su valor a lo largo de la ejecucin de un
programa.
Variables
17. Cmo se les llama a estos identificadores pero con la particularidad de que el valor
que se encuentra en ese lugar de la memoria slo puede ser asignado una nica vez?
Contantes, Ejemplo: Const MyVar = 459, Las constantes son privadas por defecto.
18. Esta estructura permite ejecutar condicionalmente una o ms sentencias.
Sentencia IF ... THEN ... ELSE ...
19. Esta sentencia permite ejecutar una de entre varias acciones en funcin del valor de
una expresin.
Sentencia SELECT CASE
20. Esta sentencia da lugar a un lazo o bucle, y permite ejecutar un conjunto de
sentencias cierto nmero de veces.
Sentencia FOR ... NEXT
21. Esta sentencia repite la ejecucin de un conjunto de sentencias mientras una
condicin dada sea cierta, o hasta que una condicin dada sea cierta.
Sentencia DO ... LOOP
22. Esta sentencia es otra forma de generar bucles que se recorren mientras se cumpla la
condicin inicial.
29

Gua de Visual Basic 6.0 Segundo Parcial

Sentencia WHILE WEND
23. Esta construccin es similar al bucle For, con la diferencia de que la variable que
controla la repeticin del bucle no toma valores entre un mnimo y un mximo, sino a
partir de los elementos de un array (o de una coleccin de objetos).
Sentencia FOR EACH ... NEXT

30