Bem vindo visitante.
Caso ainda não tenha uma conta,pedimos para que crie uma,assim você terá acesso a todos os links e imagens disponíveis no fórum.
Bem vindo visitante.
Caso ainda não tenha uma conta,pedimos para que crie uma,assim você terá acesso a todos os links e imagens disponíveis no fórum.

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

 » Visual Basic 6.0 » Elysium engine » Tutoriais » Source » Sistema de sorteio

Sistema de sorteio

Ir para baixo  Mensagem [Página 1 de 1]

1Sistema de sorteio Empty Sistema de sorteio Qua Fev 15, 2012 11:51 pm

Kisuke

Kisuke
Organizador
Organizador

Client~Side

Na frmadmin crie 2 labels, 2 TextBox e 1 comandbutton. Altere as suas configurações para:

Label1

[/b][/font]
Caption: Número Máximo:


TextBox1
Name: txtMax
Caption: 50


Label2
Caption: Número Sorteado:


TextBox2
Name: txtSorteio
Locked: True


Comand Button
Name: cmbSorteio
Caption: Sortear


Agora dentro do cmbSorteio adicione:
Código:
txtSorteio.Clear
    With txtSorteio
        .Text = .Text & vbNewLine & Int(Rnd() * txtMax.Text)
        .SelStart = Len(.Text) + 1
MsgBox ("O Sorteado foi o número& txtSorteio.Text")
    End With




Creditos:

Ricardo
[/center]

Ir para o topo  Mensagem [Página 1 de 1]

 » Visual Basic 6.0 » Elysium engine » Tutoriais » Source » Sistema de sorteio

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