QB303

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

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

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

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

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

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

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

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

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

К К

К EN ESTA LECCION APRENDERAS... К

К К

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

К Г Г К

К Г ў ЈQu es programaciЂn descendente? ............. 2 Г К

К Г ў ЈCЂmo se programa en QBasic? .................. 3 Г К

К Г ў ЈCЂmo convertir el programa de Г К

К Г temperatura en un programa QBasic? ............ 4 Г К

К Г ў ЈCЂmo nombrar y guardar tus programas? ........ 5 Г К

К Г ў ЈPor qu diferentes versiones para Г К

К Г un solo programa? ............................. 8 Г К

К Г ў ЈCЂmo darle nombre a las subrutinas ........... 9 Г К

К Г Г К

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

К К

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

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

К ККЬЙК Ь К ЙКК Й К PROGRAMACION DESCENDENTE К

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

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

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

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

К ККЬЙК Ь К ЙКК Й К PROGRAMACION DESCENDENTE К

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

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

ЈQUE ES LA PROGRAMACION DESCENDENTE?

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

El programa de temperatura que consideramos en la lecciЂn

anterior, es algo m s que un programa. Es un PROGRAMA BIEN

PLANEADO, f cil de leer, f cil de entender, y por lo mismo, f cil

de cambiar. Pero eso no lo es todo, es tambin un programa QUE

SE DOCUMENTA A SI MISMO. Observa, que solamente hemos usado

unas cuantas sentencias REM para explicarlo y que lo comenzamos

presentando UNA IDEA GENERAL de lo que se supone l haga, y

luego, convertimos la misma en la siguiente rutina principal:

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

Si observas con detenimiendo esta RUTINA GENERAL, te dar s

cuenta que no es otra cosa que UN RESUMEN de lo que el programa

est supuesto hacer. Otra cosa que no debes pasar por alto, es

que esta rutina se divide a su vez en estructuras menores

llamadas subrutinas, que son precisamente las que se encargar n

de los detalles del programa.

De modo que, este programa est hecho de una RUTINA

PRINCIPAL que nos da una IDEA GENERAL de lo que trata el mismo, y

a su vez, llama a otros MINIPROGRAMAS o SUBRUTINAS para que nos

detallen lo que pide l, en ellas. Es decir, este programa se

mueve de una IDEA GENERAL a otras m s concretas. Dicho de otra

manera, se ha movido DE ARRIBA HACIA ABAJO. AsЁ que...

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

Г CUANDO HACEMOS UN PROGRAMA Г

Г DESCRIBIENDO PRIMERO, DE UNA FORMA GENERAL, Г

Г LO QUE SE SUPONE QUE HAGA, Г

Г Y, LUEGO, DEJAMOS LOS DETALLES Г

Г A UNA SERIE DE PARTES MAS SIMPLES, Г

Г SE DICE QUE ESTAMOS Г

Г PROGRAMANDO DE ARRIBA HACIA ABAJO Г

Г (Top-Down programming) Г

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

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

Г QB303 PROGRAMACION DESCENDENTE 3 Г

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

Sin embargo, no basta con la PROGRAMACION DE ARRIBA HACIA

ABAJO o DESCENDENTE para escribir programas bien estructurados.

Necesitamos algo m s. Y ese es el tema que veremos en la prЂxima

lecciЂn. Por ahora, empezaremos con la programaciЂn de lleno en

QBasic.

DESCUBRIENDO COMO SE PROGRAMA EN QBASIC

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

Casi toda la programaciЂn en QBasic est fundada en nuestro

ejemplo del programa de temperatura. Como ver s dentro de poco,

convertir este programa a un programa QBasic es una tarea

sensilla. Veamos porqu.

Cuando escribimos el programa de temperatura, en el

intrprete GW-Basic, lo hicimos de tal forma que dividimos la

tarea o el propЂsito principal del mismo, CONVERTIR TEMPERATURAS,

en varias tareas o secciones que llamamos miniprogramas o

subrutinas.

Por ejemplo, partimos de una definiciЂn general del

