QB307

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

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

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

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

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

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

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

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

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

К К

К EN ESTA LECCION APRENDERAS... К

К К

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

К Г Г К

К Г ў CЂmo llenar la RUTINA PRINCIPAL ............... 7 Г К

К Г ў CЂmo llenar la subrutina PresentaPrg .......... 8 Г К

К Г ў Cu ndo usar un bloque de secuencia ......... 8, 11 Г К

К Г ў La sintaxis de la funciЂn INPUT$( )............ 9 Г К

К Г ў CЂmo llenar la subrutina DaInstrucciones ...... 10 Г К

К Г ў CЂmo llenar la subrutina PiensaNUmero ......... 11 Г К

К Г ў CЂmo crear una nueva subrutina dentro Г К

К Г de otra ....................................... 13 Г К

К Г ў Cu ndo usar un bloque de un bucle con su Г К

К Г contador antes de la prueba IF/THEN ......... 13-14 Г К

К Г Г К

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

К К

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

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

К ККЬЙК Ь К ЙКК К К ЈQUE BLOQUES USAR? К

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

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

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

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

К ККЬЙК Ь К ЙКК К К ЈQUE BLOQUES USAR? К

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

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

S que est s ansioso por saber cЂmo el programa ADIVINA UN

NЃMERO fue hecho. Pues comenzando con esta lecciЂn usaremos el

mismo para aplicar lo que hemos aprendido sobre la PROGRAMACIЂN

ESTRUCTURADA y el mtodo de PROGRAMACIЂN DESCENDENTE que acabamos

de estudiar. En esta ocasiЂn pondremos especial atenciЂn en CЂMO

SABER QUE BLOQUE USAR PARA ESTRUCTURAR EL PROGRAMA.

Otra cosa que haremos ser escribir el programa usando una

programaciЂn dual, esto es, usaremos una combinaciЂn de las

subrutinas propias del QBasic y las subrutinas convencionales

(las que usan un nombre de etiqueta). Adem s, iremos mejorando

el programa hasta tener un programa bastante completo.

Aprovecharemos tambin para aprender las sentencias nuevas que

aparezcan.

Como pudiste ver, el programa de ADIVINA UN NЃMERO est

construido de una SECUENCIA RECTA DE BLOQUES. Para que esto

fuese posible fue necesario QUE CADA BLOQUE TUVIERA UNA Y

SOLAMENTE UNA SALIDA, Y UNA Y SOLAMENTE UNA ENTRADA. De esta

forma, la computadora VA EJECUTANDO UNA INSTRUCCIЂN DESPUS DE LA

OTRA DENTRO DE UN BLOQUE EN PARTICULAR, y luego, deja dicho

bloque usando su Ѓnica salida para dirigirse hacia el prЂximo.

Esto, como pudiste ver, evitЂ grandes saltos hacia otros bloques.

Pues bien, comencemos escribiendo el programa ADIVINA UN

NЃMERO desde la concepciЂn del mismo hasta su terminaciЂn. SegЃn

aprendiste en la lecciЂn QB000.

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

Г EL PRIMER PASO Г

Г PARA ESCRIBIR UN PROGRAMA Г

Г ES DEFINIRLO BIEN Г

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

...asЁ que procedamos a definir el juego...

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

Г QB307 ЈQUE BLOQUES USAR? 3 Г

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

El juego consiste en hacer que la computadora PIENSE UN

NЃMERO. TЃ tienes que ADIVINARLO. Tienes diez turnos para

hacerlo. Si lo adivinas o no, haz que la computadora DIGA SI

ADIVINASTE. Si quieres REPETIR EL JUEGO, haz que la computadora

te lo pida, sino TERMINA EL JUEGO.

Una vez que lo hayas definido, procedes con el...

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

Г SEGUNDO PASO Г

Г HAZ UN BOSQUEJO BREVE Г

Г PERO QUE DESCRIBA Г

Г LAS PRINCIPALES TAREAS DEL PROGRAMA Г

Г (algoritmo general) Г

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

Observa, en la definiciЂn del juego, que he escrito en

mayЃsculas las instrucciones m s importantes que llevar a cabo

la computadora. Estas son:

1. Pensar un nЃmero.

