27
May/082
May/082
Gerando Números aleatórios, Randomize
Gerar números randômicos é bem fácil.
Fica mais fácil criar uma função para receber os valores, assim tornando a função "livre" para ser usada em todo o projeto!
<% Function GerarRandomize(Valores) Dim Numeros : Numeros = "0123456789" Randomize For I = 1 To Valores Dim Num : Num = Mid(Numeros, Int(35 * Rnd) + 1, 1) Dim Chave : Chave = Chave + Num Next GerarRandomize = Chave End Function Response.Write(GerarRandomize(10)) 'o número 10 significa quandos números serão gerados %>
Significado das funções:
MID(): Serve para tirar uma string entre dois valores
Sintaxe: MID(String, CaracterInicio, TamanhoSeleção)
RND(): Devolve um numero aleatório.
Antes de se usar esta função, use Randomize, para ele se basear no relógio do sistema e desta maneira não repetir valores.
Qualquer dúvida é só postar:
Acesse também: Webly
Página 1 de 11


