SORTEIO DE NUMERO COMO SE FOSSE JOGO DE DADOS
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
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
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