programa. Luego, hicimos un bosquejo general del mismo...

1. Llama al programa CONVERSION DE TEMPERATURAS.

2. Selecciona ConversiЂn.

3. Haz la conversiЂn.

4. Pide otra conversiЂn.

5. Termina.

...es decir un algoritmo, que m s tarde refinamos con...

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

Г ConversiЂn de temperaturas Г

Г Selecciona conversiЂn Г

Г Haz la conversiЂn. Г

Г Pide otra conversiЂn. Г

Г Termina. Г

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

...considerando estos pasos creamos la siguiente rutina

principal...

100 'ConversiЂn de temperaturas

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

120 GOSUB 200 'Selecciona conversiЂn

130 GOSUB 300 'Haz la conversiЂn.

140 GOSUB 400 'Pide otra conversiЂn.

150 GOSUB 500 'Termina.

160 END

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

Г QB303 PROGRAMACION DESCENDENTE 4 Г

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

Luego, cada paso lo convertimos en un miniprograma o

subrutina. Llenamos las subrutinas con meramente sentencias

PRINT que mencionaban lo que hacЁa cada una. Ejecutamos el

programa, y al ver lo siguiente...

Selecciona conversiЂn.

Haz la conversiЂn.

Pide otra conversiЂn.

Termina.

...en pantalla, sabЁamos que el programa estaba funcionado

bien. Luego, lo prЂximo serЁa llenar cada subrutina con los

detalles correspondientes.

COMO CONVERTIR EL PROGRAMA DE TEMPERATURA

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

EN UN PROGRAMA QBASIC

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

El intrprete QBasic fue hecho con la PROGRAMACION

DESCENDENTE en mente. Es decir, teniendo en cuenta la forma en

que hicimos el programa de temperatura.

Tratemos, ahora, de convertir este programa hecho en GW-

Basic a QBasic. Empecemos con la RUTINA principal...

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

Lo primero que debes hacer es cargar en la memoria

principal de tu computadora el intrprete Qbasic (ver lec QB201).

Una vez cargado QBasic, aparecer la pantalla inicial de EDITOR

QBasic...

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

Г QB303 PROGRAMACION DESCENDENTE 5 Г

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

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФФФФФФФФФФФФФФUntitledФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г ^Г

Г БГ

Г vГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

COMO NOMBRAR Y GUARDAR TUS PROGRAMAS

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

Una vez que el editor est en pantalla procedes a escribir

el nombre del programa y guardarlo(save) al mismo tiempo. En

la lecciЂn QB203 aparece el procedimiento completo. Sin embargo,

lo mencionaremos aquЁ otra vez para tu beneficio.

El guardar tus programas en QBASIC es mucho m s sensillo que

con los intrpretes de BASICA o GW-BASIC. Lo Ѓnico que tienes

que hacer, es ir al FILE MENU y ahЁ seleccionar SAVE Ђ SAVE

AS... El procedimiento es el siguiente:

Primero, selecciona un nombre para tu programa, digamos,

TEMPRG1.BAS. Observa como la extensiЂn .BAS identifica el

archivo como un programa en BASIC.

Segundo, v al FILE MENU presionado la tecla ALT. Nota cЂmo

al presionar ALT los nombres de los distintos menЃs se enfatizan

con un fondo negro.

Tercero, presiona la tecla cursora que tiene la flechita

hacia abajo. Notar s que inmediatamente aparece el FILE MENU...

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

Г QB303 PROGRAMACION DESCENDENTE 6 Г

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

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФФФТФФФФФФФФФФФUntitledФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г New Гл ^Г

Г Open... Гл БГ

Г Save Гл БГ

Г Save as... ГлC";"=";F;"F" БГ

Г Print... Гл БГ

Г Exit Гл БГ

УФммммммммммммл БГ

Г vГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

Cuarto, presiona dicha tecla nuevamente hasta que llegues a

Save as... Los tres puntitos indican que inmediatamente despus

