Lecteur Multimédia Bouton pause ?

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Vlad
Messages : 14
Inscription : jeu. 03/juil./2008 18:47

Lecteur Multimédia Bouton pause ?

Message par Vlad »

Je me fabrique un lecteur de musique minimaliste.
Pour programmer le bouton Play : Playsound
Pour programmer le bouton Stop : StopSound
Mais pour programmer le bouton Pause ?
Si quelqu'un peut m'aider, je ne vois pas comment y parvenir ?
Est-ce possible en PureBasic ?

MERCI infiniment
Avatar de l’utilisateur
falsam
Messages : 7324
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Lecteur Multimédia Bouton pause ?

Message par falsam »

la bibliothéque Movie propose des commandes simples.

Code : Tout sélectionner

Enumeration
  #MainForm
  #Play
  #Pause
  #Sound
EndEnumeration


If InitMovie() = 0
  MessageRequester("Oops", "Soucis durant la phase d'initialisation", 0) 
  End
EndIf

MovieName$ = OpenFileRequester("Choose the movie to play", "", "Mp3|*.mp3", 0)
If MovieName$
  If LoadMovie(#Sound, MovieName$)
  
    OpenWindow(#Mainform, 100, 100, 600, 500, "Joue avec moi")
    ButtonGadget(#Play,20,400,100,20,"Play")
    ButtonGadget(#Pause,120,400,100,20,"Pause")
    PlayMovie(#Sound, WindowID(0))
      
    Repeat
      Select WaitWindowEvent()  
        Case #PB_Event_Gadget
          Select EventGadget()
            Case #Play
              PlayMovie(#Sound, WindowID(#MainForm))
            Case #Pause
              PauseMovie(#Sound)
          EndSelect
          
        Case #PB_Event_CloseWindow
          End
      EndSelect
    ForEver
  Else
    MessageRequester("Erreur", "Impossible de charger votre morceau de musique...", 0)
  EndIf
EndIf 
Configuration : Windows 11 Famille 64-bit - PB 6.20 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Répondre