Velocidade ?!

[sig_gilberto]

Amigos, me ajudem em mais esta ...

Os dados simplesmente não aparecem, é como se fossem rápidos demais, vejam um exemplo nas linhas abaixo.

Caso eu não coloue aquele MSGSTOP("?"), eu não consigo ver os valores de SEQL,SEQE,SEQN serem exibidos na tela.

Por que ? É velocidade "ATÔMICA" ? rsrsrsrsrs

.

.

.

Store 0 SeqL, SeqE, SeqN

Do While ! Eof()

@ 21.5,120.0 SAY oSay1 VAR Transf(SeqL,"999 999")

Of oDLg FONT oFont1 Size 100,100 COLOR RGB(000,000,255)

@ 26.5,120.0 SAY oSay1 VAR Transf(SeqE,"999 999")

Of oDLg FONT oFont1 Size 100,100 COLOR RGB(000,000,255)

@ 31.5,120.0 SAY oSay1 VAR Transf(SeqN,"999 999") Of oDLg FONT oFont1 Size 100,100 COLOR RGB(000,000,255)

MsgStop("?")

SeqL++

SeqE++

SeqN++

Skip

Enddo

________________________

Gilberto Herminio

Programador Pleno III

Mogi das Cruzes-SP

FWh8.05 + xHB 1.1.0-CVS + BBC 5.5.1 + xDev v0.65

"Não programa-mos o homem, somente contribui-mos para o seu desenvolvimento."

[sig_gilberto]

Amigos, me ajudem em mais esta ...

Os dados simplesmente não aparecem, é como se fossem rápidos demais, vejam um exemplo nas linhas abaixo.

Caso eu não coloue aquele MSGSTOP("?"), eu não consigo ver os valores de SEQL,SEQE,SEQN serem exibidos na tela.

Por que ? É velocidade "ATÔMICA" ? rsrsrsrsrs

.

.

.

Store 0 SeqL, SeqE, SeqN

Do While ! Eof()

@ 21.5,120.0 SAY oSay1 VAR Transf(SeqL,"999 999")

Of oDLg FONT oFont1 Size 100,100 COLOR RGB(000,000,255)

@ 26.5,120.0 SAY oSay1 VAR Transf(SeqE,"999 999")

Of oDLg FONT oFont1 Size 100,100 COLOR RGB(000,000,255)

@ 31.5,120.0 SAY oSay1 VAR Transf(SeqN,"999 999") Of oDLg FONT oFont1 Size 100,100 COLOR RGB(000,000,255)

MsgStop("?")

SeqL++

SeqE++

SeqN++

Skip

Enddo

________________________

Gilberto Herminio

Programador Pleno III

Mogi das Cruzes-SP

FWh8.05 + xHB 1.1.0-CVS + BBC 5.5.1 + xDev v0.65

"Não programa-mos o homem, somente contribui-mos para o seu desenvolvimento."

[kapiaba]

TODO MUNDO ESTÃ COM:

oSay1???

Não te falta um REFRESH() no objeto?

Podeis usar o COMANDO SysWait( .5 ) para da uma pausa.

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[vagner]

Olá,

Não inicialize os says dentro da while, incialize fora, vc está consumindo todos os recursos da mqna assim .

Além de estar usando sempre o mesmo Objeto

oSay1 := cSay1 := Transf(SeqL,"999 999")

oSay2 := cSay2 := Transf(SeqE,"999 999")

oSay3 := cSay3 := Transf(SeqN,"999 999")

@ 21.5,120.0 SAY oSay1 VAR cSay1 Of oDLg FONT oFont1 Size 100,100 COLOR RGB(000,000,255)

@ 26.5,120.0 SAY oSay2 VAR cSay2 Of oDLg FONT oFont1 Size 100,100 COLOR RGB(000,000,255)

@ 31.5,120.0 SAY oSay3 VAR cSay3 Of oDLg FONT oFont1 Size 100,100 COLOR RGB(000,000,255)

Do While ! Eof()

cSay1 := Transf(SeqL,"999 999")

cSay2 := Transf(SeqE,"999 999")

cSay3 := Transf(SeqN,"999 999")

oSay1:Refresh()

oSay2:Refresh()

oSay3:Refresh()

SeqL++

SeqE++

SeqN++

Skip

Enddo

id=code>id=code>

E mesmo assim com certeza irá ficar muito rápido, se quiser que demore um pouco coloque um SysWait(.1) antes do Skip

Vagner Wirts

VI Encontro está chegando , não perca

[helio1361303486]

Gilberto,

Kapiaba tem razão, tive vários problemas desse tipo e um que me lembro é na abertura de arquivos que não havia motivo para ter erros. Foi então que depurei o código colocando à cada linha o MsgAlert("estou aqui-1") ...

e com isso o erro não me apresentava.

Então coloquei antes da linha que dava ação um MsgWait(.01) que não influencia na velocidade do sistema, e elimina esse erro.

Espero ter ajudado.

Hélio.

[helio1361303486]

Desculpe coloquei MsgWait(.01) ao invés de SysWait(.01)

Hélio.

[sig_gilberto]

RESOLVIDO !!!!

________________________

Gilberto Herminio

Programador Pleno III

Mogi das Cruzes-SP

FWh8.05 + xHB 1.1.0-CVS + BBC 5.5.1 + xDev v0.65

"Não programa-mos o homem, somente contribui-mos para o seu desenvolvimento."