GERAR NÊMEROS ALEATÓRIOS
Será que alguém sabe me dizer como faço um projeto no visual basic 6 que gere números aleatórios? por exemplo quando clicar no botão ele gere números aleatórios.
Veja os Links
http://www.aprenderaprogramar.com/index.php?option=com_content&view=article&id=184:generar-numeros-aleatorios-en-visual-basic-decimales-o-enteros-randomize-y-rnd-intervalos-cu00315a&catid=37:curso-aprender-a-programar-visual-basic-desde-cero&Itemid=61
ou
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/71.htm
http://www.aprenderaprogramar.com/index.php?option=com_content&view=article&id=184:generar-numeros-aleatorios-en-visual-basic-decimales-o-enteros-randomize-y-rnd-intervalos-cu00315a&catid=37:curso-aprender-a-programar-visual-basic-desde-cero&Itemid=61
ou
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/71.htm
Eu uso isso aqui.
Public Function geradordechave()
Dim coletanea As Variant
Dim x, y, numeroarquivo As Integer
Dim chaveusada As String
coletanea = Array([Ô]0[Ô], [Ô]1[Ô], [Ô]2[Ô], [Ô]3[Ô], [Ô]4[Ô], [Ô]5[Ô], [Ô]6[Ô], [Ô]7[Ô], [Ô]8[Ô], [Ô]9[Ô]) [ô]AQUI VOCE POE OS NUMEROS/LETRAS/CARACTERS QUE VOCE QUIZER[ô]
Do While Len(geradordechave) < 100 [ô]AQUI E O TAMANHO QUE VOCE QUER[ô]
y = RandomInteger(0, 61)
geradordechave = geradordechave & coletanea(y)
Loop
End Function
Public Function RandomInteger(Lowerbound As Integer, Upperbound As Integer) As Integer
Randomize
RandomInteger = Int((Upperbound - Lowerbound + 1) * Rnd + Lowerbound) [ô]AQUI SE TIVER LETRA ELE RANDOMIZA EM UCASE/LOWCASE
End Function
Public Function geradordechave()
Dim coletanea As Variant
Dim x, y, numeroarquivo As Integer
Dim chaveusada As String
coletanea = Array([Ô]0[Ô], [Ô]1[Ô], [Ô]2[Ô], [Ô]3[Ô], [Ô]4[Ô], [Ô]5[Ô], [Ô]6[Ô], [Ô]7[Ô], [Ô]8[Ô], [Ô]9[Ô]) [ô]AQUI VOCE POE OS NUMEROS/LETRAS/CARACTERS QUE VOCE QUIZER[ô]
Do While Len(geradordechave) < 100 [ô]AQUI E O TAMANHO QUE VOCE QUER[ô]
y = RandomInteger(0, 61)
geradordechave = geradordechave & coletanea(y)
Loop
End Function
Public Function RandomInteger(Lowerbound As Integer, Upperbound As Integer) As Integer
Randomize
RandomInteger = Int((Upperbound - Lowerbound + 1) * Rnd + Lowerbound) [ô]AQUI SE TIVER LETRA ELE RANDOMIZA EM UCASE/LOWCASE
End Function
Faça seu login para responder