 Autor
|
Tema: Hacer valores aleatorios sin Select Case (Leído 3,820 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
|
|
|
|
|
|
Elemental Code
Desconectado
Mensajes: 622
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
|
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas |
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
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 am por BlackZeroX (Astaroth) »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Elemental Code
Desconectado
Mensajes: 622
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 pm por Elemental Code »
|
En línea
|
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas |
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
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 pm por BlackZeroX (Astaroth) »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
si no meto la pata como aprendo?   |
|
|
|
|
En línea
|
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas |
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
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
|
The Dark Shadow is my passion.
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Duda con Select Case
Programación Visual Basic
|
Scratz
|
6
|
3,262
|
17 Diciembre 2007, 00:04 am
por Scratz
|
|
|
|
Problemas con SELECT CASE
« 1 2 »
Programación Visual Basic
|
stork32
|
13
|
7,429
|
12 Octubre 2008, 13:17 pm
por Spider-Net
|
|
|
|
select case sql, enviar form
PHP
|
alexkof158
|
5
|
6,217
|
28 Febrero 2010, 23:34 pm
por mokoMonster
|
|
|
|
consejo sobre el uso del Select Case en este ejercicio
Programación Visual Basic
|
lio crossroad
|
6
|
4,473
|
21 Abril 2013, 22:48 pm
por lio crossroad
|
|
|
|
[DUDA] Select Case
Programación Visual Basic
|
Zodiak98
|
2
|
2,257
|
21 Mayo 2013, 13:24 pm
por 79137913
|
 |
