IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

JavaScript Discussion :

Déclenchement son sur événement


Sujet :

JavaScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2009
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Février 2009
    Messages : 85
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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!

  2. #2
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut

    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

  3. #3
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut

    Peut-être ceci vous donne une petite idée, peut-être non
    ceci avec Vbscript dans un HTA : compatible seulement avec Internet Explorer.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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>

  4. #4
    Membre très actif

    Avatar de nicosmash
    Homme Profil pro
    Étudiant
    Inscrit en
    Octobre 2012
    Messages
    395
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Octobre 2012
    Messages : 395
    Par défaut
    Bonjour,

    Vous pouvez également le faire en JS :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  5. #5
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut Alarme.vbs

    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 vb : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  6. #6
    Rédacteur

    Avatar de Bovino
    Homme Profil pro
    Développeur Web
    Inscrit en
    Juin 2008
    Messages
    23 647
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juin 2008
    Messages : 23 647
    Billets dans le blog
    20
    Par défaut
    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...
    Pas de question technique par MP !
    Tout le monde peut participer à developpez.com, vous avez une idée, contactez-moi !
    Mes formations video2brain : La formation complète sur JavaScriptJavaScript et le DOM par la pratiquePHP 5 et MySQL : les fondamentaux
    Mon livre sur jQuery
    Module Firefox / Chrome d'intégration de JSFiddle et CodePen sur le forum

Discussions similaires

  1. Question sur le déclenchement d'un événement
    Par Dudule70 dans le forum C#
    Réponses: 5
    Dernier message: 17/05/2013, 08h52
  2. déclenchement rapport sur évènement
    Par mederik dans le forum Cognos
    Réponses: 4
    Dernier message: 20/10/2009, 15h01
  3. Envoyer un son sur un évènement...
    Par lyten dans le forum Général JavaScript
    Réponses: 5
    Dernier message: 01/03/2006, 16h16
  4. Query Begin et Commit son sur un bateau....
    Par faoz75 dans le forum Requêtes
    Réponses: 5
    Dernier message: 15/08/2003, 11h48
  5. Déclenchement Programme sur Virtual Key
    Par Tom-G dans le forum API, COM et SDKs
    Réponses: 9
    Dernier message: 09/05/2003, 12h58

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo