[Link].

com

Cursillo de QuicBASIC

1. Acerca del curso

2. Introducción
3. Entrada y salida básica
4. Sentencias de control selectivas
5. Sentencias de control repetitivas
6. Funciones matematicas
7. Programación estructurada
8. Manipulación de cadenas de texto
9. Manejo de archivos

ACERCA DEL CURSO

¡Por fin he terminado!. Debido a cuestiones ajenas a mi no pude terminar este cursillo mas
temprano como hubiera querido, pero ya esta... asi que ¡Welcome to Jamaica!... ¡no!, quiero decir
¡Bienvenido al cursillo de QuicBASIC!.
Puede que a alguna gente le parezca ridículo que, a estas alturas del partido y en pleno siglo XXI,
todavía alguien piense en programar en BASIC. Al empezar a escribir este cursillo no faltó quien
me dijera cosas alentadoras como: "¿para que programas en BASIC?"; "el Basic ya esta obsoleto";
"mejor haz uno de Delphi o Visual Basic, ahora se usa la programación orientada a objetos"; "en
Internet hay miles de tutoriales de BASIC"; "ya el BASIC ni existe, ahora se usa Java y C++"
etcétera, etc. Esto me puso a reflexionar y después de una taza de café y algo de Hallowen y
Genitallica llegue a las siguientes conclusiones:
 La primera es que hay mucha gente ignorante (que por desgracia abunda o abundamos ;-))
hablando de cosas que no sabe. Esa gente que nada conoce y carece del más mínimo
sentido del programador se deja llevar fácilmente por el efecto que causa la palabra
programación orientada a objetos, sin saber ni siquiera lo que es un método o un puntero.
 Para aprender programación orientada a objetos es indispensable tener una muy buena
base de programación estructurada, ya que la programación orientada a objetos no es más
que una parte más avanzada de esta.
 El BASIC llegó para quedarse... bueno, al menos durante mucho tiempo más. El BASIC es
el lenguaje que más se ha usado en la historia de la informática, el lenguaje de
programación más popular y práctico, el más facil de aprender.
 El aprender programación estructurada con QuickBASIC facilita terriblemente el aprender
otros lenguajes como C o Pascal, lo digo por experiencia ;-). Además si piensas dedicarte
a la programación profesionalmente, deberás aprender Visual Basic como mínimo, y si
conoces el BASIC tendrás la mitad de la pelea ganada d;-).
Este curso se presenta como una herramienta para ayudarte a INTRODUCIRTE en el mundo de la
programación estructurada y como una manera de aprender un lenguaje de programación que te
servirá como una herramienta para que TU puedas desarrollar aplicaciones simples como
inventarios, relaciones de personal, métodos numéricos, juegos, etc. Si eres un usuario de Pascal
o conoces C, mejor esfúmate de aquí porque tal vez esto te parezca aburrido, sin embargo si
tienes curiosidad por el BASIC puedes leerte el curso. Para este curso estoy basándome en un
compilador llamado Microsoft QuickBASIC en su versión 4.5, aunque puedes usar el interprete
QBasic e incluso Turbo Basic de Borland, aunque para que puedas sacarle todo el jugo a este
curso sería bueno que usareis el QuickBASIC.
Puedes buscarlo en Internet utilizando un sabueso como Altavista o Lycos y tipeando cosas como
[Link], QBasic, BASIC, QB45, QuickBASIC, etcétera, etc. Por ahí saldrá...
Tal vez términos como compilador, intérprete, programación orientada a objetos los intuyas pero no
sepas lo que significan; sin embargo no tengas apuro, en la Introducción se explican estos
conceptos. Hasta el capítulo 5 sigo la misma métrica, la cual se basa en explicar detalladamente
cada cosa, comprender lo hecho e ir describiendo los pormenores de cada cosa, además de que a
lo largo de todos los capítulos incluyo varios ejemplos probados que puedes copiar y pegar para
correrlos. Desde el capitulo 6 me desligo un poco de pormenorizar y me enfoco mas a la práctica y
a lo objetivo, imaginándome que fácilmente lo podrás seguir.
Esta es la "primera edición" de este cursillo, por lo que sin duda habrá errores y le faltarán muchas
cosas, pero de ti depende que sea la ultima o que haya más. Envíame tus comentarios y
sugerencias a mi correo, cuya dirección encontrarás al final de cada capítulo, dime si te gusta, si
tengo horrores... ¡digo errores!, si necesita algo, si le sobra, si vale más darle aire, si es útil, etc.
He decidido crear los capitulos de este cursillo en formato Word 97 ya que es el más popular y me
permite crear efectos graficos y tablas facilmente, además que a ti te permitirá insertar marcadores
(Insertar/Marcador...) para que puedas tener un mejor control si en un momento dado quieres
saber donde te quedaste leyendo en determinado día, configurar la impresión, insertar saltos,
copiar y pegar los ejemplos, etc.
Este texto se entrega "tal cual", esto es, sin garantía de ningún tipo tanto explícita como implícita,
no me hago responsable del uso que le des tanto al material como al caso de estudio, sin embargo
mi intención es que te sirva de algo.
Este texto esta protegido por las leyes de derechos de autor, en México y en otros paises,
cualquier modificación y/o distribución ilicita corresponde a sanciones civiles y/o penales que
seran....... ja, ja, jua, (que dijeron, a este que mosca le pico jeje). Puedes distribuirlo, copiarlo y/o
modificarlo por cualquier medio que te dé tu regalada gana, siempre y cuando dejes la nota que va
al final de cada capítulo. Gracias ;-)

INTRODUCCION
En la actualidad es imprescindible acelerar y automatizar lo más posible diversas tareas en las
empresas, escuelas, dependencias, así como en nuestra vida diaria. Tareas como llevar el control
del personal de una compañía, realizar cálculos matemáticos de manera fiable, rápida y certera;
simular el comportamiento de una molécula bajo ciertas condiciones, encontrar una buena receta
para cocinar un pato, regular la temperatura de una habitación, guardar datos de nuestros amigos,
o simplemente matar el tiempo con algún juego, pueden realizarse mediante un programa de
computadora.
Para crear un programa computacional es necesario conocer un lenguaje de programación, es
decir, la herramienta que nos ayudará a mediar con los recursos de la computadora. En los inicios
de la era Informática crear un programa era un verdadero drama, ya que esto requería de
muchísimo tiempo y dedicación y generaba muy poco. A continuación vamos a dar un paseíllo a
través de la evolución de los lenguajes de programación.
El lenguaje máquina
EL lenguaje nativo de una computadora se conoce como “lenguaje máquina” y esta basado en
secuencias de 0 y 1 (código binario) que le indican a la máquina una cierta instrucción. Este tipo de
programación es demasiado tedioso y es más lo que consume que lo que genera. Un método
inventado por los programadores para simplificar esta desgastante tarea fue la creación del
lenguaje ensamblador.
0001, 01010011, 1100, 100110
Lenguaje ensamblador
El lenguaje ensamblador encierra las diferentes ordenes que se dan con 0 y 1 en un número
de instrucciones y símbolos limitado y fácil de recordar. El lenguaje ensamblador convierte estas
palabras reconocidas y operadores a lenguaje máquina y a continuación ejecuta el programa. El
problema con este lenguaje radica en que no es portable, es decir, un programa escrito en lenguaje
ensamblador en una maquina con un microprocesador de determinado tipo no se puede ejecutar
en otra maquina con diferente microprocesador. Para crear un programa igual para ese otro CPU,
las instrucciones son diferentes. Ahora, el problema radicaba en crear un tipo de lenguaje que en
una sola sentencia pudiera crear la misma instrucción para uno y otro procesador. Esto llevó a los
desarrolladores de software a la creación de los lenguajes de alto nivel.
LES DI, T
MOV BX, WORD PTR ES:[DI]
 MOV AX, 4400H
INT 21H
TEST DX, 0080H
Lenguajes de alto nivel
Los lenguajes de alto nivel utilizan palabras reservadas generalmente en inglés o
composiciones de estas para darle ordenes a la máquina; lo mismo es una orden de alto nivel para
un procesador por ejemplo Pentium, un Cyrix o un AMD. Los lenguajes de alto nivel se dividen en
dos grupos: Compiladores e intérpretes. Un interprete generalmente ejecuta las instrucciones del
código fuente (el programa que nosotros escribimos) línea por línea; es decir nuestro programa no
se ejecuta solo, sino que tiene que ser un programa reconocedor del lenguaje (intérprete) el que
ejecute nuestro programa. En cambio los compiladores hacen lo siguiente: toman el código
fuente, luego lo convierten en un código o programa objeto (compilación) -que generalmente tiene
una extensión .obj- para después combinarlo con las librerías (a este proceso se le llama link,
linker o enlace) y formar finalmente el programa en código reconocible por la máquina o programa
ejecutable (con extensión .exe).
 Nota: Existen dos conceptos fundamentales al hablar de programación: Programación
estructurada y programación orientada a objetos (POO). La programación estructurada, como su
nombre lo dice, estructura un programa en diferentes subprogramas (que comúnmente se llaman
procedimientos o funciones) que hacen cada uno una determinada tarea para el programa en
general. La POO es un tipo de programación estructurada en la que un programa esta formado por
conjuntos de datos y subprogramas llamados "objetos".
Algunos de los lenguajes de alto nivel más difundidos son:

FORTRAN: (FORmula TRANslator, Traductor de fórmulas) Es considerado por los estudiosos

como el primer lenguaje de alto nivel que se creó. Desarrollado allá por 1954, fue creado
originalmente por IBM para ayudar a los ingenieros y científicos a trabajar con complejas fórmulas
matemáticas, actualmente se sigue utilizando en investigación e ingeniería, y cabe mencionar que
es muy utilizado por la NASA en el desarrollo de varios proyectos.
C: (Llamado así por su predecesor, el lenguaje B) Es un lenguaje desarrollado por Dennis Ritchie y
Brian Kerninghan en los laboratorios AT&T en E.U, por ahí de 1974. Es un lenguaje que combina
sentencias de alto y bajo nivel, es muy portable y es utilizado principalmente por los programadores
intermedios-avanzados y avanzados ya que es un poco más difícil de aprender que otros
lenguajes, aunque es muy productivo y potente. Es muy utilizado y se considera un excelente
lenguaje.
C++: ( Se pronuncia en español Se plus plus) Una versión orientada a objetos del lenguaje C
creada a mediados de los 80’s por Bjarne Strousptrup también en los laboratorios AT&T,
basándose en la filosofía de la reutilización de código y una mayor independencia e integración de
procedimientos y funciones. Se considera excelente lenguaje y es de los más utilizados para el
desarrollo de aplicaciones.
Java: Creado a mediados de los 90’s por la compañía Sun Microsystems basándose en el C++. Es
un lenguaje de POO que es utilizado principalmente para crear aplicaciones para redes e Internet.
Es un interprete, corre en una “maquina virtual” y es el mejor considerado actualmente, ya que es
totalmente portable. Corre en todos los sistemas operativos más usados (Solaris, Linux, Windows,
etc.) y en todas las plataformas (PowerPC, Intel, SPARC, Cyrix, AMD).
Pascal: (En honor al matemático francés Blaise Pascal) Fue creado por el profesor suizo Niklaus
Wirth con el propósito de enseñar programación estructurada y metódicamente, allá por 1973. Es
un lenguaje imperativo y muy estricto, fuertemente tipeado y esta muy bien considerado por los
programadores. Se suele enseñar como primer o segundo lenguaje a principiantes. Aunque existen
varias versiones del Pascal como TMT Pascal y Microsoft QuickPascal, el Pascal ganó popularidad
gracias a Turbo Pascal, que fue un compilador lanzado al mercado por la compañía Borland
International (ahora Inprise Corp.) a principios de los 80's. Turbo Pascal era un compilador que se
lanzó al mercado como un experimento, pero resulto ser todo un éxito ya que era
endemoniadamente veloz, valía solo $ 49.99 (US) y trabajaba en sistemas IBM. Posteriormente el
Turbo Pascal se fue actualizando hasta llegar a la versión 7.x que soportaba POO desde la versión
5.5, esto sin perder el campeonato en velocidad.
Breve historia del BASIC
BASIC: (Acrónimo de Begginers All-purpouse Simbolic Instruction Code, Código de instrucciones
simbólicas multiuso para principiantes) Fue desarrollado por Tomas Kurtz y John Kemeny en
Dartmouth College como un dialecto del Fortran para enseñar programación de una manera fácil a
los que en ese tiempo (1964) se querían introducir al mundo de la informática. El BASIC es un
lenguaje “orientado a personas”, es el más popular y el más utilizado en la historia de la informática
pero por desgracia esta muy mal considerado entre los programadores llamados “profesionales”,
ya que según ellos se tiende a hacer programas poco legibles. Cuando recién se crearon las PC, el
lenguaje BASIC se convirtió en la primera lengua franca de las computadoras gracias a Microsoft
BASIC, ya que este venía instalado junto con los ordenadores IBM y su uso era muy fácil. El
lenguaje BASIC es el lenguaje de programación del que se han creado más versiones y dialectos,
pero ganó su popularidad debido a algunas implementaciones como Apple BASIC (para
computadoras Apple), y sobre todo a GW-BASIC y BASICA (ambos de Microsoft). Lo malo hasta
aquí era que el lenguaje requería de números de línea, era un interprete y era miserablemente
estructurado.
Posteriormente vinieron dos potentes versiones del BASIC: Microsoft QuickBASIC y luego
Turbo Basic (de Borland). Ambas versiones presentaban un lenguaje estructurado,
considerablemente mejorado y muy amigable con el programador tanto novato como avanzado.
Aunque debido a tantas versiones que habían salido del lenguaje BASIC se trato inútilmente de
crear un estándar, este lo vinieron a marcar los BASIC de Microsoft (como siempre...): BASICA y
GW-BASIC. Esto es, todas las versiones salidas posteriormente “tendrían” que ser compatibles con
BASICA o GW-BASIC. Aunque Turbo Basic y QuickBASIC eran compatibles con los BASIC de
Microsoft, de ambas versiones la que ganó mas popularidad fue QuickBASIC a pesar de que nada
tenía a que hacer frente a Turbo Basic en cuanto a velocidad de compilación. Por el otro lado,
QuickBASIC desde la versión 4.0 (hasta donde sé) contaba con un completo sistema de ayuda que
mejoró sustancialmente en la versión 4.5, soporte de ratón; capacidad de obtener amplia ayuda,
ejemplos y pormenores sobre una sentencia con solo dar un clic con el botón secundario del ratón
sobre ella, lo cual resultaba muy útil, cómodo y amigable. Además contenía otras muchas más
comodidades con respecto al Turbo como tipos de variables definidos por el usuario, editor
inteligente, un gestor de ventanas, y capacidad de declarar variables y constantes de una manera
más potente. Posteriormente se fue perfeccionando hasta llegar a su versión 6.0 llamada desde ahí
y hasta la versión 7.1 BASIC PDS (Profesional Development System, Sistema de desarrollo
profesional). Posteriormente Microsoft distribuyó junto con las últimas versiones de MS-DOS un
interprete llamado Qbasic, del cual salió la versión 1.0 y luego la 1.1 que corregía algunas
deficiencias de su predecesor. Cabe aclarar que a raíz de esto, mucha gente usa el término Qbasic
para referirse a los anteriores compiladores QuickBASIC. Este intérprete (Qbasic) es compatible
con GW-BASIC, BASICA y QuickBASIC, salvo por algunas cosillas.
Actualmente el lenguaje BASIC es ya estructurado, compilado y cuenta con gran utilización en
las empresas gracias a Visual Basic, ya que incorpora varias mejoras como por ejemplo su
utilización en procesadores de texto, hojas de calculo, bases de datos, páginas Web, etc. Como
cultura general, solo mencionaré que Visual Basic es una potente herramienta basada en el
lenguaje BASIC y en la programación orientada a objetos (POO) que permite programación
pornográfica...¡digo gráfica! para GüinDOS e Internet, capaz de desarrollar aplicaciones
rápidamente (RAD por sus siglas en inglés: Rapid Aplication Development, Desarrollo Rápido de
Aplicaciones) y con un mínimo de código.
Pero a pesar de todo, el propósito fundamental con que fue creado el lenguaje BASIC fue el
servir como instrumento para enseñar a programar a principiantes de una manera fácil, y es ideal
para aprender rápidamente otros lenguajes considerados más difíciles como Pascual o C. Pero
bueno, como ya me extendí mucho y hemos hecho nada, pasemos “a lo que te truje Chencha”, que
es aprender a programar (¡yea, vámonos!... d:-)).

CAPITULO I
 ENTRADA Y SALIDA BASICA

SENTENCIAS REM, PRINT, CLS, END

