Templo RPG Maker
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir para baixo  Mensagem [Página 1 de 1]

1Sistema de Mini-Sorteio Empty Sistema de Mini-Sorteio 23/10/2012, 00:09

montevechi

montevechi
Membro I
Membro I
::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 primeiramente crie uma nova Form, e coloque o nome dela de frmSorteio, deixe ela do seu modo que preferir, entã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::
Sistema de Mini-Sorteio Mini-s10

::Creditos::
• Gu1lh3rm3 - Por criar
• Montevechi - por postar aqui.

Ver o tópico anterior Ver o tópico seguinte Ir para o topo  Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos