QB205

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

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

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

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

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

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

К КЪКККККККК КК ЩМ К LO BASICO DEL BASIC К

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

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

К К

К EN ESTA LECCION APRENDERAS... К

К К

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

К Г Г К

К Г ў Como saltar de una lЁnea a otra por Г К

К Г medio de la sentencia GOTO .................. 2 Г К

К Г ў La sintaxis de la setencia GOTO ............. 3 Г К

К Г ў ЈQu es una etiqueta? ....................... 4 Г К

К Г ў El bucle sin fin ............................ 5 Г К

К Г ў Estructura de bifurcaciЂn condicional Г К

К Г IF/THEN ..................................... 7 Г К

К Г ў Forma general para la estructura de Г К

К Г bifurcaciЂn condicional IF/THEN ............. 8 Г К

К Г ў Forma general de la estructura Г К

К Г IF/OR/THEN .................................. 10 Г К

К Г ў ЈQu es una funciЂn? ........................ 11 Г К

К Г ў Sintaxis de la funciЂn UCASE$ ............... 12 Г К

К Г ў Sintaxis de la funciЂn LCASE$ ............... 12 Г К

К Г Г К

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

К К

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

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

К ККЬЙК Ь К ЩМККШЛ К SALTANDO DE UNA LINEA A OTRA К

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

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

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

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

К ККЬЙК Ь К ЩМККШЛ К SALTANDO DE UNA LINEA A OTRA К

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

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

Hasta este momento, en las distintas versiones de nuestro

programa de suma, habr s notado que las lЁneas del mismo son

ejecutadas una despus de la otra o en forma secuencial. En esta

lecciЂn aprender s cЂmo saltar de una lЁnea a otra, esto es, cЂmo

transferir la ejecuciЂn del programa a una lЁnea diferente a la

que secuencialmente deberЁa transferirse.

COMO SALTAR DE UNA LINEA A OTRA POR MEDIO DE LA SENTENCIA GOTO

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

Volviendo a la versiЂn m s reciente de nuestro programa

original...

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

Г REM Suma de dos numeros Г

Г REM ------------------- Г

Г CLS Г

Г INPUT "Entra el valor de a"; a Г

Г INPUT "Entra el valor de b"; b Г

Г LET total = a + b Г

Г REM Г

Г PRINT "El Total es ="; total Г

Г END 'Programa Г

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

...de seguro que habr s notado otro escollo m s en l, y es

que al llegar a la sentencia END, al programa termina, y si

quieres sumar otro par de nЃmeros, tienes que ejecutar (RUN) el

programa nuevamente. Una manera de corregir esta dificultad

serЁa que, antes de que la ejecuciЂn del programa llegue a la

sentencia END, brinquemos de nuevo al comienzo de la ejecuciЂn,

que es donde se encuentra la sentencia CLS...

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

Г REM Suma de dos numeros Г

Г REM ------------------- Г

кФФХФ> CLS Г

Г Г INPUT "Entra el valor de a"; a Г

Г Г INPUT "Entra el valor de b"; b Г

Г Г LET total = a + b Г

Г Г REM Г

Г Г PRINT "El Total es ="; total Г

РФФХФФ Г

Г END 'Programa Г

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

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

Г QB205 SALTANDO DE UNA LINEA A OTRA 3 Г

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

SINTAXIS DE LA SENTENCIA GOTO

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

ЈCЂmo lograrlo? La soluciЂn la encontraremos en la

sentencia GOTO. Esta es una sentencia que nos permite saltar de

un nЃmero de lЁnea a otro o de una etiqueta (label) a otra. Su

sintaxis es...

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

Г GOTO nЃmero de lЁnea Г Г GOTO etiqueta Г

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

Г Г

GOTO 100 GOTO suma

Observa que tenemos dos versiones para GOTO. La

primera va precedida por un nЃmero de lЁnea: la lЁnea donde

se desea que el salto ocurra. Y la segunda, va seguida de un

label o etiqueta que no es otra cosa que un tЁtulo que se le da

al sitio dЂnde queremos saltar.

Cuando estemos m s adentrado en nuestro curso atenderemos

este asunto del label m s detenidamente. Ya sabes que el

QBasic no necesita los nЃmeros de lЁnea, y por lo tanto, para

saltar de un sitio a otro lo Ѓnico que requiere es que le digas

dЂnde saltar. Y esto se consigue con un label (etiqueta que

indica la direcciЂn donde se encuentra la instrucciЂn a seguir).

Veamos, ahora, los cambios hechos a nuestro programa de suma

introduciendo la sentencia GOTO en l...

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

Г 100 REM Suma de dos numeros Г

Г 110 REM ------------------- Г

Г 120 CLS Г

кФФФХ>130 'Suma Г

S Г Г 140 PRINT Г

A Г Г 150 INPUT "Entra el valor de a"; a Г

L Г Г 160 INPUT "Entra el valor de b"; b Г

T Г Г 170 LET total = a + b Г

O Г Г 180 REM Г

Г Г 190 PRINT "El Total es ="; total Г

РФФФХ 200 GOTO 130 'Suma. Г

Г 210 END 'Programa Г

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

Г PROGRAMA BASICA o GWBASIC Г

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

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

Г QB205 SALTANDO DE UNA LINEA A OTRA 4 Г

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

Nota como en la lЁnea 200, la sentencia GOTO hace que el

programa vuelva a ejecutarse nuevamente desde la lЁnea 130,

rotulada con una sentencia REM en forma de comilla "'". Observa,

tambin, cЂmo la lЁnea 200 est rotulada con otra sentencia REM

en comillas. Esto, como habr s notado, simplifica grandemente la

lectura del programa.

En la versiЂn QBasic...

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

Г REM Suma de dos numeros Г

Г REM ------------------- Г

Г CLS Г

кФФФХ>Suma: Г

Г Г PRINT Г

S Г Г INPUT "Entra el valor de a"; a Г

A Г Г INPUT "Entra el valor de b"; b Г

L Г Г LET total = a + b Г

T Г Г REM Г

O Г Г PRINT "El Total es ="; total Г

РФФФХ GOTO Suma Г

Г END 'Programa Г

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

Г PROGRAMA QBASIC Г

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

ЈQUE ES UNA ETIQUETA?

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

...en vez de nЃmeros, utilizamos etiquetas (labels) para

identificar el sitio donde se har el salto. Esto se logra

escribiendo la etiqueta seguida del sЁmbolo : (semicolon). El

semicolon (:), identifica el texto que le precede como una

etiqueta, y sta a su vez, indica el lugar donde se encuentra la

direcciЂn a seguir. Observa, adem s, que no fue necesario aЄadir

rЂtulos a las nuevas lЁneas ya que el nombre mismo de las

etiquetas las identica.

Es importante que el nЃmero de lЁnea o la etiqueta

correspondiente a la cual se desea saltar, exista. Si no existe,

el aviso de error...

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

Г Label not defined Г

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

Г < OK > < help > Г

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

...ser desplegado en pantalla.

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

Г QB205 SALTANDO DE UNA LINEA A OTRA 5 Г

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

Con la introducciЂn de la sentencia de control GOTO (se

llama asЁ porque altera la ejecuciЂn del programa transfirindola

a otro lugar en el mismo programa), ahora podemos ejecutar el

programa cuantas veces querramos sin necesidad de interrumpirlo

para introducir nuevos valores a las variables a y b. Es decir,

siempre que digitemos los valores de las variables a y b, y

presionemos ENTER, la computadora desplegar el resultado e

inmediatamente pedir nuevos valores.

Sin embargo, por m s que quisiramos detener el programa no

podrЁamos. Este seguir ejecut ndose ininterrumpidamente. Por

eso, a la sentencia GOTO se le llama sentencia de trasferencia

incondicional. Es decir, no se establece ninguna condiciЂn para

detener la ejecuciЂn del programa.

EL BUCLE SIN FIN (an endless loop)

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

A esta ejecuciЂn "de nunca acabar" se le llama un bucle

sin fin (an endless loop) y la Ѓnica forma que puedes detenerlo

es presionando las teclas Ctrl C al mismo tiempo. Sin embargo,

el hecho de que el programa se mantenga ejecut ndose

indefinidamente no es nada pr ctico. De modo que tenemos que

buscar la forma de detnerlo. He aquЁ cЂmo hemos resuelto este

problema...

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

Г 100 REM Suma de dos numeros Г

Г 110 REM ------------------- Г

Г 120 CLS Г

кФФФХ>130 'Suma Г

Г Г 140 PRINT Г

Г Г 150 INPUT "Entra el valor de a"; a Г

Г Г 160 INPUT "Entra el valor de b"; b Г

Г Г 170 LET total = a + b Г

Г Г 180 REM Г

Г Г 190 PRINT "El Total es ="; total Г

Г Г 192 PRINT Г