Escribamos en el editor de QB el siguiente programa:
rem Simple saludo ([Link])
rem 17/08/2000
cls
print "¡¡¡ BIENVENIDO A QUICKBASIC 4.5 :-) !!!"
end
¿Qué es lo que hace el programa anterior?. Presiona <F5>. Nos muestra en la pantalla el texto
“¡¡¡ BIENVENIDO A QUICKBASIC 4.5 :-) !!!”. Ahora, lo que hace la sentencia REM (abreviatura de
la palabra inglesa remark) es insertar un comentario dentro de nuestro programa fuente; esto es, el
comentario no será tomado en cuenta por el compilador, solo sirve para insertar datos que sirvan
como referencia al programa, para saber quien lo hizo, cuándo, para qué sirve, etc. Es bueno
insertar comentarios de manera regular en nuestros programas como referencia a una orden o a
algo que sea de interés para nosotros o para quien vaya a utilizar nuestro programa fuente,
especialmente si trabajamos en grupo o distribuimos nuestras fuentes. Lo que sigue es la
sentencia CLS que borra la pantalla. Es primordial limpiar la pantalla cada vez que iniciemos un
programa, esto para poder trabajar mejor y que se vea más sexy. Para los que todavía no capich,
PRINT es la orden que nos permite la salida por la pantalla, en este caso es la cadena de texto
¡¡¡ BIENVENIDO A QUICKBASIC 4.5 ;-) !!!. Cuando queremos que con la orden PRINT salga texto,
este ha de ir entre comillas dobles (“”).
Para los que no estén familiarizados con los smailis o “emoticones“, estos son formas de
representar expresiones por medio de caracteres; son muy utilizados en el chat para "ahorrar"
tiempo y escribir menos. Por ejemplo el emoticón ;-) de lado parece una carilla guiñando un ojo,
¿ya capik?. Cada quién puede crear sus emoticones según tenga imaginación, algunos que yo uso
son :
:-) Carita sonriente
<:-) De party
0:) Niño bueno
;-) Guiñando un ojo
:.-( Llorando
:-( Tristeza
(.) (.) Busto
:-0 Asombro
d:) Cachucha de lado
:^ Un respiro
]:-> Diablillo
:-x Me voy a callar
:-I Serio
--@ Una flor
:-{ Alguien con bigote

Dejémonos de emoticones y sigamos; la sentencia END nos indica que nuestro programa ha
terminado.
SENTENCIA COLOR
Ahora analicemos este otro programa:
REM Salida de texto con color ([Link])
CLS
COLOR 10 ‘Color verde brillante
PRINT "¡¡¡ BIENVENIDO A QUICKBASIC 4.5 :)!!!"
END
En realidad este programa hace lo mismo que el anterior, solo que el texto sale con un color verde.
La sentencia COLOR nos permite dar color al texto que saldrá por la pantalla:
Sintaxis:
COLOR principal [,de fondo] [,de borde]
- El color principal va del 0 al 15 y del 16 al 31 con parpadeo.
- El color de fondo es opcional y va del 0 al 7
- El color de borde es opcional y va del 0 al 15
Pero ¿qué es ese ‘ y el texto que esta enseguida?. Como se puede adivinar, el apóstrofe (‘) es otra
manera de insertar un comentario y es lo mismo que REM.
Si sales a DOS cuando termines de ejecutar el programa, verás que el prompt quedará del color
del texto (verde). Para que el símbolo de DOS quede con su color original, solo hay que agregar
COLOR 7 (Gris) o CLS antes de END, solo que si le aplicamos el CLS es obvio que el texto que
imprimimos se borrará inmediatamente antes de terminar el programa. Luego veremos como
mejorarlo.

CARACTERES Y OPERACIONES BÁSICAS

Veamos ahora como realizar las operaciones más básicas:
REM Manejo de operadores ([Link])
numero1 = 5
numero2 = 5
suma = numero1 + numero2
multi = numero1 * numero2
divi = numero1 / numero2
resta = numero1 - numero2
expo = numero1 ^ numero2
CLS
PRINT "La suma de"; numero1; "más"; numero2; "es igual a"; suma
PRINT "El producto de"; numero1; "por"; numero2; "es igual a"; multi
PRINT "El cociente de"; numero1; "entre"; numero2; "es igual a"; divi
PRINT "La resta de"; numero1; "menos"; numero2; "es igual a"; resta
PRINT “El resultado de elevar”; numero1;”a la”; numero2 ;”es”; expo
END
Como se puede apreciar en el ejemplo anterior, hacemos 5 operaciones básicas con 2 números
ambos iguales a 5 y guardamos el resultado en cuatro variables cuyo nombre indica más o menos
que operación se hizo con los números. Luego imprimimos en la pantalla 4 mensajes alusivos a las
diversas operaciones que realizamos utilizando las variables numero1 y numero2. Cuando
imprimimos variables, estas no van entre comillas ya que si las ponemos entre comillas QB las
entenderá como si fueran texto e imprimirá solo el nombre de la variable. Por esto pusimos punto y
coma (;) para diferenciarlas del texto y además indicar que después del texto se deje un espacio
para que no se amontone el número con el texto anterior o siguiente.
Veamos este otro ejemplo:
REM Manejo PRINT y variables ([Link])
numero1 = 5
numero2 = 27
CLS
PRINT "El primer número es igual a"; numero1
PRINT "El segundo número es igual a"; numero2
PRINT "La suma de ambos es igual a"; numero1 + numero2
END
Como podemos ver, también podemos realizar operaciones dentro de la misma sentencia
PRINT y no hay purrún. Las operaciones básicas son las siguientes:

Operador Función
* Multiplicación
+ Suma
 - Resta
^ Exponenciación
/ División

Existe también el operador MOD que da el residuo de una división de dos números enteros hasta
donde el cociente es entero. Por ejemplo 14 MOD 5 retorna 4:

Hasta aquí el cociente es entero y el residuo es 4.

Si por ejemplo ponemos 14 MOD 4.6, entonces 4.6 será redondeado a 5 ya que no podemos
utilizar reales con MOD, solo enteros.
También existe el operador división entera que se representa por la diagonal invertida (\) y cuya
función es obtener el cociente entero de una división. Siguiendo con el ejemplo anterior, 14 \ 5
retornara 2:
Hasta aquí el cociente es entero.

Ahora analicemos el siguiente ejemplo:

REM Manejo de operadores ([Link])
baze = 10 ‘Debe ser baze y no base. Ojo...
altura = 5
CLS
PRINT "El área de un triángulo cuya base mide"; baze;
PRINT "y cuya altura mide"; altura; "es:"
PRINT baze * altura / 2
END
Como podemos apreciar, el punto y coma al final de una sentencia PRINT sirve para juntar en una
misma línea de la pantalla otra sentencia PRINT que esta en otro renglón en nuestra fuente. ¿Si
ponemos una coma (,) en vez de punto y coma que pasará?. Ponle (,) en vez de (;) y córrelo
(<F5>). Como puedes ver, lo que esta después de una coma se separa una tabulación
(generalmente 7 espacios).

EL MODIFICADOR TAB
El modificador TAB(n) va después de PRINT y nos permite colocar texto en una determinada
posición del renglón en uso, y donde n es la posición donde queremos que se empiece a imprimir
nuestro texto:
REM Uso de TAB ([Link])
CLS
PRINT TAB(3); "Hello, world!"
PRINT TAB(23); “¡Hola, mundo!”
END
Aquí el texto Hello, world! se imprimirá después de 3 espacios, y el texto ¡Hola mundo! en otro
renglón y desde la posición 23.

 Nota: La pantalla en modo texto consta de 70 columnas y 25 renglones.

TIPOS DE DATOS
Los tipos de datos que se manejan en QuickBASIC son los siguientes:

Nombre Descripción Rango Declaración Espacio en memoria

Integer Entero corto con signo -32768 a 32767 % 2 bytes (16 bits)
Long Entero largo con signo -2,147,483,648 a & 4 bytes (32 bits)
2,147,483,647
Single Real de simple 1.5 E-45 a 3.4 E38 ! 4 bytes (32 bits)
precisión con signo y
con 7 decimales
Double Real de doble precisión 5.0 D-324 a 1.7 D308 # 8 bytes (64 bits)
con signo y 15
decimales
String Cadena de caracteres 0 a 256 caracteres $ 1 byte p/caracter

Por default, todas las variables que utilizamos sin declarar el tipo se asumen como Single.
Pero...¿Cómo declaramos los tipos de las variables?. Para declarar, por ejemplo, una variable que
vaya a almacenar una dirección de una persona (por lo tanto será de tipo String) que se llame
direccion la declaramos de la siguiente forma:

direccion$ = “Morelos y 4ª S/N, Barrio El Paso Blanco”

Para declarar una variable de un tipo basta con poner el identificador al final. Ahora, cuando
nosotros guardamos una cadena de texto en una variable de tipo String, el texto debe de ir entre
comillas dobles (“”).
Para declarar una variable de tipo real, por ejemplo de simple precisión (Single) y que vaya a
guardar el numero 5.123 x 1024 la declaramos de la siguiente forma:

numero! = 5.123E24

Ahora una de doble precisión (Double) que se llame numero2 y que tenga el valor de
1.45877 x 10-298

numero2# = 1.45877D-298
 Observación: Para declarar un exponencial en una variable Single utilizamos E y para declararlo
en una variable de tipo Double utilizamos D.
'--------------
'Ejemplo de tipos de datos ([Link])
'--------------
cadena$ = "Soy una cadena "
enterocorto% = 1200
enterolargo& = 198108
simplereal! = 1.5688
doblereal# = 3.458D+301

CLS
PRINT cadena$
PRINT "Yo soy un entero corto:"; enterocorto%
PRINT "Yo soy un entero largo:"; enterolargo&
PRINT "Yo soy un real simple:"; simplereal!
PRINT "Yo soy un real doble:"; doblereal#
END

RESTRICCIONES Y NOTAS IMPORTANTES

Una de las ventajas y a la vez desventaja que tiene el lenguaje BASIC frente a otros lenguajes de
programación es que podemos crear variables en cualquier parte del programa según las vayamos
necesitando. Cuando creamos una nueva variable, QB automáticamente reserva un espacio en
memoria para almacenar el valor de esa variable, en el caso de los números la variable almacena
un 0 y en el caso de las cadenas se almacena la cadena nula (“”). Esta es un arma de dos filos ya
que podemos caer en errores como el siguiente:
numeroquevalepi=3.141592
CLS
PRINT “El valor de pi es”; numeroqevalepi
END
Nosotros declaramos una variable (Single por default) que se llama numeroquevalepi y que
almacena el valor 3.141597 y al tratar de imprimirla escribimos mal el nombre de la variable y
ponemos numeroqevalepi (sin la u) y lo que hicimos fue crear una nueva variable que por default
toma el valor de 0 en memoria, así lo que se imprimirá en pantalla será:

El valor de pi es 0

Esta es la “desgracia” que tiene marcado al lenguaje BASIC y la mayor causa por la cual esta mal
considerado entre los programadores “profesionales”. Esto en programas cortos es fácil de
detectar, pero en programas largos es un poco más difícil; aun así, esto permite una programación
más fluida, y es ideal para usar variables “sobre la marcha”, cosa que no tienen otros lenguajes
como Pascual o Modula-2. Con la práctica es muy fácil de detectar este tipo de errores.
Por fortuna Mocosoft...¡digo Microsoft!, pensó en esto y agregó la opción de requerir la declaración
de las variables en el Visual Basic; o sea, si una variable es hallada en el programa y no tiene
declaración, se marca un error. Bueno, pero eso es otra historia.
Otra observación es que no podemos usar palabras reservadas para nombrar una variable, por
ejemplo, no podemos utilizar una variable que se llame Print, Base, Rem, Cls, End, Len, Right$,
Color, etc. ni en mayúsculas ni en minúsculas; tambien las variables no pueden empezar por un
número o por un identificador de tipo como #perro, !cosa, 3cadenas, etc., ni tener espacios,
operadores, la ñ o el guión bajo (_).
Una manera más fácil de declarar el tipo de una variable es con DIM.

ORDEN DIM
Permite la declaración de variable de un tipo determinado.
'--------------
'Ejemplo de tipos de datos usando DIM ([Link])
'--------------
DIM cadena AS STRING
DIM enterocorto AS INTEGER
DIM enterolargo AS LONG
DIM simplereal AS SINGLE
DIM doblereal AS DOUBLE

cadena = "Soy una cadena "

enterocorto = 1200
enterolargo = 198108
simplereal = 1.5688
doblereal = 3.458D+301

CLS
PRINT cadena$
PRINT "Yo soy un entero corto:"; enterocorto
PRINT "Yo soy un entero largo:"; enterolargo
PRINT "Yo soy un real simple:"; simplereal
PRINT "Yo soy un real doble:"; doblereal
END
La orden DIM permite una mejor manera de declarar variables y evita tener que poner los
identificadores de tipo cada vez que la utilicemos, lo cual ahorra una muy tediosa tarea en
programas largos.

 Nota: Si estas utilizando Turbo Basic (de Borland) no puedes declarar variables de esta manera.
<índice>

ENTRADA DE DATOS: LA ORDEN INPUT

Hasta ahora hemos visto como guardar valores y como sacarlos por la pantalla, ahora vamos a ver
dejar que el usuario los introduzca:
' Ejemplo de INPUT ([Link])

CONST pi = 3.1416 ' Con CONST se declara una constante cuyo valor no
' cambiará durante el programa (solo QB).

CLS : COLOR 10 ' Podemos utilizar mas de dos ordenes en una misma línea
' separándolas por dos puntos (:).

PRINT TAB(33); "AREA DE UN CIRCULO"

PRINT : PRINT
COLOR 7
INPUT "¿Cuál es el radio del círculo"; radio
area = pi * (radio ^ 2)
PRINT "El área del circulo es"; area
END

La sentencia INPUT se compone por:

- Un letrero (opcional) entre comillas, seguido de un (;) que le pondrá un signo de interrogación
al final del letrero al salir por la pantalla.
- Una o más variables donde se almacenaran valores.
En el caso de que queramos que el usuario nos dé 2 o más mas valores en una misma sentencia
INPUT se hace de la siguiente manera:
' Ejemplo de INPUT con mas de un valor ([Link])
CLS : COLOR 10
PRINT TAB(33); "AREA DE UN TRIANGULO"
PRINT : PRINT
COLOR 7
INPUT "Introduzca la base y la altura del triángulo (separados entre sí por una coma) => “, b, h
a = (b * h) / 2
PRINT "El área del triángulo es"; a : END
Si no queremos que aparezca un signo de interrogación (?) al final de nuestro letrero debemos
ponerle una coma (,) . Para almacenar más de una variable en una misma sentencia INPUT, estas
deben ir separadas entre si por comas; de igual manera el usuario debe de introducir los datos
que se le piden separados entre si por una coma. Por ejemplo, si el programa anterior pide
Introduzca la base y la altura del triángulo (separados entre sí por una coma) => _

El usuario puede introducir

5.6, 4

CAPITULO II
SENTENCIAS DE CONTROL SELECTIVAS
OPERADORES RELACIONALES
Los operadores relacionales nos sirven para determinar la relación que tiene una expresión con
otra. Los operadores relacionales que manejaremos en QB son los siguientes:
 Operador o signo Significa Ejemplo Se lee
= Igual que x=y x igual a y
< Menor que x<y x menor que y
> Mayor que x>y x mayor que y
<= Menor o igual x <= y x menor o igual a y
>= Mayor o igual x >= y x mayor o igual a y
<> Diferente de x <> y x diferente de y

SENTENCIA IF...THEN...ELSE
Muchas veces se nos presentan situaciones en las que tenemos que evaluar una condición o
situación. Si la condición es verdadera o “cumple”, entonces ejecutamos una o más instrucciones;
si no, ejecutamos otra u otras instrucciones. Veamos el siguiente ejemplo:
CLS
PRINT TAB(20); "VALIDA SI UN NUMERO ES NEGATIVO O POSITIVO"
PRINT : PRINT
INPUT "Introduce un entero -> ", numero

IF numero < 0 THEN

PRINT "El número es negativo"
ELSE
PRINT "El número es positivo"
END IF
END

El programa anterior valida si un entero es positivo o negativo de la siguiente forma:

- El programa pide un número.
- Si (if) el numero introducido es menor que cero (esta es la condición a evaluar) entonces
(then) se imprime el mensaje “El número es negativo”.
- Si no (else) es negativo, entonces se imprime el mensaje “El número es positivo”.
Un bloque de instrucciones IF...THEN...ELSE debe terminar siempre con END IF para indicar que
nuestro proceso de selección IF ha terminado. Ahora, las condiciones que se manejan en las
sentencias IF pueden ser verdaderas (True, en inglés) o falsas (False). Si por ejemplo corremos el
programa anterior y al pedirse el numero nosotros introducimos un –1, entonces la sentencia IF
verá que la condición es verdadera (en efecto el número es menor que 0) y ejecutará la sentencia o
sentencias que siguen al IF hasta encontrar el ELSE, luego se pasará hasta el END IF para luego
seguir con el curso del programa. De otra forma si nosotros introducimos un 81, entonces la
sentencia IF verá que las condición es falsa (false) y no ejecutará las sentencias que le siguen,
luego se pasará hasta la sentencia ELSE y se ejecutaran las sentencias que le siguen hasta que
termine el bloque (END IF), para luego continuar el curso del programa.
Las condiciones suelen también ser afectadas por los operadores lógicos. Los operadores lógicos
nos sirven para evaluar condiciones tales como:
- “Si numero1 no es igual a cero entonces...”
(IF NOT numero1 = 0 THEN...)
- "Si numero1 es igual a cero o menor a 1 entonces...“
(IF numero1 = 0 OR numero1 > 1 THEN...)
- “Si numero1 es igual a 1 y numero2 es menor que cero entonces...”
(IF numero1 = 1 AND numero2 < 0 THEN)
- "Si numero1 es igual a cero ó menor que 0 entonces...”
(IF numero1 = 0 XOR numero <= 0 THEN)

Valores de: Valor retornado por el operador lógico:

X y NOT x x AND y x OR y x XOR y x EQV y x IMP y
V v f v v f v V
V f f f v v f F
F v v f v v v F
F f v f f f v V

Para que esto quede más claro que el agua de "El Tintero", veamos estas expresiones cotidianas
que nos ayudarán a ver más claro que son los operadores lógicos:
NOT
Una chica le pregunta a otra:
- “¿Vas a ir al baile?. La otra contesta:
- No, no iré.
- Si no vas al baile no verás a Fernando Antonio Del Valle Santiesteban...
Aquí si la chica no va al baile, entonces no podrá ver a Fernando A. Del V. Santiesteban. Si va,
entonces lo verá.
INPUT “¿Irá Petra al baile (si = 1, no = 0)?. Introduzca un número”; baile
si = 1
no = 0

IF NOT baile = si THEN

PRINT “No verá a Fernando”
ELSE
? “Verá a Fernando” ‘ El signo ? es lo mismo que PRINT
END IF
END

AND
Una persona va a sacar la cartilla y la secretaría le dice:
- Necesitas el acta de nacimiento original y un comprobante de domicilio.
Para que esa persona pueda obtener su cartilla necesita el acta y un comprobante de domicilio. Si
le falta cualquiera de estos papeles entonces no se la dan.

PRINT “Introduzca la respuesta siendo SI = 1 Y NO = 0

INPUT “¿Trajo el acta de nacimiento -> “; acta
INPUT “¿Trajo el comprobante de domicilio -> “; domicilio
si = 1
no = 0

IF acta = si AND domicilio = si THEN

PRINT “Toma tu cartilla”
ELSE
PRINT “Vaya por lo que le falta y vuelva cuando tenga todos los papeles”
END IF
END

OR
El escuincle a la mamá en la nevería:
- ¿Mamá me compras una nieve?. La mamá le dice
- De cual quieres hijo, de fresa o de limón. El escuincle goloso le contesta:
- Quiero de las dos.
- Esta bien hijo.
Aquí si el escuincle escoge de fresa, de limón o de ambas, de todas maneras comerá nieve.
INPUT “¿Quieres nieve de fresa (si = 1, no = 0)”; fresa
INPUT “¿Quieres nieve de limón (si = 1, no = 0)”; limon
si = 1
no = 0

IF fresa = si OR limon = si THEN

PRINT “Toma tu nieve”
ELSE
PRINT “No comerás nieve” ‘ Si el lepe quisiera “otro sabor” o no quisiera ninguna de las dos
END IF
END

A este tipo de o se le llama o inclusivo, ya que puede incluir a ambos.

XOR
El escuincle le dice a la mamá en la nevería:
- ¿Mamá me compras una nieve?. La mamá le dice:
- De cual quieres hijo, de fresa ó de limón. El escuincle goloso le contesta:
- Quiero de las dos.
- No, hijo: fresa ó limón, de las dos no.

? “Escoge solo un sabor (si = 1, no = 0)

INPUT “¿Quieres nieve de fresa”; fresa
INPUT “¿Quieres nieve de limón”; limon
si = 1
no = 0
IF fresa = si XOR limón = si THEN
‘ Si fresa y limón son si, la condición no se cumple (XOR retorna false) y por lo tanto no se ejecuta.
? “Toma tu nieve” ‘ Si el lepe quiere solo alguna de las dos
ELSE
? “Fresa o limón pero no de las dos o de otra
END IF
END
A este ó le llamamos también ó exclusivo porque excluye a una opción.
EQV
Cuando aumenta la temperatura, todos los metales se dilatan en proporción a su respectivo
coeficiente de dilatación.
CLS
INPUT “¿Aumentó la temperatura (si = 1, no = 0)”; temp
INPUT “¿Se dilató la varilla (si = 1, no =0)”;delta
si = 1
no = 0

IF temp = si EQV delta = si THEN

PRINT “Correcto :-)”
ELSE
PRINT “Mentiroso ;-)”
END IF
END

IMP
“Si estudias para el examen pasarás”. Aquí estamos afirmando que si se estudia, entonces se
pasará.

CLS
? “si = 1, no = 0”
INPUT “¿Estudiaste ->”; estudiar
INPUT “¿Pasaste el examen ->”; examen
si = 1
no = 0

IF estudiar = si IMP examen = si THEN

? “Si te creo”
ELSE
? “Es difícil que alguien que estudie repruebe un examen”
END IF
END

 Nota: Puede que alguien piense en cosas como que pasaría si tuviéramos algo como

a = x AND y
en un programa. En este caso los operadores lógicos producen operaciones binarias entre los
valores de las variables; esto es, operaciones al nivel de ceros y unos.
IF ANIDADOS
Dentro de un programa podemos evaluar ciertas condiciones utilizando sentencias IF dentro de
más bloques IF...THEN...ELSE. A este conjunto de sentencias agrupadas se les llama “IF
anidados”.
CLS
INPUT "Introduce un número del 1 al 10-> “, n
PRINT "El número introducido fue ";
COLOR 10

IF n < 5 THEN
IF n = 1 THEN PRINT "uno"
IF n = 2 THEN PRINT "dos"
IF n = 3 THEN PRINT "tres"
IF n = 4 THEN PRINT "cuatro"
ELSE
IF n = 5 THEN PRINT "cinco"
IF n = 6 THEN PRINT "seis"
IF n = 7 THEN PRINT "siete"
IF n = 8 THEN PRINT "ocho"
IF n = 9 THEN PRINT "nueve"
IF n = 10 THEN PRINT "diez"
END IF
COLOR 7
END

El programa anterior simplemente divide los posibles valores de n en dos partes: los números
menores que 5, y los números iguales o menores que 5. En el ejemplo podemos ver algunas
cosillas:
La sentencias IF pueden ejecutarse sin necesidad de que haya un ELSE después. O sea, si
la sentencia se cumple la orden se ejecuta y si no, no pasa nada.
Si la sentencia IF solo tiene una orden que ejecutar, esta puede ir inmediatamente después
del THEN.
El END IF solo se pone cuando existe un bloque IF...THEN..ELSE, o cuando existe un IF que
si se cumple ejecutará varias instrucciones, sin que después haya un ELSE; esto es:

IF condición THEN
instrucción 1
instrucción 2
 instrucción 3
...
instrucción n
END IF
Ahora veamos un ejemplo algo más “complejo”:
CLS
PRINT "PROGRAMA QUE DETERMINA SI UN CARACTER ES:"
PRINT "1) Letra minúscula de 'a' hasta 'e' "
PRINT "2) Letra mayúscula de 'A' hasta 'E' "
PRINT "3) Numero del 1 al 5"
PRINT "4) Operador matemático"
PRINT "5) Otro caracter"

PRINT
COLOR 7
INPUT "Introduce un caracter -> ", c$
PRINT "El caracter introducido es ";
COLOR 10

IF c$ = "1" XOR c$ = "2" XOR c$ = "3" XOR c$ = "4" XOR c$ = "5" THEN
PRINT "número"
ELSE
IF c$ = "+" XOR c$ = "-" XOR c$ = "*" XOR c$ = "/" XOR c$ = "\" XOR c$ = "^" THEN
PRINT "operador matemático"
ELSE
IF c$ = "a" XOR c$ = "b" XOR c$ = "c" XOR c$ = "d" XOR c$ = "e" THEN
PRINT "letra minúscula"
ELSE
IF c$ = "A" XOR c$ = "B" XOR c$ = "C" XOR c$ = "D" XOR c$ = "E" THEN
PRINT "letra mayúscula"
ELSE
PRINT "otro caracter diferente de letra (a – e), número (1 – 5) u operador matemático"
END IF
END IF
END IF
END IF
END

Como el caracter introducido solo puede ser uno particular usamos XOR.
Existen bloques IF...THEN...ELSE anidados.
Si un IF no se cumple, entonces se salta al ELSE inmediato que da lugar a otro IF.
Cada bloque IF...THEN...ELSE termina con el END IF que le queda más cerca. Por ejemplo, el
ultimo bloque IF...THEN...ELSE termina con el primer END IF; luego, el bloque que contenía a
este bloque, termina con el segundo END IF, y así sucesivamente.
Si lo ejecutas paso por paso (F8), verás mejor como funciona.
ELSEIF
En pocas palabras, ELSEIF es un “IF inmediatamente después de un ELSE” o también lo podemos
definir como “un ELSE que evalúa una condición”. Veamos el ejemplo anterior usando ELSEIF.

INPUT "Introduce un caracter -> ", c$

PRINT "El caracter introducido es ";
COLOR 10

IF c$ = "1" XOR c$ = "2" XOR c$ = "3" XOR c$ = "4" XOR c$ = "5" THEN
 PRINT "número"
