GERAR NUMEROS ALEATORIOS
Como faço para gerar números aleatórios a partir de um número pré determinado e com no máximo de 10 casas.
Obrigado,
Obrigado,
Cara, para este exemplo eu utilizei uma Caixa de textos, um ListBox e um Botão:
[txt-color=#0000f0]Private Sub[/txt-color] Command1_Click()
[txt-color=#0000f0]Dim[/txt-color] Numero [txt-color=#0000f0]As Integer[/txt-color]
Numero = Val(Text1.Text)
List1.Clear
[txt-color=#0000f0]For[/txt-color] i = 1 [txt-color=#0000f0]To[/txt-color] Numero
Retorno: [txt-color=#007100][ô]Ponto onde gostarÃamos de retornar[/txt-color]
Numero1 = [txt-color=#0000f0]CInt[/txt-color](100 * Rnd + 1) [txt-color=#007100][ô]Gerando nº aleatório[/txt-color]
Numero2 = [txt-color=#0000f0]CInt[/txt-color](100 * Rnd + 1) [txt-color=#007100][ô]Gerando nº aleatório[/txt-color]
Numero3 = [txt-color=#0000f0]CInt[/txt-color](Numero1 + Numero2) [txt-color=#007100][ô]Fazendo a soma dos nsº aleatórios[/txt-color]
[txt-color=#0000f0] For [/txt-color]j = 0 [txt-color=#0000f0]To[/txt-color] List1.ListCount - 1 [txt-color=#007100][ô]Loop para verificar se foi gerado um nº duplicado[/txt-color]
[txt-color=#0000f0] If [/txt-color]List1.List(j) = Numero3 [txt-color=#0000f0]Then[/txt-color] [txt-color=#007100][ô]Se gerou um nº que já existe na lista, então...[/txt-color]
[txt-color=#0000f0] GoTo [/txt-color]Retorno [txt-color=#007100][ô]Volte para o ponto de retorno e gere outro nº[/txt-color]
[txt-color=#0000f0]End If
Next[/txt-color]
List1.AddItem Numero3 [txt-color=#007100][ô]Adicione o nº aleatório[/txt-color]
[txt-color=#0000f0] Next
End Sub[/txt-color]
Espero ter ajudado
abraços
[txt-color=#0000f0]Private Sub[/txt-color] Command1_Click()
[txt-color=#0000f0]Dim[/txt-color] Numero [txt-color=#0000f0]As Integer[/txt-color]
Numero = Val(Text1.Text)
List1.Clear
[txt-color=#0000f0]For[/txt-color] i = 1 [txt-color=#0000f0]To[/txt-color] Numero
Retorno: [txt-color=#007100][ô]Ponto onde gostarÃamos de retornar[/txt-color]
Numero1 = [txt-color=#0000f0]CInt[/txt-color](100 * Rnd + 1) [txt-color=#007100][ô]Gerando nº aleatório[/txt-color]
Numero2 = [txt-color=#0000f0]CInt[/txt-color](100 * Rnd + 1) [txt-color=#007100][ô]Gerando nº aleatório[/txt-color]
Numero3 = [txt-color=#0000f0]CInt[/txt-color](Numero1 + Numero2) [txt-color=#007100][ô]Fazendo a soma dos nsº aleatórios[/txt-color]
[txt-color=#0000f0] For [/txt-color]j = 0 [txt-color=#0000f0]To[/txt-color] List1.ListCount - 1 [txt-color=#007100][ô]Loop para verificar se foi gerado um nº duplicado[/txt-color]
[txt-color=#0000f0] If [/txt-color]List1.List(j) = Numero3 [txt-color=#0000f0]Then[/txt-color] [txt-color=#007100][ô]Se gerou um nº que já existe na lista, então...[/txt-color]
[txt-color=#0000f0] GoTo [/txt-color]Retorno [txt-color=#007100][ô]Volte para o ponto de retorno e gere outro nº[/txt-color]
[txt-color=#0000f0]End If
Next[/txt-color]
List1.AddItem Numero3 [txt-color=#007100][ô]Adicione o nº aleatório[/txt-color]
[txt-color=#0000f0] Next
End Sub[/txt-color]
Espero ter ajudado
abraços
Tente essa função
Public Function geraNumero()
Randomize
X = Int(9999999999 * Rnd + 1)
numeroGerado = Format(X, [Ô]0000000000[Ô]) [ô]numeroGerado é variavel global no caso
End Function
e para chamar:
geraNumero
MsgBox [Ô]O número gerado é [Ô] & numeroGerado
Public Function geraNumero()
Randomize
X = Int(9999999999 * Rnd + 1)
numeroGerado = Format(X, [Ô]0000000000[Ô]) [ô]numeroGerado é variavel global no caso
End Function
e para chamar:
geraNumero
MsgBox [Ô]O número gerado é [Ô] & numeroGerado
Tópico encerrado , respostas não são mais permitidas