À pedido do [Guto].. tá aí, um pequenino exemplo do sorteio
<%
nome = "jose|paulo|william|wellington|giuliana"
total = 3
Analistas = Split(questoes, "|")
For k = 0 to Ubound(Analistas)
response.Write(Analistas(k) & "<br>")
Next
response.Write("<br><b>Sorteio dos Analistas( ):</b><br><br>")
y = 1
For i = 1 to total
ArrayAnalista = Split(nome, "|")
Randomize()
AnalistaSorteado = Rnd() * UBound(ArrayAnalista)
AnalistaSorteado = CInt(AnalistaSorteado)
Response.Write y & " - " & ArrayAnalista(Cint(AnalistaSorteado)) & "<br>"
If Cint(AnalistaSorteado) = 0 Then
nome = Replace(nome, ArrayAnalista(Cint(AnalistaSorteado)) & "|", "")
Else
nome = Replace(nome, "|" & ArrayAnalista(Cint(AnalistaSorteado)), "")
End If
y = y + 1
Next
%>
OBS: fiz isso aí, por cima, não que esteja funcionando 100%, não custa testar..
Pergunta
ursolouco
À pedido do [Guto].. tá aí, um pequenino exemplo do sorteio
OBS: fiz isso aí, por cima, não que esteja funcionando 100%, não custa testar..
Abraços!!!
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.