Imagem aleatória – No formato Loteria

Montado para jogos como Bingo, Loteria e outros do generos, o script chama imagens aleatórias que formam os números, pode ser facilmente adaptado para outra funcionadade que necessitem de imagens geradas aleatóriamente.

<%
'-----------------------------------------------------------------------
'----------------------Script desenvolvido por -------------------------
'----------------------Heber Almeida------------------------------------
'----------------------heber@mail.com-----------------------------------
'----------------------www.heberonline.com.br---------------------------
'-----------------------------------------------------------------------
Dim sorteado(5)
Randomize
For i = 0 To 5
sort = Int(Rnd * 49) + 1   
For j = 0 To i
If sort = sorteado(j) Then sort = Int(Rnd * 49) + 1:j=0
Next
sorteado(i) = sort
Next
n1 = 5
Do While n1 > 0
For i = 0 To n1
If sorteado(i) > n2 Then n2 = sorteado(i): ll = i
Next
sorteado(ll) = sorteado(n1)
sorteado(n1) = n2
n1 = n1 - 1
n2 = 0
Loop
resim="imagens/" & sorteado(i)  & ".gif"
%>






Resultado





        
        





 










S o r t e a r !








www.heberonline.com.br