[R] Fonction Volume Slider

[locos974]

Bonjour,

J'ai un problème et celui-ci concerne les Sliders..
Je voudrais qu'il règles le volume du son d'une musique.
Vous allez tous me dire "Sujet déjà vue !" j'ai chercher j'ai trouvé mais pas ce qu'il me fallait.

merci d'avance .

[mikell]

Heu oui, et c'est quoi le soft qui joue la musique ?

[locos974]

Autoit

[mikell]

Très drôle

Alors : pour un slider qui va de 0 à 100, SoundSetWaveVolume(GUICtrlRead($slider))

[locos974]

Euh.. Vous vous attendiez quoi comme réponse à la question ?

Sinon, un grand merci !

EDIT : Le slider volume ne marche pas..

[mikell]

Comme précidé dans la doc, SoundSetWaveVolume ne marche pas toujours
Heu tu l'as bien mise dans la boucle while la fonction ?
Sinon tu peux piocher dans les nombreux exemples de "players" en autoit

[locos974]

Voilà ma boucle ( j'ai pas tout mis ma boucle )

► Afficher le texte

$size = ""
$souce = ""
$sound = 0
$vol = 100
$volume = ""

While 1
$nMsg = GUIGetMsg()
$volume = volume($vol)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Slider1
SoundSetWaveVolume(GUICtrlRead($slider1))
EndSwitch
WEnd

Func volume ($vol)
Return SoundSetWaveVolume($vol)
EndFunc

Piqué les idée de Autotit déjà essayé sans résultat..

EDIT : Trouvé mon problème de où il venait

► Afficher le texte

$souce = ""
$sound = 0
$vol = 100
$volume = ""

While 1
$nMsg = GUIGetMsg()
$volume = volume($vol)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Slider1
SoundSetWaveVolume(GUICtrlRead($slider1))
EndSwitch
WEnd

Func volume ($vol)
Return SoundSetWaveVolume($vol)
EndFunc

J'avais essayé un slider avec ça mais oublié de le supprimé voilà sujet résolu et merci encore une fois !

EDIT : Non résolu pour la compilation.. Voir plus bas.

[Tlem]

Et les balises de code dans votre message !!!

[locos974]

Pour montrer de où vien mon erreur les balise ne permette pas de mettre en couleurs dans le spoiliers.. Excusez moi.
Sinon lors de la compilation un autre problème :

► Afficher le texte

Uploaded with ImageShack.us

EDIT : Erreur de ma part sur mon code.
je vous remercie de l'aide que vous apportez .

[Tlem]

Pour montrer de où vien mon erreur les balise ne permette pas de mettre en couleurs dans le spoiliers.

Ha bon !!! Je n'ai pas ce problème en ce qui me concerne.

► Afficher le texte

Code : Tout sélectionner

$souce = ""
$sound = 0
$vol = 100
$volume = ""

While 1
$nMsg = GUIGetMsg()
$volume = volume($vol)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Slider1
SoundSetWaveVolume(GUICtrlRead($slider1))
EndSwitch
WEnd

[color=#FF0000]Func volume ($vol)
Return SoundSetWaveVolume($vol)
EndFunc[/color]

Merci d'éditer tous vos messages précédent avant qu'ils ne partent à la poubelle.

[locos974]

Excusez-moi..

[mikell]

Y a un truc que je pige pas...

SoundSetWaveVolume : Success: Returns 1.

A quoi sert ta fonction volume ? Fais ce simple test :

Code : Tout sélectionner

msgbox(0,"", volume(50))

Func volume ($vol)
Return SoundSetWaveVolume($vol)
EndFunc

étonnant non ? ... donc ceci devrait suffire ^^ :

Code : Tout sélectionner

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Slider1
        SoundSetWaveVolume(GUICtrlRead($slider1))
EndSwitch
WEnd