Página 1 de 1

Lentidão de processamento

Enviado: 21 Ago 2007 10:37
por clodoaldo
Olá amigos!

Fiz o seguinte teste para ver se xharbour é mais rápido que o clipper:

function main()
aa:=time()
clea
use emp
do while !eof()
? emp_nomecr
for i=1 to 12
a=strzero(i,2)
repl emp_rea&a with 0
repl emp_pag&a with 0
next
repl emp_pag01 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag02 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag03 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag04 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag05 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag06 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag07 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag08 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag09 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag10 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag11 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_pag12 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea01 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea02 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea03 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea04 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea05 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea06 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea07 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea08 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea09 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
repl emp_rea10 with emp_pag01+emp_pag02+emp_pag03+emp_pag04+emp_pag05
skip
enddo
close emp
? aa
? time()
wait
retu nil

... e o resultado do tempo decorrido foi, 1 segundo no clipper e 11 no xharbour.

Pergunto. O xharbour não deveria ser mais rápido? Se é prá ser, qual a maneira correta de abrir um arquivo e fazer um replace nele?

Desde já, agradeço a atenção.

Enviado: 22 Ago 2007 11:19
por vagucs
fez em qual sistema operacional o teste? usando qual lib GT?

Se foi windows 98 com GTWIN o resultado é este mesmo, que as rotinas de console do windows 98 são terríveis.

Teste no windows XP e poste os novos resutlados.

Enviado: 22 Ago 2007 12:06
por sygecom
Tche, Clodoaldo....de mais detalhes...eu fiz aqui diversos teste de desempenho ...e aqui funciona que é um avião...qual versão do xharbour vc usou ? esta usando alguma Lib grafica ? esta usando o Bcc 5.5.1 ?