QB310

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

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

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

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

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

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

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

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

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

К К

К EN ESTA LECCION APRENDERAS... К

К К

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

К Г Г К

К Г ў Las distintas clases de estructuras Г К

К Г de control .................................... 2 Г К

К Г ў Estructuras desicionales ...................... 2 Г К

К Г ў La estructura IF/THEN ......................... 2 Г К

К Г ў La sintaxis de la estructura IF/THEN .......... 3 Г К

К Г ў La estructura IF/THEN/ELSE .................... 3 Г К

К Г ў La sintaxis de la estructura IF/THEN .......... 3 Г К

К Г ў La estructura IF/THEN/ELSE extendida .......... 3 Г К

К Г ў La sintaxis de la estructura IF/THEN/ELSE Г К

К Г extendida ..................................... 4 Г К

К Г ў La estructura SELECT-CASE ..................... 4 Г К

К Г ў La sintaxis de la estructura SELECT-CASE ...... 4 Г К

К Г ў Las estructuras de repeticiЂn ................. 5 Г К

К Г ў El Bucle DO-LOOP .............................. 5 Г К

К Г ў La sintaxis del Bucle DO-LOOP ................. 5 Г К

К Г ў El Bucle DO-UNTIL-LOOP ........................ 5 Г К

К Г ў La sintaxis del Bucle DO-UNTIL-LOOP ........... 6 Г К

К Г ў El Bucle DO-LOOP-LOOP ......................... 6 Г К

К Г ў La sintaxis del Bucle DO-LOOP-UNTIL ........... 6 Г К

К Г ў El Bucle DO-WHILE-LOOP ........................ 6 Г К

К Г ў La sintaxis del Bucle DO-WHILE-LOOP ........... 6 Г К

К Г ў El Bucle DO-LOOP-WHILE ........................ 7 Г К

К Г ў La sintaxis del Bucle DO-LOOP-WHILE ........... 7 Г К

К Г Г К

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

К К

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

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

К ККЬЙК Ь К ЙККК К ESTRUCTURAS DE CONTROL EN QBASIC К

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

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

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

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

К ККЬЙК Ь К ЙККК К ESTRUCTURAS DE CONTROL EN QBASIC К

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

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

CLASES DE ESTRUCTURAS DE CONTROL

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

En la lecciЂn 306, cuando tratamos el tema de los bloques de

construcciЂn, es decir, las unidades estructurales de la

programaciЂn estructurada, vimos cЂmo el programa ADIVINA UN

NЃMERO estaba formado precisamente por estas unidades. Su

diagrama de flujo nos daba la apariencia de que dicho programa

estaba formado de una serie de bloques, uno detr s del otro,

caus ndonos la impresiЂn de que el programa estaba escrito

secuencialmente.

Recuerda cЂmo fue que usamos dicho programa para descubrir

las siguientes estructuras de control:

ў Bloque de secuencia (21-9)

ў Bloque de un bucle en ramas (21-8)

ў Bloque de un bucle sin contador (21-7)

ў Bloque de un bucle con su contador despus de la prueba

IF...THEN (21-6)

ў Bloque de un bucle con su contador antes de la prueba

IF...THEN (21-7)

Pues bien, el Qbasic tiene dichas estructuras de una forma

m s definida y f ciles de usar. Las podemos dividir en:

Estructuras decisionales (en ramas) y estructuras de repeticiЂn

(en bucles).

ESTRUCTURAS DECISIONALES

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

Por medio de estas estructuras la computadora puede examinar

una situaciЂn y luego tomar una o varias decisiones segЃn sea el

caso. Entre las estructuras decisionales tenemos: la estructuras

IF/THEN, IF/THEN/ELSE, y SELECT-CASE.

LA ESTRUCTURA IF/THEN

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

Esta estructura se usa cuando la computadora tiene que tomar

una decisiЂn donde se le presente una sola alternativa. Su

sintaxis es...

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

Г QB310 ESTRUCTURAS DE CONTROL EN QBASIC 3 Г

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

IF respuesta = nЃmero.pensado THEN PRINT "ADIVINASTE!"

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

кФФФФФФФХФФФФФФФФФФФФФФФФХФФФФП

Г IF condiciЂn THEN haz esto Г

Г --- Г

кФХ IF condiciЂn THEN Г

кФФХФХФ haz esto Г

кФФХФФХФХФEND IF Г

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

Г Г Г

Г Г РIF respuesta = nЃmero.pensado THEN

Г РФФФФФ PRINT "ADIVINASTE!"

РФФФФФ END IF

AquЁ la estructura IF/THEN examina la condiciЂn presentada

(respueta=nЃmero.pensado) Si la misma es cierta, entonces la

sentencia (PRINT), despus de la palabra THEN, es ejecutada.

LA ESTRUCTURA IF/THEN/ELSE

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

Esta estructura se usa cuando la computadora tiene que tomar

una decisiЂn u otra. En otras palabras, si rechaza la primera

alternativa, la segunda autom ticamente es tomada. Su sintaxis

es...

SUB DiSiAdivinaste

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

CLS

кФФФФФФФФФФФФФФФФФФФП кФФ> IF tu.numero = numero.pensado THEN

Г IF condiciЂn THEN ХФйкФ> DiQueAdivinaste

Г haz esto ФФФФФФФХФФСФ> EXIT SUB

Г ELSE ФФФФФФФФФФФФФХФФФФ> ELSE

Г haz esto otro ФФХФФФФ> DiQueNoAdivinaste

Г END IF ФФФФФФФФФФФХФФФФ> END IF

РФФФФФФФФФФФФФФФФФФФй END SUB

LA ESTRUCTURA IF/THEN/ELSE EXTENDIDA

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

Para hacer que la estructura IF/THEN/ELSE pueda ofrecer

mЃltiples alternativas hay que insertar la cl usula ELSEIF

despus de la primera cl usula THEN. Su sintaxis es...

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

Г QB310 ESTRUCTURAS DE CONTROL EN QBASIC 4 Г

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

SUB EscogeOperacion

кФФФФФФФФФФФФФФФФФФФФФФФФФП '------------------

Г IF condiciЂn1 THEN ФФФФФХФФ> IF OP$="+" THEN

Г sigue instrucciones1 ХФФ> LET resultado = n1 + n2

Г ELSEIF condiciЂn2 THEN ХФФ> ELSEIF OP$="-" THEN

Г sigue instrucciones2 ХФФ> LET resultado = n1 - n2

Г ELSEIF condiciЂn3 THEN ХФФ> ELSEIF OP$="*" THEN

Г sigue instrucciones3 ХФФ> LET resultado = n1 * n2

Г ELSEIF condiciЂn4 THEN ХФФ> ELSEIF OP$="/" THEN

Г sigue instrucciones4 ХФФ> LET resultado = n1 / n2

Г ELSE ФФФФФФФФФФФФФФФФФХФФ> ELSE

Г haz esto ФФФФФФФФФФФФХФФ> EXIT SUB

Г END IF ФФФФФФФФФФФФФФФФФХФФ> END IF

РФФФФФФФФФФФФФФФФФФФФФФФФФй END SUB

LA ESTRUCTURA SELECT-CASE

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

La estructura IF/THEN/ELSE extendida se asemeja bastante a

la estructura SELECT-CASE en el caso en que las condiciones

probadas comparan la misma expresiЂn pero con diferentes valores.

La sintais simple para esta estructura es...

SUB EscogeOperacion

кФФФФФФФФФФФФФФФФФФФФФФФФП '------------------

Г SELECT CASE expresion ФХФФФФ> SELECT CASE operacion$

Г CASE expresion1 ФФФФФХФФФФ> CASE "+"

Г sigue instruccion1ФХФФФФ> LET resultado = n1 + n2

Г CASE expresion2 ФФФФФХФФФФ> CASE "-"

Г sigue instruccion2ФХФФФФ> LET resultado = n1 - n2

Г CASE expresion3 ФФФФФХФФФФ> CASE "*"

Г sigue instruccion3ФХФФФФ> LET resultado = n1 * n2

Г CASE expresion4 ФФФФФХФФФФ> CASE "/"

Г sigue instruccion4ФХФФФФ> LET resultado = n1 / n2

Г CASE ELSE ФФФФФФФФФФФХФФФФ> CASE ELSE

