Sujet Précédent Sujet Suivant

Mettre du son

Résolu
Marneus73 Messages postés 344 Date d'inscription mercredi 24 janvier 2007 Statut Membre Dernière intervention 27 octobre 2008 - 5 juil. 2007 à 16:08
allthew3 Messages postés 551 Date d'inscription samedi 8 janvier 2005 Statut Membre Dernière intervention 12 avril 2008 - 5 juil. 2007 à 17:48
Bonjour à tous.
Existe-t'il un moyen pour qu'un programme emette un son ?
Je m'explique : En fait lorsque mon programme a éxécuté toutes ses taches il éteint l'ordinateur de l'utilisateur. Et je voudrais qu'il emette un son juste avant la fermeture puis la coupure de l'alimentation pour le prévenir.
Est-ce possible ?
Merci d'avance.

7 réponses

Réponse 1 / 7
allthew3 Messages postés 551 Date d'inscription samedi 8 janvier 2005 Statut Membre Dernière intervention 12 avril 2008 2
5 juil. 2007 à 16:19
ce qui est égal à :

Dim

sp
As
New System.Media.SoundPlayer(
"c:\son.wav")sp.Load()

sp.Play()
1
Réponse 2 / 7
jmfmarques Messages postés 7668 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
5 juil. 2007 à 16:11
Bonjour,

un... son ?
Oui, ma foi : de quelle fréquence ?
0
Réponse 3 / 7
allthew3 Messages postés 551 Date d'inscription samedi 8 janvier 2005 Statut Membre Dernière intervention 12 avril 2008 2
5 juil. 2007 à 16:18
My.Computer.Audio.Play(' son wav)
0
Réponse 4 / 7
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
5 juil. 2007 à 16:19
 Bonjour à tous

Pour le fun,

Dim voice
Set voice = WScript.CreateObject("SAPI.SpVoice")
voice.Speak InputBox("Saisir votre phrase","Voice","Hello coucou")
Set voice = Nothing

Encore faut-il que le contrôle du volume ne soit pas en mode muet (mais on peut le modifier).
jean-marc
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
jmfmarques Messages postés 7668 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
5 juil. 2007 à 16:22
Il a dit un son
En voilà 3

Private Declare Function midiOutClose Lib "winmm.dll" (ByVal hMidiOut As Long) As Long
Private Declare Function midiOutOpen Lib "winmm.dll" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long
Private Declare Function midiOutShortMsg Lib "winmm.dll" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long
Dim hMidiOut As Long


Private Sub Command1_Click()
    Dim T As Long
    midiOutOpen hMidiOut, 0, 0, 0, 0
     midiOutShortMsg hMidiOut, 6567322
     T = Timer
    Do
      DoEvents
    Loop Until Timer > T + 1
    midiOutShortMsg hMidiOut, 6567216
    T = Timer
    Do
     DoEvents
    Loop Until Timer > T + 1
    midiOutShortMsg hMidiOut, 6567200
     T = Timer
    Do
     DoEvents
    Loop Until Timer > T + 10
    midiOutClose hMidiOut
End Sub

Sous VB.Net : remplacer les longs par des Integer.
Remplacer aussi Private Sub Command1_Click() par la syntaxe habituelle de VB.Net

Un son est pour moi un son (et il en a là 3 )
0
Réponse 6 / 7
Marneus73 Messages postés 344 Date d'inscription mercredi 24 janvier 2007 Statut Membre Dernière intervention 27 octobre 2008
5 juil. 2007 à 17:21
Un seul truc à dire Merci
0
Réponse 7 / 7
allthew3 Messages postés 551 Date d'inscription samedi 8 janvier 2005 Statut Membre Dernière intervention 12 avril 2008 2
5 juil. 2007 à 17:48
de rien @+
0
Rejoignez-nous