Números aleatórios - VB.NET

1:  Dim Aleatorio As Random = New Random  
2:  Dim NumAleatorio As Integer = 0  
3:  NumAleatorio = Aleatorio.Next(1,10) 'Vai escolher um nº entre 1 e 10. Se quiser poder trocar o 10 por 20, 30, 32, 40, etc...  

Ou também pode fazer desta forma;

1:  TextBox1.Text = (Int(Rnd() * 1000))  

Agora caso queira umas combinações especificas de códigos então faça dessa forma;

1:   Dim Key As Integer  
2:   Key = (Rnd()* 4)  
3:   Select Case Key  
4:     Case 1  
5:        TextBox1.Text = "Codigo"  
6:     Case 2  
7:        TextBox1.Text = "Codigo"  
8:     Case 3  
9:        TextBox1.Text = "Codigo"  
10:    Case 4  
11:       TextBox1.Text = "Codigo"  
12:  End select  

Dessa forma irá sortear um numero em Key = (Rnd()* 4)  Até o 4 (* 4 (Você pode mudar para o tanto que quera)) e então irá selecionar a Case de acordo com o numero aleatório gerado.

COMENTE

& Compartilhe

Tweet