Г haz esto ФФФФФФФФФФХФФФФ> EXIT SUB

Г END SELECT ФФФФФФФФФФФФХФФФФ> END SELECT

РФФФФФФФФФФФФФФФФФФФФФФФФй END SUB

La expresiЂn comparada puede ser una expresiЂn en Basic, una

variable, o una funciЂn.

Como habr s notado, las sintaxis para estas estructuras

decisionales est n acompaЄadas con un ejemplo para que puedas

entenderlas bien. A medida que avances en este curso ver s m s

ejemplos de sus usos conjuntamente con los nuevos ejemplos de

programas que estudiaremos luego.

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

Г QB310 ESTRUCTURAS DE CONTROL EN QBASIC 5 Г

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

ESTRUCTURAS DE REPETICIЂN

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

Las estructuras de repeticiЂn llamadas tambin bucles est n

hechas para repetir una o m s sentencias. Ahora veremos las

distintas formas y qu significan.

EL BUCLE DO-LOOP

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

Este bucle se repite a medida que el contador llega a su

valor m ximo indicado en la cl usula condicional IF/THEN EXIT DO.

Su sintaxis es:

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

Г DO Г

кФФФФФФД Haz esto Г

Г Г IF condiciЂn salida THEN EXIT DO Г

Г Г LOOP Г

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

Ejemplo: Г DO Г

Г Г Haz esto Г

Г Г IF condiciЂn salida THEN УФФФФФП

Г Г EXIT DO Г Г

Г Г END IF Г Ejemplo:

Г Г LOOP Г Г

\Г/ РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй \Г/

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

Г LET pausa = 0 Г Г LET pausa = 0 Г

Г DO Г Г DO Г

Г LET pausa = pausa + 1 Г Г LET pausa = pausa + 1 Г

Г IF pausa = 6000 THEN EXIT DO Г Г IF pausa = 6000 THEN Г

Г LOOP Г Г EXIT DO Г

РФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФФй Г END IF Г

Г LOOP Г

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

EL BUCLE DO-UNTIL-LOOP

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

Este bucle puede usarse con una condiciЂn de salida optativa

EXIT DO. En otras palabras, puede tener dos salidas: la dada por

la cl usula DO UNTIL y la brindada por la cl usula EXIT DO. Su

sint xis es:

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

Г QB310 ESTRUCTURAS DE CONTROL EN QBASIC 6 Г

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

кФФФФФФФФФФФФФФФФФФФФФФФФФФФП let p = 0

кФФХ DO UNTIL condiciЂn salida ХФ DO UNTIL p = 10

Г Г [EXIT DO] ФФФФФФФФФФФФФФХФ IF C$="OK" THEN EXIT DO

ГкФХ Haz esto ФФФФФФФФФФФФФФХФ LET p = p + 1

кФХХФХ LOOP ФФФФФФФФФФФФФФФФФФФФФХФ LOOP

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

Г ГГ

Г РХ DO UNTIL pausa = 6000

Г РФ LET pausa = pausa + 1

РФФФ LOOP

EL BUCLE DO-LOOP-UNTIL

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

Este bucle es semejante al anterior con la Ѓnica diferencia

de que examina la condiciЂn de salida al final del bucle. Esto

asegura que el bucle se ejecute por lo menos una vez. Su

sintaxis es:

кФФФФФФФФФФФФФФФФФФФФФФП let p = 0

кФФФФХ DO ФФФФФФФФФФФФФФФФФФХФ DO

ГкФФФХФ Haz esto ФФФФФФФФФФХФ LET p = p + 1

ГГ Г [EXIT DO] ФФФФФФФФФХФ IF C$="OK" THEN EXIT DO

ГГкФФХ LOOP UNTIL condiciЂn ХФ LOOP UNTIL p = 10

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

ГГГ

РХХФ DO

РХФ LET pausa = pausa + 1

РФ LOOP UNTIL pausa = 6000

LOS BUCLES DO-WHILE-LOOP y DO-LOOP-WHILE

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

Siempre que queramos que una o varias instrucciones se

repitan mientras una condiciЂn no sea satisfecha podemos usar las

estructuras de repeticiЂn (bucles) cuya sint xis son:

EL BUCLE DO-WHILE-LOOP

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

