El Random no es tan Random.

[Freeze.]

Bueno, compruebenlo ustedes mismos. Ya se que no es un secreto pero aca lo dejo:

Código (vb) [Seleccionar] Expandir

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To 1000
    Picture1.PSet (Random(5000), Random(3000))
    Picture1.ForeColor = RGB(Random(255), Random(255), Random(255))
    Picture1.DrawWidth = Random(10)
Next i
End Sub
Function Random(Max As Long)
Randomize Rnd
Tmp = Int((Max - 1 + 1) * Rnd) + 1
Random = Tmp
End Function

[el_c0c0]

.

[Freeze.]

La idea es que se vea que siempre se repite y siempre es lo mismo, pinta en los mismos lugares una y otra vez

Eso es lo malo de aprender dogmas. Siempre he creido que hay que poner Randomize Rnd.

saludos

[LeandroA]

hola prova asi

Código [Seleccionar] Expandir


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Randomize Timer
For i = 0 To 1000
    Picture1.PSet (Random(5000), Random(3000))
    Picture1.ForeColor = RGB(Random(255), Random(255), Random(255))
    Picture1.DrawWidth = Random(10)
Next i
End Sub
Function Random(Max As Long) As Integer
    Random = Int((Max - 1 + 1) * Rnd) + 1
End Function


osea llamar Randomize Timer de entrada

[Freeze.]

Eso es lo malo de aprender dogmas. Siempre he creido que hay que poner Randomize Rnd.

saludos

De todas maneras no es para un programa.

Aunque ya que estan aca, quisiera saber cual sera la verdadera funcion Random. Es que he buscado pero nada

[rob1104]

En vez de poner Randomize Rnd deja solo Randomize, asi ya pinta siempre diferente.

[cobein]

mmm yo no soy un experto en esto pero cuando pones Randomize le seteas el ceed y siendo que es una funcion matematica imagino que vas a tener resultados iguales, si queres algo que sea relativamente bueno busca "Mersenne twister" u otra cosa que genere valores pseudoelatorios o algun entropy collector.

[JineteNegro666]

Si quieres generar un número realmente aleatorio deberías de probar esto:

Código [Seleccionar] Expandir


Private Sub Loquesea()
Randomize
numeroaleatorio = Int((10 * Rnd) + 1)


Con esto generas un número aleatorio entre 1 y 10, aunque ahora que pienso creo que en realidad era una especie de queja no? xD