XL 2013 baisser le sons progressivement sur Windows media player VBA

[creolia]

Bonjour à tous je viens vers vous pour vous demander votre aide.

j'ai un USF pour lancer des musiques de cérémonies j'ai deux boutons pour monter et baisser le sons.

Private Sub V2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If VolNiveau = "0" Then Exit Sub

VolNiveau.Caption = VolNiveau.Caption - 5
WindowsMediaPlayer1.settings.volume = VolNiveau.Caption
V2.BackColor = &HFF&
MuteV.Caption = VolNiveau.Caption

End Sub

mais je souhaite de créer un bouton qui baisserais le sons progressivement passer de 100 à 0 en 5 secondes.

j'ai tenter un timer mais cela fonctionne pas sa me descend le sons tous les seconde soit 100 secondes

il y a t'il s'il vous plait une solution pour baisser le sons progressivement

merci d'avance de votre aide

 

[vgendron]

Hello
peut etre avec ce bout de code à associer à un nouveau bouton sur ton formulaire

Private Sub CommandButton1_Click()
For i = 1 To 20 '20 incréments de 5
    V2_Click 'incrément -5
    newHour = Hour(Now())
    newMinute = Minute(Now())
    newSecond = Second(Now()) + 1 'attente d'une seconde
    waitTime = TimeSerial(newHour, newMinute, newSecond)
    Application.Wait waitTime
Next i
End Sub

 

[Jacky67]

Bonjour à tous je viens vers vous pour vous demander votre aide.

j'ai un USF pour lancer des musiques de cérémonies j'ai deux boutons pour monter et baisser le sons.

Private Sub V2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If VolNiveau = "0" Then Exit Sub

VolNiveau.Caption = VolNiveau.Caption - 5
WindowsMediaPlayer1.settings.volume = VolNiveau.Caption
V2.BackColor = &HFF&
MuteV.Caption = VolNiveau.Caption

End Sub

mais je souhaite de créer un bouton qui baisserais le sons progressivement passer de 100 à 0 en 5 secondes.

j'ai tenter un timer mais cela fonctionne pas sa me descend le sons tous les seconde soit 100 secondes

il y a t'il s'il vous plait une solution pour baisser le sons progressivement

merci d'avance de votre aide

Bonjour à tous
Pour le bouton "Decrescendo", essaye

Private Sub decrescendo_Click()
    For i = WindowsMediaPlayer1.settings.volume To 0 Step -20
        DoEvents
        WindowsMediaPlayer1.settings.volume = i
        Application.Wait Now + TimeValue("00:00:1")
    Next
    WindowsMediaPlayer1.settings.volume = 0
    WindowsMediaPlayer1.URL = ""
End Sub

 

[creolia]

bonsoir à tous merci pour votre aide je teste cela dés demain au travail bonne soirée à vous et encore merci

 

[sousou]

Une solution

 

[Jacky67]

bonsoir à tous merci pour votre aide je teste cela dés demain au travail bonne soirée à vous et encore merci

Légère amélioration