ELSEIF c$ = "+" XOR c$ = "-" XOR c$ = "*" XOR c$ = "/" XOR c$ = "\" XOR c$ = "^" THEN
PRINT "operador matemático"
ELSEIF c$ = "a" XOR c$ = "b" XOR c$ = "c" XOR c$ = "d" XOR c$ = "e" THEN
PRINT "letra minúscula"
ELSEIF c$ = "A" XOR c$ = "B" XOR c$ = "C" XOR c$ = "D" XOR c$ = "D" THEN
PRINT "letra mayúscula"
ELSE
PRINT "otro caracter diferente de letra (a – e), número (1 – 5) u operador matemático"
END IF
END
La sentencia ELSEIF es también una parte opcional de un bloque IF...THEN...ELSE. Podemos
también tener uno o varios ELSEIF dentro de un solo bloque IF...THEN...ELSE
Si el primer IF no se cumple, QB automáticamente va hasta el ELSEIF donde la condición se
cumple y evalúa las ordenes que están después de este hasta que se topa con otro ELSEIF,
entonces saldrá del bloque IF...THEN...ELSE.
Si ni el IF ni los ELSEIF se cumplen, entonces el programa se va hasta ELSE.
ELSEIF constituye una manera muy potente de evaluar condiciones.

ERRORES FRECUENTES Y CONSIDERACIONES

Como ya vimos anteriormente, podemos tener programas como el siguiente en el que haya IF
“sueltos”, es decir, sin ELSE y sin END IF.
CLS
INPUT “Un número (1 – 4) -> “, n
IF n < 3 THEN
IF n = 1 PRINT “uno”
IF n = 2 PRINT “dos”
ELSE
IF n = 3 PRINT “tres”
IF n = 4 PRINT “cuatro”
END IF
END
Sin embargo, no debemos poner ELSE “sueltos” (o colgantes), es decir, sentencias ELSE que
vayan después de otras sentencias ELSE y que además no contengan ninguna condición a
evaluar, es decir, que no contengan un IF después de ellas:
CLS
INPUT "Número (1-3) -> ", n
IF n = 1 THEN
PRINT "uno"
ELSE
PRINT "dos"
ELSE ‘ No hay condición a evaluar, solo una orden PRINT enseguida.
PRINT "tres"
END IF
END
Lo que hará el programa anterior es evaluar el IF, si se cumple se saltará el primer ELSE pero no
el segundo y lo ejecutará. Luego si hubiera más ELSE “sueltos”, ejecutará uno no y otro sí,
uno no y otro sí, así sucesivamente. En el caso de que la condición no se cumpliera, se ejecutará
el primer ELSE y se saltará el siguiente hasta terminar el bloque. Si hubiera mas ELSE se saltaría
el siguiente ELSE y ejecutaría el otro, se salta uno y ejecuta el otro, y así sucesivamente. Lo
correcto podría ser:
CLS
INPUT "Número (1-3) -> ", n
IF n = 1 THEN
PRINT "uno"
ELSEIF n = 2 THEN
PRINT "dos"
ELSEIF n = 3 THEN
PRINT "tres"
ELSE
PRINT “fuera de rango”
END IF
END
Un error que se comete muy frecuentemente cuando se anidan IF es que nos falte poner un
END IF. Ejemplo:
CLS
PRINT "PROGRAMA QUE DETERMINA SI UN CARACTER ES:"
PRINT "1) Letra minúscula de 'a' hasta 'e' "
PRINT "2) Letra mayúscula de 'A' hasta 'E' "
PRINT "3) Numero del 1 al 5"
PRINT "4) Operador matemático"
PRINT "5) Otro caracter"

PRINT
COLOR 7
INPUT "Introduce un caracter -> ", c$
PRINT "El caracter introducido es ";
COLOR 10

IF c$ = "1" XOR c$ = "2" XOR c$ = "3" XOR c$ = "4" XOR c$ = "5" THEN
PRINT "número"
ELSE
IF c$ = "+" XOR c$ = "-" XOR c$ = "*" XOR c$ = "/" XOR c$ = "\" XOR c$ = "^" THEN
PRINT "operador matemático"
ELSE
IF c$ = "a" XOR c$ = "b" XOR c$ = "c" XOR c$ = "d" XOR c$ = "e" THEN
PRINT "letra minúscula"
ELSE
IF c$ = "A" XOR c$ = "B" XOR c$ = "C" XOR c$ = "D" XOR c$ = "E" THEN
PRINT "letra mayúscula"
ELSE
PRINT "otro caracter diferente de letra (a – e), número (1 – 5) u operador matemático"
END IF
END IF
END IF
‘ aquí falta un END IF
END

QuickBASIC nos marcará el error "bloque IF sin END IF"

Una cosa que yo hago para evitar este error es escribir el bloque completo y dentro de este ir
escribiendo las instrucciones que se vayan necesitando. Sería bueno que te acostumbrarás a esta
práctica d;-).

SELECCIÓN MÚLTIPLE: SELECT CASE

Aquí utilizaremos una sentencia nueva: el bloque SELECT CASE. El bloque SELECT CASE nos
sirve para seleccionar de entre múltiples valores que pudiera tener una expresión.
Veamos el siguiente ejemplo:
CLS
PRINT "1) Opción 1"
PRINT "2) Opción 2"
PRINT "3) Opción 3"
PRINT
INPUT "Escoge una opción -> ", op
SELECT CASE op ‘ Seleccionamos valor de op:
CASE IS = 1 ‘ Si la opción introducida es la 1...
PRINT "Escogiste la opción 1"
CASE IS = 2 ‘ Si la opción introducida es la 2...
PRINT "Escogiste la opción 2"
CASE IS = 3 ‘ Si la opción introducida es la 3...
PRINT "Escogiste la opción 3"
CASE ELSE ‘ Si la opción no es ninguna de las anteriores...
PRINT "Escogiste una opción no válida"
END SELECT ‘ Fin de seleccionar valor
END
El ejemplo anterior nos presenta un pequeño menú con 3 opciones a escoger, luego selecciona los
posibles valores que pudiera tener la variable ‘op’ (SELECT CASE op); si escogemos la opción 1,
y por tanto le damos a la variable ‘op’ el valor de uno, entonces se ejecutaron las instrucciones que
corresponden al caso de que la variable sea igual a 1 (CASE IS = 1), si escogemos la opción 2,
entonces se ejecutarán las instrucciones que corresponden al caso de que la variable sea igual a 2
(CASE IS = 2), etc.
Dentro de cada caso que tenga la expresión podemos ejecutar una o más instrucciones,
incluyendo bloques IF...THEN...ELSE y anidar bloques SELECT CASE si nos fuera necesario.
CLS
DIM edad AS INTEGER
PRINT “Las edades del hombre (masculino)”
PRINT
INPUT "Introduce tu edad -> ", edad

SELECT CASE edad

CASE IS <= 9
PRINT "Eres un niño!"
PRINT "Vivirás muchos años"
CASE IS <= 12
PRINT "¡Eres un púbero!"
PRINT "Estas en la edad de la punzada"
CASE IS <= 18
PRINT "Eres un adolescente"
PRINT "Estas en la edad del mono: te mantienes pelando la banana..."
CASE IS <= 30
PRINT "Eres un joven"
PRINT "Estas en la edad del colibrí: nada más picando florecitas..."
CASE IS <= 45
PRINT "Ya eres un adulto (???)"
PRINT "Estas en la edad del león: no se te va nada..."
CASE IS <= 60
PRINT "Ya has vivido muuucho"
PRINT "Estas en la edad del loro: habla mucho y no hace nada"
CASE IS <= 80
PRINT "Viejos los cerros... y todavía enverdecen"
PRINT "Estas en la edad del cóndor: con dolor aquí, con dolor allá..."
 CASE IS < 100
PRINT "Sin comentarios..."
CASE IS >= 100
PRINT "No ma...no, otra de esas y..."
PRINT "Si te la creo te empicas"
END SELECT
El caso ELSE (CASE ELSE) es opcional.

CAPITULO III
SENTENCIAS DE CONTROL REPETITIVAS
EL BLOQUE WHILE... WEND
Ahora veamos como podemos repetir partes de un programa mientras que cierta condición se
cumpla o sea verdadera...
' Ejemplo de WHILE... WEND
' Calcula áreas de 5 círculos
CONST pi = 3.1416

CLS
PRINT TAB(30); "AREA DE 5 CIRCULOS"
PRINT
contador = 0 ' Inicializamos el contador

WHILE contador < 5 'Inicio del ciclo. Contador < 5 porque empezamos en cero
INPUT "Radio -> ", radio
PRINT "El área es"; pi * radio * radio
PRINT
contador = contador + 1 ' El contador se incrementa en 1
WEND ' Seguir
END

El bloque WHILE (“mientras”)... WEND (“seguir”) nos sirve para que mientras una condición se
cumpla (en este caso, mientras contador < 5) repetir una serie de instrucciones, desde donde
empieza el WHILE hasta que se encuentre el WEND. En este tipo de ciclos o bucles generalmente
el valor de la condición ya ha sido inicializado desde antes de entrar al ciclo (contador = 0) y se
incrementa dentro del ciclo (contador = contador + 1). El ciclo se ejecutará mientras la condición
sea verdadera, por lo que si desde antes de entrar al bucle la condición ya es falsa, el programa
no ejecutará el ciclo. Veamos...
' Ejemplo de un bucle WHILE...WEND que no se ejecutará
i=0
CLS
WHILE i = 1 ' Mientras i = 1...pero como i = 0 y no igual a 1...
PRINT "HOLA"
i=i+1
WEND
PRINT "Fin del programa"
END

 Nota: Si lo ejecutas paso a paso <F8> verás mejor la secuencia.

También podemos caer en ciclos infinitos; esto es, ciclos que no tengan fin y terminarán nunca...
' Ejemplo de un bucle WHILE...WEND infinito
i=1 ' Inicializamos la variable
CLS

WHILE i = 1 ' Mientras i = 1...

 PRINT "HOLA, MUNDO..."
WEND '...
PRINT "Fin del programa"
END
 Nota: Para poder salir de un bucle infinito debemos utilizar la combinación de teclas CTRL +
Pause o CTRL + Scroll. En Turbo Basic asegúrate de la opción Keyboard Break del menú Options
este en ON.
¿Qué podemos observar en el programa anterior? En efecto el programa entrará en el ciclo ya que
la condición es verdadera (i = 1), pero i siempre será igual a 1 ya que no hay nada que la modifique
dentro del bucle y así poder dar una salida. Este tipo de errores suele ocurrir si por ejemplo...
' Ejemplo de un bucle WHILE...WEND infinito por error interno
cont = 1 ' Inicializamos la variable

CLS WHILE cont = 1 ' Mientras cont = 1...

PRINT "HOLA, MUNDO..."
cont = con + 1 ‘ ¿¿ con ??. Si con = 0, entonces cont = 0 + 1 = 1 (:-O)
WEND ' ...
PRINT "Fin del programa"
END
También no necesariamente tiene que ser un incremento el que nos dé la salida...
' Ejemplo de un bucle WHILE...WEND utilizando un método de salida diferente
salir = 0 ' Inicializamos la variable

CLS
WHILE salir = 0 ' Mientras salir = 0...
PRINT "HOLA, MUNDO..."
INPUT "¿Quieres salir (si = 1, no = 0)? ", salir
PRINT
WEND ' seguir.
PRINT "Fin del programa"
END
Si usamos un contador, también podemos incrementarlo como queramos...
' Sacando raíz cuadrada usando WHILE...WEND.
CLS
PRINT TAB(26); "CALCULO DE LA RAIZ CUADRADA"
PRINT
INPUT "Introduce un número positivo -> ", n

WHILE (cont * cont) < n

cont = cont + .0001
WEND

PRINT "La raíz cuadrada de"; n; "es"; cont

END
No necesitamos declarar una variable cont = 0 ya que al crearla automáticamente asume este
valor.
Si n llegara a ser negativo, la condición sería falsa (en efecto, 0 por 0 no es menor que un
número negativo) y el bucle no se ejecutaría.
Entre más pequeño sea el incremento de cont, n se acercará más a su raíz, ya que cont por
cont debe ser lo más igual posible a n.
EL BLOQUE DO...LOOP
El bloque DO (“hacer”)...LOOP (“vuelta) tiene 4 variantes. Veamos la primera:
DO WHILE...LOOP
Este tipo de bloque es muy parecido a WHILE...WEND, ya que la condición regularmente se
conoce por adelantado, y existe la posibilidad de que nunca se ejecute el ciclo. Mientras la
condición sea verdadera, el ciclo se ejecutará. Este tipo de bloque proporciona una forma más
potente que WHILE...WEND.
Sintaxis:
DO WHILE <condición>
instrucción1
instrucción2
instrucción3
[EXIT DO]
....
instrucciónn
LOOP

Ejemplo:
' Ejemplo de DO WHILE...LOOP
i=0 ‘ Inicializamos la variable
PRINT "El valor de i al empezar el ciclo es”; i
DO WHILE I < 10
I=I+1
? “Luego i vale”; i ;”...”
LOOP
END
Cuando LOOP encuentra a la condición falsa se termina el ciclo. Si no quisiéramos que se
ejecutara el ciclo...

‘ Ejemplo de DO WHILE...LOOP que nunca se ejecutará

CLS
i=1 ‘ Inicializamos la variable
PRINT “Iniciamos el programa...”
DO WHILE i < 1 ‘¿Es i < 1?
PRINT “Estamos dentro del ciclo”
i=i+1
LOOP
PRINT “fin del programa”
END
DO...LOOP WHILE
En este tipo de ciclos las instrucciones se ejecutarán por lo menos 1 vez, ya que la condición se
evalúa cuando se termina de ejecutar el bloque de instrucciones. Se ejecutara el ciclo mientras la
condición sea verdadera.
Sintaxis:
DO
instrucción1
instrucción2
instrucción3
[EXIT DO]
....
instrucciónn
LOOP WHILE <condición>
Veamos el siguiente ejemplo:
' Ejemplo de DO...LOOP WHILE. Calculo de la velocidad de un vehículo con MRU
CLS
COLOR 10 ‘ Verde brillante
PRINT TAB(20); "CALCULO DE LA VELOCIDAD DE UN VEHICULO"
COLOR 7: PRINT ‘ Color gris normal
DO ‘ Hacer...
INPUT "Distancia recorrida por el vehículo (m) -> ", d
INPUT "Tiempo en recorrerla (s) -> ", t
v=d/t
PRINT "La velocidad con que viajó el vehículo es"; v; "m / s"
PRINT
INPUT "¿Desea calcular otra vez (si = 1, no = 0)"; desea
LOOP WHILE desea = 1 ‘Mientras desea = 1
END
 Nota: La sentencia EXIT DO nos permite salir de un bloque DO en cualquier momento.

DO UNTIL...LOOP:
La palabra UNTIL (“hasta que” ) nos dice que mientras la condición NO sea verdadera (a diferencia
de WHILE), el bucle se ejecutará. O lo que es lo mismo: hasta que la condición sea verdadera, el
ciclo se ejecutará.
Sintaxis:
DO UNTIL <condición> ‘ “Hacer hasta que” condición
instrucción1
instrucción2
instrucción3
[EXIT DO]
....
instrucciónn
LOOP ‘ ”Vuelta”
Veamos el siguiente ejemplo:
' Ejemplo de DO UNTIL...LOOP
CONST PI = 3.1416
CLS
COLOR 10
PRINT TAB(28); "PERIMETRO DE CIRCULOS"
COLOR 7: PRINT : PRINT
INPUT "Cuántos perímetros va a calcular -> ", n
PRINTDO UNTIL c = n
INPUT "Radio -> ", radio
p = 2 * PI * radio
PRINT "El perímetro es"; p
PRINT
c=c+1
LOOP
END
Al crearse la variable c (contador) esta asume un valor de 0 por lo que:
Si el número de perímetros a calcular (n) es 0, entonces la condición se hace verdadera antes
de entrar al ciclo (en efecto 0 = 0) y por tanto el ciclo no se ejecutará.
Si n es positiva el ciclo que se ejecutará n veces hasta que la condición sea verdadera.
Si n es negativa el bucle se hace infinito, ya que cuando incrementamos el contador alejamos
más a c de ser un numero negativo igual a n.

Veamos un ejemplo más...

' Ejemplo de DO UNTIL..LOOP. Una manera de hacer cuentas.
salir = 0
CLS
COLOR 10
PRINT TAB(30); "ABARROTES LA CHONA"
PRINT TAB(20); "C. RIVA PALACIO #2700-A, COL. STO. NIÑO"
COLOR 7: PRINT : PRINT
PRINT "INTRODUZCA 0 PARA TERMINAR"
PRINT

DO UNTIL salir = 1 ' Hacer hasta que salir = 1

COLOR 7
PRINT "Precio del producto $ "; : COLOR 15: INPUT "", prod
IF prod = 0 THEN salir = 1
suma = suma + prod
LOOP ' Vuelta...
PRINT : COLOR 7
PRINT "Total $ "; : COLOR 15: PRINT suma
END

DO... LOOP UNTIL

En este tipo de bucles, las sentencias se ejecutarán al menos una vez y hasta que la condición
sea verdadera.
Sintaxis:
DO ‘Hacer...
instrucción 1
instrucción2
instrucción3
....
[EXIT DO]
instrucciónn
LOOP UNTIL <condición> ‘ Hasta que condición sea verdadera.
Ejemplo...
' Ejemplo de DO...LOOP UNTIL. Calcula la energía cinética de un cuerpo en movimiento.
DO
' Cabeceras
CLS
COLOR 10
PRINT TAB(25); "CALCULO DE LA ENERGÍA CINÉTICA"
PRINT : PRINT : COLOR 7

' Entrada de datos

INPUT "Introduzca la masa del cuerpo (kg) -> ", m
INPUT "Velocidad con que viaja (m / s) -> ", v

' Cálculo del resultado

ec = (m * v ^ 2) / 2 ' Fórmula de la energía cinética

' Salida del resultado

PRINT "La energía cinética del cuerpo es";
COLOR 15: PRINT ec; ‘ Color blanco brillante
COLOR 7: PRINT "Newtons-metros (joules)"

' Ver si otro cálculo

PRINT
INPUT "Otro cálculo (si = 1, no = 0) -> ", otro
LOOP UNTIL otro = 0
END
DO y LOOP pueden o no contener un WHILE o un UNTIL. Si consultas la ayuda de QuickBASIC a
cerca de la orden DO obtendrás la siguiente sintaxis:
Sintaxis 1:
DO [{WHILE | UNTIL} condición]
[instrucción]
[EXIT DO]
LOOP
Sintaxis 2:
DO
[instrucción]
[EXIT DO]
LOOP [{WHILE | UNTIL} condición]
Veamos como cultura general el método que se utiliza en la ayuda que viene con QB para
describir la sintaxis de una sentencia:
Las palabras en mayúsculas son palabras reservadas del lenguaje QB.
Los corchetes ([ ]) indican que lo que hay dentro de estos es opcional.
La barrita ( | ) y las llaves ({ }) significan que podemos utilizar –según nuestro uso– solo una
de las ordenes que van entre las llaves y que van separadas por la barrita; no pueden ir dos de
estas sentencias juntas, por ejemplo: DO WHILE UNTIL <condición>.
Por sentencia o instrucción entenderemos de aquí en delante: una sola sentencia o
instrucción, o también una serie de sentencias o instrucciones.
Siguiendo con lo de la sentencia DO, esta puede ir sola junto con LOOP. Lo que hace esta
sentencia es ejecutar un ciclo infinito ya que aparentemente no hay nada que lo detenga al no
tener una condición que proporcione la salida. Se puede detener el ciclo al ejecutar el programa
con la combinación de teclas CTRL + PAUSE o CRTL + SCROLL. Pero...¿cómo hacer para que se
detenga sin usar este método externo?. Como ya se comentó, para salir de cualquier bloque DO (y
algunos otros que veremos después) utilizamos la sentencia EXIT y seguida del tipo de bloque del
que queremos salir, en este caso DO. Veamos el siguiente ejemplo...
' Ejemplo de DO...LOOP sin salida
' 25/09/2000

CLS
DO
PRINT "¡QuickBASIC es fácil!"
LOOP
END
Este tipo de bloque como podemos ver es infinito y solo con CTRL + SCROOL podemos salir. Para
salir de un bloque DO podemos usar EXIT DO:
' Ejemplo de DO..LOOP con salida
DO
CLS
COLOR 10
PRINT TAB(29); "MENÚ DE OPERACIONES"
PRINT TAB(27); "-----------------------"
COLOR 7
PRINT TAB(32); "1) SUMAR"
PRINT TAB(32); "2) RESTAR"
PRINT TAB(32); "3) MULTIPLICAR"
PRINT TAB(32); "4) DIVIDIR"
PRINT TAB(32); "5) EXPONENCIAR"
PRINT TAB(32); "6) RAIZ CúBICA"
PRINT TAB(32); "7) SALIR"

PRINT : PRINT
PRINT TAB(30); : INPUT "ESCOGA SU OPCIÓN -> ", opcion
CLS

SELECT CASE opcion

CASE IS = 1 ' Sumar
COLOR 10

PRINT TAB(38); "SUMAR"

PRINT TAB(36); "---------"
PRINT : COLOR 7
INPUT "Primer número -> ", n1
INPUT "Segundo número -> ", n2
PRINT "La suma de"; n1; "y"; n2; "es"; n1 + n2
CASE IS = 2 ' Restar
COLOR 10
PRINT TAB(37); "RESTAR"
PRINT TAB(36); "--------"
PRINT : COLOR 7
INPUT "Primer número -> ", n1
INPUT "Segundo número -> ", n2
PRINT "La resta de"; n1; "menos"; n2; "es"; n1 - n2
CASE IS = 3 ' Multiplicar
COLOR 10
PRINT TAB(34); "MULTIPLICAR"
PRINT TAB(32); "---------------"
PRINT : COLOR 7
INPUT "Primer número -> ", n1
INPUT "Segundo número -> ", n2
PRINT "El producto de"; n1; "por"; n2; "es"; n1 * n2
CASE IS = 4 ' Dividir
COLOR 10
PRINT TAB(36); "DIVIDIR"
PRINT TAB(35); "---------"
PRINT : COLOR 7
INPUT "Dividendo -> ", n1
INPUT "Divisor -> ", n2
PRINT "El cociente de"; n1; "entre"; n2; "es"; n1 / n2
CASE IS = 5 ' Exponenciar
COLOR 10
PRINT TAB(34); "EXPONENCIAR"
PRINT TAB(33); "-------------"
PRINT : COLOR 7
INPUT "Base -> ", n1
INPUT "Potencia -> ", n2
PRINT "El resultado de elevar"; n1; "a la"; n2; "es"; n1 ^ n2
CASE IS = 6 ' Radicar
COLOR 10
PRINT TAB(34); "RAIZ CÚBICA"
PRINT TAB(33); "-------------"
PRINT : COLOR 7
INPUT "Número para sacarle raíz cúbica -> ", n1
DO WHILE (cont * cont * cont) < n1
cont = cont + .001
LOOP
 PRINT "La raíz cúbica de"; n1; "es"; cont
