QB304

ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ

К ЩЛЫЛЩЛЩЛЫЛЩЛЩЫЛЩЛЩЛЫЩЛЩЛЩ ЩЛЫЛЩЛЩЛЫЩЛ К

К ЬМЬЙКККЛЬЙЬЙКЪКЬЙК КККККК ККЬЙЬЙШЛКК К

К Ъ ЪШШМШМЪШЪЪЪ ЪЪЪШМЪШММШМ ШЙЪМЪЪШМЪШМ К

ЬЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЫЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙ

К ЩЫЛЩЛЫЛЛЩЫ ЩЛ ЩЛ К К

К КЪКККККККК КК Й К PROGRAMACION ESTRUCTURADA К

К Ъ ЪШМЪМШМШМШМ ШМ К К

ЬЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЪЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙ

К К

К EN ESTA LECCION APRENDERAS... К

К К

К кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП К

К Г Г К

К Г ў La sintaxis de la sentencia CALL .............. 3 Г К

К Г ў ЈQu son procedimientos? ...................... 5 Г К

К Г ў La diferencia entre subrutina Г К

К Г y procedimiento ............................... 6 Г К

К Г ў La sintaxis de la sentencia DECLARE SUB ....... 7 Г К

К Г ў La sintaxis de la funciЂn DECLARE SUB ........ 7 Г К

К Г ў La importancia de los procedimientos .......... 8 Г К

К Г ў ЈQu es una variable compartida? .............. 10 Г К

К Г ў La sintaxis de la funciЂn DIM SHARED .......... 12 Г К

К Г ў La sintaxis de la funciЂn ASC ................. 16 Г К

К Г ў La sintaxis de la estructura lЂgica Г К

К Г IF/ELSE IF/ELSE/END IF ........................ 20 Г К

К Г Г К

К РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй К

К К

ЬЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЫЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙ

К ЩЛЫЛЫ ЩЛЩЛ ЩЛЩЛЛЩ К К

К ККЬЙК Ь К ЙККШЙ К PROGRAMACION DESCENDENTE PARTE II К

К ШЙЪМШМШМШМ ШМШМ Ъ К К

ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЪЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ

ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЫЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ

К ЩЛЫЛЫ ЩЛЩЛ ЩЛЩЛЛЩ К К

К ККЬЙК Ь К ЙККШЙ К PROGRAMACION DESCENDENTE PARTE II К

К ШЙЪМШМШМШМ ШМШМ Ъ К К

ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЪЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ

LLENANDO EL PROCEDIMIENTO SeleccionaConv

----------------------------------------

Para llenar el procedimiento...

SUB SeleccionaConv

'-----------------

PRINT "SELECCIONA CONVERSION"

END SUB

...usaremos el programa original que hicimos en GW-Basic.

De modo que buscamos la subrutina con el mismo nombre en dicho

programa...

190 'Selecciona conversion

200 '---------------------

210 CLS

220 PRINT

230 PRINT "CONVIERTE:"

240 PRINT

250 PRINT " 1) C a F"

260 PRINT " 2) F a C"

270 PRINT

280 INPUT "Escoge por nЃmero"; T$

290 IF T$ <> "1" AND T$ <> "2" THEN GOTO 190

300 LET T = VAL(T$)

310 RETURN

Estudiando detenidamente sus sentencias, en la misma,

decidimos quedarnos con todas las instrucciones con excepciЂn de

la lЁnea 290 que posee el sentencia de control GOTO. Como el

QBasic no usa nЃmeros de lЁnea, no podemos dejar esta instrucciЂn

intacta. Tenemos que cambiarla. El que sigue, es el

procedimiento en QBasic con la mencionada instrucciЂn adaptada a

este intrprete...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 3 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

SUB SeleccionaConv

'-----------------

CLS

PRINT "CONVIERTE:"

PRINT " 1) C a F"

PRINT " 2) F a C"

INPUT "Escoge por nЃmero", T$

IF T$ <> "1" AND T$ <> "2" THEN CALL SeleccionaConv 'Otra vez.

LET T = VAL(T$)

END SUB

Comparemos las dos lЁneas, para que puedas apreciar mejor el

cambio hecho...

IF T$ <> "1" AND T$ <> "2" THEN CALL SeleccionaConv 'Otra vez.

290 IF T$ <> "1" AND T$ <> "2" THEN GOTO 190

Observa, cЂmo la lЁnea de QBasic (la que no tiene nЃmero de

lЁnea), en vez de ir de nuevo al procedimiento usando el

enunciado GOTO conjuntamente con un nЃmero de lЁnea, como ocurre

en la lЁnea de GW-Basic, lo hace "llamando" a esta con su nombre.

Nota, adem s, que usamos el enunciado CALL y le aЄadimos la frase

'Otra vez, como una lЁnea REM. Hicimos esto Ѓltimo para aumentar

la legibilidad de la lЁnea. Veamos como se leerЁa la lЁnea

usando nuestro lenguaje...

IF T$ <> "1" AND T$ <> "2" THEN CALL SeleccionaConv 'Otra vez.

РФФФФФФФФФФФТФФФФФФФФФФФй РТФй РФФФФФФФФФФФФТФФФФФФФФФФФФй

Г Г Г

ENTONCES Г

Si T$ no es igual a 1 LLAMA al procedimineto

Y SleccionaConv

T$ no es igual a 2 de nuevo

La sentencia CALL es opcional, es decir, puedes usarlo si

quieres. Lo hemos usado aquЁ porque mejora la legibilidad de la

lЁnea. Su funciЂn es transferir el control a un procedimiento

SUB. Su sintaxis es...

кФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г CALL name (argumentlist) Г

РФФХФФФФФХФФФФФФФФХФФФФФФФФй

кФФФФФФФФФФй Г Г

Г nombre de Г

transfiere control la subrutina РФ variables o constantes

a a pasar a la subrutina

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 4 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

PROCEDIMIENTOS: SUBRUTINAS Y FUNCIONES

--------------------------------------

Es preciso que hagamos un parntesis aquЁ, para informarte

un poco m s lo que significan las subrutinas en QBasic. En otros

intrpretes Basic, como Basica y GW-Basic puedes hacer tus

programas como lo desees. Claro que, lo recomendable es que lo

hagas de la forma en que est escrito este programa de

temperatura hecho en GWBasic o Basica.

Como te hemos explicado antes, este es un programa bien

ordenado, f cil de leer, cambiar y mejorar. Pero el programa

pudo haber sido escrito de la forma desordenada y difЁcil de leer

como lo est el siguiente programa...

кФФФФФФФФФТФФ> 10 REM TEMPERATURE CONVERSION

Г Г 20 CLS

Г Г 30 INPUT "CONVERT 1) C TO F 2) F TO C";T

Г Г кФ 40 IF T=1 THEN GOTO 70 'Convert C to F.

Г кФХФХФ 50 IF T=2 THEN GOTO 110 'Convert F to C.

Г Г РФХФ 60 GOTO 10

Г Г Р> 70 PRINT :INPUT "ENTER C";C:PRINT

Г Г 80 LET F=9/5*C+32

Г Г 90 PRINT C;"C";"=";F;"F":PRINT

Г кФФФФХФФФФФ 100 GOTO 150

Г Г РФФФФ> 110 PRINT :INPUT "ENTER F";F

Г Г 120 LET C=(F-32)*5/9

Г Г 130 PRINT

Г Г 140 PRINT F;"F";"=";C;"C":PRINT

Г РФФФТФФФФФ> 150 INPUT "ANOTHER(Y/N)";S$

РФФФФФФХФФФФФФ 160 IF S$="Y" OR S$="y" THEN GOTO 10

Г 170 IF S$="N" OR S$="n" THEN END

РФФФФФФ 180 GOTO 150

FЁjate, que aunque es un programa corto funciona bien. Sin

embargo, al leerlo, encontrar s una gran cantidad de saltos

(indicados por la flechas) que dificultan su lectura. Te

imaginas, entonces, lo difЁcil que serЁa leerlo si fuera un

programa largo!

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 5 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

De ahЁ, lo importante que es dividir los programas en

pequeЄos miniprogramas o subrutinas para que lleven a cabo una

TAREA especЁfica. Y en ese modo de PROCEDER, es que se

fundamenta el QBasic...

ЈQUE SON PROCEDIMIENTOS?

------------------------

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г EL QBASIC Г

Г DIVIDE UN PROGRAMA COMPLEJO Г

Г EN PEQUEЅAS TAREAS Г

Г LLAMADAS PROCEDIMIENTOS. Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Aprendiste en lecciones anteriores, que el programa primero

queda definido en una RUTINA PRINCIPAL que llama (call) a otras

subrutinas enterrando en ellas los detalles del mismo. Pues en

QBasic, a cada una de estas tareas especЁficas o algoritmos (Јlos

recuerdas?) se les llama PROCEDIMIENTOS. Un procedimiento es un

mtodo de poner en ejecuciЂn una orden o una tarea ordenadamente.

AsЁ que...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г El PROCEDIMIENTO EN QBasic Г

Г ES EL METODO POR MEDIO DEL CUAL Г

Г UN CONJUNTO DE INSTRUCIONES SE EJECUTAN Г

Г UNA DETRAS DE LA OTRA Г

Г PARA QUE LA COMPUTADORA Г

Г LLEVE A CABO UNA TAREA ESPECIFICA Г

Г CON LA CONDICION Г

Г DE QUE ESTE DEBIDAMENTE DEFINIDO Г

Г ANTES DE EJECUTARSE Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

A estos PROCEDIMIENTOS, el QBasic le asigna un nombre. De

modo que, con sЂlo llamarlo (call) por su nombre, ejecutamos las

instrucciones que tiene en su interior.

Como puedes deducir de su definiciЂn, un procedimiento puede

ser una SUBRUTINA o una FUNCION (subrutina ya previamente

definada o definida por el programador). Para que una subrutina

sea un procedimiento tiene que estar definida antes de

ejecutarse. La funciЂn es de por sЁ un procedimiento porque

siempre se define antes de llevarse a cabo.

De modo que...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 6 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

DIFERENCIA ENTRE SUBRUTINA Y PROCEDIMIENTO

------------------------------------------

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г UN PROCEDIMIENTO Г

Г NO ES EQUIVALENTE A UNA SUBRUTINA Г

Г COMO LA CONOCEMOS Г

Г EN LOS DEMAS INTERPRETES DE BASIC Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Los PROCEDIMIENTOS son subrutinas previamente definidas

que no usan para nada la sentencia RETURN.

AsЁ que, es preciso que diferenciemos un PROCEDIMIENTO de

una SUBRUTINA CONVENCIONAL (la de GW-Basic y Basica). Aunque

ambas estructuras comparten la caracterЁstica de ejecutarse

cu ntas veces sean llamadas...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г LAS SUBRUTINAS CONVENCIONALES, Г

Г EN QBASIC, Г

Г SOLO FUNCIONAN DENTRO DE UN PROCEDIMIENTO, Г

Г Y NO FUERA DE EL. Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Establecida la diferencia, desde ahora en adelante,