кФФФФФФФФФФФФФФФФФФФФФФФФФФФП let p = 0

кФФХ DO WHILE condiciЂn salida ХФ DO WHILE p < 11

Г Г [EXIT DO] ФФФФФФФФФФФФФФХФ IF C$="OK" THEN EXIT DO

ГкФХ Haz esto ФФФФФФФФФФФФФФХФ LET p = p + 1

кФХХФХ LOOP ФФФФФФФФФФФФФФФФФФФФФХФ LOOP

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

Г ГГ

Г РХ DO WHILE pausa < 6000

Г РФ LET pausa = pausa + 1

РФФФ LOOP

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

Г QB310 ESTRUCTURAS DE CONTROL EN QBASIC 7 Г

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

EL BUCLE DO-LOOP-WHILE

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

кФФФФФФФФФФФФФФФФФФФФФФП let p=0

кФФФФХ DO ФФФФФФФФФФФФФФФФФФХФ DO

ГкФФФХФ Haz esto ФФФФФФФФФФХФ LET p = p + 1

ГГ Г [EXIT DO] ФФФФФФФФФХФ IF C$="OK" THEN EXIT DO

ГГкФФХ LOOP WHILE condiciЂn ХФ LOOP WHILE p < 11

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

ГГГ

РХХФ DO

РХФ LET pausa = pausa + 1

РФ LOOP WHILE pausa < 6000

Este bucle DO WHILE es equivalente al bucle WHILE-WEND...

Ejemplo:

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

Г WHILE condiciЂn Г Г WHILE Pausa < 6000 Г

Г LET Pausa = Pausa + 1 ГФФФ>Г LET Pausa = Pausa + 1 Г

Г WEND Г Г WEND Г

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

...que aparece en BASICA y GWBASIC y que tambin QBASIC lo

tiene por razones de compatibilidad. Lo cierto es que este bucle

ya no se acostumbra a usar.

A continuaciЂn ver s el mismo bucle DO-WHILE, con dos

condiciones de salida: la dada por la condiciЂn indicada por una

expresiЂn Basic y la dada por la estructura condicional

IF/THEN/EXIT DO.

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

Г QB310 ESTRUCTURAS DE CONTROL EN QBASIC 8 Г

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

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

кФФФФФФХ DO WHILE condiciЂn1 Г

ГкФФФФФХФ haz esto Г

ГГ кФХФФ IF condiciЂn2 THEN Г

ГГкФФД Г EXIT DO Г

ГГГ РФХФФ END IF Г

ГГГ кФФХФФ haz esto Г

ГГГ Г Г LOOP Г

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

ГГГ Г

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

РХХФХФФФФ>Г DO WHILE turno < 11 Г

УХФХФФФФ>Г LET turno = turno + 1 Г

ГГ Г Г CLS Г

ГГ Г Г COLOR 10, 0: LOCATE 1, 15: PRINT "LLEVAS"; Г

ГГ Г Г COLOR 13, 0: PRINT turno; Г

ГГ Г Г COLOR 10, 0: PRINT "TURNOS DE "; Г

ГГ Г Г COLOR 13, 0: PRINT "10" Г

ГГ Г Г PRINT : PRINT Г

ГГ Г Г COLOR 12, 0 Г

ГГ Г Г LINE INPUT "ЈQUE NUMERO PENSE "; numero$ Г

РХФХФФФФ>Г LET tu.numero = VAL(numero$) Г

Г Г кФФХ> IF tu.numero = numero.pensado OR turno = 10 THEN Г

РФХФФД Г EXIT DO Г

Г РФФХ> END IF Г

РФФФФФХ> DaOrejita Г

Г LOOP Г

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

Tal vez pienses que es bastante difЁcil retener en la

memoria todas estas estructuras de control. El propЂsito de

haberlas mencionado en esta ocasiЂn es que te familiarices con

ellas, NO QUE TE LAS APRENDAS DE MEMORIA. La mejor forma de

aprenderlas en us ndolas. Por eso, a medida que vayamos creando

nuevos programas, las iremos utilizando. De esta forma, te las

aprender s sin darte cuenta de ello.

A continuaciЂn ver s el listado del programa ADIVINA UN