CASE IS = 7
EXIT DO ‘Sale del bloque DO
CASE ELSE
COLOR 18 ‘Verde azulado brillante intermitente
PRINT "--OPERACIÓN NO VALIDA--"
END SELECT
PRINT: COLOR 7
INPUT "PRESIONE <ENTER> PARA CONTINUAR...", enter$
LOOP
END

EL CICLO FOR..NEXT
Otra estructura muy útil cuando trabajamos con ciclos es el FOR...NEXT. Su sintaxis es la
siguiente:
Sintaxis:
FOR contador = valor inicial TO valor final [STEP incremento]
<sentencia>
[EXIT FOR ]
NEXT [contador]
La sentencias se ejecutan hasta que el contador llegue a su valor final; si omitimos la palabra
STEP el contador se incrementa por default en 1. EXIT FOR sirve para salir del bloque FOR en
cualquier momento. Veamos el siguiente ejemplo:
' Ejemplo de FOR...NEXT
CLS
COLOR 10
PRINT TAB(30); "ÁREA DE TRÍANGULOS"
PRINT : COLOR 7
INPUT "CUÁNTAS ÁREAS DESEA CALCULAR -> ", n
PRINT
FOR contador = 1 TO n
COLOR 7
PRINT "TRIÁNGULO #"; : COLOR 15: PRINT contador
INPUT "Base -> ", b
INPUT "Altura -> ", h
a = (b * h) / 2
PRINT "El área es"; : COLOR 15: PRINT a
PRINT
NEXT contador
END

Este tipo de bucle se ejecuta contador final – contador inicial + 1 veces. Viendo el ejemplo
anterior, podemos comprobar que el bucle se ejecutará 3 – 1 + 1 = 3 veces. Veamos este otro
programa:
' Imprime las tablas de multiplicar. Usa FOR
' 25/09/2000
CLS
INPUT "¿Cuál tabla de multiplicar desea ver"; tabla
PRINT
FOR c = 0 TO 10
PRINT tabla; " X "; c; " = "; c * tabla
NEXT
END
También podemos tener ciclos FOR anidados, en donde cada FOR se termina con el NEXT que le
queda más cerca...
' Imprime los colores que usamos en QuickBASIC. Usa FOR
CLS
FOR texto = 0 TO 31 ' Los colores de texto van del 0 al 31
FOR fondo = 0 TO 7 ' Los colores de fondo van del 0 al 7
COLOR texto, fondo
PRINT "Color"; texto; fondo
NEXT fondo
NEXT texto
END
En el ejemplo anterior podemos notar que:
Para cuando el primer FOR (texto) dé una vuelta, el FOR siguiente (fondo) ya terminó su ciclo.
Podemos usar variables para establecer los valores de los colores (sentencia COLOR) así
como de cualquier otra sentencia que utilice valores. Por ejemplo TAB(n), donde n es un
variable que obviamente contiene un numero que se utilizará para indicarle n espacios a TAB.
No solo podemos utilizar FOR para incrementar una variable, también podemos decrementarla
utilizando STEP con la cantidad en que queremos disminuirla:
' imprime los números del 100 al 0, vía FOR
' 26/09/2000
inicio = 100
fin = 0
decremento = -1
CLS
PRINT "Imprime los números del 100 al 0, vía FOR"
PRINT
INPUT "PRESIONE <ENTER> PARA COMENZAR...", enter$ ‘ Para que el programa se detenga
CLS
FOR c = inicio TO fin STEP decremento
PRINT c
NEXT c
PRINT "Fin del programa."
END
El ciclo de tipo FOR...NEXT es muy útil para llenar arreglos o matrices, los cuales son
estructuras de datos que veremos en el siguiente capitulo...

CAPITULO IV
FUNCIONES MATEMATICAS
CONCEPTO MATEMÁTICO DE FUNCIÓN
Primero que nada, es necesario tener una noción de lo que es en sí una función. Una función, en
términos chiruleros, puede ser definida como una correspondencia entre dos variables, una
llamada variable dependiente y otra llamada variable dependiente. Veamos la siguiente notación:
y = f(x)
Donde:
y : Es la variable dependiente de la función. Se le llama dependiente porque para que pueda tomar
un valor, depende de los valores que pueda tomar la variable x. También podemos decir que “y
esta en función de x”.
x: Es la variable independiente de la función. Se dice que es independiente ya que puede tomar los
valores que quiera y no hay nada que se lo impida; o sea, tiene independencia 
f: Se puede decir que es el procedimiento o ecuación que tomará a x para devolverle un valor a y.
Veamos una función muy común:
y = x2 + x
La función anterior tiene a y como variable dependiente y a x como variable independiente, y el
procedimiento es elevar a x (variable independiente) al cuadrado y sumarle x. Por cada valor que
tome x, a y le corresponderá otro. También podemos tener una función con más de una variable
dependiente...
y = x + z – 1 / (w + 3)
En el sistema anterior podemos encontrar que la variable dependiente (en este caso y) esta en
función de 3 variables independientes (en este caso x, z, w). Generalmente en las matemáticas las
variables dependientes están representadas por la letra y, aunque también las podemos
representar con letras como z, w, o x, o g, etc. siempre y cuando sean diferentes de las variables
independientes; así mismo, la o las variables independientes se pueden representar de la misma
forma, teniendo en cuenta que no deben ser iguales a las dependientes.

FUNCIONES MATEMÁTICAS Y ARITMETICAS

Ahora veamos algunas de las más comunes funciones matemáticas que son parte del lenguaje
BASIC (funciones predefinidas):
ABS(x)
Devuelve el valor sin signo de x (valor absoluto). Ejemplo:
CLS INPUT "Introduce dos números (a, b)-> ", a, b PRINT "El valor absoluto de "; a; "es"; ABS(a);
"y el de "; b; "es"; ABS(b) : END <índice>

SIN (x)
Devuelve el seno de x, siendo x el valor de un ángulo dado en RADIANES. Ejemplo:
' Calcula la componente vertical de la velocidad de un misil balístico
CONST pi = 3.1416

CLS
INPUT "Introduzca la velocidad (m / s) del misil -> ", v
INPUT "Introduzca el ángulo (en grados) del lanzamiento -> ", grados
radianes = grados * pi / 180
y = v * SIN(radianes)
PRINT "La velocidad vertical del misil es de"; vy; "m / s"
END
 Nota: Como son muy comunes las conversiones de grados a radianes, para hacer esto se utiliza
la fórmula:
angulo_en_radianes = (angulo_en_grados x 3.1416) / 180
COS (x)
Devuelve el coseno de x, donde x es el valor de un ángulo en radianes. Ejemplo:
' Calcula la componente en el eje x de la velocidad del mismo misil
CONST pi = 3.1416
CLS
INPUT "Introduzca la velocidad (m / s) del misil -> ", v
INPUT "Introduzca el ángulo (en grados) del lanzamiento -> ", grados
vx = v * COS(grados * pi / 180)
PRINT "La velocidad horizontal del misil es de"; vx; "m / s"
END

TAN (x)
Devuelva la tangente de x, siendo x el valor de un ángulo en radianes. Ejemplo:
CONST PI = 3.1416

CLS
INPUT "Introduce el ángulo de una recta -> ", grados
PRINT "Tangente de la recta: "; : COLOR 15: PRINT TAN(grados * PI / 180)
PRINT : COLOR 7
INPUT "Presione <ENTER> para continuar...", enter$
END
ATN(x)
Devuelve el ángulo equivalente a la tangente x.
' Calcula el ángulo del misil a partir de los componentes de la velocidad
CONST PI = 3.1416
CLS
INPUT "Introduzca la velocidad horizontal -> ", vx
INPUT "Introduzca la velocidad vertical -> ", vy
' Si la componente en x de la velocidad es 0 se producirá un error ya
' que estaremos dividiendo entre 0. Esto lo puedes arreglar con un IF
v = vy / vx
radianes = ATN(v) ' ATN devolverá un resultado en RADIANES
grados = (radianes * 180) / PI
PRINT "El ángulo (en grados) del lanzamiento es: "; : COLOR 15: PRINT grados
PRINT : COLOR 7
INPUT "Presione <ENTER> para continuar...", enter$
END

LOG(x)
Devuelve el logaritmo base e (logaritmo natural) de x, y donde la constante e = 2. 7182 y x es un
valor MAYOR que cero.
CLS
PRINT “El logaritmo natural de 9 es “; LOG(9)
END
En la práctica cotidiana el logaritmo base e se escribe como log e o como ln.
EXP(x)
Devuelve e a la x, donde x es un valor menor o igual a 88.02969. A esta función se le llama
antilogaritmo en base e.
CLS
n=9
PRINT “e elevado a la potencia “; n ;” da “; EXP(n)
END
 Comprendiendo lo hecho: En matemáticas, un logaritmo se define como la potencia o
exponente a la que se ha de elevar un numero fijo (llamado base) para dar como resultado un
numero dado:
ln 9  (2.7182) 2.197225
 Podemos decir que si nos dan 9 para sacar su logaritmo natural (e es la base), entonces el
resultado será 2.197225.
Por otro lado, un antilogaritmo se define como el resultado de elevar una base a un número dado.
 Tomando el ejemplo anterior podemos decir que si nos dan 2.197225 para sacar su
antilogaritmo natural (base e), entonces el resultado será 9.
Las siguientes funciones marcadas con asterisco son exclusivas de Turbo Basic (de Borland).
* LOG2(x)
Da como resultado el logaritmo base 2.
cls
n = 32
? “El logaritmo base 2 de “; n ; ”es”; log2(n)
end
* LOG10(x)
Da como resultado el logaritmo base 10.
cls
n = 1000
? “El logaritmo base 10 de “; n ; ”es”; log10(n)
end
* EXP2(x)
Devuelve 2 a la x.
cls
n=2
? “El resultado de elevar 2 a la ”; n ;”es “; exp2(n)
end
* EXP10(x)
Devuelve 10 a la x.
cls
n=3
? “El resultado de elevar 10 a la “; n ;” es “; exp10(n)
end
SWAP x, y
Intercambia los valores de las variables.
x = 5 : y = -3
CLS
COLOR 15 : PRINT "Primero:"
COLOR 7: PRINT "x = "; x ;" y = ";y
COLOR 15 : PRINT "Luego:"
COLOR 7: PRINT "x = "; x ;" y = ";y
END

FIX(x)
Le quita los decimales a x, siendo x un numero real.
CLS
n = 3.1416
m = 2.90
PRINT “Si le quitamos los decimales a “; n ;” el resultado es: ”; FIX(n)
PRINT “Si le quitamos los decimales a “; m ;” el resultado es: ”; FIX(m)
END
 Nota: La función FIX trunca un entero, NO lo redondea.

INT(x)
Redondea x al número menor inmediato que sea menor o igual a x.
n = 3.65 : m = 2.3
o = -3.2 : p = 1
CLS
PRINT "Si redondeamos con INT a "; n; "el resultado es "; INT(n)
PRINT "Si redondeamos con INT a "; m; "el resultado es "; INT(m)
PRINT "Si redondeamos con INT a "; o; "el resultado es "; INT(o)
PRINT "Si redondeamos a con INT "; p; "el resultado es "; INT(p)
END

SQR(x)
Calcula la raíz cuadrada de un número o expresión mayor o igual a cero. El resultado se da en
doble precisión.
' Obtiene la hipotenusa de un triángulo rectángulo a partir de los catetos
CLS : COLOR 15
PRINT TAB(15); " CÁLCULO DE LA HIPOTENUSA A PARTIR DE LOS CATETOS"
PRINT : PRINT : COLOR 7
INPUT "Cateto opuesto -> ", cop
INPUT "Cateto adyacente -> ", cad
hip = SQR(cop * cop + cad * cad)
PRINT
PRINT "La hipotenusa vale "; : COLOR 15: PRINT hip
PRINT : COLOR 7
INPUT "PRESIONE <ENTER> PARA CONTINUAR", enter$
END

SGN(x)
La función SGN trabaja de la siguiente forma:
Si x es negativo, SGN devuelve –1.
Si x es cero, SGN devuelve 0.
Si x es positivo, SGN devuelve 1.
El siguiente ejemplo resuelve ecuaciones cuadráticas del tipo ax2 + bx + c = 0 utilizando la fórmula

‘Resuelve ecuaciones cuadráticas del tipo ax2 + bx + c = 0 por la fórmula gral.

DO
CLS : COLOR 15
PRINT TAB(15); " RESUELVE ECUACIONES CUADRATICAS POR LA FORMULA GENERAL"
PRINT TAB(35); "-b *
PRINT : PRINT : COLOR 7
INPUT "Introduce el valor de a -> ", a
INPUT "Introduce el valor de b -> ", b
INPUT "Introduce el valor de c -> ", c
PRINT : COLOR 7
discriminante = b * b - 4 * a * c
SELECT CASE SGN(discriminante)
CASE IS = -1
COLOR 16
PRINT "La ecuación es degenerada y no tiene una solución"
‘No se le puede sacar raíz cuadrada a un número negativo
CASE IS = 0
PRINT "La ecuación tiene una solución:"
‘ Cero da lo mismo sumado que restado.
x = -b / (2 * a)
PRINT "x1= "; x; "y x2= "; x
CASE IS = 1
PRINT "La ecuación tiene dos soluciones:"
x1 = (-b + SQR(discriminante)) / (2 * a)
x2 = (-b - SQR(discriminante)) / (2 * a)
PRINT "x1 = "; x1
PRINT "x2 = "; x2
END SELECT
PRINT
INPUT "Quieres realizar otro cálculo (S\N)"; otro$
LOOP UNTIL UCASE$(otro$) = "N" ‘ UCASE$(c$) devuelve a c$ en mayúsculas
END

NÚMEROS ALEATORIOS
RND
La función RND devuelve un número (tipo Single) al azar entre el rango de 0 y 1. Cada vez que se
corra el programa, RND generará los mismos números “aleatorios”, por lo que se requiere de un
generador para que cada vez que se corra el programa los números sean diferentes.
' Imprime números al azar en el rango de 0 a 32
n = 32
CLS
FOR i = 1 TO 10
PRINT INT(RND * (n + 1))
NEXT i
END
TIMER
Esta función retorna los segundos transcurridos desde media noche. TIMER devuelve un valor real
en el intervalo abierto entre 0 y 86400.
'Calcula el tiempo empleado por el programa para calcular e imprimir
'el factorial de los primeros n números, siendo n dado por el usuario.
DIM fact. AS DOUBLE
DIM n AS DOUBLE
DIM c AS DOUBLE
CLS
INPUT "Introduce un número: ", n
inicio = TIMER
fact = 1

FOR c = 1 TO n
fact = fact * c
PRINT "El factorial de "; c; " es "; fact
NEXT c

PRINT
fin = TIMER
PRINT "Tiempo usado por el programa -->> "; : COLOR 15: PRINT fin - inicio
END
 Comprendiendo lo hecho: El factorial de un número no es más que el mismo numero
multiplicado por TODOS los números que están debajo de el, hasta llegar a 1. Por ejemplo:

factorial de 5 = 5! = 5 * 4 * 3 * 2 * 1 = 120
Su notación es n!, donde n es el número del cual queremos el factorial. 0! = 1 por definición .
Sentencia RANDOMIZE [n]
Inicializa el generador de números aleatorios a partir de una semilla (n). Si no se da una semilla,
QuickBASIC detendrá el programa y le pedirá una al usuario; por otro lado, si esta semilla
permanece constante durante el programa, los números generados serán los mismos cada vez que
se corra el programa. Esta sentencia se usa para generar números aleatorios para la función RND.
Para evitar que se “atasquen” los números aleatorios, es muy común el uso de la función TIMER
para darle semillas diferentes a RANDOMIZE. Pero antes veamos el siguiente ejemplo:
CLS
RANDOMIZE
PRINT "Un número al azar -->> "; RND
END
Como no utilizamos ninguna semilla para RANDOMIZE, QB preguntará por un número entero
corto para iniciar el generador de números aleatorios. Veamos este otro:
CLS
RANDOMIZE 4 : PRINT "Un número al azar -->> "; RND
END
Como la semilla es siempre la misma en todo el programa, cada vez que este se corra, el número
“al azar” será siempre el mismo. Por lo tanto si queremos números que no se repitan debemos usar
una semilla que cambie cada vez que se inicie el programa:
CLS
RANDOMIZE TIMER
PRINT "Un número al azar -->> "; RND
END

FUNCIONES DE CONVERSIÓN NUMÉRICA

CINT(x)
Redondea x al entero más cercano, siendo x un número con decimales que está en el rango de los
enteros cortos (-32768 a 32767). Si x esta fuera del rango de los enteros cortos, entonces se
produce un mensaje de “overflow” (desbordamiento).
n = 3.65
m = 2.3
o = -3.2
p=1
CLS
PRINT "Si redondeamos a "; n; "el resultado es "; CINT(n)
PRINT "Si redondeamos a "; m; "el resultado es "; CINT(m)
PRINT "Si redondeamos a "; o; "el resultado es "; CINT(o)
PRINT "Si redondeamos a "; p; "el resultado es "; CINT(p)
END

CLNG(x)
Redondea x al entero más cercano, siendo x un numero con decimales que está en el rango de los
enteros largos (-2,147,483,648 a 2,147,483,647). Si x esta arriba del rango de los enteros largos,
entonces se produce un mensaje de “overflow” (desbordamiento).
a=345767.45
b=122767.55
PRINT a, CLNG(A)
PRINT b, CLNG(B)
END
CSNG(x)
Da una precisión simple a x, siendo x de tipo Double, pero estando en el rango de los SINGLE
(1.5 E-45 a 3.4 E38).
a# = 5.6634537105#
b# = 6.4598755434#
CLS
COLOR 15
PRINT "Doble precisión", "Simple precisión"
COLOR 7
PRINT a#, CSNG(a#)
PRINT b#, CSNG(b#)
END

CDBL(x)
Da una precisión doble a x, teniendo x una precisión simple y estando x dentro del rango de los
Double (5.0e-324 a 1.7e308).
a = 5.6634 : b = 6.4598
CLS
COLOR 15
PRINT "Simple precisión", "Doble precisión"
COLOR 7
PRINT a; : PRINT TAB(29); CDBL(a)
PRINT b; : PRINT TAB(29); CDBL(b)
END
INTRODUCCION A LOS ARREGLOS
ARREGLOS DE UNA DIMENSION
Hasta el momento hemos visto las estructuras de datos más sencillas que son las variables, pero
ahora veremos otras estructuras de datos que se llaman arreglos.
Para ver más o menos para que se utilizan estas estructuras, pensemos en lo siguiente:
Debemos introducir los nombres de 5 personas y guardarlos para luego volverlos a imprimir en el
mismo orden en que entraron, ¿cómo se haría esto?. La primera forma que se nos podría ocurrir
(ya que no sabemos nada sobre arreglos) es usar 5 variables de tipo String, guardar los nombres
en ellas y luego volverlos a imprimir, algo así como...
CLS
PRINT : COLOR 15
PRINT "CAPTURA DE PERSONAS:"
COLOR 7
INPUT "Persona 1 ->"; persona1$
INPUT "Persona 2 ->"; persona2$
INPUT "Persona 3 ->"; persona3$
INPUT "Persona 4 ->"; persona4$
INPUT "Persona 5 ->"; persona5$
PRINT : COLOR 15
PRINT "SALIDA DE PERSONAS:"
COLOR 7
PRINT "Persona 1 ->"; persona1$
PRINT "Persona 2 ->"; persona2$
PRINT "Persona 3 ->"; persona3$
PRINT "Persona 4 ->"; persona4$
PRINT "Persona 5 ->"; persona5$
END

!Esta es la manera más topa, engorrosa, fraudulenta, improductiva, tonta, desgastaste, trabajosa,
mala, etc. de hacerlo! ¡Que tal si fueran 20, 30, 100 o 200 personas! (:^)...
Los arreglos (también llamados arrays, matrices o vectores) son espacios de memoria que se
utilizan para almacenar información
1 2 de3un tipo
4 de datos
5 determinado. Podemos tener arreglos de
enteros, de cadena, de reales de simple precisión, etc. Podemos imaginar un arreglo sencillo de la
siguiente forma:

Arreglo sencillo de 5
elementos.

Cada cuadro (o dirección del arreglo) es un espacio reservado en memoria para guardar
información del tipo que vaya a ser el arreglo. Siguiendo con el ejemplo de las 5 personas, se
supone que el arreglo será de tipo String ya que almacenaremos cadenas de caracteres. Para
utilizar un arreglo, debemos declararlo primero con la siguiente sintaxis:
DIM nombre_del_arreglo(tamaño_del_arreglo) AS tipo_de_dato
Siguiendo con el ejemplo anterior, podemos declarar nuestro arreglo de la siguiente forma:
DIM personas(5)) AS STRING
Ahora veremos como llenar las localidades que reservamos en el arreglo.
' Rellena un arreglo con nombres de personas.
DIM personas(5) AS STRING ' Declaramos nuestro arreglo sencillo
CLS
PRINT : COLOR 15
PRINT "CAPTURA DE PERSONAS:"
COLOR 7
INPUT "Persona 1 ->"; personas(1)
INPUT "Persona 2 ->"; personas(2)
INPUT "Persona 3 ->"; personas(3)
INPUT "Persona 4 ->"; personas(4)
INPUT "Persona 5 ->"; personas(5)

PRINT : COLOR 15
PRINT "SALIDA DE PERSONAS:"
COLOR 7
PRINT "Persona 1 ->"; personas(1)
PRINT "Persona 2 ->"; personas(2)
PRINT "Persona 3 ->"; personas(3)
PRINT "Persona 4 ->"; personas(4)
PRINT "Persona 5 ->"; personas(5)
END
En realidad el programa anterior es muy engorroso todavía, pero nos ilustra de una manera por
demás fácil como es como se llenan las direcciones de un arreglo. De lo anterior podemos ver
que el nombre de la persona 1 se almacenará en la dirección 1 del arreglo, la persona 2 en la
dirección 2, la persona 3 en la dirección 3 del arreglo, etc, etc, etc. Si quisiéramos llenar una
dirección 6 se produciría un mensaje “subscript out of range” (“límite fuera de rango”), ya que
queremos poner valores en una dirección que no existe (en efeito, el arreglo es de 5 direcciones y
no de 6...).
Como las direcciones están especificadas por un número, podemos utilizar un FOR para rellenar el
arreglo en la posición del contador, empezando el contador en el límite inferior del arreglo y
terminando en el límite superior. Veamos como se hace...
' Rellena un arreglo con nombres de personas. Forma óptima
DIM personas(5) AS STRING ' Declaramos nuestro arreglo
CLS
' Entrada de datos
PRINT : COLOR 15
PRINT "CAPTURA DE PERSONAS:"
COLOR 7
FOR c = 1 TO 5
PRINT "Persona "; c; "-> "; : INPUT "", personas(c) ‘Rellena arreglo en la posición de c
NEXT c
' Salida de datos
PRINT : COLOR 15
PRINT "SALIDA DE PERSONAS:"
COLOR 7
FOR c = 1 TO 5
PRINT "Persona "; c; "-> "; personas(c) ‘Imprime arreglo en la posición c
NEXT c
END
¿Fácil no?. Existe otra forma de declarar un arreglo que es la siguiente:
DIM nombre_del_arreglo(límite_inferior TO límite_superior) AS tipo_de_dato
De lo anterior podemos deducir que es posible tener arreglos cuyo límite inferior sea cualquier
entero corto. Por ejemplo:
DIM elementos(3 TO 19) AS INTEGER
DIM goles(0 TO 15) AS INTEGER
DIM velocidades(-1000 TO 1000) AS SINGLE
Aora beamoz un poko máz sovre ezto. El limite inferior por default es 0. Como el límite inferior es
cero, alguien se puede preguntar: ¿bueno, si el límite inferior es cero, entonces porqué
empezamos a rellenar el arreglo desde la posición 1?. Si consideramos el formato
DIM nombre_del_arreglo(tamaño_del_arreglo) AS tipo_de_dato
podemos ampliar lo siguiente:
Si empezamos a rellenar el arreglo con 1 como límite inferior (o base), entonces QuickBASIC
lo “entenderá” y nos dejará que lo rellenemos desde 1 para terminar en 5. En pocas palabras,
si empezamos a rellenar en 1, el tamaño del arreglo permanece igual.
Si queremos llenar el arreglo personas(5) (siguiendo con el ejemplo anterior) empezando
desde 0, entonces terminaremos de introducir todas las personas en la posición 4 del
arreglo. Pero como en realidad “tamaño_del_arreglo” es el límite superior, todavía podríamos
introducir el nombre de una persona más en la posición 5 del arreglo (hasta yo mismo me
reborujé con esto, pero en fin...). En pocas palabras si comenzamos a rellenar el arreglo desde
0, el tamaño del arreglo se incrementaría en 1.
Ya que QB lo permite, es recomendable empezar a rellenar el arreglo desde 1, aunque hay quién
prefiere establecer desde el principio los límites del arreglo usando
DIM personas(1 TO 5) AS STRING
Aunque no es muy común que se utilicen arreglos cuyo límite inferior sea diferente de 1 (en
BASIC), puede que se dé el caso y por eso se usa el TO para poner donde empieza y donde
termina un arreglo.

ARREGLOS DE MÁS DE UNA DIMENSION

Hasta el momento hemos visto arreglos sencillos o de una dimensión, ahora veremos arreglos de
más de una dimensión. Empecemos por ver un ejemplo con un array de dos dimensiones:
Supongamos que queremos capturar los siguientes datos de 6 personas para luego imprimirlos en
el mismo orden en que entraron:
- Nombre
- Sexo
- Clave Unica de Registro de Población (CURP)
- Dirección
- Zona postal
 Nota: La zona postal puede verse a simple vista como para almacenarse tipo LONG o INTEGER,
pero hay que tener en cuenta que sí tenemos un código postal que empiece en 0 (por ejemplo
03145), al guardarlo se almacenará sin el cero inicial (3145), lo cual no es cierto. ¡O que tal un
código de barras de algún producto!; no...algo más cruel...por ejemplo...¡¡¡Una tarjeta de crédito!!!,
¡¡¡un número de expediente!!!, ¡¡¡una cuenta bancaria!!! Para evitar errores garrafales, es lógico
que estos datos deben entrar en formato STRING. Luego, ¿cuáles datos son los que deben entrar
como número? Sencillo, solo los datos que nos sirvan para realizar cálculos. Ojo raza, mucho
ojo ;)
A simple vista se puede antojar utilizar 6 (1 por cada persona) arreglos de 5 elementos (en cada
dirección iría un dato) tipo String; o también 5 (1 por cada dato) arreglos de 6 elementos (en cada
elemento iría una persona). Como esto es algo tedioso (imaginemos unas 100 personas y unos 30
datos para algún curriculum...), lo mejor es utilizar un arreglo de dos dimensiones. En realidad la
sentencia DIM no se limita a declarar variables o arreglos de 1 sola dimensión, sino que va mucho
más allá:
DIM personas(1 TO 10, 1 TO 5) o DIM personas(10, 5) ‘Arreglo de 2 dimensiones
DIM determinante(4, 4) ‘Arreglo de 2 dimensiones
DIM abuelos(2, 3, 15) o DIM abuelos(1 TO 2, 1 TO 10, 1 TO 15) ‘Arreglo de 3 dimensiones
DIM bisabuelos(2, 3, 2, 3) ‘Arreglo de 4 dimensiones
Las dimensiones de un arreglo en QB pueden ser desde 0 (que es una variable sencilla) hasta 60
dimensiones; y el rango de los límites puede ser cualquier número en el intervalo de
-36768 a 36767, pero el número de elementos no debe sobrepasar los 36767. Ahora veremos
como utilizar un arreglo de dos dimensiones:
DIM personas(6, 5) AS STRING
'Entrada de datos
FOR individuo = 1 TO 6
COLOR 10, 1
CLS
PRINT TAB(33); "CAPTURA DE DATOS": PRINT
COLOR 15
PRINT "DATOS DE LA PERSONA"; : COLOR 15: PRINT individuo
COLOR 7: PRINT
FOR dato = 1 TO 5
IF dato = 1 THEN
INPUT "Introduzca el nombre -->> ", personas(individuo, dato)
ELSEIF dato = 2 THEN
INPUT "Introduzca el sexo (M /F )->> ", personas(individuo, dato)
ELSEIF dato = 3 THEN
INPUT "Introduzca la CURP -->> ", personas(individuo, dato)
ELSEIF dato = 4 THEN
INPUT "Introduzca la dirección -->> ", personas(individuo, dato)
ELSEIF dato = 5 THEN
INPUT "Introduzca la zona postal -->> ", personas(individuo, dato)
END IF
NEXT dato
PRINT
COLOR 15
PRINT TAB(22); "HECHO. PRESIONE <ENTER> PARA CONTINUAR"; : INPUT "", enter$
CLS
NEXT individuo

'Salida de datos
FOR individuo = 1 TO 6
COLOR 10, 1
CLS
PRINT TAB(33); "SALIDA DE DATOS": PRINT
COLOR 15
PRINT "DATOS DE LA PERSONA"; : COLOR 15: PRINT individuo
COLOR 7: PRINT
FOR dato = 1 TO 5
IF dato = 1 THEN
PRINT "Nombre -->> "; personas(individuo, dato)
ELSEIF dato = 2 THEN
PRINT "Sexo (M /F) -->> "; personas(individuo, dato)
ELSEIF dato = 3 THEN
PRINT "CURP -->> "; personas(individuo, dato)
ELSEIF dato = 4 THEN

PRINT "Dirección -->> "; personas(individuo, dato)

ELSEIF dato = 5 THEN
PRINT "Zona postal -->> "; personas(individuo, dato)
END IF
NEXT dato
PRINT
COLOR 15
PRINT TAB(22); "HECHO. PRESIONE <ENTER> PARA CONTINUAR"; : INPUT "", enter$
CLS
NEXT individuo
END
En el ejemplo anterior utilizamos un arreglo de dos dimensiones para almacenar los datos de
las personas. La primera dimensión identifica a las personas en una dirección respectiva (la
persona 1 se representa en la dirección 1 de la primera dimensión del arreglo, la persona 2 en
la dirección 2, la persona 3 en la 3, etc.) y en la segunda dimensión se guardan los datos de
cada persona.
Con el primer FOR nos posicionamos en la dirección de la persona y cuando con el segundo
FOR terminamos de recolectar los datos, entonces se continua con la siguiente persona.
Los datos se guardan usando la conveniencia de que el elemento 1 de la segunda dimensión
corresponde al nombre de la persona, el elemento 2 al sexo, el elemento 3 a la dirección, el
elemento 4 a la CURP y el elemento 5 a la zona postal. Por esto puse los ELSEIF.
Ahora veamos como utilizar un arreglo de 3 dimensiones:
' Recolecta las horas trabajadas por semana de 5 trabajadores pertenecientes
' a 3 departamentos diferentes de 2 sucursales de una cadena comercial.
DIM empleados(2, 3, 5) AS INTEGER
FOR sucursal = 1 TO 2
COLOR 15, 1
CLS
PRINT TAB(20); "CAPTURA DE HORAS TRABAJADAS SEMANALMENTE"
PRINT
COLOR 15
PRINT TAB(30); "-- SUCURSAL"; sucursal; "--"
PRINT
FOR departamento = 1 TO 3
COLOR 15
PRINT "DEPARTAMENTO"; departamento
FOR empleado = 1 TO 5
COLOR 7
PRINT "Horas trabajadas por el empleado"; empleado; "->> ";
COLOR 10: INPUT "", empleados(sucursal, departamento, empleado)
NEXT empleado
PRINT
NEXT departamento
NEXT sucursal
La primera dimensión del arreglo corresponde a la sucursal, la segunda parte al departamento
en donde trabaja el empleado y en la 3ª dimensión se almacenará el no. de horas que trabajó
en la semana.
El primer FOR nos sirve para primeramente colocarnos en la sucursal, el segundo FOR para
colocarnos en el departamento, y el 3er. FOR nos sirve para recolectar las horas trabajadas de
los empleados; cuando este ultimo FOR termina, entonces se prosigue con el siguiente
departamento; y cuando se terminan los departamentos, entonces continuamos con la
siguiente sucursal.

FUNCIONES LBOUND Y UBOUND

Estas dos funciones nos permiten obtener los límites inferior y superior de la dimensión de un
arreglo (UBOUND, abreviatura de Upper Bound o límite superior; LBOUND, abreviatura de Lower
Bound o límite inferior) respectivamente. Su sintaxis:
UBOUND(nombre_del_arreglo[,dimensión])
LBOUND(nombre_del_arreglo[,dimensión])
Si el arreglo es de una dimensión, entonces solo ponemos el nombre del arreglo. Por ejemplo si
tenemos el arreglo
DIM cubo(1 TO 20, 3 TO 9, 3 TO 15) AS SINGLE
entonces
LBOUND(empleados, 1) ‘Devolverá 1 que es el límite inferior de la primera dimensión
LBOUND(empleados, 2) ‘Devolverá 3 que es el límite inferior de la segunda dimensión
LBOUND(empleados, 3) ‘Devolverá 3 que es el límite inferior de la tercera dimensión
y
UBOUND(empleados, 1) ‘Devolverá 20 que es el límite superior de la primera dimensión
UBOUND(empleados, 2) ‘Devolverá 9 que es el límite superior de la segunda dimensión
UBOUND(empleados, 3) ‘Devolverá 15 que es el límite superior de la tercera dimensión
¿Que pasaría si quisiéramos obtener los límites superior e inferior del siguiente arreglo (ojo que no
especificamos los limites con TO)?
DIM vectores(3) AS INTEGER
Es posible que si en un programa empezamos a rellenar este arreglo desde 1 creamos que como
empezamos a rellenar desde 1, entonces LBOUND nos retornará 1; lo cual no hay nada más falso.
Por otro lado y como ya hemos visto que los arreglos comienzan virtualmente en 0, entonces:
LBOUND(vector) ‘Devolverá 0 ya que los arreglos empiezan desde 0.
UBOUND(vector) ‘Devolverá 3 ya que en efecto el límite superior es 3.
De lo anterior podemos deducir que:
 Suponiendo que empezamos a rellenar un arreglo desde un número que no sea cero y
luego queremos referirnos al menor elemento en una determinada dimensión utilizando
LBOUND, entonces deberemos poner los limites usando TO. Ejemplo:
DIM prueba(3 TO 6)
CLS
PRINT "El limite inferior del arreglo prueba es ", LBOUND(prueba)
PRINT "El limite superior del arreglo prueba es ", UBOUND(prueba)
 Podemos utilizar la declaración OPTION BASE n para indicar que el limite inferior de todos
los arreglos de nuestro programa que no declaremos con TO empezarán en n, donde n
puede ser 0 o 1. Ejemplo:
OPTION BASE 0
DIM prueba(3 TO 6)
DIM perros(3)
CLS
PRINT "El limite inferior del arreglo prueba es ", LBOUND(prueba)
PRINT "El limite superior del arreglo prueba es ", UBOUND(prueba)
PRINT
PRINT "El limite inferior del arreglo perros es ", LBOUND(perros)
PRINT "El limite superior del arreglo perros es ", UBOUND(perros)
 Notas:
- Si se va a utilizar la declaración OPTION BASE, entonces esta debe de ir antes de cualquier
arreglo.
- TO ofrece una mejor manera de definir los límites del arreglo.

ARREGLOS ESTÁTICOS Y DINÁMICOS

Existen dos tipos de arreglos: estáticos y dinámicos. Una arreglo estático es un arreglo cuyo
número de elementos en cada dimensión permanecerá igual durante le ejecución del programa;
por otro lado un arreglo dinámico es un arreglo cuyo número de elementos en cada dimensión
puede cambiar en el transcurso del programa; o sea, puede hacerse más chico o más grande.
Hasta el momento solo hemos manejado arreglos estáticos. Ya que los arreglos ocupan espacio
en memoria, debemos indicarle al compilador si queremos que “haga flexible” a los arreglos y a la
memoria, ó indicarle que los arreglos permanecerán con el mismo número de elementos durante
todo el programa.
Si vamos a usar arreglos dinámicos en nuestro programa, entonces debemos de poner el
metacomando (comando a nivel compilador) $DYNAMIC al inicio del programa y a manera de
comentario, esto es:
‘ $DYNAMIC
o
REM $DYNAMIC
Por otro lado si en nuestro programa solo vamos utilizar arreglos estáticos, entonces podemos
poner el metacomando $STATIC al inicio del programa, aunque no es necesario.
‘$STATIC
o
REM $STATIC
 Nota: Todos los arreglos por default son estáticos y tipo SINGLE.

ERASE Y REDIM
La sentencia ERASE reinicializa un arreglo poniendo todos los elementos a cero y todas las
cadenas en nulo (“”) (en pocas palabras lo “resetea”). Ejemplo:
' Ejemplo de borrado de arreglos.
DIM prueba(1 TO 5)
CLS
PRINT "Le damos valores al arreglo 'prueba':"
FOR i = 1 TO 5 STEP 1
prueba(i) = i
PRINT "Prueba ("; i; ") --> "; prueba(i)
NEXT i
PRINT
ERASE prueba
PRINT "Luego de resetear el arreglo 'prueba':"
FOR i = 1 TO 5 STEP 1
PRINT "Prueba ("; i; ") --> "; prueba(i)
NEXT i
Para borrar más de un arreglo solo hay que ponerlos separados por comas (,) después de ERASE.
Por otro lado, la sentencia REDIM cambia el numero de elementos que contienen las dimensiones
de un arreglo $DYNAMIC.
' Ejemplo de arreglo dinámicos.
REM $DYNAMIC
DIM prueba(1 TO 5)
CLS
PRINT "Al principio el limite inferior del arreglo es "; LBOUND(prueba)
PRINT "y el límite superior es "; UBOUND(prueba)
PRINT
REDIM prueba(7 TO 200) ‘Cambiamos lo límites del arreglo.
PRINT "Luego el limite inferior del arreglo es "; LBOUND(prueba)
PRINT "y el límite superior es "; UBOUND(prueba)
END
 Nota: REDIM cambia el número de elementos en las dimensiones de un arreglo, NO las
dimensiones; o sea, NO podemos tener algo como.

REM $DYNAMIC
DIM arreglo(5, 6) ‘ Array de 2 dimensiones
REDIM arreglo(3, 5, 6) ‘ Array de 3 dimensiones
Por último solo queda mencionar que al cambiar el tamaño del un arreglo, todos los elementos se
resetean (números a 0 y cadenas a “”). También es posible cambiar el número de elementos del
arreglo $DYNAMIC, primero borrándolo con ERASE y luego volver a declarar los límites con DIM,
aunque es más engorroso.
' Ejemplo de arreglo dinámicos II.
REM $DYNAMIC
DIM prueba(1 TO 5)
CLS
PRINT "Al principio el límite inferior del arreglo es "; LBOUND(prueba)
PRINT "y el límite superior es "; UBOUND(prueba)
PRINT

ERASE prueba ‘Primero lo borramos...

DIM prueba(5 TO 20) ‘ y luego lo volvemos a declarar.

PRINT "Luego el limite inferior del arreglo es "; LBOUND(prueba)

PRINT "y el límite superior es "; UBOUND(prueba)

CAPITULO V
PROGRAMACION ESTRUCTURADA
Esta forma de programar se basa fundamentalmente en el desglose de un programa en
subprogramas más pequeños que hagan cada uno una tarea especial para el programa en
general. Como "la necesidad es la madre de la invención”, la programación estructurada nace de la
necesidad de dotar a los programas de una estructura, una mayor claridad en el diseño y una
especie de jerarquisación que permitan depurar, mantener y corregirlos de una manera sencilla y
rápida.
QuickBASIC puede dividir a un programa en:
 Subrutinas
 Procedimientos
 Funciones
 Módulos

SUBRUTINAS
Las subrutinas son subprogramas que son llamados desde un programa principal u otra subrutina
mediante la orden GOSUB. Inician con una etiqueta o número de línea y terminan con la sentencia
RETURN (“regreso”), la cual le devuelve el control al nivel inmediato desde donde fue llamada (ya
sea programa principal u otra subrutina). Vamos a poner como ejemplo uno de los programas de
los capítulos anteriores, pero ahora al estilo estructurado:
' Ejemplo de subrutinas GOSUB ([Link])
DO
CLS
COLOR 10
PRINT TAB(29); "MENÚ DE OPERACIONES"
PRINT TAB(27); "-----------------------"
COLOR 7
PRINT TAB(32); "1) SUMAR"
PRINT TAB(32); "2) RESTAR"
PRINT TAB(32); "3) MULTIPLICAR"
PRINT TAB(32); "4) DIVIDIR"
PRINT TAB(32); "5) EXPONENCIAR"
PRINT TAB(32); "6) RAIZ CÚBICA"
PRINT TAB(32); "7) SALIR"

PRINT : PRINT
PRINT TAB(30); : INPUT "ESCOGA SU OPCIÓN -> ", opcion
CLS

SELECT CASE opcion

CASE IS = 1
GOSUB sumar ' Nos manda a la subrutina "sumar"
CASE IS = 2
GOSUB restar ' Nos manda a la subrutina "restar"
CASE IS = 3
GOSUB multiplicar ' Nos manda a la subrutina "multiplicar"
 CASE IS = 4
GOSUB dividir ' Nos manda a la subrutina "dividir"
CASE IS = 5
GOSUB exponenciar ' Nos manda a la subrutina "exponenciar"
CASE IS = 6
GOSUB radicar ' Nos manda a la subrutina "radicar"
CASE IS = 7
EXIT DO ' Sale del bucle DO
CASE ELSE
COLOR 18 ' Color verde intermitente
PRINT TAB(30); "--OPERACIÓN NO VALIDA--"
END SELECT
COLOR 7: PRINT
INPUT "PRESIONA <ENTER> PARA REGRESAR", enter$
LOOP
END
sumar: ‘Inicia la subrutina sumar...
COLOR 10
PRINT TAB(38); "SUMAR"
PRINT TAB(36); "---------"
PRINT : COLOR 7
INPUT "Primer número -> ", n1
INPUT "Segundo número -> ", n2
PRINT "La suma de"; n1; "y"; n2; "es"; n1 + n2
RETURN ‘Regresa el control al nivel desde donde fue llamada
restar: ‘Inicia la subrutina restar...
COLOR 10
PRINT TAB(37); "RESTAR"
PRINT TAB(36); "--------"
PRINT : COLOR 7
INPUT "Primer número -> ", n1
INPUT "Segundo número -> ", n2
PRINT "La resta de"; n1; "menos"; n2; "es"; n1 - n2
RETURN ‘Regresa el control al nivel desde donde fue llamada
multiplicar:
COLOR 10
PRINT TAB(34); "MULTIPLICAR"
PRINT TAB(32); "---------------"
PRINT : COLOR 7
INPUT "Primer número -> ", n1
INPUT "Segundo número -> ", n2
PRINT "El producto de"; n1; "por"; n2; "es"; n1 * n2
RETURN
dividir:
COLOR 10
PRINT TAB(36); "DIVIDIR"
PRINT TAB(35); "---------"
PRINT : COLOR 7
INPUT "Dividendo -> ", n1
INPUT "Divisor -> ", n2
PRINT "El cociente de"; n1; "entre"; n2; "es"; n1 / n2
RETURN
exponenciar:
COLOR 10
 PRINT TAB(34); "EXPONENCIAR"