que presiones ENTER aparecer la cajita de di logo Save as...

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФФФТФФФФФФФФФФФUntitledФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г New Гл ^Г

Г Open... Гл БГ

Г Save Гл БГ

ГлSave as... ГлC";"=";F;"F" БГ

Г Print... Гл БГ

Г Exit Гл БГ

УФммммммммммммл БГ

Г БГ

Г vГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

Quinto, presiona ENTER para que aparezca la cajita de

di logo...

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

Г QB303 PROGRAMACION DESCENDENTE 7 Г

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

кФФФФФФФФФФФSave asФФФФФФФФФФФП

Г кФФФФФФФФФФФФФФП Г

Г File name: Г_ Г Г

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

Г C:\QBASIC Г

Г Г

Г Dirs\Drives Г

Г кФФФФФФФФФФФФФФФФП Г

Г Г .......... Г Г

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

Г <Ok> <Cancel> <Help> Г

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

...denominada Save as... En la lЁnea de File name y despЃes

del cursor -, escribe...

кФФФФФФФФФФФSave asФФФФФФФФФФФП

Г кФФФФФФФФФФФФФФП Г

Г File name: ГTEMP1PRG.BAS_ Г Г

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

Г C:\QBASIC Г

Г Г

Г Dirs\Drives Г

Г кФФФФФФФФФФФФФФФФП Г

Г Г .......... Г Г

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

Г <Ok> <Cancel> <Help> Г

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

...TEMPRG1.BAS y presiona ENTER. Ver s que el programa es

guardado en el archivo TEMPPRG1.BAS y aparecer de nuevo la

pantalla inicial...

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФФФФФФФФФФФФTEMPRG1.BASФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г ^Г

Г БГ

Г vГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

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

Г QB303 PROGRAMACION DESCENDENTE 8 Г

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

...con el nombre que escogiste para tu programa. Nota que

el nombre que escogimos para identificar el programa...

кФ programa en BASic

TEMPRG1.BAS

РТйРТйРФ primera versiЂn

Г Г

TEMperatura ФФй Г

PRoGrama

...tiene abreviada la palabra TEMperatura(TEM) y la palabra

PRGrama(PRG) seguidas ambas del nЃmero 1. El nЃmero significa la

primera versiЂn del programa. Siempre que programes, te

recomendamos que llames a tu programa con diferentes nombres.

Recuerda que al programar ir s mejorando el programa poco a poco.

Si llamas al programa con diferentes nombres podr s comparar la

versiЂn mejorada con la versiЂn anterior.

ЈPOR QUE DIFERENTES VERSIONES PARA UN SOLO PROGRAMA?

Nuestro programa de temperatura tiene dos versiones: la

versiЂn esquem tica, o versiЂn uno, llamada TEPRG1.BAS y la

versiЂn completada o versiЂn dos, llamada TEMPRG2.BAS. Observa

cЂmo con sЂlo cambiar el nЃmero de la versiЂn, tendr s un nombre

nuevo para tu programa.

Puedes llamar tus programas de la forma que lo desees.

Pero eso si, asegЃrate de que el nombre escogido aluda a la

esencia del mismo. Otra cosa que tienes que tener en cuenta, es

que cuando le vayas a dar un nombre diferente a los mismos,

debes escoger en el FILE MENU, la opciЂn Save as... La opciЂn

Save sЂlo guardar tus programas con el nombre original.

Despus que le hayas puesto nombre a tu programa y lo hayas

guardado(save), proceder s entonces a escribir la RUTINA

PRINCIPAL usando enunciados REM. Como estamos convirtiendo el

programa de temperatura directamente usamos la rutina principal

de este. Si estuvieras haciendo el programa por primera vez en

QBasic, la rutina principal la harЁas a partir de tu algoritmo

inicial. Por ejemplo, el algoritmo inicial del programa de

temperatura es...

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

Г ConversiЂn de temperaturas Г

Г Selecciona conversiЂn Г

Г Haz la conversiЂn. Г

Г Pide otra conversiЂn. Г