NЃMERO. Al leerlo, notar s que hemos hecho cambios

significativos, sobre todo, en las estructuras de control. Lee

el programa, pero sЂlo ponindole atenciЂn a dichas estructuras.

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

Г QB310 ESTRUCTURAS DE CONTROL EN QBASIC 9 Г

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

LISTADO DEL JUEGO ADIVINA UN NUMERO

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

CON CAMBIOS EN LAS ESTRUCTURAS DE CONTROL

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

DECLARE SUB TocaMusica ()

DECLARE SUB Ctr40txt (row!, txt$)

DECLARE SUB Ctr80txt (row!, txt$)

DECLARE SUB DiSiAdivinaste ()

DECLARE SUB DaOrejita ()

DECLARE SUB DiIntentalo ()

DECLARE SUB DiQueAdivinaste ()

DECLARE SUB DiQueNoAdivinaste ()

DECLARE SUB HazPausa ()

DECLARE SUB Despidete ()

DECLARE SUB RepiteJuego ()

DECLARE SUB Adivinalo ()

DECLARE SUB PiensaNumero ()

DECLARE SUB DaInstrucciones ()

DECLARE SUB PresentaPrg ()

'Variables compartidas.

DIM SHARED turno

DIM SHARED numero.pensado

DIM SHARED tu.numero

DIM SHARED numero$

REM Juego de Adivina un NЃmero

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

CLS : SCREEN 0: WIDTH 80

PresentaPrg

DaInstrucciones

PiensaNumero

Adivinalo

DiSiAdivinaste

RepiteJuego

Despidete

END

SUB Adivinalo

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

CLS : SCREEN 0: WIDTH 40

DO WHILE turno < 11

LET turno = turno + 1

CLS

COLOR 10, 0: LOCATE 1, 15: PRINT "LLEVAS";

COLOR 13, 0: PRINT turno;

COLOR 10, 0: PRINT "TURNOS DE ";

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

Г QB310 ESTRUCTURAS DE CONTROL EN QBASIC 10 Г

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

COLOR 13, 0: PRINT "10"

PRINT : PRINT

COLOR 12, 0: LINE INPUT "ЈQUE NUMERO PENSE "; numero$

LET tu.numero = VAL(numero$)

IF tu.numero = numero.pensado OR turno = 10 THEN

EXIT DO

END IF

DaOrejita

LOOP

END SUB

'Esta subrutina centraliza el texto cuando

'la pantalla tiene un ancho de 40 chrs.

SUB Ctr40txt (row, txt$)

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

LOCATE row, INT(41 - LEN(txt$)) / 2

PRINT txt$;

END SUB

'Esta subrutina centraliza el texto cuando

'la pantalla tiene un ancho de 80 chrs.

SUB Ctr80txt (row, txt$)

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

LOCATE row, INT(81 - LEN(txt$)) / 2

PRINT txt$;

END SUB

SUB DaInstrucciones

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

CLS

COLOR 12, 0

Ctr80txt 4, "*** INSTRUCCIONES ***"

COLOR 10, 0

Ctr80txt 7, "LA COMPUTADORA TE PEDIRA "

Ctr80txt 9, "QUE ADVINES UN NUMERO DEL 1 AL 100."

Ctr80txt 11, "TIENES DIEZ OPORTUNIDADES"

Ctr80txt 13, "PARA ADIVINARLO,"

Ctr80txt 15, "AL CABO DE LAS CUALES"

Ctr80txt 17, "TE DIRA SI LO ADIVINASTE O NO."

COLOR 12, 0

Ctr80txt 20, "PRESIONA ENTER PARA CONTINUAR."

LET e$ = INPUT$(1)

END SUB

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

Г QB310 ESTRUCTURAS DE CONTROL EN QBASIC 11 Г

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

SUB DaOrejita

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

IF tu.numero < numero.pensado THEN

'Di que numero es mayor.

COLOR 13, 0: PRINT "NO, EL NUMERO ES MAYOR QUE";

COLOR 12, 0: PRINT tu.numero

ELSE

'Di que numero es menor.

COLOR 13, 0: PRINT "NO, EL NUMERO ES MENOR QUE";

COLOR 12, 0: PRINT tu.numero

END IF

PRINT : COLOR 27, 0: PRINT "INTENTALO OTRA VEZ"

PRINT : PRINT : PRINT : PRINT : PRINT

COLOR 10, 0: PRINT "PRESIONA ENTER PARA CONTINUAR."

LET e$ = INPUT$(1)

END SUB

SUB Despidete

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

CLS

COLOR 10, 0: Ctr40txt 5, "ESPERO QUE TE HAYAS DIVERTIDO"

COLOR 12, 0: Ctr40txt 7, "HASTA LUEGO!"

END SUB

SUB DiQueAdivinaste

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

COLOR 12, 0

LOCATE 4, 1: PRINT "CARAMBA, ADIVINASTE!"

COLOR 13, 0

LOCATE 7, 3: PRINT "EL NUMERO ES"; numero.pensado

LOCATE 9, 3: PRINT "LO ADIVINASTE EN"; turno; "TURNOS DE"; 10

LOCATE 11, 3: PRINT "O EN UN"; INT((turno / 10) * 100);

PRINT "% "; "DE LOS TURNOS"

END SUB

SUB DiQueNoAdivinaste

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

COLOR 11, 0

LOCATE 4, 1: PRINT "LO SIENTO, NO LO ADIVINASTE."

COLOR 15, 0

LOCATE 6, 1: PRINT "EL NUMERO PENSADO ES ";

COLOR 12, 0

PRINT numero.pensado

END SUB

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

Г QB310 ESTRUCTURAS DE CONTROL EN QBASIC 12 Г

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

SUB DiSiAdivinaste

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

CLS

IF tu.numero = numero.pensado THEN

DiQueAdivinaste

EXIT SUB

ELSE

DiQueNoAdivinaste

END IF

END SUB

SUB HazPausa

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

LET pausa = pausa + 1

IF pausa = 6000 THEN EXIT DO

LOOP

'DO UNTIL pausa = 6000

' LET pausa = pausa + 1

'LOOP

'DO

' LET pausa = pausa + 1

' LOOP UNTIL pausa = 6000

'DO WHILE pausa < 6000

' LET pausa = pausa + 1

'LOOP

'DO

' LET pausa = pausa + 1

' LOOP WHILE pausa < 6000

'WHILE Pausa < 6000

' LET Pausa = Pausa + 1

'WEND

END SUB

SUB PiensaNumero

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

CLS : SCREEN 0: WIDTH 40

RANDOMIZE TIMER

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

COLOR 11, 0

Ctr40txt 3, "ESTOY PENSANDO EN UN"

Ctr40txt 5, "NUMERO DEL 1 AL 100."

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

Г QB310 ESTRUCTURAS DE CONTROL EN QBASIC 13 Г

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

COLOR 13, 0

Ctr40txt 7, "POR FAVOR, ESPERA UN POCO..."

HazPausa

COLOR 10, 0

Ctr40txt 10, "YA LO PENSE!"

COLOR 11, 0

Ctr40txt 13, "PRESIONA ENTER PARA CONTINUAR."

LET e$ = INPUT$(1)

END SUB

SUB PresentaPrg

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

CLS

COLOR 12, 0

Ctr80txt 4, "QSoft PRESENTA"

COLOR 11, 0

Ctr80txt 6, "EL JUEGO DE ADIVINA UN NUMERO"

COLOR 2, 0

Ctr80txt 8, "Un programa escrito en QBasic"

Ctr80txt 9, "por Reinaldo Acevedo"

Ctr80txt 10, "para las computadoras IBM y compatibles."

COLOR 12, 0

COLOR 3, 0

Ctr80txt 17, "PRESIONA ENTER PARA CONTINUAR."

TocaMusica

END SUB

SUB RepiteJuego

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

COLOR 10, 0

LOCATE 14, 1: PRINT STRING$(40, " ")

LOCATE 14, 1: LINE INPUT "QUIERES JUGAR OTRA VEZ (S/N)"; decision$

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

RUN 'Juego otra vez.

ELSE

EXIT SUB

END IF

END SUB

SUB TocaMusica

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

RANDOMIZE TIMER

SOUND RND * 1000 + 37, 2

K$ = INKEY$

LOOP UNTIL K$ <> ""

END SUB