PRINT TAB(33); "-------------"
PRINT : COLOR 7
INPUT "Base -> ", n1
INPUT "Potencia -> ", n2
PRINT "El resultado de elevar"; n1; "a la"; n2; "es"; n1 ^ n2
RETURN
radicar:
COLOR 10
PRINT TAB(34); "RAIZ cúbica"
PRINT TAB(33); "-------------"
PRINT : COLOR 7
INPUT "Número para sacarle raíz cúbica -> ", n1
DO WHILE (cont * cont * cont) < n1
cont = cont + .001
LOOP
PRINT "La raíz cúbica de"; n1; "es"; cont
RETURN
La jerarquía del programa anterior se puede desglosar de la siguiente forma:

Programa
principal

Subrutina Subrutina Subrutina Subrutina Subrutina Subrutina

sumar restar multiplica dividir exponencia radicar
r r

Las subrutinas del tipo GOSUB...RETURN tienen la siguiente estructura:

Sintaxis:
etiqueta o número de línea:
<sentencias>
RETURN [etiqueta o número de línea]
Donde RETURN devolverá el control al nivel desde donde fue llamado, ya sea...
' Demuestra como RETURN devuelve el control al nivel desde donde la
' subrutina fue llamada ([Link])
CLS
PRINT "-> Estamos en el programa principal..."
INPUT "Quieres ir a la subrutina 1 (s/n) -> ", ir$
IF UCASE$(ir$) = "S" THEN GOSUB Subrutina1 ' Vamos a la subrutina 1
PRINT "-> estamos en el programa principal y ya acabamos."
END
Subrutina1:
PRINT
PRINT "-> Estas en la subrutina 1"
INPUT "Quieres regresar a principal (s/n) -> ", reg$
IF UCASE$(reg$) = "N" THEN GOSUB Subrutina2 ' Vamos a la subrutina 2
PRINT "-> vas a regresar a principal desde la subrutina 1"
RETURN ' A principal, desde donde esta subrutina fue llamada
Subrutina2:
PRINT
PRINT "-> Estamos en la subrutina 2"
PRINT
RETURN ' A subrutina 1, desde donde esta subrutina fue llamada
o a otra etiqueta, pero en el mismo nivel desde donde fue llamada:
' Ejemplo de GOSUB que retorna el control a otra etiqueta, pero dentro del nivel desde
' donde fue llamada.
CLS
PRINT "-> en el programa principal"
GOSUB Hola
Adios:
PRINT "-> regresamos al programa principal"
PRINT "Adiós"
END

Hola:
PRINT "Hola a todos..."
PRINT "esta subrutina fue llamada desde principal"
GOSUB HastaPronto
PRINT "esta línea en subrutina 1 puede ser omitida"
Salida:
PRINT "-> de regreso en subrutina uno"
RETURN Adios

HastaPronto:
PRINT "-> en subrutina dos"
PRINT "Hasta pronto..."
RETURN Salida

COMO USAR GOSUB Y RETURN

Aunque podemos usar RETURN para retornar el control a otro modulo diferente del que llamó a
esa subrutina, para evitar conflictos y tener una mejor estructura es recomendable usarlo para
devolver el control al nivel inmediato desde donde la subrutina fue llamada, y por otro lado utilizar a
GOSUB para darle el control a otra subrutina cualquiera. Lo anterior nos evita tener errores como
el siguiente:
CLS
PRINT "-> Estamos en el programa principal"
GOSUB Saludo
END

Saludo:
PRINT "-> Estamos en subrutina Saludo"
PRINT "hola a todos"
RETURN SaludoII 'Utilizamos RETURN en vez de GOSUB para mandar
'el control a otra subrutina
SaludoII:
PRINT "-> Estamos en subrutina SaludoII"
RETURN 'Producirá un error ya que este RETURN no devuelve
'el control a un GOSUB respectivo
Estas subrutinas de tipo GOSUB...RETURN se deben escribir después del final del programa
(END) para evitar que el programa se vaya de largo en la ejecución y nos produzca un error como
el siguiente:
CLS PRINT "-> Estamos en el programa principal"
GOSUB Saludo
' END debería de ir aquí para evitar que se vaya de largo y encuentre un
' RETURN sin GOSUB.

Saludo:
PRINT "-> Estamos en subrutina saludo"
PRINT "hola a todos"
RETURN
El siguiente tipo de procedimientos provee una manera más potente, sólida, sexy y legible que las
subrutinas GOSUB...RETURN...

PROCEDIMIENTOS
Los procedimientos son subprogramas que reciben variables (o constantes) desde el nivel superior
para ejecutar una determinada tarea. Veamos el siguiente ejemplo:
' Ejemplo de SUB #1
CONST saludo$ = "HOLA A TODOS..."
CLS
CALL Display(saludo$)
END

SUB Display (mensaje AS STRING)

PRINT mensaje
END SUB
El ejemplo anterior nos presenta un simple programilla que llama o invoca (mediante la orden
CALL) a un procedimiento llamado Display para pasarle una constante String que contiene la
cadena "HOLA A TODOS..." e imprimirla en pantalla. Ahora entremos en detalles:
Un procedimiento tiene la siguiente estructura:
Sintaxis:
SUB nombre_del_procedimiento[(parámetros)] [STATIC]
<instrucciones>
[EXIT SUB]
<instrucciones>
END SUB
Del nombre del procedimiento debemos decir que este tiene que ser único en todo el programa,
es decir, NINGUN otro procedimiento ni variable debe de llamarse igual a este. Si en un programa
existe algo como:
False = 0 'False igual a cero
True = NOT False 'True diferente de cero

CLS
INPUT "¿Imprimimos mensaje (si = 1, no = 0)"; imprimir ' Variable que se llama Imprimir
IF imprimir = True THEN CALL Imprimir
END
SUB Imprimir ' ¡¡¡Procedimiento que se llama igual que una variable!!!
PRINT "Hola"
END SUB
QuickBASIC nos presentará el mensaje "Duplicate definition", que significa que existe ya una
variable con ese nombre.

MANEJO DE PARAMETROS Y ARGUMENTOS

Ahora, siguiendo con el ejemplo
' Ejemplo de SUB #1
CONST saludo$ = "HOLA A TODOS..."

CLS
CALL Display(saludo$)
END

SUB Display (mensaje AS STRING)

PRINT mensaje
END SUB

alguien puede pensar lo siguiente: ¿Si al procedimiento le "pasamos" una constante llamada
saludo$, entonces porqué dentro de la SUB este mismo valor se llama mensaje?. El parámetro
mensaje nos indica que le "pasaremos" al procedimiento un argumento de tipo String, y que ese
mismo argumento o valor (en este caso es una constante llamada saludo$) se llamará diferente
dentro de la SUB (en este caso mensaje, ¿entendes?). Veamos este otro ejemplo:
'Ejemplo #2 de SUB
CLS
INPUT "Introduce dos números -->> ", a, b
CALL ImprimeSuma(a, b) 'Llamamos a la SUB ImprimeSuma.
END

SUB ImprimeSuma (n1, n2)

PRINT "La suma de "; n1; "y "; n2; "es "; n1 + n2
END SUB
Aquí tenemos un procedimiento que se llama ImprimeSuma con dos parámetros (Single por
default) n1 y n2, al cual le pasaremos desde el programa principal dos variables (los argumentos)
llamadas a y b para que imprima la suma de ambas.

VALORES POR REFERENCIA

Es muy importante dejar muy en claro que las variables se pasan a los procedimientos por
referencia; es decir, se pasan con otro nombre, pero sigue siendo la misma dirección en
memoria; por lo tanto, todo lo que se les haga dentro del procedimiento las afectará afuera de
este. Para no hacerla larga, veamos:
' Ejemplo #3 de SUB. Ejemplo de valores por referencia.
' Este programa no hace más que cambiar los valores de dos variables
' dentro de un procedimiento, para luego imprimirlos fuera de este.
CLS
INPUT "Introduce un numero -->> ", a
INPUT "Introduce otro numero -->> ", b
PRINT
COLOR 15: PRINT "Primero:"
COLOR 7
PRINT "a = "; a; " y b = "; b
CALL Cambiar(a, b) 'Llama al procedimiento cambiar.
COLOR 15: PRINT "Luego:"
COLOR 7
PRINT "a = "; a; " y b = "; b
END

SUB Cambiar (x, y)

SWAP x, y 'Intercambia los valores.
END SUB 'Listo, vámonos.
En el ejemplo anterior intercambiamos los valores de dos variables (llamadas a y b en el programa
principal) dentro de un procedimiento llamado Cambiar (en el que las variables se llaman x y y).
Esto consiste una gran ventaja para cuando queremos obtener más de un valor en una misma
serie de operaciones, lo cual no lo permiten las funciones.

PASANDO ARREGLOS
Ampliando un poco más esto, si queremos que los argumentos sean arreglos, estos se pasan de la
siguiente manera:
DECLARE SUB RellenaArreglo (array() AS INTEGER)
DECLARE SUB ImprimeArreglo (array() AS INTEGER)
' Ejemplo de SUB #4. Arreglos como parámetros

'Arreglo entero estático de dos dimensiones

DIM arreglo(1 TO 2, 1 TO 2) AS INTEGER

CLS
CALL RellenaArreglo(arreglo())
CALL ImprimeArreglo(arreglo())
END

SUB ImprimeArreglo (array() AS INTEGER)

FOR i = LBOUND(array, 1) TO UBOUND(array, 1) 'Limites de la 1ª dimensión
FOR j = LBOUND(array, 2) TO UBOUND(array, 2) 'Limites de la 2ª dimensión
PRINT "Elemento"; i; j; "-->> "; array(i, j)
NEXT j
NEXT i
END SUB

SUB RellenaArreglo (array() AS INTEGER)

FOR i = LBOUND(array, 1) TO UBOUND(array, 1) 'Limites de la 1ª dimensión
FOR j = LBOUND(array, 2) TO UBOUND(array, 2) 'Limites de la 2ª dimensión
array(i, j) = i * j 'Rellena el arreglo (nada importante)
NEXT j
NEXT i
END SUB
No tiene ninguna ciencia, solo se pasa el arreglo sin nada entre paréntesis, a menos que
queramos pasar una posición determinada del arreglo en particular.
 Nota: Ojo que el parámetro también debe ser un arreglo del mismo tipo, de otra forma
obtendremos un error
que significa que el tipo del parámetro no coincide con el de la variable que queremos pasar

(argumento).

Pero bueno, para aquellos manitas que ya cacharon algo diferente en el programa anterior, vamos
a comentarlo. ¿Qué es eso de DECLARE SUB?. Si estas trabajando sobre QuickBASIC de seguro
ya te diste cuenta que cada vez que guardas un programa en el que hay SUB's, QB declara por
nosotros los procedimientos que estamos utilizando mediante la sentencia DECLARE. La sentencia
DECLARE provoca que el compilador cheque el numero y tipo de los variables que le pasamos al
procedimiento cuando lo mandamos llamar.
Sintaxis:
DECLARE {SUB | FUNCTION} nombre ([lista_de_parametros])
 Nota: Si el tipo de los argumentos que pasamos no coincide con el tipo de los parámetros,
entonces se produce el error:
que significa que el tipo del parámetro no coincide con el de la variable que queremos pasar.

FUNCIONES
Como ya vimos en el capítulo 4, una función es una correspondencia en la que, mediante
operaciones con una o más variables independientes, le damos un valor a una variable
dependiente. Hasta el momento hemos visto solamente las funciones predefinidas que nos
ofrece QB, pero ahora vamos a ver como crear nuestras propias funciones de acuerdo a como las
vayamos necesitando. Una función esta compuesta por un bloque de la siguiente forma:
Sintaxis:
FUNCTION nombre[identificador] ([parámetro AS tipo[, parámetro AS tipo[,...]]]) [STATIC]
<sentencias>
nombre = expresión
[EXIT FUNCTION]
<sentencias>
END FUNCTION
Veamos el siguiente ejemplo:
' Ejemplo de funciones #1. Función que devuelve el cuadrado de un número
DECLARE FUNCTION Sqrt! (n AS SINGLE)
CLS
INPUT "Número ->> ", numero
cuadrado = Sqrt(numero) 'Usando nuestra función
PRINT "El cuadrado es"; cuadrado
END

FUNCTION Sqrt (n AS SINGLE)

Sqrt = n * n 'Le asignamos el valor que devolverá
END FUNCTION
Dentro del cuerpo de la función, debemos de asignarle a la función el valor que va a devolver, en
este caso a la función Sqrt le asignamos a n * n para que lo devuelva a la variable dependiente
cuadrado. Veamos otro ejemplo:
DECLARE FUNCTION Hip! (a!, b!)

CLS
COLOR 10: PRINT TAB(30); "CALCULO DE LA HIPOTENUSA"
COLOR 7: PRINT
INPUT "Cateto opuesto -> ", cop!
INPUT "Cateto adyacente -> ", cad!
hipotenusa! = Hip(cop!, cad!)
PRINT "La hipotenusa vale "; hipotenusa!

FUNCTION Hip! (a!, b!)

 c! = SQR(a! * a! + b! * b!) 'Teorema de pitágoras
Hip! = c! 'Le damos a Hip el valor de c!
END FUNCTION

PASANDO VALORES POR VALOR

Aunque suena redundante, el pasar argumentos por valor nos permite pasar al subprograma el
valor de las variables y no la dirección; esto evita que puedan ser modificadas dentro del
subprograma. Para hacer esto, al llamar a la función o sub debemos encerrar al argumento entre
paréntesis, por ejemplo de la siguiente forma:
DECLARE FUNCTION Presion(fuerza, area)
..
result = Presion((F), (A))
Esto hace que QB evalúe los argumentos como expresiones, por lo que el "resultado" será
guardado en una dirección temporal que no afectará a las variables ya iniciadas.

FUNCIONES RECURSIVAS
Una función, al igual que una SUB, tiene la ventaja de que puede llamarse a si misma. Para
visualizar esto mejor pensemos en algo, algo como calcular el resultado de elevar un número a una
potencia. En este caso podemos decir que, por ejemplo, 8 elevado a la 3 sería
8 3 = 8 * 8 * 8 = 512
o también
8 3 = 8 * (8 2) = 8 * 8 * 8 = 512
Y para números cualquiera podemos tener que

x y = x * x ( y - 1 ) = x * x * x ( y - 2) = x * x * x * x ( y -3) = x * x * x *...* x 1

Ahora, un programa que hace lo mismo es:

'Utiliza una función recursiva para elevar un numero a otro.
DECLARE FUNCTION Pow (x, y)
CLS
INPUT "Introduce la base -> ", basse 'basse y no base
INPUT "Introduce la potencia -> ", potencia
resultado = Pow(basse, potencia)
PRINT basse; "a la "; potencia; "da "; resultado
END

FUNCTION Pow (x, y)

IF y = 0 THEN
Pow = 1 'Debemos evitar que se siga llamando
EXIT FUNCTION 'Esta línea puede ser omitida
ELSE
Pow = x * Pow(x, y - 1)
END IF
END FUNCTION

En el ejemplo anterior hemos jugado un poco con la recursividad y tenemos una función que se
llama a si misma. Es importante que demos una salida a la recursión para que se vayan
retornando los valores al nivel superior inmediato. Veamos que es lo que haría la función anterior
con 5 como base y 4 como potencia.

No. de llamada Valor de x Valor de y Usamos Se devuelve

1 5 4 Pow = x * Pow(x, y -1) 5 * 125 = 625
2 5 3 Pow = x * Pow(x, y -1) 5 * 25 = 125
3 5 2 Pow = x * Pow(x, y -1) 5 * 5 = 25
4 5 1 Pow = x * Pow(x, y -1) 5*1=5
5 5 0 Pow = 1 1

Aquí se dejaría de llamar a la función y se empiezan a retornar los valores hacia arriba.
Vemos otro ejemplo más. Como ya hemos visto, el factorial de un número esta dado, por ejemplo:
5! = 5 * 4 * 3 * 2 * 1 = 120
que sería lo mismo que
5! = 5 * 4! = 5 * 4 * 3! = 120
El programa siguiente hará lo mismo:
'Calcula el factorial de un número usando una función que se llama a si misma
DECLARE FUNCTION Factorial (n AS INTEGER)
DIM numero AS INTEGER
CLS
INPUT "Introduzca el número para sacar su factorial -> ", numero
PRINT Factorial(numero)
END

FUNCTION Factorial (n AS INTEGER)

IF n = 0 THEN
Factorial = 1 'Por definición. Aquí se para la recursión
ELSE
Factorial = n * Factorial(n - 1)
END IF
END FUNCTION

FUNCIONES Y PROCEDIMIENTOS ESTÁTICOS

Cada vez que nosotros accedemos a una función ó SUB, los valores de las variables que se
encuentran en el cuerpo de esta se resetean (numero a 0 y cadenas a ""). Si queremos que los
valores de estas se conserven entre llamadas, podemos hacer que la función (ó SUB) sea estática
colocando la palabra STATIC al final de esta.
Ejemplo:
'Ejemplo de función STATIC
DECLARE FUNCTION Contador ()
CLS
DO
c = Contador
PRINT "Contador vale"; c
LOOP UNTIL c = 5
END

FUNCTION Contador STATIC 'Función estática sin parámetros

i=i+1
Contador = i
END FUNCTION

De otra manera, si no fuera estática, tendríamos lo siguiente:

DECLARE FUNCTION Contador ()
CLS
DO
c = Contador
PRINT "Contador vale"; c
 INPUT "Desea salir (s/n) ", salir$ 'Proporcionamos una salida alternativa
IF UCASE$(salir$) = "S" THEN EXIT DO
LOOP UNTIL c = 5
END
FUNCTION Contador 'Función dinámica sin parámetros.
i=i+1
Contador = i
END FUNCTION

ALCANCE DE LAS VARIABLES

Las variables se pueden dividir por el alcance que tienen en dos tipos: globales y locales.
 Variables locales
Las variables locales se crean dentro de cada procedimiento y su valor es únicamente para ese
procedimiento. En el ejemplo
'Ejemplo de variables locales #1.
DECLARE SUB ejemplo (n AS INTEGER)
DIM num AS INTEGER
num = 19

CLS
PRINT "-> Estamos en el programa principal"
PRINT "num vale"; num
PRINT "n vale"; n
PRINT
CALL ejemplo(num)
END

SUB ejemplo (n AS INTEGER)

PRINT "-> Estamos dentro del procedimiento"
PRINT "num vale"; num
PRINT "n vale"; n; "(valor de num)"
END SUB
tenemos dos variables, num y n. Ambas variables son locales, pero num es local a principal y n al
procedimiento ejemplo. Esto quiere decir que si citamos a num dentro del procedimiento, entonces
se crea una nueva variable local (pero ahora local al procedimiento) y aunque fuera de ese
procedimiento ya existe una variable con ese mismo nombre, ambas son diferentes ¿entendes?.
Todas las variables son locales por default, tienen alcance únicamente en sus respectivos
procedimientos.
 Variables globales
Las variables globales son aquellas cuyo valor será el mismo en todos los procedimientos, sin
necesidad de pasarlas como argumentos. Debemos utilizar la orden SHARED ("compartido") para
indicar que un mismo nombre de variable tendrá el mismo valor en todos los procedimientos de
ese módulo. Si la variable es creada dentro de una SUB entonces se usa la sintaxis
Sintaxis:
SHARED variable [AS tipo] [, variable [AS tipo]]...
'Ejemplo de variables globales #1.
'La variable global se crea dentro de un procedimiento...
DECLARE SUB Ejemplo ()
CLS
CALL Ejemplo 'Invocamos nuestra sub
PRINT "En principal e también vale"; e; ":-)"
END

SUB Ejemplo
 SHARED e 'Variable compartida en todos los procedimientos de este modulo
e = 2.718282
PRINT "En el procedimiento e vale"; e
END SUB
De otra forma utilizaremos SHARED después de DIM.
Sintaxis:
DIM SHARED variable [AS tipo] [, variable [AS tipo]]...

'Ejemplo de variables globales #2.

' La variable se crea fuera de un procedimiento...
DECLARE SUB Ejemplo ()

CLS
DIM SHARED pi, e
pi = 3.1416: e = 2.718282
PRINT "En principal e vale"; e; "y pi"; pi
CALL Ejemplo
SUB Ejemplo
PRINT "En el procedimiento e vale"; e; "y pi"; pi; "también. |:-)"
END SUB

MÓDULOS
Un programa BASIC esta compuesto por uno o más módulos (.bas). Un módulo es una fuente que
puede ser compilada separadamente y luego enlazada para formar el programa ejecutable.
Hasta ahora, solo hemos manejado programas de un solo módulo llamado módulo principal. El
módulo principal es el "kernel del programa", es donde deben entrar los datos e iniciar el programa.
Los otros módulos pueden contener SUBs, funciones, constantes, y tipos de datos definidos por
nosotros (luego los veremos d;-)). La creación de módulos constituye un método super potente
para reutilizar código, ya que podemos utilizarlos para realizar otros programas.
Cuando nosotros creamos un módulo nuevo, QB lo guardara en el disco duro (o dispositivo que
queramos) con el nombre que le especifiquemos y una extensión .bas. Al compilar un programa de
dos o más módulos, QB compilará separadamente cada modulo para luego enlazar los .obj y
formar el ejecutable.
 Nota: En QuickBASIC puedes crear un nuevo módulo mediante el menú File/Create File..., si
existe cargarlo usando File/Load File..., descargarlo con File/Unload File..., así como editar o
mover sus subprogramas con <F2> Mira el apéndice para más información.
Veamos como podría serla estructura de un módulo:

'Módulo [Link].
'Funciones estadísticas para obtener la media, mediana y moda de una
'muestra.
DECLARE FUNCTION GetModa (muestra() AS SINGLE) 1.- Sección de
DECLARE FUNCTION GetMediana (muestra() AS SINGLE) declaraciones
DECLARE FUNCTION GetMedia (muestra() AS SINGLE)

' Esta sub ordenara los elementos del arreglo de menor a mayor mediante el
' el método de la burbuja.
SUB Bubble (arreglo() AS SINGLE)
liminf = LBOUND(arreglo)
limsup = UBOUND(arreglo)
FOR i = liminf TO limsup - 1
FOR j = liminf TO limsup - 1
IF arreglo(j) > arreglo(j + 1) THEN SWAP arreglo(j), arreglo(j + 1)
NEXT j
NEXT i
END SUB

FUNCTION GetMedia (muestra() AS SINGLE)

liminf = LBOUND(muestra)
limsup = UBOUND(muestra)
suma = 0
FOR i = liminf TO limsup
suma = suma + muestra(i)
c=c+1
NEXT i
GetMedia = suma / c
END FUNCTION

FUNCTION GetMediana (muestra() AS SINGLE)

liminf = LBOUND(muestra)
limsup = UBOUND(muestra)
GetMediana = (muestra(liminf) + muestra(limsup)) / 2
END FUNCTION

'Esta función retornara solo UNA moda, y se debe pasar el arreglo ORDENADO
'de menor a mayor. Puedes modificarla para mejorarla d;-)
FUNCTION GetModa (muestra() AS SINGLE)
liminf = LBOUND(muestra)
limsup = UBOUND(muestra)
DIM contador(liminf TO limsup)

FOR i = liminf TO limsup

FOR j = liminf TO limsup
IF muestra(i) = muestra(j) THEN contador(i) = contador(i) + 1
NEXT j
NEXT i

max = 1
FOR i = liminf TO limsup
IF contador(i) > max THEN max = i
NEXT i
GetModa = muestra(max)
END FUNCTION
Como ya vimos anteriormente, cada vez que guardamos un módulo que contiene subprogramas
QB automáticamente los declara al inicio, pero para poder utilizar estos mismos subprogramas en
otro módulo, hay que declararlos también en este. El siguiente ejemplo muestra un modulo
principal que utiliza al modulo anterior:
DECLARE SUB Bubble (arreglo() AS SINGLE)
DECLARE FUNCTION GetMedia (arreglo() AS SINGLE)
DECLARE FUNCTION GetMediana (arreglo() AS SINGLE)
DECLARE FUNCTION GetModa (arreglo() AS SINGLE)
DIM estaturas(1 TO 5) AS SINGLE

CLS
PRINT TAB(15); "CALCULA LA MEDIA, MEDIANA Y MODA DE 5 ESTATURAS"
PRINT : PRINT
FOR i = 1 TO 5
PRINT "Estatura"; i; "-> "; : COLOR 15: INPUT "", estaturas(i)
COLOR 7
NEXT i
PRINT

Bubble estaturas() 'Esta sub ordenará el arreglo

media = GetMedia(estaturas())
mediana = GetMediana(estaturas())
moda = GetModa(estaturas())

COLOR 7: PRINT "La media es "; : COLOR 15: PRINT media

COLOR 7: PRINT "La mediana es "; : COLOR 15: PRINT mediana
COLOR 7: PRINT "La moda es "; : COLOR 15: PRINT moda
END

VARIABLES ENTRE MÓDULOS

Los ejemplos anteriores nos permiten compartir variables entre los procedimientos de un mismo
módulo, pero no con otros. Para poder compartir las variables entre los procedimientos de otros
módulos, debemos utilizar la palabra COMMON ("común") antes de SHARED y luego el nombre de
la(s) variable(s) que queremos que sean comunes; esto en todos los módulos que compartirán las
variables.
Sintaxis:
COMMON SHARED variable [AS tipo] [, variable [AS tipo]]...
'Modulo principal [Link]
DECLARE FUNCTION Factorial ()
DECLARE FUNCTION Cuadrado ()
DECLARE FUNCTION Raiz3 ()
COMMON SHARED n AS INTEGER 'Variable común y compartida en todos los módulos

CLS
INPUT "Introduce un entero -> ", n
PRINT : PRINT
COLOR 15
PRINT TAB(33); "1.- Cuadrado"
PRINT TAB(33); "2.- Raíz cubica"
PRINT : PRINT : COLOR 7
INPUT "Escoja su opción ->> ", op

SELECT CASE op
CASE IS = 1
 resultado = Cuadrado
CASE IS = 2
resultado = Raiz3
CASE ELSE
COLOR 23
PRINT "OPCION INVALIDA"
END
END SELECT
PRINT "Resultado: "; resultado

'Modulo [Link]
COMMON SHARED n AS INTEGER 'También tenemos que declararla aquí
DECLARE FUNCTION Factorial ()
DECLARE FUNCTION Cuadrado ()
DECLARE FUNCTION Raiz3 ()

FUNCTION Cuadrado
PRINT n
Cuadrado = n * n
END FUNCTION

FUNCTION Raiz3
DO WHILE (c * c * c < n)
c = c + .0001
LOOP
Raiz3 = c
END FUNCTION

CAPITULO VI
MANIPULACION DE CADENAS DE TEXTO
La manipulación de cadenas es un rollo muy importante de la programación, y QB nos proporciona
muchas herramientas para modificar cadenas de una manera fácil y rápida. En QB podemos tener
cosas como
destinatario$ = "Sr." + nombre$
cosa que no podemos hacer en lenguajes como C.
Veamos el siguiente ejemplo:
' Ejemplo de suma de cadenas.
CONST saludo$ = "Bienvenido a QuickBASIC, "
CLS
INPUT "Introduce tu nombre: ", nombre$
PRINT : PRINT
PRINT saludo$ + nombre$
También podemos tener cosas como

IF cadena1$ < cadena2$ THEN...

En este caso la comparación se hace mediante el valor ASCII de cada cadena. Por citar un
ejemplo si tenemos
'Comparación de cadenas
cadena1$ = "QuickBASIC"
cadena2$ = "GW-BASIC"
CLS
IF cadena1$ < cadena2$ THEN
PRINT cadena1$; " es menor que "; cadena2$
ELSE
PRINT cadena1$; " es mayor que "; cadena2$
END IF
END
veremos que los valores ASCII de los caracteres de cada cadena son:

Letra Valor ASCII Letra Valor ASCII

Q 81 G 71
u 117 W 87
i 105 - 45
c 99 B 66
k 107 A 65
B 66 S 83
A 65 I 73
S 83 C 67
I 73
C 67
Suma 863 Suma 557
 Nota: La tabla de los caracteres ASCII viene incluida en la ayuda de QuickBASIC 4.5 y MS-DOS
QBASIC, consultala para mayor información.
Otra cosilla nueva que veremos es que podemos tener cadenas de un tamaño de caracteres
definido por nosotros.
DIM nombre AS STRING * 6 'Definimos una variable que almacenara una
'cadena de 6 caracteres.
CLS
INPUT "Entra tu nombre completo: ", nombre
PRINT "Los primeros 6 caracteres de tu nombre completo son: " + nombre
END
Ahora veamos algunas funciones del lenguaje que nos permiten manejar cadenas de caracteres.

TOMANDO PARTES DE CADENAS

LEFT$(s$, n)
Función de cadena que devuelve los n caracteres de la cadena s$ que están mas a la izquierda.
'Demuestra el uso de la función LEFT$
saludo$ = "HOLA A TODOS"
CLS
PRINT "La cadena completa es "; : COLOR 15: PRINT saludo$
result$ = LEFT$(saludo$, 5): COLOR 7
PRINT "Los 5 caracteres mas a la izq. de la cadena son "; : COLOR 15: PRINT result$
END

RIGHT$(s$, n)
Función de cadena que devuelve los n caracteres de la cadena s$ que están mas a la derecha.
'Demuestra el uso de la función RIGHT$
saludo$ = "HOLA A TODOS"
CLS
PRINT "La cadena completa es "; : COLOR 15: PRINT saludo$
result$ = RIGHT$(saludo$, 5): COLOR 7
PRINT "Los 5 caracteres que están mas a la derecha de la cadena son "; : COLOR 15: PRINT
result$
END
MID$
Sintaxis 1 (como función):
Devuelve una subcadena a partir de una posición determinada de una cadena.
MID$(cadena$, inicio[,longitud])
- cadena$ identifica a la cadena de la cual obtendremos una subcadena.
- inicio es una expresión numérica que especifica la posición desde donde obtendremos la
subcadena.
- longitud puede ser omitida si quieres que la subcadena sean todos los caracteres hacia la
derecha de la posición inicio.
'MID$ como función
cadena$ = "BASIC es fácil"
CLS
PRINT "La cadena completa: "; : COLOR 15: PRINT cadena$
COLOR 7
PRINT "Con MID$ desde la posición 10 :"; : COLOR 15: PRINT MID$(cadena$, 10)
END
Sintaxis 2 (como orden):
Substituye una subcadena por otra.
MID$(c$, inicio[,longitud]) = cadena2$
- c$ es una variable String.
- inicio es una expresión numérica que especifica la posición desde donde obtendremos la
subcadena a substituir.
- longitud puede ser omitida si quieres que la subcadena sean todos los caracteres hacia la
derecha de la posición inicio.
- cadena2$ es la cadena que substituiremos.
'MID$ como orden
cadena$ = "BASIC NO es fácil" 'cadena original
CLS
PRINT cadena$
COLOR 7: PRINT
PRINT "Mentira... ";
MID$(cadena$, 7, 2) = "SI" 'modificando la cadena
PRINT cadena$ 'cadena resultante

LTRIM$(c$)
Función de cadena que le quita los espacios iniciales a c$ (si los tiene). Bien útil.
'Ejemplo de la utilisima función LTRIM$
cadena$ = " cadena con espacios" 'cadena original
CLS
PRINT cadena$
COLOR 7: PRINT
csinesp$ = LTRIM$(cadena$) 'quitándole los espacios
PRINT csinesp$ 'cadena sin espacios

RTRIM$(c$)
Función de cadena que le quita los espacios finales a c$ (si los tiene). También útil.
'Ejemplo de la utilisima función RTRIM$
cadena$ = "cadena con espacios al final " 'cadena original
CLS
PRINT cadena$; "(fin de la cadena)"
COLOR 7: PRINT
csinesp$ = RTRIM$(cadena$) 'quitándole los espacios
PRINT csinesp$; "(fin de la cadena)" 'cadena sin espacios
END

BUSCANDO CADENAS
INSTR
Busca una cadena dentro de otra.
Sintaxis:
INSTR([inicio,] cadena_fuente, cadena_a_buscar)
- inicio es una expresión desde donde se empezaría a buscar la cadena_a_buscar.
- cadena_fuente es la cadena donde queremos buscar a cadena_a_buscar.
- cadena_a_buscar es la cadena que quermos encontrar.
'Usa la funcion INSTR
CLS
INPUT "Introduce una cadena que contenga el texto <<magi>>: ", c$
lugar = INSTR(c$, "magi")
IF lugar <> 0 THEN
PRINT "<<magi>> encontrado en la posicion "; lugar
ELSE
PRINT "La cadena no contiene a <<magi>>"
END IF
END

CONVIRTIENDO DE MAYUSCULAS A MINUSCULAS O VICEVERSA

UCASE$(cadena$)
Convierte a cadena$ a mayúsculas. Muy útil.
'Usa la función UCASE$.
CLS
INPUT "Introduce una cadena: ", cadena$
PRINT "La cadena en mayúsculas es " + UCASE$(cadena$)
END

LCASE(cadena$)
Convierte a cadena$ a minúsculas.
'Usa la función LCASE$.
CLS
INPUT "Introduce una cadena: ", cadena$
PRINT "La cadena en minúsculas es " + LCASE$(cadena$)
END

TAMAÑO DE LAS CADENAS

LEN(s$)
Es una muy util función numérica que devuelve la longitud de la cadena s$. Ejemplo
'Demuestra el uso de la funcion LEN.
'Valida si una palabra es palindromo o no. Un palindromo es una palabra
'que se lee igual al derecho que al reves, por ejemplo "solos", "oro", etc.
'$DYNAMIC 'Variables dinamicas
DIM letras$(1 TO 1)
DO
'Cabeceras
CLS
COLOR 10
PRINT TAB(26); "JUEGO DE LOS PALINDROMOMOS"
PRINT : PRINT : COLOR 7
'Fuerza al usuario a escribir algo B-)
DO
INPUT "Introduce una palabra: ", palabra$
tam = LEN(palabra$)
LOOP WHILE tam = 0
 'Nueva dimension del arreglo
REDIM letras$(1 TO tam)
'Guardamos las letras de la palabra en un arreglo
FOR i = 1 TO tam
letras$(i) = MID$(palabra$, i, 1)
NEXT i
'Damos nulo a alreves$ para que se reinicialize en cada bucle
alreves$ = ""
'Formamos a la palabra al reves
FOR i = tam TO 1 STEP -1
alreves$ = alreves$ + letras$(i)
NEXT i
'Verificamos si la palabra es igual al derecho que al reves
IF palabra$ = alreves$ THEN
PRINT "SI ES PALINDROMO"
ELSE
PRINT "NO ES PALINDROMO"
END IF
PRINT
'Obligamos al usuario a introducir una opcion valida d:-)
DO
INPUT "¨OTRA PALBRA (s/n)"; otra$
LOOP UNTIL UCASE$(otra$) = "S" XOR UCASE$(otra$) = "N"
LOOP UNTIL UCASE$(otra$) = "N" 'Si no quiere otra palabra terminamos.
END

CONVERSIONES ENTRE TEXTO Y NUMEROS

STR$(n)
Dvuelve a n como cadena, siendo n un valor numérico. Si n es positivo se agrega un espacio al
principio; si tiene punto decimal seguido de solo ceros, se le quitan.
CLS
INPUT "Introduce un numero ->> ", n
PRINT "La raiz cuadrada de"; n; "es"; SQR(n)
numcadena$ = STR$(n)
IF INSTR(numcadena$, ".") THEN 'Si la función retorna un valor <> 0
PRINT "El numero contiene decimales válidos"
ELSE
PRINT "El numero no contiene decimales válidos"
END IF
END
VAL(n$)
Devuelve a n$ como número. Este función terminará de inspeccionar a la cadena al momento en
que halle valores no-numéricos ó esta se termine.
CLS
INPUT "Introduce tu fecha de naciemiento (dd/mm/aaaa): ", fecha$
anno = VAL(RIGHT$(fecha$, 4))
SELECT CASE anno
CASE IS <= 1900
PRINT "Naciste antes del siglo XX"
CASE IS <= 2000
PRINT "Naciste en el siglo XX"
CASE ELSE
PRINT "Naciste despues del XX"
END SELECT
END
ASC(c$)
Devuelve el valor ASCII del primer caracter de una cadena. Si la cadena es nula se produce un
error en tiempo de ejecución "Illegal function call" ("Llamado de función ilegal").
CLS
INPUT "Introduce un caracter: ", car$
PRINT "El VALOR ASCII correspondiente es"; ASC(car$)
END
CHR$(n)
Devuelve el caracter ASCII correspondiente a n. El valor de n debe estar entre 0 y 255.
mensaje$ = "Texto entre comillas dobles"
CLS
PRINT CHR$(34) + mensaje$ + CHR$(34) 'Caracter "
END

LEYENDO CARACTERES DEL TECLADO

INKEY$
Es una función que lee las teclas que presionamos. Las unicas teclas que son ignoradas son las
que significan funciones especiales para el DOS o Windows, por ejemplo Ctrl + C (termina la
ejecución de un programa), Crtl + Alt + Sup (reinicio del sistema), etc.
Un uso muy comun que se le da a esta funcion, es el esperar a que el usario presione una
determinada tecla:
'Hacer mientras que la tecla pulsada sea ninguna ("")
DO : LOOP WHILE INKEY = "" '("") es la cadena nula
'Hacer hasta que la tecla pulsada sea <ESC>
DO : LOOP UNTIL INKEY = CHR$(17) 'El caracter ASCII numero 17 es <ESC>

CADENAS DE CARACTERES IGUALES

SPACE$(n)
Devuelve una cadena de n espacios.
'Demuestra el uso de la funcion SPACE$
CLS
PRINT "PRESIONA <ENTER> PARA SALIR EN CUALQUIER MOMENTO..."
'Mientras tecla pulsada igual a ""
DO: LOOP WHILE INKEY$ = ""
DO
'Pone los limites superiores e inferiores
c=c+1
IF c MOD 2 = 0 THEN
liminf = 0
limsup = 5
decre = -1
ELSE
liminf = 5
limsup = 0
decre = 1
END IF
'Selecciona el color a usar
clavecolor = clavecolor + 1
IF clavecolor MOD 2 = 0 THEN
COLOR 15
ELSEIF clavecolor MOD 3 = 0 THEN
COLOR 4
clavecolor = 0
 ELSE
COLOR 2
END IF
'Pone el numero de espacios a partir de la columna 34 de la pantalla
FOR i = limsup TO liminf STEP decre
PRINT TAB(34); SPACE$(i) + CHR$(2) + CHR$(2) 'Carilla sonriente rellena.
NEXT i
FOR i = 1 TO 200000: NEXT 'Para que dure un tiempo. En TB puedes usar DELAY.
LOOP UNTIL INKEY$ = CHR$(13) 'INKEY$ lee una tecla pulsada. El caracter
'ASCII #13 corresponde a <ENTER>.
CLS
END
STRING$
Devuelve una cadena de un mismo caracter.
Sintaxis:
STRING$(n, c)
- n es el numero de caracteres que tendra la cadena
- c es el numero del codigo ASCII que corresponde al caracter que llevará la cadena. Debe ser
un valor entero 0 - 255.
STRING$(n, c$)
- n es el numero de caracteres que tendra la cadena
- c$ es el caracter que llevará de la cadena. Si es una cadena de más de un caracter solo se
tomará el primero.
CLS
PRINT TAB(20); STRING$(15, "*") + " CABECERA " + STRING$(15, 42)
END

MANEJO DE ARCHIVOS
Durante este capitulo veremos las maneras en que podemos manejar información mediante
archivos (ficheros) de datos. El saber manejar archivos es muy importante ya que nos permite el
almacenar información y además podremos consultarla o modificarla cada vez que queramos.
QuickBASIC nos permite crear ficheros a los cuales podremos acceder de dos maneras:
secuencialmente ó aleatoriamente. Pero bueno, antes que todo veamos como se estructuran los
ficheros de datos:

Archivo ([Link])
Campo 1 Campo 2 Campo 3 Campo 4
Registro 1 Aceros Serreño Juan Almeida (01-157)14-25-48 14785
Registro 2 FIECHICZA Pedro Franco (01-157)54-58-21 5000
Registro 3 COFIACZA Patricio Celestino 13-20-20 20001
Registro 4 Química del Noroezte Ramón Carballa (01-157)85-20-17 12000
Registro 5 Servicios Metalúrgicoz Omar Loya 15-50-95 21543
... ... ... ... ...

Como podemos ver, un registro es un conjunto de campos y por su parte un campo corresponde
a un dato particular. La tabla anterior podría ilustrarnos un archivo de proveedores
([Link]), en el cual tenemos una serie de registros con sus respectivos campos,
correspondiendo el campo 1 el nombre de la compañia, el campo 2 al nombre del contacto, el
campo 3 al teléfono, y el campo 4 al monto que les debemos a cada uno.

ACCESO SECUENCIAL
Antes de nada, vamos a ver un simple ejemplo que muestra el contenido del tremendo
[Link] que se encuentra en nuestra computadora.
'[Link]
'Muestra el contenido del archivo [Link]
CLS
OPEN "c:\[Link]" FOR INPUT AS #1 ‘Si DOS o GüinDOS están en otra unidad de disco
‘que no sea C: cambia la ruta.
DO WHILE NOT EOF(1) 'Hacer mientras no sea el fin del archivo
LINE INPUT #1, linea$ ‘Guardamos la línea en una variable de cadena.
PRINT linea$ ‘La mostramos en el monitor
LOOP ‘Güelta
CLOSE #1 ‘Debemos cerrar el archivo.
PRINT : COLOR 15
PRINT "FIN DEL ARCHIVO. PRESIONE CUALQUIER TECLA PARA CONTINUAR"
‘Esperamos hasta oprimir una tecla
DO
LOOP UNTIL INKEY$ <> ""
END
El programa anterior trabaja de la siguiente manera:
- Abrimos el archivo para leer de el (FOR INPUT) y le damos el #1.
- Mientras no sea el fin del archivo #1 (EOF(1), End Of File) leemos una linea del archivo y
guardamos su contenido en la variable linea$ (INPUT #1, linea$), para luego imprimirla en la
pantalla.
- Cerramos el archivo.
En un archivo secuencial, los datos se procesan una secuencia determinada (ajá... :-)); del
ejemplo anterior, tenemos que primero leemos la primera linea, luego la segunda, luego la tercera,
etc. (¡que quede claro, por piedad! ). Ahora pasemos a ver las nuevas sentencias que utilizamos:
OPEN
Sintaxis básica:
OPEN archivo FOR modo AS #numero_de_archivo
Donde:
- La palabra archivo es una cadena que especifica la ubicación del archivo que queremos usar.
- La palabra modo indica la forma en que queremos utilizar el archivo:
- RANDOM: El archivo se abrirá como aleatorio, es decir, para leer o escribir en una
posición especifica.
- INPUT: El fichero se abrirá para leer en el.
- OUTPUT: El archivo se abré para escribir en él.
- APPEND: El archivo será abierto para escribir al final de este.
- El numero_de_archivo especifica el numero que identificará al archivo dentro del programa.
 Nota: Si el modo del archivo se omite, por default se accede como RANDOM.
