[R] Afficher une image au hasard
Posté : dim. 03 nov. 2013 10:36
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 :
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 ^^'
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
et ca m'affiche "0" =$, je voudrait bien savoir ou est mon erreur ^^'