SORTEIO DE NUMERO COMO SE FOSSE JOGO DE DADOS

ALEXPASSOS 10/03/2011 10:48:59
#367638
Olá

Esto precisando fazer um sorteio de número como se fosse jogo de dados

Simular os números de dados... Tentei dessa forma... mas aparece mais números pares do que impa.

[ô] Crio uma lista com os numeros possiveis..
Dim l As New List(Of Integer)

For i As Integer = 0 To 12

l.Add(i)

Next

[ô] Vou usar o random para pegar um numero
[ô] qualquer da colecao....

Dim r As New Random()

Dim sorteado As Integer
Dim contador As Integer = 1

[ô] Vamos supor que eu precise de dez numeros...

For i As Integer = 1 To 1

[ô] Obtenho o numero ....

sorteado = r.Next(1, l.Count)

[ô] ... e removo ele da coleção

Console.WriteLine(l(sorteado))

l.Remove(l(sorteado))

contador += 1
Next

txtSorteio.Text = sorteado
ALEXPASSOS 10/03/2011 11:20:48
#367645
Consegui dessa forma

   Dim aleatorio As New Random
Dim numeros As New List(Of Integer)

For i As Integer = 1 To 13
numeros.Add(i)
Next

Dim s As Integer = aleatorio.Next(numeros.Count)
Dim sorteado As Integer = numeros(s)

TextBox1.Text = sorteado
Tópico encerrado , respostas não são mais permitidas