LINE INPUT #
Lee una linea de texto desde un fichero.
Sintaxis:
INPUT #numero_de_archivo, variable
Donde:
- Con numero_de_archivo indicamos el numero de archivo del que queremos leer.
- Con variable indicamos la variable en donde guardaremos la linea del archivo.

EOF(n)
Esta función indica cuando es el fin del archivo.
CLOSE #n
Cierra el archivo n previamente abierto.
En el ejemplo anterior hemos abierto un fichero sin formato, es decir, un fichero que solo contiene
lineas de texto. Ahora veamos como manejar un archivo que contenga datos...
'El siguiente programa crea un archivo y guarda datos en el para despues mos-
'trarlos.
'[Link]
CLS
INPUT "Nombre del archivo (inclusive ruta y extension): ", FileName$
OPEN FileName$ FOR OUTPUT AS #1 'Abrimos el archivo para leer y escribir
DO
PRINT
INPUT "Nombre del alumno: ", Nombre$
INPUT "Matricula: ", Matricula$
INPUT "Semestre: ", Semestre$
INPUT "Grupo: ", Grupo$
INPUT "Carrera: ", Carrera$
'A continuacion escribimos CADENAS en el archivo (el contenido de las va-
'riables se escribir con comillas dobles).
WRITE #1, Nombre$, Matricula$, Semestre$, Grupo$, Carrera$
PRINT : INPUT "¨Desea realizar otro registro (S/N)"; otro$
LOOP UNTIL UCASE$(otro$) = "N"
CLOSE #1: PRINT

OPEN FileName$ FOR INPUT AS #1 'Abrimos el archivo para leer y escribirlo

DO WHILE NOT EOF(1)
CLS
PRINT
'Leemos los datos desde el archivo. Las variables tomar n el valor correc-
'to ya que cada dato en el archivo esta entre comillas y separado por
'comas.
INPUT #1, Nombre$, Matricula$, Semestre$, Grupo$, Carrera$
PRINT "Nombre del alumno: "; Nombre$
PRINT "Matricula: "; Matricula$
PRINT "Semestre: "; Semestre$
PRINT "Grupo: "; Grupo$
PRINT "Carrera: "; Carrera$
DO: LOOP UNTIL INKEY$ <> ""
LOOP
CLOSE #1 'Cerramos el archivo
END
En el ejemplo anterior nos muestra algunas cosillas:
- Podemos dejar que el usuario introduzca el nombre y la ubicación del archivo, esto en tiempo
de ejecución.
- La sentencia WRITE # escribe los datos en el archivo separados por comas para identificar los
campos, después de cada coma es un nuevo campo.
- Para escribir en el archivo lo abrimos FOR OUTPUT y lo cerramos cuando terminamos de
escribir. Luego, para leer de el lo volvemos a abrir pero ahora FOR INPUT y cuando
terminamos lo cerramos.
 Nota: La sentencia WRITE escribirá cada campo encerrado entre comillas dobles, lo cual indica
que son cadenas de caracteres en forma de campos, separados por comas.
Aunque es algo muy facil y que no merece explicación, vamos a ver como copiar archivos ...
'Este programa muestra como copiar un archivo.
'Guardaremos datos sobre alumnos.
'[Link]
DECLARE SUB GetData ()
DECLARE SUB ShowData ()
DECLARE SUB CopyData ()
'Variable compartida entre todos los procedimientos
COMMON SHARED OrigFileName$
‘----------------------- PROGRAMA PRINCIPAL -----------------------------------
GetData
ShowData
CopyData
‘---------------------------------------------------------------------------------------

SUB GetData
CLS
PRINT "GUARDANDO DATOS DE ALUMNOS": PRINT
INPUT "Archivo inicial (ruta y extension si las hay): ", OrigFileName$
OPEN OrigFileName$ FOR OUTPUT AS #1 'Abrimos el archivo para escribirlo
DO
PRINT
INPUT "Nombre del alumno: ", Nombre$
INPUT "Matricula: ", Matricula$
INPUT "Semestre: ", Semestre$
INPUT "Grupo: ", Grupo$
INPUT "Carrera: ", Carrera$
WRITE #1, Nombre$, Matricula$, Semestre$, Grupo$, Carrera$
PRINT : INPUT "¨Desea realizar otro registro (S/N)"; otro$
LOOP UNTIL UCASE$(otro$) = "N"
CLOSE #1: PRINT
END SUB

SUB ShowData
OPEN OrigFileName$ FOR INPUT AS #1 'Abrimos el archivo para leer.
CLS
PRINT "MOSTRANDO DATOS DE ALUMNOS CONTENIDOS EN "; OrigFileName$
PRINT
DO WHILE NOT EOF(1)
c=c+1
COLOR 15: PRINT "REGISTRO #"; c: COLOR 7
INPUT #1, Nombre$, Matricula$, Semestre$, Grupo$, Carrera$
PRINT "Nombre del alumno: "; Nombre$
PRINT "Matricula: "; Matricula$
PRINT "Semestre: "; Semestre$
PRINT "Grupo: "; Grupo$
PRINT "Carrera: "; Carrera$
PRINT
PRINT "PRESIONA CUALQUIER TECLA..."
DO: LOOP UNTIL INKEY$ <> ""
LOOP
CLOSE #1 'Cerramos el archivo
END SUB
SUB CopyData
CLS
INPUT "Nombre del archivo destino (incluyendo ruta y extension si la hay): ", DestFileName$
OPEN OrigFileName$ FOR INPUT AS #1 'Abrimos el archivo origen para leer.
OPEN DestFileName$ FOR OUTPUT AS #2 'Abrimos el archivo destino para escribirlo
PRINT "COPIANDO "; OrigFileName$; " --> "; DestFileName$
DO WHILE NOT EOF(1)
INPUT #1, Nombre$, Matricula$, Semestre$, Grupo$, Carrera$
WRITE #2, Nombre$, Matricula$, Semestre$, Grupo$, Carrera$
LOOP
PRINT : PRINT "HECHO"
 CLOSE #1: CLOSE #2
END SUB

ACCESO ALEATORIO
Como vimos anteriormente, en los archivos secuenciales tenemos que pasar por todos los
registros para llegar a uno dado; por ejemplo, si queremos llegar al numero 5 necesitamos primero
pasar por los registros del 1 al 4. En los archivos aleatorios, solamente necesitamos especificar la
localización del registro para tener acceso a el.
TIPOS DE DATOS DEFINIDOS POR EL USUARIO.
Los tipos de datos definidos por el usuario nos permiten almacenar diferentes tipos de datos en las
variables de este tipo, a diferencia de las variables sencillas que solo almacenan un tipo de dato.
Un tipo de dato definido por el usuario se declara de la siguiente manera:
Sintaxis:
TYPE nombre_del_tipo
campo AS tipo
[campo AS tipo]
....
END TYPE
El nombre_del_tipo se usará para identificar variables con el nuevo formato. Los campos pueden
ser de los tipos predefinidos (STRING, INTEGER, DOUBLE,...) o de otros tipos definidos por el
usuario, pero declarados antes. Veamos el siguiente ejemplo:
'Ejemplo de datos definidos por el usuario.
'[Link]
TYPE registro
nombre AS STRING * 30 'El nombre debe caber en 40 caracteres
matricula AS LONG 'La matricula como entero largo
semestre AS INTEGER 'El grupo sera un entero
grupo AS STRING * 1 'El grupo se identifica con un caracter
carrera AS STRING * 3 'La carrera con 3 letras (LAE, ISC, IMM, etc)
END TYPE
DIM alumno AS registro 'Declaramos la variable alumno del TIPO registro
DO
CLS
INPUT "Nombre -> ", [Link]
INPUT "Matricula ->", [Link]
INPUT "Semestre -> ", [Link]
INPUT "Grupo -> ", [Link]
INPUT "Carrera -> ", [Link]
PRINT : INPUT "¨TODO BIEN? ", bien$
LOOP UNTIL UCASE$(bien$) = "S"
PRINT
PRINT "Nombre -> "; [Link]
PRINT "Matricula ->"; [Link]
PRINT "Semestre -> "; [Link]
PRINT "Grupo -> "; [Link]
PRINT "Carrera -> "; [Link]
END
En la practica datos como la matricula no es necesario que declaren como numero ya que no
realizaremos operaciones con ella, solo la incluí a manera de ejemplo. Como se ve del ejemplo
anterior, declaramos una variable llamada alumno, de el tipo de usuario registro. Para acceder a
los campos de la variable debemos de poner el nombre de la variable seguido de un punto y el
nombre del campo al que queremos acceder. Ahora, vemos que los campos son de tipos diversos
como INTEGER, STRING, LONG, etc. támbien los campos pueden ser de tipos definidos por
nosotros; si es así, el tipo que va dentro del campo debe ser declarado antes....
'Ejemplo de datos definidos por el usuario.
'[Link]
TYPE examenes ‘Debemos de declarar el tipo antes de usarlo en el
primerparcial AS SINGLE ‘campo.
segundoparcial AS SINGLE
tercerparcial AS SINGLE
END TYPE

TYPE registro
nombre AS STRING * 30 'El nombre debe caber en 40 caracteres
matricula AS LONG 'La matricula como entero largo
semestre AS INTEGER 'El grupo sera un entero
grupo AS STRING * 1 'El grupo se identifica con un caracter
calificaciones AS examenes ‘Calificaciones del tipo examenes ;-)
carrera AS STRING * 3 'La carrera con 3 letras (LAE, ISC, IMM, etc)
END TYPE

DIM alumno AS registro 'Declaramos la variable alumno del TIPO registro

DO
CLS
INPUT "Nombre -> ", [Link]
INPUT "Matricula ->", [Link]
INPUT "Semestre -> ", [Link]
INPUT "Grupo -> ", [Link]
COLOR 15: PRINT "Calificaciones:": COLOR 7
INPUT "Primer parcial: ", [Link]
INPUT "Segundo parcial: ", [Link]
INPUT "Tercer parcial: ", [Link]
INPUT "Carrera -> ", [Link]
PRINT : INPUT "¨TODO BIEN? ", bien$
LOOP UNTIL UCASE$(bien$) = "S"
PRINT
PRINT "Nombre -> "; [Link]
PRINT "Matricula ->"; [Link]
PRINT "Semestre -> "; [Link]
PRINT "Grupo -> "; [Link]
COLOR 15: PRINT "Calificaciones:": COLOR 7
PRINT "Primer parcial: "; [Link]
PRINT "Segundo parcial: "; [Link]
PRINT "Tercer parcial: "; [Link]
PRINT "Carrera -> "; [Link]
END
Como vemos, el operador punto se asocia de izquierda a derecha, por ejemplo en
[Link] el compilador primero asocia el campo primerparcial con
calificaciones, y luego calificaciones con alumno. Confío en que el ejemplo se explique por si solo
>;-). Como cualquier tipo de dato, podemos tambien tener arreglos de tipos de datos definidos por
el usuario, por ejemplo, si tenemos algo como:
TYPE registro
nombre AS STRING * 30 'El nombre debe caber en 40 caracteres
matricula AS LONG 'La matricula como entero largo
semestre AS INTEGER 'El grupo sera un entero
grupo AS STRING * 1 'El grupo se identifica con un caracter
carrera AS STRING * 3 'La carrera con 3 letras (LAE, ISC, IMM, etc)
END TYPE
DIM GrupoA(1 TO 30) AS registro 'Declaramos un arreglo de tipo registro
....
y queremos cambiar la matricula del alumno que se encuentra en la posición 4 del arreglo,
accederemos este dato poniendo
GrupoA(4).matricula = 150518 ‘Le damos el valor de 150518

ARCHIVOS DE ACCESO ALEATORIO

Para abrir un archivo para acceso aleatorio usamos:
Sintaxis básica:
OPEN nombre_del_archivo FOR RANDOM [ACCESS acceso] [LEN = longregistro]
Donde
- RANDOM especifica que es de acceso aleatorio, y la clausula opcional ACCESS nos permite
especificar si queremos abrirlo para lectura (READ), escritura (WRITE) o ambos (READ
WRITE).
- Si se omite la clausula ACCESS, se producen 3 intentos para su acceso:
1) Se intenta acceder para escribir y leer (READ WRITE)
2) Se intenta acceder para escribir solamente (READ)
3) Se intenta acceder para leer solamente (READ)
Si los 3 intentos fallan se produce un error en tiempo de ejecución.
- La clausula LEN = longregistro nos permite especificar el tamaño de los registros y tambien el
formato que tendrá el fichero, longregistro especifica el numero de bytes que le
concederemos a cada registro.
Veamos el siguiente ejemplillo:
'Manejo de archivos de acceso aleatorio.
'[Link]
TYPE registro
nombre AS STRING * 30 'El nombre debe caber en 40 caracteres
matricula AS LONG 'La matricula como entero largo
semestre AS INTEGER 'El grupo sera un entero
grupo AS STRING * 1 'El grupo se identifica con un caracter
carrera AS STRING * 3 'La carrera con 3 letras (LAE, ISC, IMM, etc)
END TYPE
DIM alumno AS registro, muestra AS registro
CLS
COLOR 15: PRINT TAB(30); "REGISTRO DE ALUMNOS": COLOR 7: PRINT
INPUT "¨Cuantos alumnos deseas registrar? ", n
'Abrimos el archivo aleatorio para leer y escribir en el.
'Supongo que la unidad C: exite, si no cambia la ruta.
OPEN "c:\[Link]" FOR RANDOM AS #1 LEN = LEN(alumno)
FOR i = 1 TO n
DO
INPUT "Nombre -> ", [Link]
INPUT "Matricula -> ", [Link]
INPUT "Semestre -> ", [Link]
INPUT "Grupo -> ", [Link]
INPUT "Carrera -> ", [Link]
PRINT : INPUT "¨TODO BIEN? ", bien$
LOOP UNTIL UCASE$(bien$) = "S"
'Escribimos el contenido de la variable alumno en la posicion i del
'archivo.
PUT #1, i, alumno
COLOR 15
PRINT "ALUMNO ALMACENADO EN EL REGISTRO"; i; ". PRESIONA CUALQUIER TECLA"
 DO: LOOP WHILE INKEY$ = ""
NEXT i
PRINT

CLS
INPUT "¨Que numero de registro quieres ver? ", regnumero
PRINT : COLOR 7
GET #1, regnumero, muestra 'Tomamos el registro en la posicion dada por
'el usuario y guardamos su contenido en la
'variable muestra.
PRINT "Nombre -> "; [Link]
PRINT "Matricula -> "; [Link]
PRINT "Semestre -> "; [Link]
PRINT "Grupo -> "; [Link]
PRINT "Carrera -> "; [Link]
CLOSE #1 'Cerramos el archivo.
KILL "c:\[Link]" 'Borramos el archivo del disco duro
END
Del ejemplo anterior podemos comentar muchas cosas:
- Abrimos el archivo de acceso aleatorio y le damos un “formato”. A cada registro le damos la
longitud en bytes de la variable alumno y cada campo del archivo coincidirá con los campos de
la variable. La función LEN nos devuelve el tamaño en bytes que ocupa una variable.
- La sentencia PUT # nos permite “vaciar” el contenido de una variable en un registro del
archivo.
Sintaxis:
PUT #numero_de_archivo[[, numero_de_registro][, variable]]
- La sentencia GET # nos permite “tomar” el contenido de un registro del archivo y guardarlo en
una variable.
Sintaxis:
GET #numero_de_archivo[[, numero_de_registro][, variable]]
- El objetivo principal del ejemplo es mostrar que para tomar un registro no necesitamos
procesar todos los registros, simplemente indicamos que numero de registro deseamos y GET
lo tomará y lo guardará.
- La sentencia KILL borra un archivo del disco duro. Ojo...
-
OTRAS SENTENCIAS UTILES
Ya visto como se manejan basicamente
los archivos, veamos algunas funciones y sentencias que son muy utilies en la manipulación de
estos.
LOF(n)
Esta función retorna la longitud en bytes de el archivo numero n. Esta función es especialmente
util, por ejemplo cuando queremos saber el numero de registros que tiene un archivo de acceso
aleatorio con formato por ejemplo:
TYPE registro
nombre AS STRING * 30 'El nombre debe caber en 40 caracteres
matricula AS LONG 'La matricula como entero largo
semestre AS INTEGER 'El grupo sera un entero
grupo AS STRING * 1 'El grupo se identifica con un caracter
carrera AS STRING * 3 'La carrera con 3 letras (LAE, ISC, IMM, etc)
END TYPE

DIM alumno as registro ‘Declaramos alumno del tipo registro.

‘Abrimos el archivo aleatorio para leer de el
OPEN “c:\[Link]” FOR RANDOM ACCESS READ AS #1 LEN = LEN(alumno)
numalum = LOF(1) / LEN(alumno) ‘Propociona el numero de registros que contiene el
‘archivo.
? “El archivo [Link] contiene “; numalumn ;”registros”.
END
LOC(n)
Proporciona la posición del puntero en un archivo, es decir la linea o el registro en que se
encuentra en ese momento.
EOF(n)
Esta función indica cuando es el fin del archivo n.
KILL
Esta sentencia borra un archivo del disco duro (o dispositivo).
Sintaxis:
KILL nombrearchivo
nombrearchivo puede incluir ruta y extensión.
RMDIR
Esta orden remueve un directorio del disco duro (o dispositivo), es equivalente al comado RD de
DOS. El directorio debe de estar vacio o se produce un mensaje de error.
Sintaxis:
RMDDIR nombredirectorio
nombrearchivo puede incluir ruta, p.e RMDIR “c:\windows\system”
MKDDIR
Esta orden crea un nuevo directorio en disco, es equivalente al comado MD de DOS.
Sintaxis:
RMDDIR nombredirectorio

nombrearchivo puede incluir ruta, p.e RMDIR “c:\qb45\qbfiles\modulos”

CHDIR
Esta orden cambia del directorio actual a un nuevo directorio, es equivalente al comado CD de
DOS.
Sintaxis:
RMDDIR nombredirectorio
nombrearchivo puede incluir ruta, p.e RMDIR “c:\” ‘Nos vamos al directorio raiz de C:
NAME
Cambia el nombre de un directorio o de un archivo grabado en un disco.
Sintaxis:
NAME viejonombre AS nuevonombre
viejonombre y nuevonombreo pueden contener una ruta.
LOCATE
Posiciona el cursor para escribir en una cordenada de la pantalla.
Sintaxis basica:
LOCATE fila, columna
LPRINT
Lo mismo que PRINT, salvo que la información será mandada a una impresora en vez de al
monitor.
 Nota: El carácter ASCII #12 es el salto de pagina, por lo que LPRINT CHR$(12) obligará a la
impresorá a saltar a la siguiente hoja. El ASCCI #13 es <ENTER> y el #27 <ESC>

ERRORES FRECUENTES
Algunos de los errores que mas cometemos al trabajar con ficheros son los siguientes:
- No cerrar los archivos después de abrirlos, además de es de mala educación suele producir
errores d:-).
- Querer usar para lectura un archivo que abrimos para solo escritura.
- Creer que podemos usar para escritura un archivo que abrimos para solo lectura.
- Escribir mal el nombre de los archivos (¡gulp!). Por ejemplo, si tenemos un archivo con datos
que se llame [Link] y al querer abrirlo para escritura ponemos en vez de [Link] algo
como [Link] (¡¡¡con una s de mas!!!) ¿que pasará?. QB creará automaticamente una
archivo nuevo que si se llame [Link] y.... estará vacio. En lo personal sufri mucho con
esto, asi que ojo que no te pase a ti [|;-).
- Estar convencido de que para añadir datos a un fichero secuencial hay que abrirlo para
escritura. Lo que pasará es que los datos nuevos sobreescribiran los datos existentes. En este
caso se abriria para escribir al final (FOR APPEND).
- Estar aferrado en reabrir un archivo para un modo diferente sin haberlo cerrado antes.
- Amacharnos a darle KILL a un archivo sin cerrarlo primero. Mientras el archivo permanezca
abierto no se puede borrar.
- Enojarnos cuando QB nos devuelve un error por decirle a OPEN que los registros de un
archivo serán del tamaño de un tipo de datos definido por el usuario en vez de una variable
de ese tipo. Ojo.
--------------------------------------------------------------------------------------------------------

Hola a todos:
Me he encontrado un manual muy bueno sobre QBASIC O QUICK BASIC, este estaba dividido
originalmente en nueve documentos .doc ya que el autor da permiso para hacer lo que se venga en
gana con la información de este manual claro con fines meramente didácticos lo he vuelto un solo
documento y le creado un menú con hipervinculos para hacer mas fácil su estudio.
Me tome tanta molestia por lo siguiente:
No es fácil encontrar un buen manual de qbasic en estas épocas cosa grave ya que este leguaje es
el mas apto para dar los primeros pasos para aquellos que queremos aprender a programar de
forma mas o menos decente e indecente. Bueno sea como sea el caso es: si quieres ser
programador algún día deberías comenzar por leerte este manual para que luego no te den en la
cabeza lenguajes como c++ pascal etc.
Por favor escriban al autor en cuestión de este Curso de QuickBASIC, por Tadeo E. Ortega Ch.
jafet_81@[Link] para darle las gracias.
Y a mi por tan ardua labor de buscarlo y mejorarlo para ustedes me pueden escribir a:
electroge32@[Link] las niñas lindas me puden emviar foto.
En el siquente enlace encutras barias versiones de QBASIC
[Link]
si quieres mas sobre QBASIC visita [Link]
si eres de Colombia y vives en Bogotá te recomiendo 99.1 radio difusora nacional frecuencia
[Link] joven, si no búscala en el realaudio
asta luego y espero que les sirva para algo.

Tadeo Emmanuel Ortega Chávez

jafet_81@[Link]