[R] Afficher une image au hasard

[Zouzaka]

Bonjour, j'ai fait une gui avec koda qui fait :
201px*201px
avec une image a l’intérieur qui fait 200px*200px
et je veut que le contenu de l'image change au hasard au lancement donc j'ai fait ca :

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;==== Mes Fonctions ====
;= Fonction hasard des images
Func ImageTap()
    Local $hasar = Random(0,3)
    If $hasar = 0 Then
        Local $Chemin = "C:\Documents and Settings\Administrateur\Mes documents\TapGame\Images\Bas.jpg"
        Return $Chemin
    ElseIf $hasar = 1 Then
        Local $Chemin = "C:\Documents and Settings\Administrateur\Mes documents\TapGame\Images\Droite.jpg"
        Return $Chemin
    ElseIf $hasar = 2 Then
        Local $Chemin = "C:\Documents and Settings\Administrateur\Mes documents\TapGame\Images\Gauche.jpg"
        Return $Chemin
    ElseIf $hasar = 3 Then
        Local $Chemin = "C:\Documents and Settings\Administrateur\Mes documents\TapGame\Images\Haut.jpg"
        Return $Chemin
    EndIf
EndFunc
;= ...

;==== Création de la window ====
#Region ### START Koda GUI section ### Form=
Global $Handle1 = GUICreate("TapGame", 184, 184, 667, 291)
$ImageChemin = ImageTap()
Global $Pic1 = GUICtrlCreatePic($ImageChemin, 0, 0, 200, 200)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
MsgBox(0,"",$ImageChemin)
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

 EndSwitch
WEnd


 

Mais rien ne s'affiche =/, comme vous pouvez le voir j'ai fait une MsgBox pour verifier le contenu de "$Imagechemin"
et ca m'affiche "0" =$, je voudrait bien savoir ou est mon erreur ^^'

[PandiPanda]

Bonjour,
si vous afficher "$hasar" via une msgbox() vous verrez qu'elle prend une valeur à virgule or vous avez besoin d'un entier.

Pour cela il suffit de mettre le flag a 1 comme ceci;

Code : Tout sélectionner

Local $hasar = Random(0,3,1)

ps : il est plus facile de mettre cela dans un tableau comme cela;

► Afficher le texte

Code : Tout sélectionner

Func ImageTap()
    Local $hasar = Random(0,3,1)
    Local $tableau[4] = ["C:\Documents and Settings\Administrateur\Mes documents\TapGame\Images\Bas.jpg", _
    "C:\Documents and Settings\Administrateur\Mes documents\TapGame\Images\Droite.jpg", _
    "C:\Documents and Settings\Administrateur\Mes documents\TapGame\Images\Gauche.jpg", _
    "C:\Documents and Settings\Administrateur\Mes documents\TapGame\Images\Haut.jpg"]
    Return $tableau[$hasar]
EndFunc

[Zouzaka]

Merci pour cette information, ca marche ^^