PureBasic

bonsoir tout le monde.

voila j'ai une question qui peut sembler c**

mais je ne trouve vraiment pas je souhaiterais metre une musique en pause et la relancer au meme endroit en faisant lecture

, je sais sa peut paraitre nul mais j'y arrive pas.

je vous ai fait un petit code d'exemple merci de votre comprehention <-- pas sur l'orthographe

Code : Tout sélectionner

If InitMovie() = 0
  MessageRequester("Erreur", "Impossible de lire des vidéos", 0)
  End
EndIf

Enumeration
  #liste=0
  #play=1
  #pause=2
EndEnumeration

If OpenWindow(0, 0, 0, 241, 31, #PB_Window_SystemMenu | #PB_Window_ScreenCentered , "exemple")And CreateGadgetList(WindowID(0))
  ButtonGadget(#liste, 0, 1, 80, 30, "liste")
  ButtonGadget(#play, 81, 1, 80, 30, "play") 
  ButtonGadget(#pause, 162, 1, 80, 30, "pause") 
  
    Repeat 
     Event = WaitWindowEvent()
      If Event = #PB_EventGadget
       Select EventGadgetID()
       
       Case #liste
        NomFichier$ = OpenFileRequester("Titre", "", "fichier audio|*.wav;*.wave;*.mp3;*.mid;*.wma;*.mp4;*.Ogg Vorbis", 1)
        If NomFichier$
         LoadMovie(1, NomFichier$)
        EndIf
        
       Case #play
        PlayMovie(1, WindowID())
        ResizeMovie(8, 125, 750, 430)
        
       Case #pause
        PauseMovie()
      
      EndSelect
     EndIf
   Until Event = #PB_EventCloseWindow 
  EndIf
 End

voila merci desol du derangement

@++

venom a écrit :voila j'ai une question qui peut sembler c** mais je ne trouve vraiment pas je souhaiterais metre une musique en pause et la relancer au meme endroit en faisant lecture , je sais sa peut paraitre nul mais j'y arrive pas.

Pourtant pas compliqué, tout est dans l'aide

MovieStatus() et ResumeMovie()

Voilà le code, le bouton play lance le fichier si il est arreté, et le continue si il est en pause.

Code : Tout sélectionner

If InitMovie() = 0 
  MessageRequester("Erreur", "Impossible de lire des vidéos", 0) 
  End 
EndIf 

Enumeration 
  #liste=0 
  #play=1 
  #pause=2 
EndEnumeration 

If OpenWindow(0, 0, 0, 241, 31, #PB_Window_SystemMenu | #PB_Window_ScreenCentered , "exemple")And CreateGadgetList(WindowID(0)) 
  ButtonGadget(#liste, 0, 1, 80, 30, "liste") 
  ButtonGadget(#play, 81, 1, 80, 30, "play") 
  ButtonGadget(#pause, 162, 1, 80, 30, "pause") 
  
  Repeat 
    Event = WaitWindowEvent() 
    If Event = #PB_EventGadget 
      Select EventGadgetID() 
        
        Case #liste 
          NomFichier$ = OpenFileRequester("Titre", "", "fichier audio|*.wav;*.wave;*.mp3;*.mid;*.wma;*.mp4;*.Ogg Vorbis", 1) 
          If NomFichier$ 
            LoadMovie(1, NomFichier$) 
          EndIf 
          
        Case #play
          If MovieStatus() = 0
            PlayMovie(1, WindowID()) 
            ResizeMovie(8, 125, 750, 430)
          ElseIf MovieStatus() = -1
            ResumeMovie()
          EndIf
          
        Case #pause 
          PauseMovie() 
          
      EndSelect 
    EndIf 
  Until Event = #PB_EventCloseWindow 
EndIf 
End

Et à propos, pourquoi "ResizeMovie(8, 125, 750, 430)", si tu n'ouvres que des fichiers audio ?
"OpenFileRequester("Titre", "", "fichier audio|*.wav;*.wave;*.mp3;*.mid...)"

merci chris

le probleme c'est que dans l'aide j'ai chercher que dans

Code : Tout sélectionner

pausemovie

puis

Code : Tout sélectionner

resumemovie

j'avais pas vu

Code : Tout sélectionner

moviestatus()

.

desoler maintenant je serais que quand je cherche dans une fonction il faut regarder touts les elements et non pas seulement se que tu cherche c'est de ma faute encore desoler et merci pour tout.
vous etre trop fort

@++

PureBasic

pausemovie() question bidon :s

pausemovie() question bidon :s