numeros aleatoreos

[jose58]

buenas tardes tengan todo tengo un problema yo actualmente estoy como pasante en una empresa de telecomunicaciones y me mandaron hacer un sistemaita o programita, en ese progrmita hay una parte del formulario que esta una opcion para colocar fechas y 3 numeros ejemplo

tengo 6 cajas en la parte izquierda que son para las fechas y ala derecha 6 cajas mas y abajo de ellas 2 cajas que mostraran el numero escojido lo que necesito es que una vez que coloque las 6 fechas y los 3 numero en cada caja y al darle a un cmd asigne una de esas seis fechas y seis caja que tienen 3 numero alguine sabra, e investigado y no consigo.

[ReViJa]

No se si te entendi bien...

Crea una matriz de textbox llamada txtfecha de 6, otra matriz de txtnum de 6 y un commandbutton.

Código:

Private Sub Command1_Click()

Randomize
x = Int((6 * Rnd) + 1)
Randomize
y = Int((6 * Rnd) + 1)

TxtFecha(0).Text = TxtFecha(x).Text
TxtNum(0).Text = TxtNum(y).Text

End Sub

Con este code cada vez que pulse es cmd cargará el txtfecha(0) y el txtnum(0) con los valores de el txt correspondiente dependiendo del numero aleatorio.


Si te he liado dimelo y te mando un ejemplo.

Un saludo.

[jose58]

ok ok te entendi mas o menos pero lo que no entiendo es que es x y que es y x es textfecha con index 0 y textnum con index 0 ???

[jose58]

analice el codigo y no la verda no entendi lo hice pero me da error dice numero de argumento erroneo o asignacion de la propiedad no valida no entiendo el codigo para que es x, y la verdad no lo entendi y dsiculpame.

[jose58]

Iniciado por ReViJa

No se si te entendi bien...

Crea una matriz de textbox llamada txtfecha de 6, otra matriz de txtnum de 6 y un commandbutton.

Código:

Private Sub Command1_Click()

Randomize
x = Int((6 * Rnd) + 1)
Randomize
y = Int((6 * Rnd) + 1)

TxtFecha(0).Text = TxtFecha(x).Text
TxtNum(0).Text = TxtNum(y).Text

End Sub

Con este code cada vez que pulse es cmd cargará el txtfecha(0) y el txtnum(0) con los valores de el txt correspondiente dependiendo del numero aleatorio.


Si te he liado dimelo y te mando un ejemplo.

Un saludo.

ok pana fijate lo probe si funciona execlente pero hay un detalle q cuadno escoje el numero y la fecha no es la misma fecha, porque yo deseo que si si coloco en una caja una fecha y en otra caja que esta al lado el numero deseo que escoja alguna de esas fecha y numero pero que estn al lado, este funciona pero escoje una fecha de arriba con un numero de la caja de abajo me entendes.

[ReViJa]

X e Y son números aleatorios generados con la función Rnd.

Si lo que pretendes es que la fecha seleccionada haga referencia a su número da la derecha, el code quedaria así:

Código:

Private Sub Command1_Click()

Randomize
x = Int((6 * Rnd) + 1)

TxtFecha(0).Text = TxtFecha(x).Text
TxtNum(0).Text = TxtNum(x).Text

End Sub

Como estaba antes generaba dos numeros aleatorios diferentes, ahora el mismo número se usa para los dos (txtfecha y txtnum)


Un saludo.

[jose58]

coye hermano muchisimas gracias hermno me funciono de verdad gracias me salvastes la vida jejeje, gracias.