Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » texto parpadeante en un PRG

FoxPro/Visual FoxPro - texto parpadeante en un PRG

Volver
Nuevo Tema
<<>>
 
Vista:

texto parpadeante en un PRG

Publicado por Estalin (3 intervenciones) el 01/12/2018 21:10:32
Hola, tengo una pregunta.
¿Cómo hago para que un texto parpadee en un programa que he creado? mi archivo es extensión .PRG
Tengo entendido que en versiones anteriores se utilizaba el SET COLOR R+* (el asterisco servia para que el texto parpadeara) pero en las versiones actuales de Visual Fox este comando no funciona. Alguien puede decirme como se hace. Gracias por su ayuda.
Acá les dejo mi programa fuente.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
USE AGENDA INDEX ANUMER
SET COLOR TO 6+/N
@43,78 SAY 'NO2.JPG' BITMAP

@43,95 SAY 'Le recuerdo:'

GO TOP
A=44
DO WHILE .NOT. EOF()
    IF FECHA<=DATE()
    @A,95 SAY TAREA+' '+DTOC(FECHA)            <- (ESTO ES LO QUE NECESITO QUE PARPADEE)

    A=A+1
    IF A=54
        A=44
    ENDIF
    ENDIF
    SKIP
ENDDO
SET COLOR TO G+/N
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
sin imagen de perfil
Val: 309
Bronce
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

texto parpadeante en un PRG

Publicado por santiago (551 intervenciones) el 02/12/2018 01:59:55
el siguiente prg blinkea no solo el mensaje sino también una imagen.
asignale valores a las variables y lo corres


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
*** MENSAJE.PRG ***        && PINTA MENSAJES BLINK   VERSION 2.6 FW
 
save scre to m001
stor 0 to mtecla,mtecla2
do while .t.
   store inkey(0.4, 'M') to mtecla

   if mtecla = 0 &&or 151
      @posmen-10, 2 say space(96)     COLOR &MC34
      @posmen- 9, 2 say space(96)     COLOR &MC34
      @posmen- 8, 2 say space(96)     COLOR &MC34
      @posmen- 7, 2 say space(96)     COLOR &MC34
      @posmen- 6, 2 say space(96)     COLOR &MC34
      @posmen-10, 2 to posmen- 5, 98  COLOR &MC16
      if file('advert_1.bmp')

          @posmen-11.6, 3 say 'advert_1.bmp'   BITMAP  STYLE 'T'  SIZE 8,8  CENTER  ISOMETRIC

      endif
      @posmen- 8,INT((105-LEN(MENS))/2) SAY MENS   FONT 'ARIAL', 12 STYLE 'B'  COLOR &MC41

   else
      exit
   endif
   CLEAR TYPEAHEAD
   store inkey(0.4, 'M') to mtecla2

   if mtecla2 = 0 &&or 151
      @posmen-10, 2 say space(96)     COLOR &MC34
      @posmen- 9, 2 say space(96)     COLOR &MC34
      @posmen- 8, 2 say space(96)     COLOR &MC34
      @posmen- 7, 2 say space(96)     COLOR &MC34
      @posmen- 6, 2 say space(96)     COLOR &MC34
      @posmen-10, 2 to posmen- 5, 98  COLOR &MC16
      if file('advert_1.bmp')

         @posmen-11.6, 3 say 'advert_1.bmp'   BITMAP  STYLE 'T'  SIZE 8,8  CENTER  ISOMETRIC

      endif
      @posmen- 8,INT((105-LEN(MENS))/2) SAY MENS   FONT 'ARIAL', 12 STYLE 'B'  COLOR &MC34

   else
      exit
   endif
   CLEAR TYPEAHEAD
enddo
CLEAR TYPEAHEAD
rest scre from m001
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
Imágen de perfil de Abel
Val: 642
Plata
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

texto parpadeante en un PRG

Publicado por Abel (286 intervenciones) el 02/12/2018 19:13:17
Necesitas que sea en PRG?; por que puedes usar justamente las herramientas del entorno visual que lo facilitan;

Usando 2 objetos; un Timer y un Label, que con pocas líneas resuelves el problema;
supongamos que el Label sea Label1; ajustamos las propiedades del Timer:
Interval=1000 (equivalente a 1 seg.)
y en el método Timer del objeto Timer; escribes dentro...
Thisform.Label1.Visible = !Thisform.Label1.Visible
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