FAZER UM SORTEIO

RAMON 08/05/2004 14:46:40
#23695
preciso fazer um esquema de sorteio mas correto uma seleção de arquivos....

Bom em cada arquivo tera na terceira linha um numero que varia de arquivo para arquivo ficara ente 20 e 1

Todos que tiver entre 20 e 10 o nome dos arquivos vai para uma listbox
Já organizando sempre do maior para o menor
Todos que tiver entre 9 e 1 o nome desses arquivos vão para outra listbox

Então seria uma especie de sorteio mas quem define o sorteio seria eu ous seja pelo numero que tem dentro do arquivo

Como fazer isso
Alguem pode me ajudar?
USUARIO.EXCLUIDOS 09/05/2004 01:33:59
#23732
Resposta escolhida
Private Sub prvSorteia() 'Sorteio de mensagens
Dim lngRegistros As Long
Dim lngRegistro As Long
reg1.Open "dizer", bd2, adOpenDynamic, adLockOptimistic
lngRegistros = 257
'Inicializa a semente do gerador de números aleatórios
Randomize Timer
'Sorteia um registro
lngRegistro = Rnd * lngRegistros
'Posiciona no registro sorteado
reg1.Move lngRegistro
TxtGotas.Text = reg1.Fields("mensagem").Value
reg1.Close
End Sub

Bem um exemplo de sorteio, no caso ele pega o registro no banco com o id sorteado.No exemplo acima os registros são de 1 ate 257 e estão ordenados.

lngRegistros = 257 informa que o sorteio sera no intervalo de 1 ate 257

é so adptar no seu projeto
Tópico encerrado , respostas não são mais permitidas