PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 24 → WX - Exemplo de sorteio randon
WX - Exemplo de sorteio randon
Iniciado por BOLLER ADRIANO, ago., 12 2016 2:19 AM - Sem resposta
Membro registado
2.962 mensagems
Popularité : +89 (91 votes)
Publicado em agosto, 12 2016 - 2:19 AM
Exemplo de sorteio randon

//exemplo de randon
rank is int = 0
sorteio is int = 0
numero is int = 0
leumatriz is real = 0


// por matriz

MatCreate("matriz")
FOR sorteio = 1 TO 50
FOR rank = 1 TO 10
numero = Random(1,100)
ResRead = MatRead("matriz", numero, 2)
IF Error(MatError("matriz")) = 0 THEN
MatWrite("matriz", MatRead("matriz", numero, 2) + 1, numero, 2)
ELSE
MatWrite("matriz", 1, numero, 2)
END
END
END

///por tabela

//tabela = sorteio
//campos = numerosorteado, qtsorteio
//chave = numerosorteado

FOR sorteio = 1 TO 50
FOR rank = 1 TO 10
numero = Random(1,100)
HReadSeek(sorteio,numerosorteado,Numero,hIdentical)
IF HFound(sorteio)
sorteio.qtsorteio += 1
HModify(sorteio)
ELSE
HReset(sorteio)
sorteio.numerosorteado = numero
sorteio.qtsorteio = 1
HAdd(sorteio)
END
END
END


:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/