Discussion :

[gastoncs]

Bonjour, j'aurais voulu que lorsque je rentre une heure au format : hh:mm:ss
un son se déclenche, mais rien ne se passe, je ne comprend pas pourquoi, voici mon code :

le timer qui est activé au chargement de la fenêtre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Timer1.Start()
        Timer1.Interval = 1000

le code initialisé dans la classe form, ou j'ai la date du jour et l'heure que je souhait déclencher l'évenement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim heure_matin As String = "08:00:00"
    Dim heure_actuelle As String = CStr(Now.ToLongTimeString)

le code qui doit générer le son dans le timer, avec aussi que la condition qu'une checkbox est coché :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If CheckBox1.Checked And heure_actuelle = heure_matin Then
            Player.URL = "C:\Documents and Settings\Laurent\Mes documents\Visual Studio 2008\Projects\Statio\Statio\res\son\c_rassemble.mp3"
            Player.settings.volume = 90
            Player.controls.play()
        End If

[matll]

Bonjour,

As-tu géré l'évenement Timer.Tick() ?
C'est dans cet évenement que tu mettra ton action à effectuer.

@+
Mat

[gastoncs]

oui, c'est dans le Timer1_Tick que j'ai placé mon événement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        If CheckBox1.Checked And heure_actuelle = heure_matin Then
            Player.URL = "C:\Documents and Settings\Laurent\Mes documents\Visual Studio 2008\Projects\Statio\Statio\res\son\c_rassemble.mp3"
            Player.settings.volume = 90
            Player.controls.play()
        End If
    End Sub

[matll]

un son se déclenche, mais rien ne se passe, je ne comprend pas pourquoi

oui, c'est dans le Timer1_Tick que j'ai placé mon événement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        If CheckBox1.Checked And heure_actuelle = heure_matin Then
            Player.URL = "C:\Documents and Settings\Laurent\Mes documents\Visual Studio 2008\Projects\Statio\Statio\res\son\c_rassemble.mp3"
            Player.settings.volume = 90
            Player.controls.play()
        End If
    End Sub

Si tu n'as que la lecture du son dans ton Tick, c'est normal que rien d'autre ne se passe .
Quand tu dis qu'un son se déclenche, c'est bien celui souhaité ?

[Gurdil le nain]

Par contre, tester des dates en String c'est quand même moyen :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DateTime.Compare

serait plus adaptée.

[gastoncs]

pardon je me suis mal expliqué mattl, en fait le son ne se déclenche pas alors que c'est ce que je voudrais !

Gurdil comment s'utilise DateTime.Compare ?

[matll]

Il y a (au moins) deux sources possibles au problème :

1. L'évènement n'est pas déclenché.
   As-tu calculé ton intervalle entre ton heure souhaitée et ton heure actuelle ? et assigné à ton Timer ?
2. Le fichier son n'est pas lu
   Essaye de tester avec un son système pour voir si le pb ne vient pas du chemin
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)

[Danyel]

Utilise plutot my.computer.audio.play

[gastoncs]

pour les fichiers en .mp3 ca fonctionne aussi ?

[matll]

pour les fichiers en .mp3 ca fonctionne aussi ?

A tester, mais dans la doc, c'est marqué .wav