6 replies to this topic

[Agente Linhares]

legal..
e tipo auxiliando isso aum bd, dá pra sair até os dados de um apessoa sorteada por ex.
teresante a função.

[knoxville]

"quem nao tem cão caça com gato"

numeros = "0123456789"
Randomize
numero = Mid(numeros, (rnd*9)+1, 1)

fduishaofudhsuifdsa
uma funçãozinha q eu fiz antes de ler este pqno tutorial! ufdihsouafds

(e pra letra... usa o ke?)

[the one]

ae ? essa função pode ser usada com imagens? tipo para rotacionar imagens? se sim como seria valew!

[vrsbueno]

exemplo:

<%

dim texto(4)

'Adicionado as IMGS aqui

texto(0) = "<img src=""imagem1111.gif"">"

texto(1) = "<img src=""imagem2222.gif"">"

texto(2) = "<img src=""imagem3333.gif"">"

texto(3) = "<img src=""imagem4444.gif"">"


randomize

x = cint(rnd()*(UBound(texto)-1))
mensagem = texto(x)

response.write mensagem

%>

Edição feita por: vrsbueno, 23/07/2004, 01:29.

[Smurf]

e como eu faço pra ele não ser repetido, tipow se ja foi uma frase ela não aparece mais?
[]'s

[felipecm]

e como eu faço pra ele não ser repetido, tipow se ja foi uma frase ela não aparece mais?
[]'s

Boa pergunta..

Pra sortear números não repetidos, o ideal é que vc rode um loop que executará até sair um numero diferente do escolhido anteriormente ou de uma array de numeros sorteados.... vamos supor, um jogo da mega-sena.. 6 numeros diferentes de 1-60, eu criei uma function que gera esses randomicos:

<%

Function GeraRnd(NumMax)
  Randomize
  GeraRnd = 1 + CInt(Rnd() * NumMax)
  If GeraRnd > NumMax Then GeraRnd = NumMax
End Function

Function GeraNumero(QtdNum, QtdCasas)
  Dim NumSort()
  Dim i, j, intNum

  Redim NumSort(QtdNum-1)

  For i = LBound(NumSort) To UBound(NumSort)
    For j = LBound(NumSort) To UBound(NumSort)
      Do Until intNum <> NumSort(j)
        intNum = GeraRnd(QtdCasas)
      Loop
    Next

    NumSort(i) = intNum
  Next

  GeraNumero = NumSort
End Function

Function CompZero(strBuf, intNum)
  Do Until Len(strBuf) = intNum
    strBuf = "0" & strBuf
  Loop

  CompZero = strBuf
End Function

%>

A function GeraNumero com os parametros Qtd de Sorteios e Qtd de Casas devolve uma array contendo os numeros sorteados.

arrSort = GeraNumero(6, 60)

For i = LBound(arrSort) To UBound(arrSort)
  Response.Write CompZero(arrSort(i), 2)
  If i <> UBound(arrSort) Then Response.Write " . "
Nex

Repare que na funcao GeraNumero eu rodo loop sobre loop de array, a intenção é que ele itere pra preencher os indices .. mas no segundo loop que ele procure em todos e vá gerando aleatorios até ele encontrar um numero que naum existe (por isso o Do Until). Parece meio complicado.. mas a idéia é simples.. gere aleatorios até sair um diferente. nada melhor do que um loop Until/While pra realizar essa tarefa.

(e pra letra... usa o ke?)

Bom, essa pergunta é meio velha.. rs mas a ideia eh simples como sempre... vc gera um aleatorio baseando no CHR da letra.. trabalhando com letras vc tem em minusculas.. chr de 65-90.. (a-z) então a tarefa fica facil..:

Function GeraRndLetra()
  Do Until GeraNum <= 90 And GeraNum <> 0
    Randomize
    GeraNum = 65 + CInt(Rnd() * 90)
  Loop
  GeraRndLetra = Chr(GeraNum)
End Function

Response.Write GeraRndLetra()

Ele vai rodar o loop pra gerar até achar um numero entre 65-90 e depois pegar o ascii dele com a funcao chr().