QuickBasic - Menú siempre visible

   
Vista:

Menú siempre visible

Publicado por Miguel (1 intervención) el 09/03/2009 17:41:47
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de QuickBasic
- Cursos de QuickBasic
información
Cursos y Temas de QuickBasic
- Manual de Quick Basic
- Curso de introducción a la programación con QBasic
- Curso Introducción al Quick Basic

RE:Menú siempre visible

Publicado por marcelo montagna (33 intervenciones) el 13/05/2009 03:16:06
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 MARCELO_MONTAGNA@HOTMAIL.COM
y te mando algun programa a modo de ejemplo

Programo todavia para DOS que en mi empresa tenemos muchas maquinas viejas.
............... salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Menú siempre visible

Publicado por juanjo (4 intervenciones) el 21/06/2009 21:06:11
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Menú siempre visible

Publicado por juanjo (4 intervenciones) el 21/06/2009 21:07:32
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Menú siempre visible

Publicado por marcelo montagna (33 intervenciones) el 04/07/2009 02:49:28
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!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Menú siempre visible

Publicado por marcelo montagna (33 intervenciones) el 05/07/2009 20:31:33
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Menú siempre visible

Publicado por MARCELO MONTAGNA (33 intervenciones) el 04/07/2009 02:52:12
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$
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar