PC Toledo

Código: Selecionar todos

Defina a variavel:

PRIVATE _Roda:=" ABCDEFGHIJKLMNOPQRSTUVWXYX "

Defina o label:

 @170,210 LABEL lbLetreiro                ;
               VALUE ""                            ;
               FONT "Courier New" SIZE 9 ;
               WIDTH 380 HEIGHT 20        ;
               BOLD                                 ;
               FONTCOLOR {42,85,255}    ;
               AUTOSIZE


Para fazer as letras rolarem

DEFINE TIMER Timer_1 ;
      INTERVAL 1000 ;
      ACTION {|x|LETREIRO()}

FUNCTION LETREIRO
MEMVAR _Roda
WIN_1.lbLetreiro.Value:=SUBSTR(_Roda,1,LEN(_Roda))
_Roda := SUBSTR(_Roda,2,LEN(_Roda))+SUBSTR(_Roda,1,1)
RETURN NIL