Registrarse

[diego994]

"Efectivo?" generador de números aleatorios en VB6
Bueno, este es un módulo q programe hace mucho para un juego en vb6, intenté jugar con la funcion Rnd sin usar la Randomize. gMaxNum es una variable global que no me acuerdo para q carajo era jejeje, na es el número max que puede devolver la función. Estudienlo q cambiando algunos valores se personaliza. Quizas a alguien le pueda servir.


Public Function intNumeroaleatorio() As Integer
    Dim r As String, s As Integer, t As Integer, seacabo As Boolean
    seacabo = False
    Do While seacabo = False
        r = CStr(Timer)
        s = Len(r)
        t = Mid(r, s, 1)
        intNumeroaleatorio = (t * Int(gletras * Rnd))
        r = CStr(intNumeroaleatorio)
        s = Len(r)
        t = Mid(r, s, 1)
        intNumeroaleatorio = t
        If intNumeroaleatorio >= 0 And intNumeroaleatorio < gMaxNum Then
            seacabo = True
        End If
    Loop
End Function

[Xrasl]

Hola e mirado el source que aparece arriba, pero no consigo hacerlo funcionar. si no seria mucho pedir ¿pueden explicarme como se puede hacer funcionar, yo hice un codigo que creaba numeros aleatorios pero solo me respondia con 1s y 0s, es el siguiente:

Private Sub Command1_Click()
Dim Num As Byte
  Randomize
  Num = Rnd
  Text1.Text = Num
End Sub

Yo quiero que me consiga numeros enteros entre 0 y 255, por lo que utilizé la variable byte, pero no se cual es el error que cometi.
Espero k me respondan Gracias

[MMara]

si miras en la ayuda, te dice que rnd te da valores entre 0 y 1, así que lo que tienes que hacer es:
Int((Límite_superior - límite_inferior + 1) * Rnd + límite_inferior)

Lo he probado y funciona:

Código:

Private Sub Command1_Click()
    Dim Num As Byte
    Num = Int(255 - 1) * Rnd + 0
    Text1.Text = Num
End Sub

Un saludo!

[Xrasl]

Ok muchas gracias.
MMara una duda sobre la ayuda. Yo le doy al boton d la ayuda y me pide que instale la "coleccion MSDN". Eso que es un programa de ayuda o algo asi? 
Graciassss

[el_chente23]

La Coleccion MSDN (Microsoft Developer Network), Es La Ayuda Tipo CHM de Visual Studio 6.0, Esta ayuda Son 2 Discos, Por Lo Menos Esos Son Los Que Tengo Yo. 

[Villamil]

Yo para hacer números aleatorios hago:

Rnd =((Int*el número máximo)-1

[Mad Antrax]

Yo para hacer numeros aleatorios uso:
Num = Int((Rnd * numero maximo)+1)
(esto me muestra un numero entre el: 1 al numero maximo

o si no:
Num = Int(Rnd * numero maximo)
(esto me muestra un numero entre el: 0 al numero maximo - 1

[bluedog]

La Coleccion MSDN (Microsoft Developer Network), Es La Ayuda Tipo CHM de Visual Studio 6.0, Esta ayuda Son 2 Discos, Por Lo Menos Esos Son Los Que Tengo Yo. 

>>Ya y por si acaso, no sabes donde se podrían bajar esos discos? o simplemente hay que comprarselos a Microsoft?

[bluedog]

>>Ya pues hombre! contesteis la questions o nadie sabe?

[musky]

La verdad es que el codigo que postea diego994 es totalmente descartable. Ya que el Visual Basic 6 cuenta con un algoritmo interno lo cual fue optimizado para lograr un mejor desempeño en las aplicaciones.

Se utiliza
Randomize para que el Rnd sea <> al anterior.
Rnd Genera un numero entre 0.001 y 0.999.
Int Toma la parte entera redondeando para arriva

espero que les quede claro todo adios