Ir para o conteúdo
Radar

[VB6] Fazer um gerenciador aleatório de números - AJUDA

Mensagens Recomendadas

Radar    0
Radar

Desde já felicito o pessoal pelo excelente forum!!

Eu sou novo nesta andanças da programação em Visual Basic. Mas como a necessidade faz com que a gente pesquise aqui ando eu...

Preciso que alguém me diga como posso gerar números aleatórios e apresentá-los numa textbox. Por exemplo geral os nºs para o totoloto.

Não consigo por a funcionar a função Randomize()  nem a RDM()

Será que alguém me pode dar uma ajuda?

Obrigados!!

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Radar    0
Radar

Boas!

Experimentei o código que mandaste, mas não funciona. Só gera o nº1.

Como funciona a função Randomize() ?

Por exemplo, como fazer para que gere os nºs para uma chave do euromilhões?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
LuRsT    0
LuRsT

Para isso terias de fazer um randomize numa variavel com arrays sendo que cada array teria um valor, ou entao varias variaveis, mas o raciocinio é o mesmo, só que para as estrelas o rtandomize teria de ser diferente. Não posso ajudar mais porque não tenho conhecimentos de VB :P

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
nram    0
nram

Private Sub Command1_Click()
For h = 0 To 49
Label2(h).BackColor = vbBlack
Next
For q = 0 To 8
Label3(q).BackColor = vbBlack
Next
Dim X(1 To 8) As Integer
X(1) = 51
X(2) = 52
X(3) = 53
X(4) = 54
X(5) = 55
X(7) = 56
X(8) = 80
For t = 7 To 8
Do
Randomize
X(t) = Int((Rnd * 9) + 1)
Loop Until X(7) <> X(8)
Next
For r = 1 To 5
Do
Randomize
X(r) = Int((Rnd * 50) + 1)
Loop Until X(1) <> X(2) And X(1) <> X(3) And X(1) <> X(4) And X(1) <> X(5) And X(2) <> X(3) And X(2) <> X(4) And X(2) <> X(5) And X(3) <> X(4) And X(3) <> X(5) And X(4) <> X(5)
Next

For n = 0 To 49
    If X(1) = Label2(n).Caption Then
    Label2(n).BackColor = vbRed
    End If
Next
For n = 0 To 49
    If X(2) = Label2(n).Caption Then
    Label2(n).BackColor = vbRed
    End If
Next
For n = 0 To 49
    If X(3) = Label2(n).Caption Then
    Label2(n).BackColor = vbRed
    End If
Next
For n = 0 To 49
    If X(4) = Label2(n).Caption Then
    Label2(n).BackColor = vbRed
    End If
Next
For n = 0 To 49
    If X(5) = Label2(n).Caption Then
    Label2(n).BackColor = vbRed
    End If
Next
For k = 0 To 8
    If X(7) = Label3(k).Caption Then
    Label3(k).BackColor = vbRed
    End If
Next
For k = 0 To 8
    If X(8) = Label3(k).Caption Then
    Label3(k).BackColor = vbRed
    End If
Next
End Sub

aqui tens o codigo do meu euro milhoes... está a funcionar muito bem...

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade