Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: Ever Cerna en Julio 07, 2013, 06:10:56 am

Título: Generar Imagenes Aleatorias
Publicado por: Ever Cerna en Julio 07, 2013, 06:10:56 am
Buenas a todos...

Alguien me puede dar una manito, necesito generar imágenes de forma aleatoria y a la vez saber cuantas imágenes se muestran.

Por ejemplo tengo 10 imagenes, de esas 10 imagenes al ejecutar la aplicacion solo me muestra 5, en unos Label tengo 3 posibles opciones 2, 4, 5, las cuales una de ellas me da la respuesta, no logro hacerlo haber si alguien me tira una idea se les estaria agradeciedo mucho

Salu2.
Título: Re:Generar Imagenes Aleatorias
Publicado por: Bazooka en Julio 07, 2013, 09:24:28 pm
Creo deberías esplicarlo un poco mejora ya que al menos yo no alcanzo a interpretar exactamente tu necesidad.!
Título: Re:Generar Imagenes Aleatorias
Publicado por: Ever Cerna en Julio 08, 2013, 08:36:42 am
Buenas, osea lo que necesito hacer es un pequeño juego, en la cual, casa vez k presiono un botón me va generando cada cierta cantidad de imagenes de forma aleatoria, x ejemplo al presionar el botón me generan 4 imagenes, entonces mas abajo en 3 label me salen las 3 posibles respuestas: A(5)  B(7)  C(4), si acierta, se genera otra cantidad de imagemes, espero haberme explicado bien, solo necesito alguna idea...

Salu2, y muhas gracias.
Título: Re:Generar Imagenes Aleatorias
Publicado por: Bazooka en Julio 08, 2013, 10:53:44 am
Vos halbas de generar imagenes lo que confunde! creo que lo que vos queres entonces es MOSTRAR Imagenes de forma aleatoria.:

Esta linea de codigo te devueleve un indice entre 1 y 5 que podes usar para cargar una imagen de una matriz.
 tmp = Int((5 - 1) * Rnd + 1)   '  genera un # de 1 a 5
Título: Re:Generar Imagenes Aleatorias
Publicado por: E N T E R en Julio 08, 2013, 12:33:43 pm
En donde tenes alojado tu proyecto le pones a las fotos como nombre 01.jpg , 02.jpg , 03.jpg, etc

Código: (VB) [Seleccionar]
    Dim xRnd As Integer
    Randomize Timer
    For i = 0 To 2
        xRnd = Int((10 - 1) * Rnd + 1)
        Picture1(i).Picture = LoadPicture(App.Path & "\" & xRnd & ".jpg")
    Next i

Saludos...
Título: Re:Generar Imagenes Aleatorias
Publicado por: Ever Cerna en Julio 11, 2013, 06:22:36 pm
En donde tenes alojado tu proyecto le pones a las fotos como nombre 01.jpg , 02.jpg , 03.jpg, etc

Código: (VB) [Seleccionar]
    Dim xRnd As Integer
    Randomize Timer
    For i = 0 To 2
        xRnd = Int((8 - 1) * Rnd + 1)
        Picture1(I).Picture = LoadPicture(App.Path & "\ImgKids\" & xRnd & ".jpg") ´Le puse la ruta asi y me sale un error las imagenes los tengo en una carpeta son 8 imagenes
    Next i

Me dice el error que no se ah encontrado el archivo...

Salu2.
Título: Re:Generar Imagenes Aleatorias
Publicado por: E N T E R en Julio 11, 2013, 08:00:12 pm
Son ".jpg" tus archivos, le llamaste como te dije a tus archivos ejem: 1.jpg, 2,jpg 3.jpg... etc..

Ejemplo:

(http://www.mediafire.com/convkey/03f2/rhmt2nbdt3z2q994g.jpg) (http://www.mediafire.com/view/rhmt2nbdt3z2q99/img_aleatorio.png)

Como ves en donde tengo alojado el proyecto cree 10 imagenes.jpg, bueno sin mas lio acá te subo el proyecto

Link Proyecto
http://www.mediafire.com/download/irk3qfsicdodokf/img_aleatorio.rar (http://www.mediafire.com/download/irk3qfsicdodokf/img_aleatorio.rar)
Título: Re:Generar Imagenes Aleatorias
Publicado por: Ever Cerna en Julio 12, 2013, 04:00:11 pm
xD, perdon x mi error no me habia percatado de los Pictures  :P

Muchas Gracias...

Salu2