2. Adivinarlo.

3. Decir si adivinaste o no.

4. Repetir el juego.

5. Terminarlo.

Una vez que hayas hecho el algoritmo general del juego,

pedido en el segundo paso, procedes entonces con el...

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

Г TERCER PASO Г

Г CONSIDERA EL BOSQUEJO HECHO EN EL SEGUNDO PASO Г

Г COMO LA RUTINA PRINCIPAL DEL PROGRAMA Г

Г CONVIRTIENDO LAS PALABRAS DE TU LENGUAJE Г

Г (traduce el algoritmo a Basic) Г

Г EN SUBRUTINAS Г

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

Para convertir los pasos arriba mencionados, en subrutinas,

de modo que el QBasic pueda usarlas, debes escribir los mismos

muy reducidos y muy juntos. Esta es la forma en que los

convertЁ...

PiensaNumero

Adivinalo

DiSiAdivinaste

RepiteJuego

Despidete

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

Г QB307 ЈQUE BLOQUES USAR? 4 Г

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

En una lecciЂn anterior te dije que el Qbasic puede trabajar

sin nЃmeros de lЁnea, pero que para ir a una subrutina, l

necesita saber el nombre de la misma (etiqueta=label). Sin

embargo, hay una dificultad, y es que la etiqueta sЂlo acepta

letras para su nombre. Y, como consecuencia, los espacios entre

ellas no est n permitidos.

De modo que, el nombre de las subrutinas debe ser escrito

sin espacio entre sus letras. Por esa razЂn, el nombre de las

subrutinas de nuestro algoritmo, est n escritos de esta forma.

Sin embargo, para mejorar la legibilidad de los mismos, y como es

permitido usar letras mayЃsculas, us estas entre una palabra y

otra en aquellos nombres que tienen m s de una palabra. No te

olvides que el nombre de una subrutina en QBasic puede tener 40

caracteres o menos, no m s.

Una vez obtenido los nombres de las subrutinas extraidas de

la definiciЂn del programa, procedemos a colocarlas en la RUTINA

PRINCIPAL del juego...

REM Juego de Adivina un NЃmero

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

CLS : SCREEN 0: WIDTH 80

'PresentaPrg

'DaInstrucciones

'PiensaNumero

'Adivinalo

'DiSiAdivinaste

'RepiteJuego

'Despidete

END

Nota cЂmo hemos aЄadido en la RUTINA PRINCIPAL, el nombre

de la misma y la lЁnea que lo subraya en lЁneas REMS.

Despus, aparecen las instrucciones que selecciona la manera en

que la pantalla del monitor se va a presentar.

Otras lЁneas que aЄadimos en la RUTINA PRINCIPAL, son las

que nos dan los nombres de las subrutinas que presentan el

programa y dan sus instrucciones.

Recuerda que cuando escribes la RUTINA PRINCIPAL por primera

vez, debes escribir los nombres de sus subrutinas dentro de

sentencias REMS en forma de comillas para que no se ejecuten por

el momento. Despus que vayas llenando las subrutinas, una a

