Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Zorrohack en 17 Septiembre 2006, 20:18 pm

Título: Duda Fotos Aleatorias
Publicado por: Zorrohack en 17 Septiembre 2006, 20:18 pm

tengo un directorio que su contenido es de fotos .jpg

y quisiera mostrarlas pero de manera aleatoria como lo haria entonces?

Título: Re: Duda Fotos Aleatorias
Publicado por: yeikos en 17 Septiembre 2006, 22:10 pm

Crea una matriz y ve asignandole el nombre de la foto a esta mediante un bucle, luego haz un rnd y según el número que salga eligirá una foto u otra...

Título: Re: Duda Fotos Aleatorias
Publicado por: Mad Antrax en 17 Septiembre 2006, 22:31 pm

Yo renombraría las fotos asi:

1.jpg
2.jpg
3.jpg
[...]

Y luego en el programa pones:

Código:

Picture1.Picture = LoadImage(int(rnd*100) & ".jpg")

No lo he probado, pero creo que el código sería una cosa asi :)

Título: Re: Duda Fotos Aleatorias
Publicado por: Zorrohack en 17 Septiembre 2006, 23:09 pm

no entiendo muy bien. :-[

Título: Re: Duda Fotos Aleatorias
Publicado por: Zeroql en 18 Septiembre 2006, 04:55 am

Cita de: ||MadAntrax|| en 17 Septiembre 2006, 22:31 pm

Código:

Picture1.Picture = LoadImage(int(rnd*100) & ".jpg")

lo que se esta haciendo es cargar una imagen aleatoria de 1 a 100 logicamente cambias el 100 por el numero de jpg que tienes. esta claro?

Título: Re: Duda Fotos Aleatorias
Publicado por: yeikos en 18 Septiembre 2006, 13:36 pm

Código:

Public Function Busqueda(folder As String, ext As String) As String
On Error Resume Next
Dim cr As String, cx As String: str1 = folder
cr = Dir$(folder + "*." + ext)
While cr <> ""
cx = cx & cr & "|"
cr = Dir$
Wend
End Function
Private Sub Command1_Click()
buf = Split(Busqueda("C:\carpeta_con_imagenes\", "jpg"), "|")
MsgBox
Picture1.Picture = LoadImage(str1 & buf(Int((Rnd * UBound(buf)))))
End Sub

Suerte ;)