Relogio em Tempo de GET.

[Adilson ©]

Olá Pessal Blz.. preciso de uma ajuda, pois preciso dar um display em tempo real de um relogio na tela enquanto estou em um Get esperando algo ser digitado.. alguem tem uma dica..

Um Abração a Todos

Adilson

[clodoaldomonteiro]

Adilson!
Você quer um relógio que mostre na tela a hora atual ou um temporizador do get, para saber qual o tempo ocioso do get?

Na FAST.lib tem o clock() que mostra um relógio residente.
Na ct.lib também tem, é a função showtime().

[Adilson ©]

Prezado amigo clodoaldo, ocorre o seguinte: Eu tenho um sistema desemvolvido no MIRO e com funções de Mouse, como eu necessitava de informações atualizadas em tempo real eu utilizada a função GETREADE() da lib Mouse.lib, porem meu sistema estava instavel constantemente dando error 5305 Memory Exhausted, me aconselharam utilizar o Blinker para linkditar q resolveria esse problema, pois bem resolvel , porém nao aceita linkeditar a lib mouse pois nao é protegida, tive q retira-la do sistema e perdi a funçao GETREADE() e nao consigo agora atualizar algumas informaçoes qdo eu estou em um read. vc tem alguma ideia de como consigo isso, por esse motivo que eu estava pensando em uma função de relogio onde eu aproveitaria para atualizar informaçoes nessa funçao.
um forte abraço
Adilson

[clodoaldomonteiro]

Adilson!
Tu já tentou usar o valkiria para descompilar teu sistema com a mouse.lib, daí tu poderia resgatar a função getreade() dessa lib.

já modifiquei muita função de várias libs, usando o valkiria.

Tu quer é mostrar campos ou variáveis após a passagem de um get?
Se for, tu pode usar a lib do GAS, tem a função MOSTRA, que mostra qualquer coisa depois de um get.

No clipper puro, acho que pode ser colocado umm função VALID do get que você está, aí teria o mesmo rasultado.

[clodoaldomonteiro]

Fiz um exemplo para você:

Código: Selecionar todos

local GetList := {}

nVar1 := 0.00
nVar2 := 0
cVar2 := Space(12)
cVar3 := space(12)

CLEAR SCREEN
@ 10, 10 SAY "Enter nVar1" GET nVar1 pict '@E 999,999,999.99' vali mostra(nvar1,10,40)

@ 11, 10 SAY "Enter nVar2" GET nVar2 PICT '@E 999,999,999' 

@ 12, 10 SAY "Enter cVar2" GET cVar2 PICT '@P' valid alltrim(cvar2)='1234'

@ 13, 10 SAY "Enter cVar3" GET cVar3 PICT '@M'

READ

RETU

FUNC MOSTRA(ARG1,ARG2,ARG3)
   @ ARG2,ARG3 SAY ARG1
RETU .T.

Veja que no primeiro get é mostrado o resultado dele logo adiante, sendo assim vc poderia mostrar qualquer coisa.

[Adilson ©]

Prezado e Estimado Amigo Clodoaldo Monteiro, fico lhe muito grato pela dica, porém vasculhando o site do PCTOLEDO achei na seção Dowloads Funçoes Com Fontes (Contador de tempo no GET) de Autoria do TOLEDO postado em 22/07/2001 algo que me serviu como uma luva aos meus propositos.

Agradeço Imensamente Pelo Apoio.

Um Forte Abraço

Adilson

[clodoaldomonteiro]

Certo,
Qualquer coisa, estamos aqui.