 Autor
|
Tema: El Random no es tan Random. (Leído 3,047 veces)
|
|
Freeze.
|
Bueno, compruebenlo ustedes mismos. Ya se que no es un secreto pero aca lo dejo: 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
|
|
|
|
|
En línea
|
|
|
|
el_c0c0
 Desconectado
Mensajes: 307
|
.
|
|
|
|
« Última modificación: 14 Septiembre 2008, 19:56 pm por el_c0c0 »
|
En línea
|
 '- coco "Te voy a romper el orto"- Las hemorroides |
|
|
|
Freeze.
|
|
|
|
|
« Última modificación: 13 Septiembre 2008, 19:13 pm por Freeze. »
|
En línea
|
|
|
|
|
LeandroA
|
hola prova asi 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 |
|
|
|
|
En línea
|
|
|
|
|
|
rob1104
Desconectado
Mensajes: 340
Usuario común
|
En vez de poner Randomize Rnd deja solo Randomize, asi ya pinta siempre diferente.
|
|
|
|
|
En línea
|
Sin análisis de requisitos o sin diseño, programar es el arte de crear errores en un documento de texto vacío.
|
|
|
|
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.
|
|
|
|
|
En línea
|
|
|
|
JineteNegro666
Desconectado
Mensajes: 7
¡¿En qué cojones estás pensando!?
|
Si quieres generar un número realmente aleatorio deberías de probar esto: 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 |
|
|
|
« Última modificación: 16 Septiembre 2008, 21:04 pm por JineteNegro666 »
|
En línea
|
Then I saw theres was a way to Hell, even from the gates of Heaven...  |
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Random que no repita resultados
PHP
|
carlosuc99
|
9
|
4,551
|
20 Octubre 2012, 17:42 pm
por WarGhost
|
|
|
|
[SOLUCIONADO] problema con Random
.NET (C#, VB.NET, ASP)
|
Eleкtro
|
7
|
5,608
|
18 Enero 2013, 19:52 pm
por seba123neo
|
|
|
|
random vb6
« 1 2 »
Programación Visual Basic
|
asdexiva
|
10
|
5,758
|
23 Enero 2013, 04:46 am
por BlackZeroX
|
|
|
|
Random Freezes/crashes en Centos 6.4
GNU/Linux
|
Gotttlieb
|
3
|
2,707
|
2 Septiembre 2013, 19:06 pm
por Gotttlieb
|
|
|
|
Duda con Random C#
Programación General
|
Bob1098
|
4
|
3,256
|
12 Mayo 2014, 16:40 pm
por Bob1098
|
 |
