[R] Diaporama

[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

[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.

[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.

[TT22]

J'ai déjà lu ça mais je l'ai relu et je ne trouve toujours pas

[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 ;?????????????????

[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
 

[TT22]

Merci Mikell, c'est parfait