Déclenchement son sur événement

Version imprimable

30/05/2013, 12h30
jobar38

Déclenchement son sur événement

Bonjour,

je suis débutant et je me lance dans une petite interface en html qui est en local sur mon PC.

je souhaite déclencher une alarme sur présence d'un objet.

Code:

IF (document.getElementById('Alarme').innerHTML = '!' ) {Alors je déclenche une alarme sonore!;}

Je ne veux pas faire apparaitre de lecteur. Certains disent que ce n'est pas possible ,d'autres que si!

Faut-il que je passe par un javascript exterieur?faut-il que je crée une fonction directement dans ma page?

Pouvez-vous m'aider car je suis perdu!
31/05/2013, 11h18
hackoofr

:salut:
ceci peut-être réalisé avec un HTA = HTML Application en utilisant la balise <bgsound> qui est compatible avec IE seulement
je n'ai sais pas s'il y a d'autres exemples plus pertinents :roll:

:salut:
Peut-être ceci vous donne une petite idée, peut-être non :roll:
ceci avec Vbscript dans un HTA : compatible seulement avec Internet Explorer.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
<html>
<HTA:APPLICATION  
APPLICATIONNAME="Déclenchement son sur evenement"  
ICON="Explorer.exe"    
SELECTION="no"/> 
<title>Déclenchement son sur evenement</title>
<SCRIPT Language="VBScript">
Sub Window_onLoad
    Dim STRHTML,NomMachine,NomUtilisateur
    Set Ws = CreateObject("WScript.Shell")
    Set ProcessEnv = Ws.Environment("Process")
    NomMachine = ProcessEnv("COMPUTERNAME") 
    NomUtilisateur = ProcessEnv("USERNAME")
    STRHTML ="<br><br><font color=""Red""><b><H1>PC : "& NomMachine &" connecté en tant que " & NomUtilisateur &"</H1></b></font>"
    STRHTML = STRHTML & "<bgsound src="&ListMusic(1)&" loop=""infinite"">"
    MaMusic.InnerHTML = STRHTML
End Sub 
Sub ChargerMusic(X) 
    Dim STRHTML
    STRHTML ="<br>"
    STRHTML = STRHTML & "<bgsound src="&ListMusic(X)&" loop=""infinite"">"
    MaMusic.InnerHTML = STRHTML
End Sub 
 
Function ListMusic(Element)
    Dim URL(8)
    Dim Chemin
    Chemin = "e:\music\"
    URL(1) = Chemin & "Kalimba.mp3"
    URL(2) = Chemin & "Maid.mp3"
    URL(3) = Chemin & "Sleepy Away.mp3"
    URL(4) = Chemin & "Pitbull.mp3"
    URL(5) = Chemin & "mydream.mp3"
    URL(6) = Chemin & "Rihanna.mp3"
    URL(7) = Chemin & "feeling.mp3"
    URL(8) = Chemin & "lavie.mp3"
    ListMusic=qq(URL(Element))
'MsgBox ListMusic
End Function
 
Function qq(str)
    qq=Chr(34)& str &Chr(34)
End Function
 
Sub StopMusic()
    MaMusic.InnerHTML = ""
End Sub
</script>
<body><center>
<input type=Button  OnClick="ChargerMusic(1)" Value=" Kalimba ">
<input type=Button  OnClick="ChargerMusic(2)" Value="Maid">
<input type=Button  OnClick="ChargerMusic(3)" Value="Sleepy Away">
<input type=Button  OnClick="ChargerMusic(4)" Value="Pitbull">
<input type=Button  OnClick="ChargerMusic(5)" Value="Dream">
<input type=Button  OnClick="ChargerMusic(6)" Value="Rihanna ">
<input type=Button  OnClick="ChargerMusic(7)" Value=" Feeling">
<input type=Button  OnClick="ChargerMusic(8)" Value=" CLa Vie">
<span id ="MaMusic"></span><br><INPUT TYPE="Button" style="font-weight: bold" VALUE="Arrêter La Musique" ONCLICK="StopMusic"><br><br>
<div><img src="http://www.developpez.net/template/images/logo.png" style="cursor:hand;" alt="image" onmouseover='ChargerMusic(1)' onmouseout='StopMusic' ></div>
</body>
</html>

Bonjour,

Vous pouvez également le faire en JS :
Code:

1 2 3 4 5 6 7 8 9 function lireSon(numero) { gestionSon=document.getElementById('gestionSon'); gestionSon.type="audio/wave"; soundfile=(libsoundWAV[numstyle])?libsoundWAV[numstyle]:"toto.wav" gestionSon.src="http://..."+soundfile; gestionSon.load(); gestionSon.play(); }
Pensez à bien regarder si le format est supporté par tel ou tel navigateur et le type MIME :
http://www.w3schools.com/html/html5_audio.asp

Alarme.vbs

:salut:
J'ai trouvé un vbscript Alarme.vbs dans le net qui fait une simulation d'alarme.
je l'ai modifié un peu et j'ai ajouté la balise <bgsound> à la ligne N° 66
vous pouvez par exemple télécharger Alarme.mp3 ici : http://soundjax.com/alarm-1.html et par la suite modifier la source ou se trouve le Alarm.mp3

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Titre = "Alarme"
Set ws = CreateObject("wscript.Shell")
alarmDansMin  = Trim ( InputBox( "Dans combien de minutes voulez-vous déclenchez l'alarme ?",Titre, "4") )
If alarmDansMin = ""  Then Wscript.Quit
If Not IsNumeric(alarmDansMin) or alarmDansMin <= 1 Then
    ws.Popup "Il faut Taper un Nombre strictement supérieur à 1 !","2",Titre,0+16 'Afficher un Popup durant 2 secondes puis quitte le script 
    Wscript.Quit
