QuickBasic - Menú siempre visible

Hola tengo una duda, como podría hacer una barra que se encuentre arriba en la pantalla pero que siempre se vea?? ésta siempre ve a tener la fecha y hora, como hago para que se refresque la hora cada 60 segs??

otra pregunta, como hago para poner 1 input y que cuando escriba no se visualizen los caracteres??

muchas gracias

10 LOCATE 1,70:PRINT TIME$
h$=inkey$
if h$ >"@" and h$<"{" then suma$ = suma$ + h$
if h$= chr$(8) and suma$ <>"" then suma$= mid$(suma$,1,len(suma$)-1)
locate 10,1:print "FACIL: "+SUMA$ +"_ "
GOTO 10

podes poner para hora y minutos solamente
10 LOCATE 1,70: PRINT MID$(TIME$,1,5)

Te cuento que lo arme de memoria, no lo probe pero funciona, te lo aseguro !!!

Si no me molestame nomas a mi correo en [email protected]
y te mando algun programa a modo de ejemplo

Programo todavia para DOS que en mi empresa tenemos muchas maquinas viejas.
............... salu2

Hay una interrupcion especial para el tiempo. El problema es que si salta en el momento justo después de un LOCATE, el dato que fueras a imprimir, se haría detrás de la hora y no en el sitio que quieres imprimirlo -y pasa mucho-.

ON TIMER(1) GOSUB 1000 '--cada segundo ejecuta la rutina
TIMER ON '--- Activa la interrupción
-----(tu programa)
TIMER OFF '--- Desactiva la interrupcion

1000 '---- Imprimir hora
LOCATE 1,1:PRINT TIME$
RETURN

Para evitar el problema de arriba, en vez de hacer un LOCATE directamente, siempre que vayas a imprimir, guardas las posiciones un 2 variables, por ejemplo:

ON TIMER(1) GOSUB 1000
TIMER ON
---(tu programa)
y=10:x=20:LOCATE y,x: PRINT "HOLA" '---Tendrías que hacer esto cada vez que quieras imprimir
---(tu programa)

1000 '---Subrutina imprimir hora
LOCATE 1,1:PRINT TIME$
LOCATE

Hay una interrupcion especial para el tiempo. El problema es que si salta en el momento justo después de un LOCATE, el dato que fueras a imprimir, se haría detrás de la hora y no en el sitio que quieres imprimirlo -y pasa mucho-.

ON TIMER(1) GOSUB 1000 '--cada segundo ejecuta la rutina
TIMER ON '--- Activa la interrupción
-----(tu programa)
TIMER OFF '--- Desactiva la interrupcion

1000 '---- Imprimir hora
LOCATE 1,1:PRINT TIME$
RETURN

Para evitar el problema de arriba, en vez de hacer un LOCATE directamente, siempre que vayas a imprimir, guardas las posiciones un 2 variables, por ejemplo:

ON TIMER(1) GOSUB 1000
TIMER ON
---(tu programa)
y=10:x=20:LOCATE y,x: PRINT "HOLA" '---Tendrías que hacer esto cada vez que quieras imprimir
---(tu programa)

1000 '---Subrutina imprimir hora
LOCATE 1,1:PRINT TIME$
LOCATE y,x
RETURN

Mira no conocia la ON TIMER(1) G+OSUB linea

Interesante para mensajes de ayuda
protector de pantalla en un programa

lo de mostrar la hora ingreso por lo general con inkey$

10 LOCATE 1,1 : PRINT TIME$
H$ = INKEY$:IF H$="" THEN 10
IF H$=CHR$(8) AND CADENA$<>"" THEN CADENA$=MID$(CADENA$,1,LEN(CADENA$)-1)
H$=UCASE$(H$) : rem para pasar los caracteres a mayuscula o minuscula podes tambien
IF H$>="A" AND H$<="Z" THEN CADENA$ = CADENA$ + H$
LOCATE 10,10: PRINT CADENA$ +"_ "
GOTO 10

salu2 / marcelo!

Con el TIMER OFF se solucionaria el problema DEL AMIGO !

Pero pero en un proceso de LECTURA o GRABACION se pondria lento el programa
lo cual deveria de poner en OFF de ves en cuando y luego regresar al ON

color 8,0
cls
input A$

Fijate si funciona con:

color 8,0
locate 10,10 : print " "
color 7
locate 1,10: input "1234567:";a$