llamaremos a las subrutinas convencionales (las que usan las

sentencias GOSUB y RETURN) subrutinas; y a las subrutinas del

Qbasic, procedimientos SUB o meramente procedimientos. De esta

manera, evitaremos confundir unas con los otros.

Como las subrutinas en QBasic, son procedimentos, tienen que

definirse antes de usarse. Por eso es que cuando creaste los

procedimientos....

SeleccionaConv

HazConv

PideOtraConv

TerminaPrg

...viste cЂmo estos se definЁan y se colocaban

autom ticamente al principio del programa siempre que guardabas

(save) el mismo. Observa abajo, cЂmo es que estos quedan

definidos...

DECLARE SUB SeleccionaConv ()

DECLARE SUB HazConv ()

DECLARE SUB PideOtraConv ()

DECLARE SUB TerminaPrg ()

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 7 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

...con la sentencia DECLARE SUB (declara subrutina) seguido

del nombre que los designa. Observa tambin, el par de

parntesis despus del nombre. Es aquЁ donde se colocaran los

par metros o valores que habr de usar el procedimiento en sus

instrucciones, para poder llevar a cabo la tarea especЁfica

encomendada. La sintaxis completa es...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г DECLARE SUB name (parameter list) Г

РФФФФФФФФФФФФФФХФФФФФФФФФФФХФФФФФФФФй

кФФФФФФФФй una o m s variables

nombre a ser utilizadas por

del procedimiento el procedimiento en

sus instrucciones

Si el procedimiento a declararse fuera una funciЂn su

sintaxis serЁa:

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г DECLARE FUNCTION name (parameter list) Г

РФФФФФФФФФФФФФФФФФФФХФФФФФФФФФФФФХФФФФФФФй

кФФФФФФФФй una o m s variables

nombre a ser utilizadas por

de la funciЂn la funciЂn en sus

instrucciones

M s adelante, cuando hablemos de las funciones abundaremos

m s sobre ellas. Por el momento, confЂrmate con la sintaxis dada.

Puedes llamar a los procedimientos con sЂlo escribir su

nombre, como puedes ver en estos ejemplos...

IF T$ <> "1" AND T$ <> "2" THEN SeleccionaConv

REM ConversiЂn de temperaturas

REM --------------------------

CLS

SeleccionaConv

HazConv

PideOtraConv

TerminaPrg

END

...o puedes llamarlos tambin usando CALL, asЁ...

IF T$ <> "1" AND T$ <> "2" THEN CALL SeleccionaConv

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 8 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

REM ConversiЂn de temperaturas

REM --------------------------

CLS

CALL SeleccionaConv

CALL HazConv

CALL PideOtraConv

CALL TerminaPrg

END

Es sumamente importante que te fijes, que lo que estamos

actualmente haciendo, al convertir el programa de temperatura

escrito originalmente en GWBasic a QBasic, es llevando a cabo la

transiciЂn de BASIC a QBasic. Pero no es solamente eso, lo que

estamos haciendo es movindonos a UNA MANERA DE PROGRAMAR

SUMAMENTE AVANZADA Y QUE PUEDE APLICARSE A OTROS LENGUAJES DE

PROGRAMACION.

LA IMPORTANCIA DE LOS PROCEDIMIENTOS

------------------------------------

A medida que avancemos en el estudio del QBasic veremos cu n

poderosos resultan ser los procedimientos. El procedimiento como

mtodo para simplificar la programaciЂn, no solamente en Basic,

sino tambin en otros lenguajes, ofrece estas tres ventajas

principales:

Primero, es un pequeЄo programa dentro de un programa

principal que lleva a cabo una tarea especЁfica que se puede

manejar separadamente. Tiene una sola entrada y una sola salida.

Nos permite concentrarnos en esa tarea en particular, en vez de

considerar todos los problemas que nos trae el programa completo.

Segundo, simplifica la lectura de todo el programa haciendo

que este sea modular. Leamos una vez m s la rutina principal del

programa de temperatura...

REM ConversiЂn de temperaturas

REM --------------------------

CLS

SeleccionaConv

HazConv

PideOtraConv

TerminaPrg

END

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 9 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Observa, cЂmo el nombre de cada procedimiento nos da un

bosquejo o resumen de lo que se supone haga el programa. Nota,

tambin, cЂmo la rutina principal, esconde los detalles del mismo

en los procedimientos. Si quieres saber m s sobre el programa,

pues v al procedimiento correspondiente.

Tercero, con el procedimiento se evita repetir una

instrucciЂn igual o varias instrucciones iguales.

Volviendo al procedimiento...

SUB SeleccionaConv

'-----------------

CLS

PRINT "CONVIERTE:"

PRINT " 1) C a F"

PRINT " 2) F a C"

INPUT "Escoge por nЃmero", T$

IF T$ <> "1" AND T$ <> "2" THEN CALL SeleccionaConv 'Otra vez.

LET T = VAL(T$)

END SUB

...la lЁnea...

IF T$ <> "1" AND T$ <> "2" THEN CALL SeleccionaConv 'Otra vez.

...tiene el propЂsito de evitar que el programa se interrumpa

de sЃbito si se digitara otros nЃmeros o caracteres que no sean

el 1 Ђ el 2. De ser asЁ, la instrucciЂn lЂgica de control

IF/AND/THEN, llamarЁa de nuevo al procedimiento SeleccionaConv

para que se digite un nuevo nЃmero.

Observa que utilizamos la variable alfanumrica T$ para

almacenar la selecciЂn hecha. Pudimos haber usado una variable

numrica para este propЂsito. Si hubisemos hecho esto Ѓltimo, y

