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
Lecteur Multimédia Bouton pause ?
- falsam
- Messages : 7324
- Inscription : dim. 22/août/2010 15:24
- Localisation : IDF (Yvelines)
- Contact :
Re: Lecteur Multimédia Bouton pause ?
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%
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%