Código Fonte - O melhor conteúdo para programadores

ASP / Aplicações Completas

Imagem aleatória - No formato Loteria


enviado por Heber Almeida
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.
<meta http-equiv="Content-Language" content="pt-br">
<%
'-----------------------------------------------------------------------
'----------------------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"
%>
<title>Loto</title>
<div align="center">
<center>
<table border="2" cellpadding="4" cellspacing="4" style="border-collapse: collapse" bordercolor="#009999" width="32%" id="AutoNumber1" bgcolor="#FFFCF9" height="255">
<tr>
<td width="100%" colspan="2" bgcolor="#A8EAEA" height="22" bordercolor="#009999">
<p align="center"><b><font face="Verdana" size="2">Resultado</font></b></td>
</tr>
<tr>
<td width="50%" height="138">
<p align="center"><b><font size="2" face="Tahoma" color="#C0C0C0"><br>
</font></b><img border="0" src="imagens/<%=sorteado(0)%>.gif">&nbsp;&nbsp;&nbsp; <img border="0" src="imagens/<%=sorteado(1)%>.gif">&nbsp;&nbsp;&nbsp; <img border="0" src="imagens/<%=sorteado(2)%>.gif"></p>
<p align="center"><img border="0" src="imagens/<%=sorteado(3)%>.gif">&nbsp;&nbsp;&nbsp; <img border="0" src="imagens/<%=sorteado(4)%>.gif">&nbsp;&nbsp;&nbsp; <img border="0" src="imagens/<%=sorteado(5)%>.gif"></p>
</td>
</tr>
</table>
</center>
</div>
<p style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
<div align="center">
<center>
<table width="209" cellpadding="0" cellspacing="0" border="1" height="7" bgcolor="#EEF1FA" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr>
<font face="verdana" style="font-style:verdana ;">
<td bgcolor="#EEF1FA" onmouseover="this.style.backgroundColor='#FFFFCC';" onmouseout="this.style.backgroundColor='#EEF1FA';" height="20" width="209">
<p align="center" style="margin-top: 0; margin-bottom: 0"><b>
<font face="Verdana" size="1" color="#FF0000"><u>
<font color="#FF0000">
<a style="text-decoration: none" href="loto.asp">
<font color="#009999">S o r t e a r !</font></a></font></u></font></b></td>
</tr>
</table>
</center>
</div></font>
<p align="center" style="margin-top: 0; margin-bottom: 0"><br>
<b><font face="Verdana" size="1" color="#FF0000">
<a href="http://www.heberonline.com.br">
<font color="#000000">www.heberonline.com.br</font></a></font><font face="Verdana" size="1"><br>
</b></p>


Versão impressa gerada em: quarta-feira, 25 de novembro de 2009

© Copyright 2006 - R&W Consulting.