una, le vas quitando las comillas (') REMs, de modo que puedas

ejecutarlas y asЁ ver cЂmo funcionan.

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

Г QB307 ЈQUE BLOQUES USAR? 5 Г

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

Despus de haber escrito la misma procedes con el...

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

Г CUARTO PASO Г

Г LLENA LAS SUBRUTINAS Г

Г LLAMADAS EN EL PASO TRES Г

Г CON UN ENUNCIADO PRINT Г

Г EN CADA UNA Г

Г DESCRIBIENDO LO QUE SE SUPONE HAGAN Г

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

Recuerda, que debes llenar primero estas con un mensaje que

diga lo que cada una hace usando sentencias PRINT. Repasa la

lecciЂn QB000, para veas todo el procedimiento, en caso de que lo

hayas olvidado. He aquЁ como queda el programa despus de llenar

las mismas con las sentencias mencionadas...

DECLARE SUB DiSiAdivinaste ()

DECLARE SUB Despidete ()

DECLARE SUB RepiteJuego ()

DECLARE SUB Adivinalo ()

DECLARE SUB PiensaNumero ()

DECLARE SUB DaInstrucciones ()

DECLARE SUB PresentaPrg ()

REM Juego de Adivina un NЃmero

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

CLS : SCREEN 0: WIDTH 80

PresentaPrg

DaInstrucciones

PiensaNumero

Adivinalo

DiSiAdivinaste

RepiteJuego

Despidete

END

SUB Adivinalo

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

PRINT "Adivinalo"

END SUB

SUB DaInstrucciones

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

PRINT "DaInstrucciones"

END SUB

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

Г QB307 ЈQUE BLOQUES USAR? 6 Г

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

SUB Despidete

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

PRINT "Despidete"

END SUB

SUB DiSiAdivinaste

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

PRINT "DiSiAdivinaste"

END SUB

SUB PiensaNumero

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

PRINT "PiensaNumero"

END SUB

SUB PresentaPrg

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

PRINT "PresentaPrg"

END SUB

SUB RepiteJuego

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

PRINT "RepiteJuego"

END SUB

Si ejecutas el programa, deber aparecer en pantalla los

mensajes...

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

Г PresentaPrg Г

Г DaInstrucciones Г

Г PiensaNumero Г

Г Adivinalo Г

Г DiSiGanaste Г

Г RepiteJuego Г

Г Despidete Г

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

...que probar que el programa est funcionando bien.

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

Г QB307 ЈQUE BLOQUES USAR? 7 Г

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

Una vez que te asegures de que el programa trabaja bien,

procedes con el...

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

Г QUINTO PASO Г

Г LLENA Y TRATA CADA SUBRUTINA SEPARADAMENTE Г

Г COMO SI FUERA UN PROGRAMA COMPLETO Г

Г APLICANDOLE LOS CUATRO Г

Г PASOS ANTERIORES Г

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

Recuerda que al llenar cada subrutina, debes seguir estos

cinco pasos que acabamos de seguir.

LLENADO LA RUTINA PRINCIPAL

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

Ya viste cЂmo fue deducida la RUTINA PRINCIPAL del programa:

Hicimos un resumen del juego, lo reducimos a unos meros pasos a

seguir, los convertimos en subrutinas d ndole un nombre a cada

uno, y por Ѓltimo, le aЄadimos las subrutinas para presentar el

programa y dar sus instruciones. Sin embargo, la RUTINA

PRINCIPAL...

REM Juego de Adivina un NЃmero

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

CLS : SCREEN 0: WIDTH 80

PresentaPrg

DaInstrucciones

PiensaNumero

Adivinalo

DiSiAdivinaste

RepiteJuego

Despidete

END

...tiene como primera lЁnea una serie de sentencias que

preparan la pantalla del monitor antes de usarse. Tales

sentencias...

CLS : SCREEN 0: WIDTH 80

...las aprendiste en la lecciЂn 301.

AsЁ que sabes que esta lЁnea, limpia la pantalla (CLS) y la

establece sЂlo para texto (SCREEN 0) con 80 columnas de ancho.

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

Г QB307 ЈQUE BLOQUES USAR? 8 Г

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

LLENADO LA SUBRUTINA PresentaPrg

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

Una vez hecha la RUTINA PRINCIPAL procedemos a llenar la

subrutina...

SUB PresentaPrg

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

PRINT "PresentaPrg"

END SUB

Sabes que...

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

Г UN BUEN PROGRAMA ESTRUCTURADO Г

Г ESTA HECHO DE Г

Г BLOQUES EN SECUENCIA, Г

Г DE REPETICЂN o BUCLES Г

Г Y DE RAMAS Г

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

AsЁ que, antes de pensar en los detalles de esta subrutina,

lo primero que tienes que preguntarte es: ЈQU CLASE DE BLOQUE

DEBO USAR PARA PRESENTAR EL PROGRAMA? Como para hacer esto, lo

Ѓnico que debes usar son varias sentencias PRINT, unas detr s

del otra, te dar s cuenta de que necesitas un...

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

Г BLOQUE DE SECUENCIA Г

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

Г ------------- Г

Г . Г

Г PUEDE CONSISTIR DE UN ENUNCIADO VACЁO Г

Г UN SOLO ENUNCIADO DE ACCIЂN Г

Г O VARIOS DE ELLOS Г

Г --- Г

Г PERO NO PUEDEN SER Г

Г ENUNCIADOS DE CONTROL COMO: Г

Г GOTO, IF..THEN, ECT. Г

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

Esta es la forma en que present la subrutina usando el

formato del bloque secuencial...

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

Г QB307 ЈQUE BLOQUES USAR? 9 Г

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

SUB PresentaPrg

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

CLS

PRINT : PRINT : PRINT

PRINT " QSoft PRESENTA"

PRINT " EL JUEGO DE ADIVINA UN NUMERO"

PRINT " Un programa escrito en QBasic"

PRINT " por Reinaldo Acevedo"

PRINT " para las computadoras IBM y compatibles."

PRINT : PRINT

PRINT : PRINT : PRINT

PRINT " PRESIONA ENTER PARA CONTINUAR."

LET e$ = INPUT$(1)

END SUB

Naturalmente, que tЃ puedes hacerla como desees, siempre y

cuando tenga buena apariencia. Observa que est formada sЂlo de

enunciados PRINT, con la excepciЂn de la instrucciЂn...

LET e$ = INPUT$(1)

...que estoy seguro que aЃn no sabes lo que significa. Pues

como puedes deducir de su nombre, esta funciЂn no es m s que otra

forma de la sentencia INPUT que aprendiste en una lecciЂn

anterior. Su sintaxis completa es:

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

Г INPUT$(n[,[#]filenumber%]) Г

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

кФФФФФФФФФФФФФФФФй el nЃmero de caracteres

nЃmero de caracteres de un archivo abierto

a ser leidos Г

del archivo a la Si es omitido, INPUT$ lee

derecha del teclado

Esta funciЂn lo que hace es sacar una cadena de caracteres

leidas de un archivo especificado, y en caso de que se omita

este, saca los caracteres desde el teclado. Es este Ѓltimo uso

el que se le est dando aquЁ, por lo que su sintaxis m s simple

es:

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

Г INPUT$(lengh of string) Г

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

nЃmero que indica la longitud de la cadena

o los caracteres entrados desde

el teclado

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

Г QB307 ЈQUE BLOQUES USAR? 10 Г

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

AsЁ que...

LET e$ = INPUT$(1)

...significa, presiona una tecla y almacena el car cter

representado por ella en la variable alfa e$. Como puedes ver,

el nЃmero 1 significa que un sЂlo car cter puede ser aceptado del

teclado. Esta instrucciЂn es usada aquЁ con el propЂsito de que

la ejecuciЂn del programa haga una pausa y el usuario pueda leer

el mensaje dado por los enunciados PRINT anteriores. Si el

usuario desea continuar con la ejecuciЂn del programa, basta

conque presione ENTER, como lo indica la instrucciЂn...

PRINT " PRESIONA ENTER PARA CONTINUAR."

La funciЂn INPUT$ es diferente del enunciado INPUT,

primero porque es una funciЂn definida previamente, es decir, es

un miniprograma que viene ya hecho para el propЂsito que se le

ha destinado; y segundo, porque evita que la tecla presionada se

despliegue en pantalla. Otra ventaja que tiene, es que evita

que el programa se interrumpa sЃbitamente con el mensaje REDO

FROM START, en el caso de que presiones una coma (,). Si se

hubiese usado la instrucciЂn...

INPUT " PRESIONA ENTER PARA CONTINUAR.",e$

...y se hubiese presionado una coma (,), el programa se

hubiese detenido con el mensaje ya dicho.

LLENANDO LA SUBRUTINA DaInstrucciones

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

Una vez que hayas llenado la subrutina PresentaPrg, ejecuta

el programa. Si el mensaje indicado se despliega sin ninguna

dificultad, puedes estar seguro que la misma funciona bien.

Despus de haber probado la subrutina y despus de haber quedado

satisfecho con ella, pasas a llenar la prЂxima subrutina...

SUB DaInstrucciones

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

PRINT "DaInstrucciones"

END SUB

Al igual que en la subrutina anterior, esta, sЂlo va a

necesitar sentencias PRINT unas detr s de la otra para desplegar

en pantalla las instrucciones del juego. AsЁ que necesitas OTRO

BLOQUE SECUENCIAL. He aquЁ la subrutina ya llena:

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

Г QB307 ЈQUE BLOQUES USAR? 11 Г

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

SUB DaInstrucciones

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

CLS

PRINT : PRINT : PRINT

PRINT " *** INSTRUCCIONES ***"

PRINT : PRINT

PRINT " LA COMPUTADORA TE PEDIRA "

PRINT " QUE ADVINES UN NUMERO DEL 1 AL 100."

PRINT " TIENES DIEZ OPORTUNIDADES"

PRINT " PARA ADIVINARLO,"

PRINT " AL CABO DE LAS CUALES"

PRINT " TE DIRA SI LO ADIVINASTE O NO."

PRINT : PRINT

PRINT " PRESIONA ENTER PARA CONTINUAR."

LET e$ = INPUT$(1)

END SUB

Despus de haber escrito la misma, ejecuta el programa

(RUN) para ver como trabaja. Si no hay ningЃn error, el

programa desplegar su presentaciЂn, pausar hasta que presiones

ENTER y, luego, desplegar las instrucciones pausando nuevamente

hasta que vuelvas a presionar ENTER para continuar.

LLENANDO LA SUBRUTINA PiensaNumero

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

Ahora estar s preparado para llenar la prЂxima subrutina...

SUB PiensaNumero

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

PRINT "PiensaNumero"

END SUB

Como recordar s, lo primero que debes hacer al llenar una

subrutina es preguntarte qu tipo de bloque vas a usar para

colocar la misma. Como esta subrutina le pide a la computadora

que piense un nЃmero, lo puedes lograr haciendo que ella misma lo

encuentre en su memoria.

Ahora bien, el hacer que tu computadora busque un nЃmero en

su memoria es una tarea secuencial. De modo que, sabes que debes

usar un BLOQUE SECUENCIAL dentro del cual escribir las

instrucciones de esta subrutina. Ahora, la pregunta es, ЈcЂmo

hacemos para que tu computadora piense un nЃmero? Recuerda que

un mtodo para generar un nЃmero al azar es por medio de la

funciЂn RND, que aprendiste a usar en la lecciЂn QB000. Pues

usando tal funciЂn, fue como logr "hacer que la computadora

pensara un nЃmero del uno al cien"...

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

Г QB307 ЈQUE BLOQUES USAR? 12 Г

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

Como quise que el Us una frase com- Nota conqu fami-

mensaje se viera pleta para llamar кФ>liaridad hice que

claramente us un la variable num- Г la computadora

ancho de pantalla rica que va almace- Г "hablara" conmigo.

de 40 ФФФФФФФФФФФФП nar el nЃmero pen- Г

Г sado ФФП Г

SUB PiensaNumero Г Г Г

'--------------- Г Г Г

CLS : SCREEN 0: WIDTH 40 Г Г

RANDOMIZE TIMER кФФФФФФФФФФФй Г

LET numero.pensado = INT(RND * 100) + 1 Г

PRINT : PRINT Г Esta frase con-

PRINT " ESTOY PENSANDO EN UN" <ФФФД tinЃa el di lo-

PRINT Г go familiar de

PRINT " NUMERO DEL 1 AL 100." Г la computadora

PRINT Г conmigo.

PRINT " POR FAVOR, ESPERA UN POCO..."<й Г

PRINT : PRINT Г

PRINT " YA LO PENSE!" <ФФФФФФФФФФФФФФФФФФй

PRINT : PRINT

PRINT " PRESIONA ENTER PARA CONTINUAR."

LET e$ = INPUT$(1)

END SUB

Recuerda que tЃ puedes llenar las subrutinas de la forma que

desees. Por ejemplo, yo no me conform con hacer que mi

computadora pensara un nЃmero usando la funciЂn RND, sino que

tambin quise que pareciera que ella aparentara decirme que lo

est pensando. Si lees la subrutina te dar s cuenta de ello.

Pero eso no lo es todo, al mi computadora "aparentar" establecer

un di logo conmigo, se forma cierto aire de familiaridad entre

ella y yo (interacciЂn), que hace que yo piense que estoy jugando

con una persona y no con una m quina.

Ahora bien, si ejecutas el programa para ver como funciona

hasta ahora, te encontrar s con una dificultad: EL MENSAJE DE

ESTA SUBRUTINA SE DESPLEGAR TAN R PIDO QUE DARЁA LA IMPRESIЂN DE

QUE LA COMPUTADORA NO ESTARЁA SIMULANDO ACTUAR COMO UN HUMANO.

Los humanos toman tiempo para pensar. El problema puede

resolverse, haciendo que la computadora se detenga antes de la

frase YA LO PENSE!. ЈCЂmo hacer esto?

Esto se puede conseguir, aЄadiendo a la subrutina varias

instrucciones para este propЂsito. Sin embargo, si siempre que

se nos ocurra alguna idea para mejorar una subrutina le vamos a

aЄadir instrucciones, llegar el momento de que se harЁa tan

larga que dificultarЁa su legibilidad.

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

Г QB307 ЈQUE BLOQUES USAR? 13 Г

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

ЈY cu l serЁa la soluciЂn? Pues, sencillamente, abrir una

nueva subrutina para hacer la pausa requerida. He aquЁ la

soluciЂn...

SUB PiensaNumero

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

CLS : SCREEN 0: WIDTH 40

RANDOMIZE TIMER

LET numero.pensado = INT(RND * 100) + 1

PRINT : PRINT

PRINT " ESTOY PENSANDO EN UN"

PRINT " NUMERO DEL 1 AL 100."

PRINT " POR FAVOR, ESPERA UN POCO..."

'HazPausa

PRINT : PRINT

PRINT " YA LO PENSE!"

PRINT : PRINT

PRINT " PRESIONA ENTER PARA CONTINUAR."

LET e$ = INPUT$(1)

END SUB

CREACION DE UNA NUEVA SUBRUTINA LLAMADA HazPausa

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

Nota cЂmo dej los detalles para hacer la pausa en una

nueva subrutina. No me preocup por los detalles de la misma

ahora, sino que los dej para llenarla despus. Es esa la razЂn

por la que le coloqu un REM en forma de comilla('). Si no te

acuerdas de cЂmo crear y darle nombre a las subrutinas, repasa

la lecciЂn 303.

Ahora, procedemos a llenar esta nueva subrutina. Una forma

de hacer que la computadora aparente pausar por algЃn momento, es

instruirla a que lleve a cabo una misma tarea varias veces,

digamos, que sume un nЃmero aЄadindole uno en cada suma pero sin

desplegar el resultado de la suma.

La idea de sumar un nЃmero varias veces nos sugiere UNA

REPETICION, de modo que el bloque que deberЁamos usar para llenar

esta subrutina nueva es...

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

Г QB307 ЈQUE BLOQUES USAR? 14 Г

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

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

Г BLOQUE DE UN BUCLE Г

Г CON SU CONTADOR Г

Г ANTES DE LA PRUEBA IF...THEN Г

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

Г LET contador=0 Г

Г Bucle: Г

Г LET contador= contador +1 Г

Г IF condiciЂn salida THEN Г

Г GOTO TerminaBucle Г

Г END IF Г

Г GOTO Bucle Г

Г TerminaBucle: Г

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

Una vez que sabemos qu clase de bloque vamos a usar para

llenar la subrutina HazPausa, procedemos a escribir dicho bloque

dentro de la subrutina esquem tica...

SUB HazPausa

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

PRINT "HazPausa"

END SUB

...asЁ...

SUB HazPausa

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

LET contador=0

Bucle:

LET contador= contador +1

IF condiciЂn salida THEN

GOTO TerminaBucle

END IF

GOTO Bucle

TerminaBucle:

END SUB

Si llamamos al contador, Pausa; al Bucle, RepitePausa; y a

la etiqueta RepiteBucle, RepitePausa tendremos...

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

Г QB307 ЈQUE BLOQUES USAR? 15 Г

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

SUB HazPausa

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

LET Pausa = 0

RepitePausa:

LET Pausa = Pausa + 1

IF Pausa = 40000 THEN GOTO TerminaPausa

GOTO RepitePausa

TerminaPausa:

END SUB

En la prЂxima lecciЂn continuaremos con este

interensantЁsimo tema. Ahata luego!