imagenes en vb6

[anonymous]

Buenas, a ver si alguien me puede ayudar que estoy un poco verde en esto de visual...

Resulta que estoy intentando intercambiar las posiciones de varias imagenes aleatoriamente a base de guardar su posicion y cambiarla aleatoriamente por una de las guardadas pero el caso es que siempre hay alguna que me sale debajo de la otra. ¿Como puedo hacer para que no me coincidan las posiciones?

Espero haberme explicado, gracias

[pkj]

Sin ver tu código ni saber bien lo que intentas no se puede saber donde tienes el fallo.

De todas formas, si te he entendido, lo que quieres hacer no deberia fallar si intercambias las imagenes por parejas.

P.ej. si tienes las imagenes: 12345678
solo tienes que ir intercambiandolas en parejas aleatorias: (3,6)-12645378, (1,4)-42615378, etc y nunca te quedará una imagen sobre otra. Aunque reemplaces una imagen por si misma seguiras teniendo las 8 imagenes colocadas y al cabo de unos cuantos cambios todas habran cambiado de sitio.

El tema está en que intentas hacer y como lo planeas hacer.

[anonymous]

La idea es esta:

Tengo un form con x imagenes no visibles, de las que guardo su posicion top y left en dos arrays (ancho, alto).

Lo que pretendo hacer es colocar las imagenes en esas posiciones predefinidas, con los atributos top y left de manera aleatoria, es decir que nunca se sabe que imagen va a salir en cada posicion.

Algo así:

Almaceno las posiciones iniciales:

ancho(0)=imagen(0).left -> esto por cada imagen
alto(0)=imagen(0).top -> esto por cada imagen

Llamo a esta funcion para generar aleatorios no repetidos conprendidos entre un rango:

# Aleatorios no repetidos
#
# Function Generar_Aleatorio(Numero As Long)
#
# ' Vector para almacenar los números aleatorios
# Dim Aleatorios() As Integer
#
# Dim n As Long, i As Long
#
# 'Redimensiona el vector
# ReDim Aleatorios(Numero) As Integer
#
# 'Recorre el vector
# For i = LBound(Aleatorios()) + 1 To UBound(Aleatorios())
#
# n = i
#
# Do
# n = n - 1
# ' Compara hacia atrás, si está repetido genera un nuevo _
# número y lo guarda en el índice del vector _
# que estaba repetido, es decir en esa posición
#
# If Aleatorios(i) = Aleatorios(n) Then
# Aleatorios(i) = Int(((Numero + 1) * Rnd) + 0)
# n = i
# End If
#
# Loop Until n = 0
#
# Next
#
# generar_aleatorio=aleatorios
#
# End Function

PD: la funcion no me funciona con el valor 0 y no se como cambiarla para que me funcione (la he sacado de Internet).

anchos=generar_aleatorio(5) -> guardo los numeros aleatorios
altos=generar_aleatorio(5)

Luego para colocarlos:

x=0

imagen(0).left=ancho(anchos(x))
imagen(0).top=alto(altos(x))

x=x+1

imagen(1).left=ancho(anchos(x))
imagen(1).top=alto(altos(x))

....

Luego muestro las imagenes:

For x=0 To 3
imagen(x).visible=True
imagen2(x).visible = True
Next

Pero siempre me sale uno debajo de otro.

Todo esto debe funcionar al hacer click a un commandbutton.

Si necesitas mas código dimelo.

Gracias de antemano.

[pkj]

Está complicado porque la funcion devuelve la matriz sin usar el elemento ni el valor 0, pero tambien te has complicado la vida creando 2 matrices para la posicion, y creo que eso es lo que genera tu problema de superposicion.

Te he creado este nuevo código que solo necesita añadirle la función "Generar_Aleatorio" que no la incluyo por no repetir. Lleva una matriz de 5 imagenes y un command1.

Código vb:

Private Type Posicion
  X As Single
  Y As Single
End Type
 
Dim Posiciones(4) As Posicion
 
Private Sub Form_Load()
  
  Dim f As Integer
  
  Image1(0).Picture = LoadPicture("foto1.jpg")
  Image1(1).Picture = LoadPicture("foto2.jpg")
  Image1(2).Picture = LoadPicture("foto3.jpg")
  Image1(3).Picture = LoadPicture("foto4.jpg")
  Image1(4).Picture = LoadPicture("foto5.jpg")
    
  ' guardamos las posiciones
  For f = 0 To 4
    Posiciones(f).X = Image1(f).Left
    Posiciones(f).Y = Image1(f).Top
  Next f
 
End Sub
 
Private Sub Command1_Click()
  Dim MatrizAleatoria() As Integer
  Dim f As Long
  ' cargamos la matriz
  MatrizAleatoria = Generar_Aleatorio(5)
  
  ' recolocamos las imagenes
  For f = 0 To 4
    Image1(f).Left = Posiciones(MatrizAleatoria(f + 1) - 1).X
    Image1(f).Top = Posiciones(MatrizAleatoria(f + 1) - 1).Y
  Next f
 
End Sub
 

Saludos

[anonymous]

¿es obligatorio usar loadpicture? digamos que no termino de verle la utilidad.



Gracias por la ayuda.

[pkj]

No es obligatorio. Los pictures los cargas como más te guste. Es la primera manera que se me ha ocurrido. Espero que lo demás te sirva de ayuda.

Saludos

[anonymous]

Acople tu código y.... funciona!!

Muchisimas gracias, eres un crack!