si hubisemos digitado, digamos una letra en vez de un nЃmero, el

programa se hubiese detenido con el mensaje...

Redo from start

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 10 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Aunque el mensaje se interrumpe por un momento para luego

empezar con el mensaje INPUT Escoge por nЃmero, lo cierto es que

el programa se interrumpe. Para evitar esto, usamos una variable

alfanumrica (T$) en vez de una numrica (T). Como la variable

alfa T$, acepta tanto letras como nЃmeros, al digitar una letra,

en lugar de un nЃmero, la misma es aceptada evitando la

interrupciЂn del programa, y por lo tanto, el despliegue en

pantalla del aviso de error que mencionamos.

Ahora bien, si utilizamos T$, esto no quiere decir que

hallamos resuelto de una vez y por todas el problema de la

interrupciЂn moment nea del programa. TodavЁa queda otra

oportunidad de que el programa se interrumpa, y esta es, que

digitemos un nЃmero diferente de 1 y 2. Para evitar esto, es que

usamos el enunciado lЂgico estructural IF/AND/THEN. En l,

instruimos a la computadora que vuelva a ejecutar la subrutina si

el nЃmero digitado no es ni el 1 ni el 2.

Una vez resuelto el problema de la no deseada interrupciЂn

momentanea del programa, nos queda algo m s por hacer, y es

convertir el valor alfa de la variable T$ a un valor numrico,

que es lo que queremos. Por esa razЂn, es que convertimos el

valor alfa de la variable alfanumrica a un valor nЃmerico con la

funciЂn VAL en la lЁnea...

LET T = VAL(T$)

ЈQUE ES UNA VARIABLE COMPARTIDA?

--------------------------------

...que luego almacenamos en la variable numrica T. Ahora

ocurre algo interesante con el uso de las variables en QBasic.

Esta variable numrica T va ser usada en un prЂximo

procedimiento, llamado HazConv. O sea, que dicho valor no

solamente lo vamos a usar en este procedimiento solamente (valor

local), sino en otro. Pues...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г CUANDO USAMOS EL VALOR Г

Г DE UNA VARIABLE NUMERICA O ALFANUMERICA Г

Г EN VARIAS PROCEDIMIENTOS Г

Г DECIMOS QUE ES UNA Г

Г VARIABLE COMPARTIDA Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 11 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Lo mismo ocurre con la variable alfa T$, pero con la

diferencia de que aunque la misma sЂlo va a usarse en el

procedimiento donde aparece, si la opciЂn seleccionada no es el

nЃmero 1 o el 2, el procedimiento vuelve a repetirse. En este

caso, tambin la variable va ser compartida por el procedimiento

mismo.

Ahora bien, no basta con saber que una variable va a usarse

en varios procedimientos de un programa, o en el procedimiento

mismo, hay que seЄal rselo al intrprete QBasic, para que ste lo

use adecuadamente. En nuestro ejemplo, le hicimos saber al

QBasic que las variables T$ y T la vamos a compartir con otros

procedimentos (aunque sea en el procedimiento mismo) de esta

forma...

DECLARE SUB SeleccionaConv ()

DECLARE SUB HazConv ()

DECLARE SUB PideOtraConv ()

DECLARE SUB TerminaPrg ()

'Variables compartidas:

DIM SHARED T

DIM SHARED T$

REM ConversiЂn de temperaturas

REM --------------------------

CLS

SeleccionaConv

HazConv

PideOtraConv

TerminaPrg

END

...escribiendo...

'Variables compartidas:

DIM SHARED T

DIM SHARED T$

...antes de la RUTINA PRINCIPAL. Observa que el tЁtulo

'Variables compartidas:, nos dice que inmediatamente se

mencionaran las variables a ser compartidas entre todos los

procedimientos SUB o FUNCTION en el programa. La sintaxis m s

simple es...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 12 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФП

Г DIM SHARED variable Г

РФФХФФФФХФФФФФФФХФФФФФй

кФФФФФФФФФФФФФй Г РФ el nombre de la

DIMensiona o declara Г variable numrica

la variable COMPARTIDA o alfanumrica

Especifica que la variable va a ser compartida con los

los procedimientos SUB o FUNCTION

Esta sintaxis es simple. Hay otras versiones m s

elaboradas. Por el momento confЂrmate con esta. A medida que nos

adentremos m s en nuestro curso, te daremos las otras versiones.

Ahora que hemos llenado el procedimiento SeleccionaConv, el

programa todo, aparecerЁa como sigue....

DECLARE SUB SeleccionaConv ()

DECLARE SUB HazConv ()

DECLARE SUB PideOtraConv ()

DECLARE SUB TerminaPrg ()

'Variables compartidas:

DIM SHARED T

DIM SHARED T$

REM ConversiЂn de temperaturas

REM --------------------------

CLS

SeleccionaConv

HazConv

PideOtraConv

TerminaPrg

END

SUB SeleccionaConv

'-----------------

CLS

PRINT "CONVIERTE:"

PRINT " 1) C a F"

PRINT " 2) F a C"

INPUT "Escoge por nЃmero", T$

IF T$ <> "1" AND T$ <> "2" THEN CALL SeleccionaConv 'Otra vez.

LET T = VAL(T$)

END SUB

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 13 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

SUB HazConv

'----------

PRINT "HAZ LA COVERSION"

END SUB

SUB PideOtraConv

'---------------

PRINT "PIDE CONVERSION"

END SUB

SUB TerminaPrg

'-------------

PRINT "TERMINA PROGRAMA"

END SUB

Lo que nos resta es ejecutar el programa con F5 (run) para

