Tag Archives: Randomize
Código simples e comentando!!! function Randomize() { var randNum = Math.floor((999 – 111 + 1) * Math.random() + 111); // para aumentar a quantidade de números é só aumentar as casas decimais das centenas document.getElementById("resultado").innerHTML = randNum; // imprime o resultado na div "resultado" } <div id="clicar" style="cursor: pointer;" onClick="Randomize();">Clique aqui para gerar os numerais!</div><br> <div id="resultado"></div>
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
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 %> …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Mais um randomize de Imagens adaptado para as necessidade básicas <%@ Language="VBScript" %> <% Option Explicit %> <% Function RandomDeImagens(strPath,strDefault) On Error Resume Next Randomize Timer Dim ObjDeFSO, objFolder, ObjDaPasta, ObjPasta02 Dim StrPastas, StrImagens, StrBase, StrPasta Const strValid = ".gif.jpg.png" If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47) StrBase = Server.MapPath(strPath) Set ObjDeFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = ObjDeFSO.GetFolder(StrBase) Set ObjDaPasta = objFolder.Files For Each ObjPasta02 In ObjDaPasta StrPasta = LCase(ObjPasta02.Name)If …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais