Cursillo de QuicBASIC

1. Acerca del curso
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 QB.zip, 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 (saludo.bas)

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

😡 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 (saludo2.bas)

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 (operador.bas)

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 (prin1var.bas)

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:

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 (triangu.bas)

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 (tab.bas)

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:

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 (tipos.bas)

'————–

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 (tipos2.bas)

'————–

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.

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 (input.bas)

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 (input2.bas)

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:

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)

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 indice

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ú Optionseste 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: (1)

DO… LOOP UNTIL (1)

EL CICLO FOR..NEXT (1)

CAPITULO IV FUNCIONES MATEMATICAS (1)

CONCEPTO MATEMÁTICO DE FUNCIÓN

FUNCIONES MATEMÁTICAS Y ARITMETICAS

NÚMEROS ALEATORIOS

FUNCIONES DE CONVERSIÓN NUMÉRICA

INTRODUCCION A LOS ARREGLOS

ARREGLOS ESTÁTICOS Y DINÁMICOS

CAPITULO V PROGRAMACION ESTRUCTURADA (1)

COMO USAR GOSUB Y RETURN

MANEJO DE PARAMETROS Y ARGUMENTOS

VALORES POR REFERENCIA

PASANDO ARREGLOS

PASANDO VALORES POR VALOR

FUNCIONES RECURSIVAS

FUNCIONES Y PROCEDIMIENTOS ESTÁTICOS

ALCANCE DE LAS VARIABLES

VARIABLES ENTRE MÓDULOS

CAPITULO VI MANIPULACION DE CADENAS DE TEXTO (1)

MANEJO DE ARCHIVOS (1)

ACCESO ALEATORIO

TIPOS DE DATOS DEFINIDOS POR EL USUARIO.

ERRORES FRECUENTES

(1) Para ver el texto completo seleccione la opción "Descargar" del menú superior

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.

para darle las gracias.

Y a mi por tan ardua labor de buscarlo y mejorarlo para ustedes me pueden escribir a: las niñas lindas me puden emviar foto.

En el siquente enlace encutras barias versiones de QBASIC

http://www.upseros.net/compiladores/compiladores.php

si quieres mas sobre QBASIC visita www.qbasic.com.ar

si eres de Colombia y vives en Bogotá te recomiendo 99.1 radio difusora nacional frecuencia

http://www.inravision.gov.co/seccionradiodifusora/9911.htm joven, si no búscala en el realaudio asta luego y espero que les sirva para algo.

Tadeo Emmanuel Ortega Chávez