End if 
sMessage = "Reste " & alarmDansMin/2 & " minutes !"
alarmDansmmsec = alarmDansMin*60*1000 'en millisecondes
alaramSecondes = alarmDansMin*60 'en secondes
nMinutes = alarmDansMin/2
WScript.sleep  alarmDansmmsec/2
nSeconds = 0
sMessage = "<font color=red size=4><b>ALARME</b></font>"
' Open a chromeless window with message
with HTABox("lightBlue", 175, 450, 400,100)
    .document.title = "Notification"
    .msg.innerHTML = sMessage
    do until .done.value or (nMinutes + nSeconds < 1)
        .msg.innerHTML = sMessage & "<br>" & nMinutes & ":" & Right("0"&nSeconds, 2) _
        & " restantes <br>"
        wsh.sleep 1000 ' milliseconds
        nSeconds = nSeconds - 1
        if nSeconds < 0 then 
            if nMinutes > 0 then
                nMinutes = nMinutes - 1
                nSeconds = 59
            end if
        end if
    loop
    .done.value = true
    .close
end with
ws.Popup "C'est FINI !","5",Titre,0+64 'Afficher un Popup durant 5 secondes puis quitte le script
'wscript.echo "process goes here ..."
' script ends here
Function HTABox(sBgColor, h, w, l, t)
    Dim IE, HTA, sCmd, nRnd
    randomize : nRnd = Int(1000000 * rnd)
    sCmd = "mshta.exe ""javascript:{new " _
    & "ActiveXObject(""InternetExplorer.Application"")" _
    & ".PutProperty('" & nRnd & "',window);" _
    & "window.resizeTo(" & w & "," & h & ");" _
    & "window.moveTo(" & l & "," & t & ")}"""
    Set WshShell = WScript.CreateObject("WScript.Shell")
    with CreateObject("WScript.Shell")
        .Run sCmd, 1, False
        do until .AppActivate("javascript:{new ") : WSH.sleep 10 : loop
        end with  'WSHShell
        For Each IE In CreateObject("Shell.Application").windows
            If IsObject(IE.GetProperty(nRnd)) Then
                set HTABox = IE.GetProperty(nRnd)
                IE.Quit
                HTABox.document.title = "HTABox"
                HTABox.document.write _
                "<HTA:Application contextMenu=no border=thin " _
                & "minimizebutton=no maximizebutton=no sysmenu=no />" _
                & "<body scroll=no style='background-color:" _
                & sBgColor & ";font:normal 10pt Arial;" _
                & "border-Style:inset;border-Width:3px'" _
                & "onbeforeunload='vbscript:if not done.value then " _
                & "window.event.cancelBubble=true:" _
                & "window.event.returnValue=false:" _
                & "done.value=true:end if'>" _
                & "<bgsound src=""e:\music\ALARM.mp3"" loop=""infinite"">"_
                & "<input type=hidden id=done value=false>" _
                & "<center><span id=msg>&nbsp;</span><br>" _
                & "<input type=button id=btn1 value=' Arrêter ' "_
                & "onclick=done.value=true><center></body>"
                HTABox.btn1.focus
                Exit Function
            End If
        Next
        MsgBox "HTA window not found."
        wsh.quit
End Function

31/05/2013, 16h04
Bovino

Si c'est du local sur ton PC, je ne vois pas l'utilité de faire des pages Web...
Comme le propose hackoofr, un HTA est plus adapté, faute de mieux...
02/06/2013, 20h44
jobar38

cette page a pour but d'aider mes enfants aux maths!

Je vais le mettre sur mon serveur local pour que mes enfants puissent y accéder!

Le réponse de nicosmash est pour moi très bien mais elle ne fonctionne pas.

j'ai pourtant déclaré la fonction pour ensuite l'appeler lorsque j'ai une mauvaise réponse mais rien à faire!
03/06/2013, 07h28
nicosmash

Envoyez la partie complète du code et générer des :

Code:

alert("Alerte 1");

Pour savoir ou vous vous trouvez dans votre code.

Pour bien comprendre ton code j'ai fait ça!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
<!DOCTYPE html>
<html>
 
  <head>
    <title>HTML5 Audio Player </title>    
 
    <script type="text/javascript">
        // Global variable to track current file name.
 
        function lireSon(numero)
{
	gestionSon=document.getElementById('gestionSon');
	gestionSon.type="audio/wave";
	gestionSon.src="c:\test\alarm.wav";
	gestionSon.load();
	gestionSon.play();
}
 
    </script>
  </head>
 
  <body>
   <audio id="gestionSon">
   </audio>
    <button id="play" onclick="lireSon(numero);">
      Play
    </button>
 
  </body>
 
</html>

Et ça ne fonctionne pas!

04/06/2013, 07h31
nicosmash

Vous avez mis l'adresse en local ...

Pensez à toujours regarder la doc :
http://www.w3schools.com/tags/att_script_src.asp

Citation:

Possible values:

- An absolute URL - points to another web site (like src="http://www.example.com/example.js")
- A relative URL - points to a file within a web site (like src="/scripts/example.js")

:salut:
un exemple avec une source mp3 en locale et ça marche qu'avec les navigateurs supportant le HTML5
il faut ajouter le protocole file:/// dans src

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<!DOCTYPE html>
<html>
 <head>
 </head>
  <body>
  <audio id="demo" src="file:///e:\music\Kalimba.mp3"></audio>
<div>
  <button onclick="document.getElementById('demo').play()">Play la musique </button>
  <button onclick="document.getElementById('demo').pause()">Pause la musique</button>
  <button onclick="document.getElementById('demo').volume+=0.1"> Volume +</button>
  <button onclick="document.getElementById('demo').volume-=0.1"> Volume -</button>
</div> 
 </body>
 </html>