Replacing Picture

[wiipenmaker]

I have 3 seperate image files.

I would like to be able to the following in one GUI

one of the pics named 1 2 or 3 .jpg is displayed a random number of times

When a button is pressed a different image 1 2 or 3 .jpg is displayed a random number of times

This is how I have the original pictures being displayed

$x = Random(1,9,1)

$p = Random(1,3,1)

For $i = 1 to $x

GUICtrlCreatePic($p&".jpg",100*($i-1),0,100,100)

Next

Thanks

Edited February 21, 2009 by wiipenmaker

[Zedna]

$pic = GUICtrlCreatePic("",0,0,100,100) 

$x = Random(1,9,1) 
$p = Random(1,3,1) 

For $i = 1 to $x
  GUICtrlSetImage($pic, $p&".jpg") 
Next

Edited February 21, 2009 by Zedna

[wiipenmaker]

My problem is that if I name the GUICtrlCreatePic, $pic then the set image would only work for one not all random x of them

I have 3 seperate image files.

I would like to be able to the following in one GUI

one of the pics named 1 2 or 3 .jpg is displayed a random number of times

When a button is pressed a different image 1 2 or 3 .jpg is displayed a random number of times

This is how I have the original pictures being displayed

$x = Random(1,9,1)

$p = Random(1,3,1)

For $i = 1 to $x

GUICtrlCreatePic($p&".jpg",100*($i-1),0,100,100)

Next

Thanks

[Zedna]

Maybe something like this?

$pic1 = GUICtrlCreatePic("",0,0,100,100) 
$pic2 = GUICtrlCreatePic("",100,0,100,100) 
$pic3 = GUICtrlCreatePic("",200,0,100,100) 

For $i = 1 to 3
  $p = Random(1,3,1) 
  GUICtrlSetImage(Eval("pic" & $i), $p & ".jpg") 
Next

EDIT: corrected syntax errors in Eval

Edited February 21, 2009 by Zedna

[wiipenmaker]

It worked thanks