Г Termina. Г

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

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

Г QB303 PROGRAMACION DESCENDENTE 9 Г

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

...pues tendrЁamos que hacer la RUTINA PRINCIPAL del

programa a partir de l. Esta es la forma en que deberЁas hacer

la RUTINA PRINCIPAL...

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФФФФФФФФФФФФФTEMPRG1.BASФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г REM ConversiЂn de temperaturas ^Г

Г REM -------------------------- БГ

Г ' CLS БГ

Г ' SeleccionaConv БГ

Г ' HazConv БГ

Г ' PideOtraConv БГ

Г ' TerminaPrg БГ

Г END БГ

Г БГ

Г vГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

COMO DARLE NOMBRE A LAS SUBRUTINAS

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

Observa cЂmo se han denominado las subrutinas. Como el

QBasic no tienen nЃmeros de lЁnea, utiliza el nombre de la

subrutina (label) para ir a ella. Por esa razЂn debe escribirse

el nombre de la misma sin ningЃn espacio de separaciЂn. Por

ejemplo, a la subrutina de SELECCIONA CONVERSION, se le llamЂ

SeleccionaConv. Observa que no se separЂ Selecciona de Conv,

sino que ambas palabras se escribieron juntas. Observa, tambin,

que para diferenciar una palabra de la otra se escribiЂ la

primera letra de cada palabra en mayЃscula.

El nombre de una subrutina en QBasic puede tener 40

caracteres o menos, no m s. La subrutina llamada SeleccionaConv

pudo haberse llamado SeleccionaConversion, ya que este nombre no

sobrepasa los 40 caracteres.

Hemos puesto las subrutinas en la RUTINA PRINCIPAL bajo

sentencias REM para que no se ejecuten por ahora. A medida que

vayamos llenando las mismas, removeremos los REM.

Empecemos a llenar la primera subrutina, la llamada

SeleccionaConv. Para conseguirlo debes proceder asЁ...

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

Г QB303 PROGRAMACION DESCENDENTE 10 Г

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

Elimina la comilla que representa el enunciado REM en la

lЁneas...

' CLS

' SeleccionaConv

...en la RUTINA PRINCIPAL. Despus de eliminarlas, esta

deberЁa aparecer asЁ:

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФФФФФФФФФФФФФTEMPRG1.BASФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г REM ConversiЂn de temperaturas ^Г

Г REM -------------------------- БГ

Г CLS БГ

Г SeleccionaConv БГ

Г ' HazConv БГ

Г ' PideOtraConv БГ

Г ' TerminaPrg БГ

Г END БГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

Ahora, coloca el cursor frente al nombre de la subrutina que

acabas de remover la comilla, o sea, SeleccionaCov. La pantalla

debe verse de esta forma:

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФФФФФФФФФФФФФTEMPRG1.BASФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г REM ConversiЂn de temperaturas ^Г

Г REM -------------------------- БГ

Г CLS БГ

Г - SeleccionaConv БГ

Г ' HazConv БГ

Г ' PideOtraConv БГ

Г ' TerminaPrg БГ

Г END БГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

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

Г QB303 PROGRAMACION DESCENDENTE 11 Г

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

Luego, en la secciЂn de Menu, escoges el EDIT MENU. Al

hacerlo, el mismo se desplegar ...

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФТФФФФФФФФФФФФФФФФФTEMPRG1.BASФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г Cut Shift+ DelГ ^Г

Г Г Copy Ctrl+Ins Г БГ

Г Г Paste Shift+Ins Г БГ

Г Г Clear Del Г БГ

Г УФФФФФФФФФФФФФФФФФФД БГ

Г Г NewSub... Г БГ

Г Г New Function... Г БГ

Г РФФФФФФФФФФФФФФФФФФй БГ

Г БГ

Г vГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

Entonces, escoges NewSub. Aparecer la siguiente cajita de

di logo...

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФФФФФФФФФФФФФTEMPRG1.BASФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г ^Г

Г БГ

