PC Toledo

Com o inkey(.01) rodou um pouco melhor, mas ainda não atende a necessidade, pois a qtd de numeros que geralmente preciso é 1 milhão, por isso fica muito lento.
Mais baixo q isso, ex: inkey(0.001) o programa não roda...

Somente com o inkey() o processamento fica a 100%.

Millisec() também não ...

Dão erro na compilação.

Já o funcionou, o CPU caiu para quase 0%, mas a geração do arquivo ficou extremamente lento, e também a tela do programa "congela", como ja vinha ocorrendo.

Ficou da seguinte forma:

FUNCTION 2Col()
Peso:='8765432'
USE PRV
ZAP
if Nmf = 0
for j=0 to Qt
a:=0
If Nm = 10000000
Nm := 5000000
Endif
Num:=alltrim(strzero(nm,7))
for t=1 to 8
sm1:=val(subs(num,t,1)) * val(subs(Peso,t,1))
a+=sm1
next
nm++
dg:=mod(a,11)
dg2:=11-dg
if j = qt1 ...

Srs., Bom Dia!

Fiz todas as alterações descritas, utilizando as funções de baixo nível e eliminando a barra de progresso, mas não mudou nda, o CPU continua em 100%.

Rochinha,

O objetivo da rotinha é gerar o código verificador da numeração sequencial e gravar o numero + o verificar em .txt

Como vc podera ver abaixo, ja faço a a gravação inicialmente em DBF e somente depois gravo em TXT e mesmo enquanto esta gerando o DBF o CPU fica em 100%.
Fiz teste também ...

Srs., Bom Dia!
Desenvolvi um programinha para gerar um arquivo .txt com uma sequencia de numeração. Esse arquivo .txt pode ter de 100 mil a mais de 1 milhão de numeros. Até aqui blz...o programa funciona corretamente.
O meu problema é q quando solicitado para gerar com uma qtde grande de numeros o ...

Ok. Obrigado Maligno.
Vou fazer isso.

Até +
Abraço.

Srs., Boa Tarde!

Sou novo no forum e estou procurando uma solução para consumo de CPU, e pelo que estava lendo o FREETSLICE() resolve meu problema.
Mas tem outro probleminha, estou usando o HARBOUR MINIGUI IDE para compilar meu programa, pois foi nele que desenvolvi. Ja tentei compilar via linha de ...