Paso 6: millas y kilómetros
Por ahora ya sabes cómo hacer un programa de salida algo y cómo hacer que pida un valor, así que por qué no hacer un programa que puede convertir millas a kilómetros y viceversa. Porque sabes la ClrHome, entrada y salida (comando y sabe cómo almacenar variables dentro de un programa, ya puede hacer un programa que puede hacer una forma. Por supuesto también se puede hacer otro programa que puede hacer al revés. Esos programas deben ser algo así:Millas a kilómetros:
: ClrHome
: Entrada "millas:",
M
: M * 1, 609344→K
: Output(2,1,"KM
:
: Output(2,7,K
: Pausa
: ClrHome
km a millas
: ClrHome
: Entrada "KM:",
K
: K/1, 609344→M
: Output(2,1,"MIL
FSY
: Output(2,7,M
: Pausa
: ClrHome
Pero ¿qué pasa si quieres estos dos programas en uno? También es posible. Para ello vamos a utilizar las etiquetas. Las etiquetas son posiciones dentro de un programa que puede dar un nombre (A-Z, Θ, 1-99). Con el comando Goto puede dar al programa la tarea para saltar directamente a la etiqueta, no importa si la etiqueta es antes o después del comando Goto. También con el menú (comando puede hacer que el programa vaya a una etiqueta. El menú (comando se explica en realidad, crea un menú. Queremos hacerlo, porque queremos ser capaces de elegir si queremos convertir km a millas o millas a kilómetros. El menú (el comando es un poco complicado. Después de esto te mando la primera necesidad a la vez el texto que desee en la parte superior del menú, a continuación, el texto de la primera opción, luego el nombre de la primera etiqueta, el nombre de la segunda opción, entonces el nombre de la segunda etiqueta y así sucesivamente. Hay un máximo de 7 opciones. Este programa sólo necesita tres: millas a kilómetros, kilómetros a millas y salir, así que la línea de comandos de menú se verá algo como esto:
: Menu("MILES
/ KM "," MILLAS
A KILÓMETROS", 1,"KM
MILES", 2,"DEJAR DE FUMAR",
3
Ahora vamos a hacer primero la etiqueta 1. Esto es realmente fácil. Sólo escriba el comando de Lbl y tipo uno después de él:
: 1 Lbl
Después de esto, puede iniciar el programa de conversión real. Esto que puede encontrar al principio de este paso. Asegúrese de que tomar sobre el para convertir millas a kilómetros y no el otro.
Después de tomar este programa, debe agregar una línea: detener. El programa necesita saber que tiene que parar allí. Si no añade esta línea, se ir a etiqueta 2 y pedirle por los km. Así que añada esta línea!
Ahora añadir la etiqueta de dos y asumir el control el programa de conversión al principio de este paso. Aquí no necesita agregar la línea de parada, porque debe continuar con el trabajo único de etiqueta 3, parada. Así que después del programa de conversión sólo añadir 'Lbl 3' y haya terminado. También después de Lbl 3 no necesita agregar un comando de parada, porque es el final de las líneas de programa, el programa automáticamente para su ejecución. El programa debería ser algo como esto:
: Menu("MILES
/ KM "," MILLAS
A KILÓMETROS", 1,"KM
MILES", 2,"DEJAR DE FUMAR",
3
: 1 Lbl
: ClrHome
: Entrada "millas:",
M
: M * 1, 609344→K
: Output(2,1,"KM
:
: Output(2,7,K
: Pausa
: ClrHome
: Parada
2 LBL
: ClrHome
: Entrada "KM:",
K
: K/1, 609344→M
: Output(2,1,"MIL
FSY
: Output(2,7,M
: Pausa
: ClrHome
: 3 Lbl
Punta
En lugar de después de colocar una orden de parada después de la etiqueta 1, usted puede también darle la tarea de ir a la etiqueta 3. Puede hacer esto cambiando el comando Stop para ´Goto 3´. La única diferencia es que esta última opción tiene un poco más de espacio de memoria...
Nuevo comando
() Menú
LBL
Goto
Parada
