![[ALL] Sistema de Mini-Sorteio 35laeeb](https://2img.net/h/i50.tinypic.com/35laeeb.png)
Início
![[ALL] Sistema de Mini-Sorteio Empty](https://2img.net/i/empty.gif)
::Descrição::
• esse sistema vai ter 50 número para ser sorteado, todos com a mesma chance de cair igual
::Requerimentos::
•Programação : 1/5
•Computador: (obvio)
::Trabalhar::
•Client~Side
::Tutorial::
• bom pessoal primeira mente crie uma nova Form, e coloque o nome dela de frmSorteio, deixe ela do seu modo que prefirir, intão dentro dessa frmSorteio, coloque 2 Labeis, 1 Command Button, mudo a Name de uma label para lbl10 e deixe mais ou menos assim
• esse sistema vai ter 50 número para ser sorteado, todos com a mesma chance de cair igual
::Requerimentos::
•Programação : 1/5
•Computador: (obvio)
::Trabalhar::
•Client~Side
::Tutorial::
• bom pessoal primeira mente crie uma nova Form, e coloque o nome dela de frmSorteio, deixe ela do seu modo que prefirir, intão dentro dessa frmSorteio, coloque 2 Labeis, 1 Command Button, mudo a Name de uma label para lbl10 e deixe mais ou menos assim
Label1: lbl10
Command Button
agora mude a Name do buttao para cdmGerar dentro do cdmGerar(command Buttao) adicione esse codigo
- Código:
Dim pessoas As New Collection
Do While pessoas.Count <> 50
n = Int(Rnd() * 50) + 1
achou = False
For Each pessoa In pessoas
If pessoa = n Then
achou = True
End If
Next pessoa
If Not achou Then
pessoas.Add n
End If
Loop
grupo = 1
For i = 1 To 50 Step 4
lbl10 = pessoas(i)
grupo = grupo + 1
Next i
Bom pessoal é isso como eu disse é um mini sistema sabes, mais funciona 100%, testado por min, ele é bom para fazer eventos do tipo rifa, etc, mais usem do modo que quiserem.
::Screen::
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
::Creditos::
• Gu1lh3rm3 - Por criar
• MmorpgBr - Por Postar
