ajuda com TONE()

[Marcel]

ESTOU COM UM PROBLEMA E GOSTARIA DE SABER SE VCS PODEM ME AJUDAR, ESTOU USANDO UMA ROTINA PARA DIMINUIR VALORES DE UMA TABELA 1 A 1 COM FOR, E GOSTARIA QUE A CADA NUMERO QUE DIMINUI TOCASSE O ALTO FALANTE DO PC, TIPO ASSIM:

USE TABELA.DBF
FOR I = 0 TO VALOR1
REPLACE VALOR2 WITH VALOR2 - 1
TONE(1000,1)
NEXT

DESSA FORMA FUNCIONA NORMALMENTE, PORÉM FICA MUITO LENTO, E QUANDO RETIRO TONE(1000,1), FICA TUDO MAIS RÁPIDO,

SERÁ QUE TEM COMO DIMINUIR MAIS O TEMPO DO TONE()????

[Stanis Luksys]

Olá amigo,

Não me lembro exatamente se existe um valor mínimo para o tempo, mas você pode testar assim:

tone( 1000, 0.5 ) ou tone( 1000, 0.3 )

A chatice é que com tone() não tem jeito, enquanto o beep estiver tocando, a rotina para mesmo, como se fosse um inkey().

Falou!