Tema destacado:  Suscripción al boletín mensual de elhacker.net
 Autor
|
Tema: Hacer valores aleatorios sin Select Case (Leído 823 veces)
|
oskoa
 Desconectado
Mensajes: 53
|
Buenas noches, lo que andaba buscando es un código que me tire valores aleatoris preexistentes de forma completamente aletoria.
Cuando uso el Selectcase, los hace aleatorios, pero siempre en el mismo orden... y eso me perjudica mucho, tienen que ser completamente aleatorio. cada vez que se inicia el programa el "random" va siepmre en el mismo orden.
como haria para que siempre sea aleatorio?
sel = Int(Rnd() * 19)
Select Case sel
Case 0
txtserial.Text = "Nmero 1"
Case 1
txtserial.Text = "Nmero 2"
Case 2
txtserial.Text = "Nmero 3"
Case 3
txtserial.Text = "Nmero 4"
Con eso por ejemplo la 1ra vez tira "4 1 3 2" en ese orden de aleatorio, pero cada vez que le doy play, hce lo mismo "4 1 3 2" mi intencion es que siempre sea diferente el ordenn, ademas que sean aleatorios
Como serñia?
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
tenes que poner Randomize() arriba del Rnd() Ejemplos para generar números aleatoriossaludos.
|
|
|
|
|
En línea
|
Mucha gente, especialmente la ignorante desea castigarte por decir la verdad, por ser correcto, por ser tú. Nunca te disculpes por ser correcto, o por estar años delante de tu tiempo.
Si estas en lo cierto, y lo sabes, que hable tu razón. Incluso si eres una minoria de uno solo, la verdad sigue siendo la verdad. M. Gandhi
|
|
|
Elemental Code
Desconectado
Mensajes: 499
Im beyond the system
|
Private Function RandomNumBetween(ByVal LowerLimit As Long, ByVal UpperLimit As Long) As Long
Randomize Timer
' This function returns a pseudo-random number between
' the specified limits (inclusive).
RandomNumBetween = Rnd * (UpperLimit - LowerLimit) + LowerLimit
End Function
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.831
I'Love...!¡.
|
.
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 99
Debug.Print numRandom(1, 3)
Next
End Sub
Private Sub lSwap(ByRef l1 As Long, ByRef l2 As Long)
' // Intercambia el contenido de las variables.
l2 = l2 Xor l1
l1 = l1 Xor l2
l2 = l2 Xor l1
End Sub
Private Function fixNumbers(ByRef lMin As Long, ByRef lMax As Long) As Boolean
' // Corrige los valores dados.
If lMax < lMin Then
Call lSwap(lMin, lMax)
fixNumbers = True
End If
End Function
Private Function numRandom(ByVal lMin As Long, ByVal lMax As Long) As Long
' // Genera un Numero aleatorio de acuerdo a un rango dado.
Call fixNumbers(lMin, lMax)
Call Randomize
numRandom = (lMin - lMax) * Rnd + lMax
End Function
Si quieres una clase mas completa: cRndNumbersNRDulces Lunas!¡. |
|
|
|
« Última modificación: 14 Noviembre 2011, 00:27 por BlackZeroX (Astaroth) »
|
En línea
|
|
|
|
Elemental Code
Desconectado
Mensajes: 499
Im beyond the system
|
blackzero, acostumbrate a poner Randomize Timer Siguen siendo "pseudoaleatorios" pero como la seed timer cambia por segundo es mas dificil que sean siempre en el mismo orden. Se entiende? :S
EDITO Timer Function
Returns a Single representing the number of seconds elapsed since midnight. http://msdn.microsoft.com/en-us/library/Aa263387 |
|
|
|
« Última modificación: 14 Noviembre 2011, 18:01 por Elemental Code »
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.831
I'Love...!¡.
|
blackzero, acostumbrate a poner Randomize Timer Siguen siendo "pseudoaleatorios" pero como la seed timer cambia por segundo es mas dificil que sean siempre en el mismo orden. Se entiende? :S
EDITO http://msdn.microsoft.com/en-us/library/Aa263387En ningun momento es PseudoAletaorio... Nunca se repiten solo es una conjetura tuya hecha al azar sin fundamento establecido... Si lees mas a fondo la MSDN en las funciones que realmente son nesesarias, omitiriamos momentos vergonzosos... Randomize = Randomize timer http://msdn.microsoft.com/en-us/library/8zedbtdt%28v=VS.80%29.aspx
This example uses the Randomize statement to initialize the random-number generator. Because the number argument has been omitted, Randomize uses the return value from the Timer function as the new seed value.
Dulces Lunas!¡.
|
|
|
|
« Última modificación: 14 Noviembre 2011, 18:41 por BlackZeroX (Astaroth) »
|
En línea
|
|
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.831
I'Love...!¡.
|
si no meto la pata como aprendo?   leyendo? ademas de prueba y error... P.D.: Me recuerdas a mi cuando apenas empesaba... cobein/seba123neo siempre saltaba (alguno) cuando me equivocaba. Dulces Lunas!¡.
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Duda con Select Case
Programación Visual Basic
|
Scratz
|
6
|
851
|
17 Diciembre 2007, 00:04
por Scratz
|
|
|
|
Problemas con SELECT CASE
Programación Visual Basic
|
stork32
|
13
|
1,332
|
12 Octubre 2008, 13:17
por Spider-Net
|
|
|
|
[javascript]rellenar campo de texto con los valores de un select al hacer click
Desarrollo Web
|
twoz
|
2
|
3,419
|
9 Marzo 2009, 11:31
por twoz
|
|
|
|
select case sql, enviar form
PHP
|
alexkof158
|
5
|
3,435
|
28 Febrero 2010, 23:34
por mokoMonster
|
|
|
DEVOLVER VALORES ALEATORIOS DE UNA ARRAY EN C#?????'
.NET
|
kanlet
|
0
|
1,438
|
19 Junio 2011, 20:22
por kanlet
|
 |
