Basic - Trabajar con Imágenes en Basic4ppc

   
Vista:

Trabajar con Imágenes en Basic4ppc

Publicado por Joserra (2 intervenciones) el 16/10/2007 15:17:56
Hola a todos,

deciros que estoy acostumbrado a programar en VB y estoy probando el Basic4ppc version 5.

En el programa que estoy intentando hacer, tengo 28 imagenes colocadas cada una en su control correspondiente sobre el form1 y declarados un array de 28 posiciones A(28), y otras variables como contadores llamadas x e i.

Quiero que me aparezcan, de una en una, de forma aleatoria pero, a pesar de seguir la ayuda, el programa no funciona.

El codigo es el siguiente

x=Rnd(0, 27) 'busqueda aleatoria de un numero enter 0 y 27
textbox3.Text =x ' Cuadro de texto para verificar el numero aleatorio
For i=0 To 27
If i=x Then
Control ("Image" & A(i)).bringtofront
End If
Next
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Trabajar con Imagenes

Publicado por Joserra (2 intervenciones) el 16/10/2007 15:30:51
Hola a todos,

REPITO EL POST PORQUE HA QUEDADO INCOMPLETO, LO SIENTO

deciros que estoy acostumbrado a programar en VB y estoy probando el Basic4ppc version 5.

En el programa que estoy intentando hacer, tengo 28 imagenes colocadas cada una en su control correspondiente sobre el form1 y declarados un array de 28 posiciones A(28), y otras variables como contadores llamadas x e i.

Quiero que me aparezcan, de una en una, de forma aleatoria pero, a pesar de seguir la ayuda, el programa no funciona.

El codigo es el siguiente

x=Rnd(0, 27) 'busqueda aleatoria de un numero enter 0 y 27
textbox3.Text =x 'Cuadro de texto para verificar el numero aleatorio
For i=0 To 27 ' recorro el array
If i=x Then 'fijo la condicion
Control ("Image" & A(i)).bringtofront 'Esta es la parte que no cumple
End If
Next

El programa responde, al dar al run,

Control ("Image" & A(i)).bringtofront

Error description:
Referencia a objeto no establecida como instancia de un objeto

Alguien puede ayudarme?

Gracias de antemano.

P.D. Referente al programa me gusta pero es el unico que conozco de este tipo para PDA. (Soy nuevo en ello)

¿Donde puedo encontrar el eV3 ese?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar