Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - nicolas2015alcubo

Páginas: [1]
1
¿Alguien de aquí entiende el antiguo qbasic?

Yo me hice el siguiente menú donde el usuario debe elegir una opción presionando directamentevel número indicado en la opción. Esre sería el código fuente (Es válido también en Power BASIC 3.5, lo probé y lo compilé a este código fuente y funciona OK):

Código: [Seleccionar]
GOSUB MENU

MENU:
OPCION$ = "A"
CLS
LOCATE 2,30:PRINT "-MI MENU PRINCIPAL-"
LOCATE 5,20:PRINT "1- SUMAR 2 NUMEROS"
LOCATE 6,20:PRINT "2- ACERCA DE..."
LOCATE 7,20:PRINT "3- SALIR"
LOCATE 20,20:PRINT "PARA ELEGIR PULSE EL NRO. INDICADO..."
DO
    OPCION$ = INKEY$
LOOP WHILE OPCION$ = ""

SELECT CASE OPCION$
    CASE "1"
    GOSUB SUMAR

    CASE "2"
    GOSUB ACERCA

    CASE "3"
    GOSUB SALIR

    CASE ELSE
    GOSUB ERRORSELECCION

END SELECT

SUMAR:
CLS
INPUT "INGRESE UN NUMERO: ", N1
INPUT "INGRESE OTRO NUMERO: ", N2
R = N1 + N2
PRINT
PRINT "LA SUMA DE ESOS 2 NUMEROS ES:"; R
PRINT "PULSE UNA RECLA PARA VOLVER AL MENU..."
DO
LOOP UNTIL INKEY$ <> ""
CLS
GOSUB MENU

ACERCA:
CLS
LOCATE 6,20:PRINT "PROGRAMADO PIR NICOLAS MATIAS FUNTALAS YSANDO BASIC"
LOCATE 8,20:PRINT "PRESIONE UNA TECLA PARA IR AL MENU..."
DO
LOOP UNTIL INKEY$ <> ""
CLS
GOSUB MENU

ERRORSELECCION:
LOCATE 22,30:PRINT "OPCION NO VALIDA!!!"
DO
LOOP UNTIL INKEY$ <> ""
CLS
GOSUB MENU

SALIR:
CLS
PRINT "HASTA LA VISTA BABY!!!"
END

Como ustedes podrán apreciar la forma en que el usuario selecciona una opción del menú es sencillamente presionando el numerito indicado en la opción. Pero el tipo de menú que yo quisiera poder hacer es ese en que el usuario debe usar las teclas de flecha de los cursores Arriba/Avbajo para desplazarse por las opciones del menú y luego tenga que presionar Enter para sdleccionar la opcion resaltada. Vendría a ser algo igual con lo que sucede en Clipper 5.2 que para hacer ese tipo de menúes que yo pretendo está las rutinas PROMPT y MENU TO. Ejemplo de menúes con ese sistema de selección pueden ser el menú de arranque de Windows que aparece al apretar F8, los sistemas antiguos basados en MS-DOS que hay en los comercios, la BIOS, etc. Yo para correr el QBASIC y el POWER BASIC uso el gran DOSBOX 0.74. Hasta uso gdosbox en Android. Ni Qbasic ni Power Basic tiene un MENU TO para hacer ese tipo de menúes,;así que dudo que se puedan crear ese tipo de menúes. Si alguien conoce funciones en ese lenguaje para poder hacer ese mismo menú que les mostré, pero con el sistema de selecciòn con las flechas de los cursores y la tecla Enter para escoger la opción resaltada que me ayude. Saludos

Páginas: [1]

Sobre la educación, sólo puedo decir que es el tema más importante en el que nosotros, como pueblo, debemos involucrarnos.

Abraham Lincoln (1808-1865) Presidente estadounidense.

aprenderaprogramar.com: Desde 2006 comprometidos con la didáctica y divulgación de la programación

Preguntas y respuestas

¿Cómo establecer o cambiar la imagen asociada (avatar) de usuario?
  1. Inicia sesión con tu nombre de usuario y contraseña.
  2. Pulsa en perfil --> perfil del foro
  3. Elige la imagen personalizada que quieras usar. Puedes escogerla de una galería de imágenes o subirla desde tu ordenador.
  4. En la parte final de la página pulsa el botón "cambiar perfil".