Page 1 sur 1
[R] Diaporama
Posté : mer. 13 juil. 2011 19:12
par TT22
Bonjour,
Je suis entrain de créer un petit script qui permet d'afficher des images dont le nom : est 1.bmp ; 2.bmp ; etc...
Voici le script :
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
$gui=GUICreate("", 400, 50, -1, @DesktopHeight/2+222,$WS_POPUPWINDOW,$WS_EX_TOPMOST)
GUISetState(@SW_SHOW)
$PlayPause=GUICtrlCreateButton("Pause", 5, 5, 50, 30)
$nombre = ; nombre d'immages ici
$chemin = ; chemin d'accès des images (avec un contre-slash à la fin)
$tour = 0
While 1
$msgd=GUIGetMsg()
$tour = $tour + 1
SplashImageOn("",$chemin&$tour&".bmp",400,444,-1,-1,1)
Sleep(1000)
SplashOff()
if $msgd=$playpause then
while 1
$msgd2=GUIgetmsg()
guictrlsetdata($playpause, "reprendre")
if $msgd2=$playpause then ExitLoop
WEnd
endif
If $nombre = $tour Then ExitLoop
WEnd
MsgBox(64,"","Le diaporama est terminée.")
Exit
J'ai essayé de mettre un bouton pause mais même quand j'appuie dessus, ça continue.
Est-ce que quelqu'un voit ce qui ne vas pas dans mon script ?
Merci d'avance
Re: [..] Diaporama
Posté : mer. 13 juil. 2011 19:20
par moi
je ne peut pas te dire ce qui ne va pas mais au lieu de faire un bouton pause tu fais 2 bouton: précédent et suivant . comme ça temps que personne ne touche à rien, rien ne se passe.
Re: [..] Diaporama
Posté : mer. 13 juil. 2011 19:26
par Iste
Je vous recommande fortement la lecture de ceci :
http://www.siteduzero.com/tutoriel-3-22 ... utoit.html
Pour résoudre ce problème vous devriez commencer par utiliser le mode événementiel.
Re: [..] Diaporama
Posté : mer. 13 juil. 2011 19:50
par TT22
J'ai déjà lu ça mais je l'ai relu et je ne trouve toujours pas
Re: [..] Diaporama
Posté : mer. 13 juil. 2011 21:38
par TT22
Oui, merci mikell même si ton message à disparu
Donc, j’obtiens ça :
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
Opt("GUIOnEventMode", 1)
Local $PlayPause
$gui=GUICreate("", 400, 50, -1, @DesktopHeight/2+222,$WS_POPUPWINDOW,$WS_EX_TOPMOST)
GUISetState(@SW_SHOW)
$PlayPause=GUICtrlCreateButton("Pause", 5, 5, 70, 30)
GUICtrlSetOnEvent($PlayPause,"_pause")
$nombre = ; nombre d'immages ici
$chemin = ; chemin d'accès des images (avec un contre-slash à la fin)
$tour = 0
While 1
$tour = $tour + 1
SplashImageOn("",$chemin&$tour&".bmp",400,444,-1,-1,1)
Sleep(1000)
SplashOff()
If $nombre = $tour Then ExitLoop
WEnd
Func _pause()
[color=#00BF00];?????????????????[/color]
EndFunc
MsgBox(64,"","Le diaporama est terminée.")
Exit
Mais je ne sais pas ce que je dois mettre à la place des
;?????????????????
Re: [..] Diaporama
Posté : mer. 13 juil. 2011 22:11
par mikell
Mon message a disparu parce que je voulais écrire un exemple
► Afficher le texte
Code : Tout sélectionner
Opt("GUIOnEventMode", 1)
GuiCreate("", 300, 300)
$label = GuiCtrlCreateLabel("", 20, 20, 50, 50)
$count = GuiCtrlCreateLabel("", 80, 20, 20, 20)
$button = GuiCtrlCreateButton("pause", 20, 80, 60, 25)
GuiSetState()
GUISetOnEvent(-3, "_Exit")
GuiCtrlSetOnEvent($button, "_Pause")
$paused = false
$n = 0
While 1
If $paused = false Then
_Play()
Else
Sleep(10)
EndIf
Wend
Func _Play()
$n += 1
guictrlsetdata($count, $n)
Sleep(200)
GUICtrlSetBkColor($label, 0x0000ff)
Sleep(200)
GUICtrlSetBkColor($label, 0xff0000)
EndFunc
Func _Pause()
$paused = not $paused
If $paused = true Then
guictrlsetdata($button, "reprendre")
Else
guictrlsetdata($button, "pause")
EndIf
EndFunc
Func _Exit()
Exit
EndFunc
Re: [..] Diaporama
Posté : mer. 13 juil. 2011 22:21
par TT22
Merci Mikell, c'est parfait