Lentidão de processamento

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
clodoaldo
Usuário Nível 1
Usuário Nível 1
Mensagens: 4
Registrado em: 20 Ago 2007 18:59
Localização: Teresina

Lentidão de processamento

Mensagem 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.
At. Clodoaldo Monteiro
MSN: clodoaldosmt@hotmail.com
Fone: (86)3233-0053
Avatar do usuário
vagucs
Membro Master
Membro Master
Mensagens: 1480
Registrado em: 10 Jul 2004 10:45
Localização: Ipanema - MG
Contato:

Mensagem 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.
Sem mais
Wagner Nunes
www.vagucs.com.br
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem 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 ?
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Responder