• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Radar

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

15 mensagens neste tópico

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!!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

r = 10 //*Até 10

    Randomize

    x = Int((Rnd * r) + 1)

    textbox.text = "x"

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ok, obrigado vou experimentar e depois digo-te qq coisa!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

se fores ao visual basic a armazem d codigo tens o codigo e o programa que eu fix... dá uma espreitadela....

0

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