Г Г 194 INPUT "ЈQuieres terminar (S/N)"; Y$ Г

Г кФХ 196 IF Y$ = "S" THEN GOTO 202 'Termina. Г

РФХФХ 200 GOTO 130 'Suma. Г

РФХ>202 'Termina Г

Г 210 END 'Programa Г

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

Г PROGRAMA BASICA o GWBASIC Г

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

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

Г QB205 SALTANDO DE UNA LINEA A OTRA 6 Г

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

Como puedes ver, hemos aЄadido las lЁneas...

кФФФ> 130 'Suma

Г : el (;), pone signo de ?

Г : Г

Г 194 INPUT "ЈQuieres terminar (S/N)"; Y$

Г кФФ 196 IF Y$ = "S" THEN GOTO 202 'Termina.

РФХФФ 200 GOTO 130 'Suma.

РФ> 202 'Termina

210 END 'Programa

...194, 196 y 202. La lЁnea 194, tiene una sentencia INPUT

que le pide al usuario si quiere terminar de sumar. Si este es

el caso, que digite S, si no que digite N. Cuando el usuario

hace su elecciЂn, digamos que quiera terminar el programa, digita

S. Este valor literal se almacena en la variable alfanumrica

Y$. Como sabes, una variable alfanumrica, adem s de almacenar

nЃmeros, tambin almacena letras. Por eso se la llama

ALFA(letras del alfabeto) NUMERICA (nЃmeros).

Pues bien, cuando la ejecuciЂn del programa llega a la

lЁneas 196, la computadora busca el valor de la variable Y$, si

es "S", entonces (THEN) utiliza la sentencia GOTO para transferir

la ejecuciЂn del programa a la lЁnea 202, que no se ejecuta

porque es una lЁnea de comentario. De modo que, la ejecuciЂn

continЃa hasta llegar a la lЁnea 210 donde la sentencia END

detiene el programa.

En el caso de que el usuario conteste "N" en la lЁnea 196,

la variable alfanumrica Y$ tomar el valor de "N". Cuando la

ejecuciЂn del programa llega a la lЁnea 196, encuentra que la

variable alfanumrica YS no tiene el valor de "S". Por lo tanto,

la computadora no modifica la ejecuciЂn del programa dejando que

sta fluya normalmente. Cuando llega a la lЁnea 200, la

ejecuciЂn del programa es transferida a la lЁnea 130,

repitindose de esta forma una nueva suma.

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

Г QB205 SALTANDO DE UNA LINEA A OTRA 7 Г

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

La versiЂn del programa para QBasic es la siguiente...

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

Г REM Suma de dos numeros Г

Г REM ------------------- Г

Г CLS Г

кФФФФХ>Suma: Г

Г Г PRINT Г

Г Г INPUT "Entra el valor de a"; a Г

Г Г INPUT "Entra el valor de b"; b Г

Г Г LET total = a + b Г

Г Г REM Г

Г Г PRINT "El Total es ="; total Г

Г Г PRINT Г

Г Г INPUT "ЈQuieres terminar (S/N)"; Y$ Г

Г кФХФФФ IF Y$ = "S" THEN GOTO Termina Г

РФФХФХФФФ GOTO Suma Г

РФХ>Termina: Г

Г END 'Programa Г

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

Г PROGRAMA QBASIC Г

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

ESTRUCTURA DE BIFURCACION CONDICIONAL IF/THEN

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

La estructura...

IF Y$ = "S" THEN GOTO Termina

...establece que la ejecuciЂn del programa ser transferida

a la etiqueta Termina con la condiciЂn de que la variable Y$

tenga un valor de "S". En otras palabras, condiciona el flujo

de la ejecuciЂn del programa de acuerdo con las condiciones

establecidas. Por eso se llama tambin estructura de bifurcaciЂn

condicional. Estudiaremos estas y otras estructura similares con

lujo de detalle en lecciones posteriores.

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

Г QB205 SALTANDO DE UNA LINEA A OTRA 8 Г

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

FORMA GENERAL PARA LA ESTRUCTURA DE BIFURCACION CONDICIONAL

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

IF/THEN (SI/ENTONCES)

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

La forma general para esta estructura es...

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

Г IF condiciЂn THEN haz lo siguiente Г

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

кФФСФФФФП кФФФФФСФФФФП

IF Y$ = "S" THEN GOTO Termina

IF Y$ = "N" THEN STOP

Si ejecutamos el programa...

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

Г REM Suma de dos numeros Г

