SoundStatus()

Syntaxe

Resultat = SoundStatus(#Son [, Canal])

Renvoie l'état d'un Son.

Arguments

#Son	Le Son à utiliser.
Canal (optionnel)	Le canal à utiliser. C'est la valeur renvoyée par PlaySound() avec l'option #PB_Sound_MultiChannel.

Valeur de retour

Peut être une des valeurs suivantes:

  #PB_Sound_Stopped: Le son est arrêté.
  #PB_Sound_Playing: Le son est joué.
  #PB_Sound_Paused : Le son est en pause.
  #PB_Sound_Unknown: Le son est dans un état inconnu (une erreur s'est produite lors de l'obtention de l'état).

Exemple

Procedure SelectStatus(Status)
  Select Status
    Case #PB_Sound_Stopped
      MessageRequester("Info", "Le son est arrêté.")
      
    Case #PB_Sound_Playing
      MessageRequester("Info", "Le son est joué.")
      
    Case  #PB_Sound_Paused
      MessageRequester("Info", "Le son est en pause.")
      
    Case #PB_Sound_Unknown
      MessageRequester("Info", "Statut inconnu.")
      
    Default
      MessageRequester("Info", "Statut inconnu.")
      
  EndSelect
EndProcedure

If InitSound()           ; Initialisation des Sons
  UseOGGSoundDecoder()   ; Utilisation des fichiers ogg
  
  ; Chargement d'un son depuis un fichier
  If  LoadSound(0, #PB_Compiler_Home +"Examples\3D\Data\Siren.ogg")
    ; Le son joue en boucle
    PlaySound(0, #PB_Sound_Loop, 20)
    SelectStatus(SoundStatus(0))
    
    PauseSound(0)
    SelectStatus(SoundStatus(0))
    
    ResumeSound(0)
    SelectStatus(SoundStatus(0))
    
    StopSound(0)
    SelectStatus(SoundStatus(0))
    
    FreeSound(0) ; Le son est libéré
    End
  EndIf
Else
  Debug "Avertissement! L'environnement sonore n'a pas pu être initialisé. Aucune commande sonore ne peut donc être utilisée..."
EndIf

Voir aussi

PlaySound(), StopSound(), PauseSound(), ResumeSound()

OS Supportés

Tous