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

lammu

Geracao De numero aleatorios diferentes

4 mensagens neste tópico

Tenho o programa que gera o numeros do totoloto este e composto por 6 textbox estas 6 sao um conjunto de arrays.A minha duvida e como fazer um algoritmo para que os numeros saim diferentes, se alguem poder ajudar agradecia  :wallbash:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Percorres todo os elementos do array e só adiciona-se outro numero se ainda não existe.

Jorge

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Podes utilizar a função Rnd

Dim varNumero As Integer
Randomize
varNumero = Int(("Numero de casas do totoloto" * Rnd) + 1)

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Julgo que isto resolve o teu problema


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       

        Dim r As New Random

        Dim n As Integer

        Dim x As Integer

        Dim a As New List(Of Integer)

        For x = 1 To 6

            ' Obter um número aleatório

            n = r.Next(1, 49)

            ' ter a certeza que o número não está na lista

            Do While a.Contains(n)

                n = r.Next(1, 49)

            Loop

            ' adicionar à lista


            a.Add(n)

        Next

        Me.TextBox1.Text = a(0)
        Me.TextBox2.Text = a(1)
        Me.TextBox3.Text = a(2)
        Me.TextBox4.Text = a(3)
        Me.TextBox5.Text = a(4)
        Me.TextBox6.Text = a(5)


    End Sub

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