Г REM ------------------- Г

Г CLS Г

Г Suma: Г

Г PRINT Г

Г INPUT "Entra el valor de a"; a Г

Г INPUT "Entra el valor de b"; b Г

Г LET total = a + b Г

Г REM Г

Г PRINT "El Total es ="; total Г

Г PRINT Г

Г INPUT "ЈQuieres terminar (S/N)"; Y$ Г

Г IF Y$ = "S" THEN GOTO Termina Г

Г GOTO Suma Г

Г Termina: Г

Г END 'Programa Г

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

...y contestamos con una "s" minЃscula a la pregunta

"ЈQuires terminar (S/N)?, notaremos que el programa empieza una

ejecuciЂn nueva en vez de detenerse. Ello es porque la

computadora Ѓnicamente reconoce la letra mayЃscula S como valor

verdadero en la variable Y$ (es asЁ como la estructura IF/THEN lo

establece) para que el programa se detenga. Una s minЃscula no

es un valor verdadero para dicha variable, asЁ que no es

reconocido.

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

Г QB205 SALTANDO DE UNA LINEA A OTRA 9 Г

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

Tal dificultad puede corregirse de la siguiente manera...

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

Г REM Suma de dos numeros Г

Г REM ------------------- Г

Г CLS Г

Г Suma: Г

Г PRINT Г

Г INPUT "Entra el valor de a"; a Г

Г INPUT "Entra el valor de b"; b Г

Г LET total = a + b Г

Г REM Г

Г PRINT "El Total es ="; total Г

Г PRINT Г

Г INPUT "ЈQuieres terminar? (S/N)?"; Y$ Г

Г IF Y$ = "S" THEN GOTO Termina Г

ФФФФХФФФ> IF Y$ = "s" THEN GOTO Termina Г

Г GOTO Suma Г

Г Termina: Г

Г END 'Programa Г

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

Г PROGRAMA QBASIC Г

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

...aЄadiendo la lЁnea...

IF Y$ = "s" THEN GOTO Termina

...despus de la primera estructura condicional IF/THEN.

Ahora, habiendo dos estructuras condicionales IF/THEN, una con un

valor alfa "S" y la otra con un valor alfa "s", la computadora

reconocer ambos valores como verdaderos. De modo que, en este

nuevo programa puedes entrar una "S" o una "s" indistintamente

para detener el programa, y ste se detendr .

Sin embargo, estas dos lЁneas condicionales...

IF Y$ = "S" THEN GOTO Termina

IF Y$ = "s" THEN GOTO Termina

...pueden combinarse para producir una Ѓnica lЁnea...

IF Y$ = "S" OR Y$ = "s" THEN GOTO Termina

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

Г QB205 SALTANDO DE UNA LINEA A OTRA 10 Г

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

...y nuestro programa serЁa entonces...

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

Г REM Suma de dos numeros Г

Г REM ------------------- Г

Г CLS Г

Г Suma: Г

Г PRINT Г

Г INPUT "Entra el valor de a"; a Г

Г INPUT "Entra el valor de b"; b Г

Г LET total = a + b Г

Г REM Г

Г PRINT "El Total es ="; total Г

Г PRINT Г

Г INPUT "ЈQuieres terminar (S/N)?"; Y$ Г

ФФХФФ> IF Y$ = "S" OR Y$ = "s" THEN GOTO Termina Г

Г GOTO Suma Г

Г Termina: Г

Г END 'Programa Г

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

Г PROGRAMA QBASIC Г

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

Si te fijas bien, notar s que esta lЁnea no es otra cosa que

una operaciЂn lЂgica OR (lecciЂn QB105). Nos invita a que

escojamos dos alternativas: "S" Ђ "s", y que ambas deben ser

ciertas. Su sintaxis es...

FORMA GENERAL DE LA ESTRUCTURA IF/OR/THEN

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

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

Г IF condiciЂn OR condiciЂn THEN haz esto Г

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

кФФФСФФП кФФСФФФП кФФФФСФФФФФП

IF Y$ = "S" OR Y$ = "s" THEN GOTO Termina

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

Г QB205 SALTANDO DE UNA LINEA A OTRA 11 Г

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

Otra manera manera m s corta de resolver este problema es...

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

Г REM Suma de dos numeros Г

Г REM ------------------- Г

Г CLS Г

Г Suma: Г

Г PRINT Г

Г INPUT "Entra el valor de a"; a Г

Г INPUT "Entra el valor de b"; b Г

