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

Lod.

[Resolvido] Valores aleatorios em array

7 mensagens neste tópico

olá a todos.

Estou a fazer um programinha para a escola em que insiro a chave do totoloto num array e tenho de ordenar a chave, sem mexer no suplementar, ordenar e simples e sei como fazer mas tenho a duvida e em por valores de 1 a 49 aleatorios, sei que existe uma função mas nao sei como utilizar, podem me dar um exemplo sff

obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Queresa criar números aleatórios ?

        Dim rnd As New Random
        Debug.WriteLine(rnd.Next(1, 49).ToString)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Lod. Supostamente queres que os numeros nao sejam repetidos certo...

Jpaulino o a sugestao que deste e com repeticao correcto?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

  AQUI FICA UMA SUGESTAO SEM REPETICAO

  Dim cont As Integer = 0

  Dim array As New ArrayList

  For i As Integer = 1 To 47

            'Adiciona os numeros ao array       

            array.Add(i)

  Next i

Dim rand As New Random

        Dim index As Integer

        Dim item As Object

        If array.Count > 0 Then

            cont = cont + 1

            Labelconta.Text = cont

            'escolhe um index aleatorio.     

            index = rand.Next(0, array.Count)

            'obtem o numero que tem aquele index.         

            item = array(index)

            'Remove o item para nao voltar a aparecer.       

            array.RemoveAt(index)

            'mostra o item na label. 

            Labelmostra.Text = item

        end if

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Jpaulino o a sugestao que deste e com repeticao correcto?

Sim!

Já agora um pequeno conselho ...não usem ArrayLists quando podem usar listas de genéricos.

Usa um List(of T) e é mais rápido e strong type, ou seja, obriga-te a usar o valor definido (evitando erros)

Por exemplo: Dim array As New List(Of Byte)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tambem concordo...este bocado de codigo fui buscar ao meu bau...tinha feito uma coisa parecida na universidade (na altura nao conhecia os List(of T) :)

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