Г кФФФФФФФФФФФФNew SubФФФФФФФФФФФФФФФП БГ

Г Г кФФФФФФФФФФФФФФФФФФФП Г БГ

Г Г Name: Г-SeleccionaConv Г Г БГ

Г Г РФФФФФФФФФФФФФФФФФФФй Г БГ

Г УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД БГ

Г Г <Ok> <Cancel> <Help> Г БГ

Г РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй БГ

Г БГ

Г vГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

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

Г QB303 PROGRAMACION DESCENDENTE 12 Г

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

Observa cЂmo el nombre de la subrutina aparece

autom ticamente escrita en la secciЂn Name, asЁ que al presionar

ENTER (Ok), ver s...

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФФФФФФФФФФФФФTEMPRG1.BASФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Sub SeleccionaConv ^Г

Г END Sub БГ

Г БГ

Г vГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

...la forma esqueltica de la misma. Esto significa que

est s listo para llenar la subrutina. Coloca el cursor en END

Sub y presionas ENTER varias veces. De esta forma conseguir s

espacio dentro de la subrutina para llenarla...

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФФФФФФФФФФФФФTEMPRG1.BASФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Sub SeleccionaConv ^Г

Г БГ

Г END Sub БГ

Г БГ

Г vГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

Ahora, llenas la misma.

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

Г QB303 PROGRAMACION DESCENDENTE 13 Г

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

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФФФФФФФФФФФФФTEMPRG1.BASФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Sub SeleccionaConv ^Г

Г '----------------- БГ

Г PRINT "SELECCIONA CONVERSION" БГ

Г БГ

Г END Sub БГ

Г vГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

Observa, que solamente se han aЄadido dos lЁneas. Una lЁnea

REM entrecortada para enfatizar el nombre de la subrutina, y la

otra, con el mensaje "SELECCIONA CONVERSION" en la sentencia

PRINT. La raya entrecortada es opcional. La lЁnea con el

mensaje es para probar si la subrutina trabaja bien.

No te preocupes ahora por los detalles de esta subrutina.

Estamos sЂlo en la etapa de construir las subrutinas pedidas en

la rutina principal y probando si estas funcionan bien. Por

ejemplo, para probar si la subrutina que acabamos de hacer,

funciona adecuadamente, hacemos lo siguiente:

Volvemos a la RUTINA PRINCIPAL, presionando ALT, y luego la

V de View. Cuando aparezca...

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФТФФФФФФФФФФTEMPRG1.BASФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г ГSUBs... F2 Г ^Г

Г ГSplit Г БГ

Г ГOutpt Screen F4 Г БГ

Г РФФФФФФФФФФФФФФФФй БГ

Г vГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

Escoges SUBs presionando F2 o ENTER. Aparecer la...

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

Г QB303 PROGRAMACION DESCENDENTE 14 Г

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

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФФФФФФФФФФФФTEMPRG1.BASФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г кФФФФФФФФФФФФФФФФФФФФФФФФSUBsФФФФФФФФФФФФФФФФФФФФФФФФП ^Г

Г Г ААААААААААААА ^ Г БГ

Г Г АTEMPRG1.BASА Б Г БГ

Г Г ААААААААААААА Б Г БГ

Г Г SeleccionaConv Б Г БГ

Г Г Б Г БГ

Г Г<ФлББББББББББББББББББББББББББББББББББББББББББББлФ>v Г БГ

Г Г Г БГ

Г ГTEMPRG1.BAS is the Main Module. Г БГ

Г РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй vГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

...cajita de di logo. Como la RUTINA PRINCIPAL o

TEMPRG1.BAS est seleccionada con el fondo negro, sЂlo tienes que

presionar ENTER para ir a ella...

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

ГFile Edit View Search Run Debug Options HelpГ

УФФФФФФФФФФФФФФФФФФФФФФTEMPRG1.BASФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г REM ConversiЂn de temperaturas ^Г

Г REM -------------------------- БГ

Г CLS БГ

Г SeleccionaConv БГ

Г ' HazConv БГ

Г ' PideOtraConv БГ

Г ' TerminaPrg БГ

Г END БГ

Г БГ

Г vГ

Г<ФБББББББББББББББББББББББББББББББББББББББББББББББББББББББФ>Г

УФФФФФФФФФФФФФФФФФФФФФФФImmediateФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г Г

УФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФД

Г<Shift+F1=Help <F6=Window> <F2=Subs> <F5=run> <F8=Step>Г

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

Ahora, est s listo para ver si la subrutina SeleccionaConv,

funciona bien. Para ejecutar el programa presiona F5.

Observar s el mensaje....

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

Г QB303 PROGRAMACION DESCENDENTE 15 Г

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

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

Г SELECCIONA CONVERSION Г

Г Г

Г Press any key to continue. Г

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

...evidenciando que la subrutina est funcionando bien.

Ya que sabes como llenar la subrutina SeleccionaConv, las

dem s subrutinas se llenan de la misma forma. La Ѓnica

diferencia es su nombre. Pues bien, usando el programa

siguiente...

DECLARE SUB SeleccionaConv ()

DECLARE SUB HazConv ()

DECLARE SUB PideOtraConv ()

DECLARE SUB TerminaPrg ()

REM ConversiЂn de temperaturas

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

CLS

SeleccionaConv

HazConv

PideOtraConv

TerminaPrg

END

SUB HazConv

'----------

PRINT "HAZ LA COVERSION"

END SUB

SUB PideOtraConv

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

PRINT "PIDE CONVERSION"

END SUB

SUB SeleccionaConv

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

PRINT "SELECCIONA CONVERSION"

END SUB

SUB TerminaPrg

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

PRINT "TERMINA PROGRAMA"

END SUB

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

Г QB303 PROGRAMACION DESCENDENTE 16 Г

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

...llena las dem s subrutinas. No te preocupes por las

lЁneas...

DECLARE SUB SeleccionaConv ()

DECLARE SUB HazConv ()

DECLARE SUB PideOtraConv ()

DECLARE SUB TerminaPrg ()

Notar s que estas entran autom ticamente a tu programa cada

vez que lo guardes(save). En la prЂxima lecciЂn te explicaremos

qu significan.

Luego que las hayas llenado todas, compara el programa

terminado con este otro...

100 'ConversiЂn de temperaturas

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

120 GOSUB 200 'Selecciona conversiЂn

130 GOSUB 300 'Haz la conversiЂn.

140 GOSUB 400 'Pide otra conversiЂn.

150 GOSUB 500 'Termina.

160 END

170 '

200 'Seleciona conversiЂn

210 '--------------------

220 PRINT "Selecciona conversiЂn."

230 RETURN

240 '

300 'Haz la conversiЂn

310 '-----------------

320 PRINT "Haz la conversiЂn."

330 RETURN

340 '

400 'Pide otra conversiЂn

410 '--------------------

420 PRINT "Pide otra conversiЂn."

430 RETURN

440 '

500 'Termina

510 '-------

520 PRINT "Termina."

530 RETURN

Observa cЂmo fue convertido a QBasic. Recuerda que al

llenar las dem s subrutinas, haz el procedimiento que seguimos

para llenar la subrutina SeleccionaConv. Cuando las hayas

llenado todas, al ejecutar el programa ver s en pantalla los

tЁtulos...

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

Г QB303 PROGRAMACION DESCENDENTE 17 Г

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

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

Г SELECCIONA CONVERSION Г

Г HAZ LA CONVERSION Г

Г PIDE CONVERSION Г

Г TERMINA PROGRAMA Г

Г Г

Г Press any key to continue. Г

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

...que significan que el programa est funcionando bien.

No te olvides de comparar los dos programas, es decir, el

programa hecho en GW-Basic y el hecho en QBasic. Observa cu nta

semejanza hay entre ellos!

En la prЂxima lecciЂn continuaremos llenando los detalles en

cada subrutina. Hasta luego!