Г LET total = a + b Г

Г REM Г

Г PRINT "El Total es ="; total Г

Г PRINT Г

Г INPUT "ЈQuieres seguir (S/N)"; Y$ Г

ФФФФХФФ> LET Y$ = UCASE$(Y$) Г

Г IF Y$ = "N" THEN GOTO Termina Г

Г GOTO Suma Г

Г Termina: Г

Г END 'Programa Г

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

En la lЁnea...

LET Y$ = UCASE$(Y$)

...UCASE$ tiene la funciЂn de convertir la letra asignada a

la variable alfa Y$, en mayЃscula, si es minЃscula, y la deja

igual si es mayЃscula. Por ejemplo, si el valor entrado de Y$ es

"n", Y$="n". Cuando la ejecuciЂn del programa llega a la lЁnea

donde aparece UCASE$, sta convierte el valor de Y$ que es "n"

minЃscula a "N" mayЃscula.

Y$="n"

Y$ = UCASE$(Y$) = UCASE$("n") ="N"

ЈQUE ES UNA FUNCION?

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

Como habr s notado, UCASE$ tiene la funciЂn determinada de

convertir letras minЃsculas a mayЃsculas. Es como un miniprograma

bastante abreviado que puede tener o pedir uno o m s valores

retenindolo(s) en una variable. Por eso se le llama la funciЂn

UCASE$. AsЁ que...

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

Г QB205 SALTANDO DE UNA LINEA A OTRA 12 Г

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

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

Г UNA FUNCION Г

Г ES COMO UN MINIPROGRAMA BASTANTE ABREVIADO Г

Г QUE PUEDE TENER O PEDIR UNO O MAS VALORES Г

Г RETENIENDOLO(S) EN UNA VARIABLE Г

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

Hay una funciЂn de conversiЂn de caracteres similar que

convierte las letras mayЃsculas a minЃsculas. Y esta es

Y$=LCASE$(Y$). Las correspondientes sintaxis para ambas son:

SINTAXIS DE LA FUNCION UCASE$

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

UCASE$(Y$)

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

Г UCASE$(expresiЂn en cadena de caracteres) Г

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

UCASE$("letra")

Ejemplo:

Si Y$ = "s", entonces,

Y$ = UCASE$(Y$)

Y$ = UCASE$("s")

Y$="S"

SINTAXIS DE LA FUNCION LCASE$

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

LCASE$(Y$)

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

Г LCASE$(expresiЂn en cadena de caracteres) Г

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

LCASE$("LETRA")

Ejemplo:

Si Y$ = "S", entonces,

Y$ = LCASE$(Y$)

Y$ = LCASE$("S")

Y$="s"

UCASE significa Upper Case (mayЃscula), y LCASE significa

Lower Case (minЃscula).

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

Г QB205 SALTANDO DE UNA LINEA A OTRA 13 Г

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

Si crees que hemos acabado con las dificultades en esta

Ѓltima versiЂn de nuestro programa de suma, te equivocas. AЃn el

programa tiene que ser mejorado. Por ejemplo, Јqu pasarЁa si en

vez de un nЃmero, entraras como valor de las letras a y b

respectivamente en las lЁneas...

INPUT "Entra el valor de a"; a

INPUT "Entra el valor de b"; b

Si obraras asЁ, la computadora desplegarЁa el siguiente

mensaje en pantalla...

Redo from start

Eso significa que el valor entrado en la variable a Ђ b, no

es aceptado por ser un valor alfa y no numrico. Una variable

numrica, exige un nЃmero y una alfanumЃrica, nЃmeros o letras.

Como a y b son variables numricas no aceptan letras como

valores. AsЁ que hasta que no entres un nЃmero, la computadora

no dejar de desplegar el mensaje arriba mencionado.

Ahora bien, Јqu ocurrirЁa con estas mismas variables (a y

b) si como valor recibieran un espacio (" ") o nada ("" equivale

a presionar la tecla ENTER en vez de un valor)? Lo que pasarЁa

serЁa que las variables retendrЁan el valor de "0" previamente

asignado por el intrprete Basic como valor inicial. En Qbasic,

todas las variables numricas tienen "0" asignado como valor

inicial. Y si ambas variables a y b, son cero, el Total al

sumarlas ser tambin "0".

En una lecciЂn posterior aprender s cЂmo evitar que una

variable numrica no acepte valores alfa. En la prЂxima lecciЂn

mejoraremos m s nuestro programa de SUMA. Hasta luego, pues!