asegurarnos que funciona bien. Si lo ejecutas, ver s lo

siguiente...

CONVIERTE:

1) C a F

2) F a C

Escoge por nЃmero 1

HAZ LA CONVERSION

PIDE CONVERSION

TERMINA CONVERSION

...si el despliegue en pantalla es como el indicado arriba,

entonces, la subrutina SeleccionaConv que acabaste de llenar est

funcionando bien. Esto significa que est s preparado para llenar

la prЂxima subrutina....

LLENANDO EL PROCEDIMIENTO HazConv

---------------------------------

SUB HazConv

'----------

PRINT "HAZ LA COVERSION"

END SUB

Como estamos llenando los procedimientos del programa de

QBasic usando el programa en GW-Basic, buscamos la subrutina...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 14 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

330 'Haz la conversiЂn

340 '-----------------

350 IF T = 1 THEN

360 'Convierte C a F:

370 CLS

380 PRINT

390 INPUT "ENTRA C"; C$

400 IF ASC(C$) < 48 OR ASC(C$) > 57 THEN GOTO 330

410 LET C = VAL(C$)

420 PRINT

430 LET F = 9 / 5 * C + 32

440 PRINT C; "C"; "="; F; "F"

450 PRINT

460 END IF

470 IF T = 2 THEN

480 'Convierte F a C:

490 CLS

500 PRINT

510 INPUT "ENTRA F"; F$

520 IF ASC(F$) < 48 OR ASC(F$) > 57 THEN GOTO 330

530 LET F = VAL(F$)

540 PRINT

550 LET C = (F - 32) * 5 / 9

560 PRINT F; "F"; "="; C; "C"

570 PRINT

580 END IF

590 RETURN

...en dicho programa. Despus de leer detenidamente la

misma, deducimos que las Ѓnicas lЁneas que ameritan sufrir

cambios son...

400 IF ASC(C$) < 48 OR ASC(C$) > 57 THEN GOTO 330

520 IF ASC(F$) < 48 OR ASC(F$) > 57 THEN GOTO 330

590 RETURN

En la lЁnea 400 tenemos que cambiar...

THEN GOTO 330 por THEN CALL HazConv 'Otra vez.

...y en la lЁnea 520 tenemos que cambiar...

THEN GOTO 330 por THEN CALL HazConv 'Otra vez.

La lЁnea 590, no la necesitar s, asЁ que ignЂrala.

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 15 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Pues bien, una vez que localizas las lЁneas que ameritan

cambio, vas a llenar el procedimiento HazConv en el programa de

temperatura de QBasic. Procede de la misma forma que lo hiciste

al llenar el procedimeinto SeleccionaConv. Despus que hayas

llenado el mismo, este deber aparecer asЁ...

SUB HazConv

'----------

IF T = 1 THEN

'Convierte C a F:

CLS

INPUT "ENTRA C"; C$

IF ASC(C$) < 48 OR ASC(C$) > 57 THEN CALL HazConv 'Otra vez.

LET C = VAL(C$)

LET F = 9 / 5 * C + 32

PRINT C; "C"; "="; F; "F"

END IF

IF T = 2 THEN

'Convierte F a C:

CLS

INPUT "ENTRA F"; F$

IF ASC(F$) < 48 OR ASC(F$) > 57 THEN CALL HazConv 'Otra vez.

LET F = VAL(F$)

LET C = (F - 32) * 5 / 9

PRINT F; "F"; "="; C; "C"

END IF

END SUB

Observa, que se est n utilizando dos nuevas variables

alfanumricas llamadas C$ y F$ para almacenar temporeramente los

valores centЁgrados o fahrenheit respectivamente. Si los valores

son aceptados, se pasar n luego a las variable numricas C Ђ F,

segЃn sea el caso.

Ahora bien, las variables alfas C$ y F$ no solamente se usan

para almacenar los valores temporeros arriba mencionados.

Tambin se est n utilizando para probar si los mismos son los

correctos. De ahЁ que aparezcan tambin en las estructuras

lЂgicas de control IF/OR/THEN.

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 16 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

En otras palabras, tambin se usar n como base para llamar a

al mismo procedimeinto, en caso de que los valores almacenados en

ellas no sean los verdaderos. Por consiguiente, debemos

considerarlas tambin como variables compartidas aunque sean

compartidas por los mismos procedimientos. De modo que, debemos

indicarle esto al intrprete de QBasic asЁ:

DECLARE SUB SeleccionaConv ()

DECLARE SUB HazConv ()

DECLARE SUB PideOtraConv ()

DECLARE SUB TerminaPrg ()

'Variables compartidas:

DIM SHARED T

DIM SHARED T$

DIM SHARED C$

DIM SHARED F$

REM ConversiЂn de temperaturas

REM --------------------------

CLS

SeleccionaConv

HazConv

PideOtraConv

TerminaPrg

END

Como los valores de las variables numricas C y F se van a

usar sЂlo en este procedimiento (valores locales), no es

necesario que los consideremos como variables compartidas, de

modo que no se aЄaden bajo el tЁtulo de 'Variables compartidas,

en la RUTINA PRINCIPAL.

Consideremos ahora las lЁneas...

IF ASC(C$) < 48 OR ASC(C$) > 57 THEN CALL HazConv 'Otra vez.

IF ASC(F$) < 48 OR ASC(F$) > 57 THEN CALL HazConv 'Otra vez.

En ambas lЁneas, la funciЂn ACS significa...

funciЂn ASC extrae кФФФФФФФФФФФФФФФФФФФФФФФФП cualquier

cЂdigo ASCII ФФФФХ ASC(stringexpression$) ХФ expresiЂn

del 1er caracter РФФФФФФФФФФТФФФФФФФФФФФФФй de cadena

de una cadena ASC ("a12")

РФФФФТФФФФй

9 7

a cЂdigo 97 РФ cЂdigo del primer caracter

en "a12"

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 17 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

EL cЂdigo ASCII (American Standard Code for Information

Interchange) contiene el nЃmero de cЂdigo para cualquier sЁmbolo

que usamos. Estos van del nЃmero 000 al nЃmero 127 para el

cЂdigo regular, y del 128 hasta el 255 para el cЂdigo extendido.

El QBasic, en su secciЂn Help tiene todos los cЂdigos. Para

obtenerlos, presiona ALT, luego H, selecciona Contents y bajo la

secciЂn Quick References, selecciona ASCII Character Codes.

Algunos ejemplos son:

032 sp 048 0 064 @ 080 P 096 ` 112 p

033 ! 049 1 065 A 081 Q 097 a 113 q

034 " 050 2 066 B 082 R 098 b 114 r

035 # 051 3 067 C 083 S 099 c 115 s

036 $ 052 4 068 D 084 T 100 d 116 t

037 % 053 5 069 E 085 U 101 e 117 u

038 & 054 6 070 F 086 V 102 f 118 v

039 ' 055 7 071 G 087 W 103 g 119 w

040 ( 056 8 072 H 088 X 104 h 120 x

041 ) 057 9 073 I 089 Y 105 i 121 y

042 * 058 : 074 J 090 Z 106 j 122 z

043 + 059 ; 075 K 091 [ 107 k 123 {

044 , 060 < 076 L 092 \ 108 l 124 |

045 - 061 = 077 M 093 ] 109 m 125 }

046 . 062 > 078 N 094 ^ 110 n 126 ~

047 / 063 ? 079 O 095 _ 111 o 127

Observa que los cЂdigos ASCII(aski) del 0 al 9 son:

048 0 053 5

049 1 054 6

050 2 055 7

051 3 056 8

052 4 057 9

Nota que cualquier caracter cuyo cЂdigo sea...

menor que 48 o mayor que 57

< 48 > 57

...no es un nЃmero.

Con esto en mente, y si suponemos que C$="a12", veamos que

significa la siguiente lЁnea lЂgica...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 18 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

IF ASC(C$) < 48 OR ASC(C$) > 57 THEN CALL HazConv 'Otra vez.

РФП РФФП

Г Г

IF ASC("a12")<48 OR ASC("a12")>57 THEN CALL HazConv 'Otra vez.

РФФФФФФТФФФФФФФй РФФФФФФТФФФФФФФй Г РФФФФФФФФФФТФФФФФФФФФй

Si el cЂdigo ASCII Г ENTONCES LLAMA el procedimiento

del primer caracter Г HazConv otra vez.

de "a12" es menor Г

que 48 Г

O el cЂdigo ASCII

del primer caracter

de "a12" es mayor

que 57

Como en "a12" el primer caracter es a y su cЂdigo es 97

(mayor que 57), no pasa la prueba, y por lo tanto, el valor de C$

es rechazado y el procedimiento HazConv es vuelto a llamar para

entrar un nuevo valor.

Como puedes apreciar, esta estructura lЂgica IF/OR/THEN,

prueba los valores almacenados en C$. Si el primer caracter de

dicho valor no es un nЃmero, el mismo es rechazado y se volver a

llamar el procedimiento HazConv para pedir un nuevo valor. Con

esto, tambin se evita, que el programa se interrumpa

sЃbitamente.

La lЁnea...

IF ASC(F$) < 48 OR ASC(F$) > 57 THEN CALL HazConv 'Otra vez.

...cumple la misma funciЂn que la anterior pero usando la

variable F$.

LLENANDO EL PROCEDIMIENTO PideOtraConv

--------------------------------------

Continuando con el llenado de las subrutinas en el programa

de temperatura QBasic a partir del programa de temperatura

GWBasic, consideremos ahora la subrutina...

610 'Pide otra conversiЂn

620 '--------------------

630 INPUT "OTRA CONVERSION (S/N)"; S$

640 IF S$ = "S" OR S$ = "s" THEN GOTO 100 'Run program.

650 IF S$ = "N" OR S$ = "n" THEN GOTO 670

660 GOTO 610

670 RETURN

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 19 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Esta es la forma en que la traducimos en QBasic:

SUB PideOtraConv

'---------------

LOCATE 12, 1: PRINT " "

LOCATE 12, 1: PRINT "Otra conversiЂn (S/N)";

INPUT S$

IF S$ = "S" OR S$ = "s" THEN

RUN 'programa otra vez.

END IF

IF S$ <> "S" AND S$ <> "s" AND S$ <> "N" AND S$ <> "n" THEN

CALL PideOtraConv

END IF

END SUB

Como puedes ver, ha habido cambios "pro forma", cambios de

forma pero no substanciales. Puedes traducir la subrutina como

tu quieras. Lo importante es, que el procedimiento resultante,

tenga una sola entrada y una sola salida.

Nota, cЂmo en la segunda estructura IF/THEN se prueba el

valor de S$ para ver si sus valores son S y s o N y n. Si los

valores no son estos, se repite el procedimiento PideOtraConv.

Recuerda que CALL es opcional. Lo usamos aquЁ porque quisimos.

Otra manera de hacer esta prueba es la siguiente versiЂn del

mismo procedimiento:

SUB PideOtraConv

'---------------

LOCATE 12, 1: PRINT " "

LOCATE 12, 1: PRINT "Otra conversiЂn (S/N)";

INPUT S$

IF S$ = "S" OR S$ = "s" THEN

RUN 'programa otra vez.

ELSEIF S$ <> "S" AND S$ <> "s" AND S$ <> "N" AND S$ <> "n" THEN

CALL PideOtraConv

ELSE

END IF

END SUB

Nota, cЂmo en una sola estructura lЂgica IF/THEN hemos

incluido todas las instrucciones que en la versiЂn anterior nos

tomЂ dos estructuras lЂgicas IF/THEN. A pesar de eso, creemos

que la primera versiЂn, la de las dos estructuras IF/THEN es m s

f cil de entender. La sintaxis para esta Ѓltima estructura es...

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 20 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г IF condition1 THEN Г

Г [statementblock-1] Г

Г [ELSEIF condition2 THEN Г

Г [statementblock-2]]... Г

Г [ELSE Г

Г [statementblock-n]] Г

Г END IF Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

Antes de comenzar a llenar el Ѓltimo procedimeiento de este

programa, recuerda que tienes que DECLARAR LA VARIABLE S$ COMO

VARIABLE COMPARTIDA (SHARED) en la RUTINA PRINCIPAL en la secciЂn

de 'Variables compartidas:, asЁ:

DECLARE SUB SeleccionaConv ()

DECLARE SUB HazConv ()

DECLARE SUB PideOtraConv ()

DECLARE SUB TerminaPrg ()

'Variables compartidas:

DIM SHARED T

DIM SHARED T$

DIM SHARED C$

DIM SHARED F$

DIM SHARED S$

REM ConversiЂn de temperaturas

REM --------------------------

CLS

SeleccionaConv

HazConv

PideOtraConv

TerminaPrg

END

LLENANDO EL PROCEDIMIENTO TerminaPrg

------------------------------------

He aquЁ como traducimos la subrutina TerminaPrg del programa

GWBasic al procedimiento con el mismo nombre en el programa

esqueltico en QBasic...

690 'Termina programa

700 '----------------

710 CLS

720 PRINT "EL PROGRAMA SE ACABO"

730 PRINT

740 RETURN

кФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФП

Г QB304 PROGRAMACION DESCENDENTE PARTE II 21 Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй

SUB TerminaPrg

'-------------

CLS

PRINT : PRINT : PRINT

PRINT " EL PROGRAMA HA TERMINADO"

PRINT " SI DESEAS EJECUTARLO OTRA VEZ"

PRINT " PRESIONA F5"

END SUB

FЁjate, que el procedimiento, lo hemos elaborado m s.

Puedes hacerlo como te plazca, siempre y cuando cumpla con su

cometido que es el desplegar un mensaje que indique la

terminaciЂn del programa.

Has aprendido en esta lecciЂn cЂmo traducimos un programa de

GWBasic a QBasic. Naturalmente, que como el programa de

temperatura en GWBasic estaba hecho bien estructuralmente

hablando, la traducciЂn a QBasic se nos hizo sumamente sencilla.

En la prЂxima lecciЂn escribiremos otro programa en QBasic,

y lo haremos a partir de cero, esto es, desde que se crea el

mismo hasta que se termina.

Pero antes de despedirnos, te daremos a continuaciЂn varias

versiones del mismo programa de temperatura. El programa

original escrito en GWBasic, y dos versiones en QBasic: la que

hiciste en esta lecciЂn y otra versiЂn del mismo programa.

Estudia todas las versiones cuidadosamente. Si puedes hacer una

propia, magnЁfico!

PROGRAMA DE TEMPERATURA

VERSION ORIGINAL EN GWBASIC

100 'ConversiЂn de temperaturas

110 '--------------------------

120 CLS

130 GOSUB 190 'Selecciona conversiЂn.

140 GOSUB 330 'Haz la conversiЂn.

150 GOSUB 610 'Pide otra conversiЂn.

160 GOSUB 690 'Termina programa.

170 END

180 '

190 'Selecciona conversion

200 '---------------------

210 CLS

220 PRINT

230 PRINT "CONVIERTE:"

240 PRINT

250 PRINT " 1) C a F"

260 PRINT " 2) F a C"

270 PRINT

280 INPUT "Escoge por nЃmero"; T$

290 IF T$ <> "1" AND T$ <> "2" THEN GOTO 190

300 LET T = VAL(T$)

310 RETURN

320 '

330 'Haz la conversiЂn

340 '-----------------

350 IF T = 1 THEN

360 'Convierte C a F:

370 CLS

380 PRINT

390 INPUT "ENTRA C"; C$

400 IF ASC(C$) < 48 OR ASC(C$) > 57 THEN GOTO 330

410 LET C = VAL(C$)

420 PRINT

430 LET F = 9 / 5 * C + 32

440 PRINT C; "C"; "="; F; "F"

450 PRINT

460 END IF

470 IF T = 2 THEN

480 'Convierte F a C:

490 CLS

500 PRINT

510 INPUT "ENTRA F"; F$

520 IF ASC(F$) < 48 OR ASC(F$) > 57 THEN GOTO 330

530 LET F = VAL(F$)

540 PRINT

550 LET C = (F - 32) * 5 / 9

560 PRINT F; "F"; "="; C; "C"

570 PRINT

580 END IF

590 RETURN

600 '

610 'Pide otra conversiЂn

620 '--------------------

630 INPUT "OTRA CONVERSION (S/N)"; S$

640 IF S$ = "S" OR S$ = "s" THEN GOTO 100

650 IF S$ = "N" OR S$ = "n" THEN GOTO 670

660 GOTO 610

670 RETURN

680 '

690 'Termina programa

700 '----------------

710 CLS

720 PRINT "EL PROGRAMA SE ACABO"

730 PRINT

740 RETURN

PROGRAMA DE TEMPERATURA ESQUEMATICO

EN QBASIC

DECLARE SUB SeleccionaConv ()

DECLARE SUB HazConv ()

DECLARE SUB PideOtraConv ()

DECLARE SUB TerminaPrg ()

REM ConversiЂn de temperaturas

EM --------------------------

CLS

SeleccionaConv

HazConv

PideOtraConv

TerminaPrg

END

SUB SeleccionaConv

'-----------------

PRINT "SELECCIONA CONVERSION"

END SUB

SUB HazConv

'----------

PRINT "HAZ LA COVERSION"

END SUB

SUB PideOtraConv

'---------------

PRINT "PIDE CONVERSION"

END SUB

SUB TerminaPrg

'-------------

PRINT "TERMINA PROGRAMA"

END SUB

VERSION 1 DEL PROGRAMA DE TEMPERATURA

EN QBASIC

DECLARE SUB SeleccionaConv ()

DECLARE SUB HazConv ()

DECLARE SUB PideOtraConv ()

DECLARE SUB TerminaPrg ()

'Variables compartidas:

DIM SHARED T

DIM SHARED T$

DIM SHARED C$

DIM SHARED F$

DIM SHARED S$

REM ConversiЂn de temperaturas

REM --------------------------

CLS

SeleccionaConv

HazConv

PideOtraConv

TerminaPrg

END

SUB HazConv

'----------

IF T = 1 THEN

'Convierte C a F:

CLS

INPUT "ENTRA C"; C$

IF ASC(C$) < 48 OR ASC(C$) > 57 THEN CALL HazConv 'Otra vez.

LET C = VAL(C$)

LET F = 9 / 5 * C + 32

PRINT C; "C"; "="; F; "F"

END IF

IF T = 2 THEN

'Convierte F a C:

CLS

INPUT "ENTRA F"; F$

IF ASC(F$) < 48 OR ASC(F$) > 57 THEN CALL HazConv 'Otra vez.

LET F = VAL(F$)

LET C = (F - 32) * 5 / 9

PRINT F; "F"; "="; C; "C"

END IF

END SUB

SUB PideOtraConv

'---------------

LOCATE 12, 1: PRINT " "

LOCATE 12, 1: PRINT "Otra conversiЂn (S/N)";

INPUT S$

IF S$ = "S" OR S$ = "s" THEN

RUN 'programa otra vez.

END IF

IF S$ <> "S" AND S$ <> "s" AND S$ <> "N" AND S$ <> "n" THEN

CALL PideOtraConv

END IF

END SUB

SUB SeleccionaConv

'-----------------

CLS

PRINT "CONVIERTE:"

PRINT " 1) C a F"

PRINT " 2) F a C"

INPUT "Escoge por nЃmero"; T$

IF T$ <> "1" AND T$ <> "2" THEN CALL SeleccionaConv 'Otra vwz.

LET T = VAL(T$)

END SUB

SUB TerminaPrg

'-------------

CLS

PRINT : PRINT : PRINT

PRINT " EL PROGRAMA HA TERMINADO"

PRINT " SI DESEAS EJECUTARLO OTRA VEZ"

PRINT " PRESIONA F5"

END SUB

VERSION 2 DEL PROGRAMA DE TEMPERATURA

EN QBASIC

DECLARE SUB SeleccionaConv ()

DECLARE SUB HazConv ()

DECLARE SUB PideOtraConv ()

DECLARE SUB TerminaPrg ()

'Variables compartidas:

DIM SHARED T, T$, C$, F$, S$

REM ConversiЂn de temperaturas

REM --------------------------

CLS

SeleccionaConv

HazConv

PideOtraConv

TerminaPrg

END

SUB HazConv

'----------

IF T = 1 THEN

'Convierte C a F:

CLS

INPUT "ENTRA C"; C$

IF ASC(C$) < 48 OR ASC(C$) > 57 THEN

CALL HazConv 'Otra vez.

END IF

LET C = VAL(C$)

LET F = 9 / 5 * C + 32

PRINT C; "C"; "="; F; "F"

END IF

IF T = 2 THEN

'Convierte F a C:

CLS

INPUT "ENTRA F"; F$

IF ASC(F$) < 48 OR ASC(F$) > 57 THEN

CALL HazConv 'Otra vez.

END IF

LET F = VAL(F$)

LET C = (F - 32) * 5 / 9

PRINT F; "F"; "="; C; "C"

END IF

END SUB

SUB PideOtraConv

'---------------

LOCATE 12, 1: PRINT " "

LOCATE 12, 1: PRINT "Otra conversiЂn (S/N)";

INPUT S$

IF S$ = "S" OR S$ = "s" THEN

RUN 'programa otra vez.

END IF

IF S$ <> "S" AND S$ <> "s" AND S$ <> "N" AND S$ <> "n" THEN

CALL PideOtraConv

END IF

END SUB

SUB SeleccionaConv

'-----------------

CLS

PRINT "CONVIERTE:"

PRINT " 1) C a F"

PRINT " 2) F a C"

INPUT "Escoge por nЃmero"; T$

IF T$ <> "1" AND T$ <> "2" THEN

CALL SeleccionaConv 'Otra vez.

END IF

LET T = VAL(T$)

END SUB

SUB TerminaPrg

'-------------

CLS

PRINT : PRINT : PRINT

PRINT " EL PROGRAMA HA TERMINADO"

PRINT " SI DESEAS EJECUTARLO OTRA VEZ"

PRINT " PRESIONA F5"

END SUB