Olá pessoal, eu tô com o seguinte problema:

 

Estou fazendo um programinha estilo uma urna eletronica, ele está funcionando perfeitamente, mas quando eu mostro o resultado, em um form com o nome de todos os candidatos e seus devidos votos obtidos, eu queria que aparecesse os votos do candidato com menor votos ate o vencedor, mas com um intervalo de 3seg.

 

eu tentei alguma coisa assim:

 

Private Sub Timer1_Timer()

Set Tb = Db.OpenRecordset("SELECT * FROM voto order by pontos asc")

Do While Tb.EOF = False
    ' Aqui iria rodar a rotina para mostrar os votos a cada 3 seg.
Loop

Eu não sei se esse é o melhor jeito, mas assim tem o problema da função "Do" que não "espera" os 3 seg. para executar novamente.

 

Agradeço a ajuda

[ ]'s

[k]-du

pelo q entendi vc quer q a cada 3s seja mostrado um candidato do menor para o maior né? Bom, vamos à lógica :)...

 

Primeiro vc coloca na propriedade interval do seu timer 3000. Isso faz com q o timer seja disparado a cada 3 segundos.

 

No evento timer vc coloca assim:

 

Set Tb = Db.OpenRecordset("SELECT * FROM voto WHERE pontos IN(SELECT MIN(pontos) FROM voto WHERE pontos >" & lngPtos & ")")

 

IF NOT TB.EOF Then

  lngPtos = Tb("Pontos")

  ' Aqui iria rodar a rotina para mostrar os votos

Endif

 

 

Na declaração do form vc declara lngPtos:

 

Dim lngPtos as Long

 

A lógica é q a cada 3s ele vai executar a rotina acima.

A consulta vai ser feita e inicialmente lngPtos é igual a 0.

Com a consulta feita o resultado é o menor número de votos q tem registrado na tabela. Vc mostra o resultado com o seu respectivo candidato.

Vai ser guardado os votos na variável LngPtos. E a consulta vai usar os votos q estão guardados para pegar o próximo candidato...

 

Assim de bate-pronto acho q vai dar certo porém eu não testei...Talvez vc tenha problemas com candidatos com o mesmo número de votos...não sei... só testando

 

qq coisa vc posta

 

at+