VB- SORTEIO
gente, fiz um programa para sortear um número aleatório, o número sorteado será de 0 a 250, segue o código:
Dim rndnumber As Random
Dim number As Integer
rndnumber = New Random
number = rndnumber.Next(1, 250)
TextBox1.Text = number.ToString
GOSTARIA QUE ALGUéM ME FALASSE A PROGRAÇAMÃO PARA QUE NÃO SE REPITA NENHUM NÚMERO DESSES(1 a 250), SENDO QUE OS NÚMERO QUE Jà FORAM, TERÃO QUE APARECER EM UMA LABEL.
Dim rndnumber As Random
Dim number As Integer
rndnumber = New Random
number = rndnumber.Next(1, 250)
TextBox1.Text = number.ToString
GOSTARIA QUE ALGUéM ME FALASSE A PROGRAÇAMÃO PARA QUE NÃO SE REPITA NENHUM NÚMERO DESSES(1 a 250), SENDO QUE OS NÚMERO QUE Jà FORAM, TERÃO QUE APARECER EM UMA LABEL.
Com esse código teremos uma lista com todos os números sem repetição.
Dim rndnumber As Random
Dim number As Integer
Dim b as Boolean
Dim Lista as New List(of Integer)
rndnumber = New Random
Randomize()
Do While Lista.Count < 250
number = rndnumber.Next(0, 250)
For i as integer = 0 to Lista.Count-1
If number = lista(i) Then
b=True
Exit For
End if
Next
If b = False then
Lista.Add(number)
Else
b = False
End if
Loop
http://www.vbmania.com.br/index.php?modulo=forum&metodo=regras
Preciso de um que sorteie um número, n tenha repetição e, add o número que foi sorteado a listbox
O codigo que lhe passei já faz isso Vinicius. Agora é só percorrer a lista que foi gerada e jogar esses números onde desejar.
Tópico encerrado , respostas não são mais permitidas