How Do You Display A Random Picture?

[slightly_abnormal]

okay.. so i want to randomly display one image everytime the script starts.. but the filename should not matter.. just that the images should exist and display one randomly.. I tryed multiple ways, of doing this i dont know arrays all that great either soo

#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("AForm1", 546, 405, 192, 125, BitOR($WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_TABSTOP))
$Pic1 = Random(1,GUICtrlCreatePic("*.bmp", 29, 20, 486, 358),1)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
    ;;;;;;;
    EndSelect
WEnd
Exit

[Valuater]

not tested

#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("AForm1", 546, 405, 192, 125, BitOR($WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_TABSTOP))
$Pic1 = GUICtrlCreatePic((Random(1,5,1) & ".bmp"), 29, 20, 486, 358)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
   ;;;;;;;
    EndSelect
WEnd
Exit

8)

[slightly_abnormal]

it worked.. thanks val

[EDIT]

it can only do numbers... ??

Edited May 12, 2006 by slightly_abnormal

[Valuater]

it worked.. thanks val

Welcome

8)

[slightly_abnormal]

eh.. how do i get it to display images with letters, and numbers in there name??

#include <GUIConstants.au3>
; == GUI generated with Koda ==
for $i= Asc(0) to Asc(255)
Next
$Form1 = GUICreate("AForm1", 546, 405, 192, 125, BitOR($WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_TABSTOP))
$Pic1 = GUICtrlCreatePic((Random(Chr($i),Chr($i),1) & ".bmp"), 29, 20, 486, 358)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
 ;;;;;;;
    EndSelect
WEnd
Exit

????

#include <GUIConstants.au3>
; == GUI generated with Koda ==
$Form1 = GUICreate("AForm1", 546, 405, 192, 125, BitOR($WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_TABSTOP))
$Pic1 = GUICtrlCreatePic((Random(chr(0),chr(255),1) & ".bmp"), 29, 20, 486, 358)
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
  ;;;;;;;
    EndSelect
WEnd
Exit

Edited May 12, 2006 by slightly_abnormal

[Xenobiologist]

Hi,

what about reading the filenames into an array and then random from 0 to Ubound(array)

So long,

Mega

[slightly_abnormal]

Hi,

what about reading the filenames into an array and then random from 0 to Ubound(array)

So long,

Mega

lol.. as you can see i'm not very good arrays.. can you show me how?