Ir para o conteúdo
lammu

Geracao De numero aleatorios diferentes

Mensagens Recomendadas

lammu    0
lammu

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:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Icaro    0
Icaro

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

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