Partage
  • Partager sur Facebook
  • Partager sur Twitter

[VB] Compte à rebours

Anonyme
    24 juin 2011 à 17:33:23

    Bonjour,

    Etant en train de développer un player radio, j'aimerais intégrer une fonction compte à rebours qui permettrait de couper le son automatiquement.

    J'ai donc 5 objets :
    - [Bouton] Activer (pour démarrer le timer)
    - [Bouton] Désactiver (pour l'annuler)
    - [NumericUpDown] Minuteur (permet de régler de temps d’arrêt)
    - [ProgressBar] Attente (affiche le temps restant en graphique)
    - [Timer] Timer

    J'aimerais donc :
    - J'arrive dans les options
    - Je choisis mon temps d’arrêt (en minutes)
    - Je clique sur Démarrer
    - Ma ProgressBar se remplit en fonction du temps restant
    - Le temps choisit arrive à expiration, le WMPlayer se coupe et me confirme l'arret

    ************************ ET ************************

    - J'arrive dans les options
    - Je choisis mon temps d’arrêt (en minutes)
    - Je clique sur Démarrer
    - Je clique sur Arreter
    - La progressbar revient à zero et je peux rechanger mon temps

    Pour le moment :
    Private Sub Activer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Activer.Click
            Timer.Start()
            MsgBox("Play")
            Timer.Interval = Numeric.Value()
        End Sub
    
        Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
            Timer.Stop()
            MsgBox("Stop")
            ' WMP Stop
            Player.WMPlayer.Ctlcontrols.stop()
        End Sub
    
        Private Sub Numeric_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Numeric.ValueChanged
            Me.Numeric.Value = Numeric.Value 'ICI JE N'ARRIVE PAS A RECUPERER LA VALEUR DU NUMERICUPDOWN
        End Sub
    


    Je suis un débutant en la matière et j'aimerais que vous m'aidiez à achever cette idée.

    Cordialement.

    P-S : Voici mon player : http://www.generationado.fr/telecharge [...] ows/setup.exe
    • Partager sur Facebook
    • Partager sur Twitter

    [VB] Compte à rebours

    × Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
    × Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.
    • Editeur
    • Markdown