Possibile suonare.. un "BIP" o un "mp3" non appena si rileva la condizione ricercata?

[lotto_tom75]

Possibile suonare.. un "BIP" o un "mp3" non appena si rileva la condizione ricercata?

Es...

Invece di avere solo... l'output a video o su file txt o sulla barra messaggio di avanzamento elaborazione è possibile avere ogni volta che si rileva una data condizione teoricamente valida per la rispettiva ricerca impostata un suono? Un semplice bip o far suonare un + complesso... mp3 vocale... tipo "Ehi smetti di fare il caffè l'ho trovata!" ecc ???

Se si come???

Grazie

Un saluto a tutti/e a cominciare dal Maestro Lu

 

[lotto_tom75]

Per adesso in attesa di una vostra risposta in merito ho risolto... temporaneamente con questo "escamotage" tecnico:

<embed
src="nome_file.wav"
autostart="true"
loop="1"
hidden="true">
</embed>

Ovvero a condizione rilevata faccio aprire una pagina html (che può essere anche semplicemente locale) che suona... il "messaggio" desiderato grazie al codice html5 standard postato sopra

 

[joe]

Ciao tra le funzioni/istruzioni c'è "LanciaFile" che fa, in chiaro, +/- quanto hai scritto tu.

Invece non ho mai visto/trovato istruzioni specifiche per generare delle note

e/o delle frequenze udibili.

Lo ricordo perché questo è stato oggetto mie ricerche purtroppo ad oggi ancora infruttuose.

Cordiali saluti

 

[LuigiB]

ciao , una soluzione possibile è usare il motore di sintesi vocale , il motore di sintesi vocale oltre a suonare piccoli file wav è anche in grado di "parlare" ovvero recitare il testo che noi gli passiamo.
La lingua usata dipende dalle impostazioni del sistema operativo e si puo cambiare da pannello di controllo nelle funzionalità di sintesi vocale.

Per l'esempio accertarsi che il percoso del file wav esista sul proprio pc altrimenti modificarlo.

Option Explicit
Sub Main
    Call PlayWav  ("C:\Windows\Media\windows ding.wav" , 3 ,"You win" )
End Sub
Sub PlayWav ( sFile , nRepeat , sTesto )

   Dim oVoice ,oSpFileStream
   Dim k

   Set oVoice = CreateObject("SAPI.SpVoice")
   Set oSpFileStream = CreateObject("SAPI.SpFileStream")

   For k = 1 To nRepeat
      oSpFileStream.Open sFile
      oVoice.SpeakStream oSpFileStream
      oSpFileStream.Close

   Next
   oVoice.Speak sTesto
End Sub

 

[lotto_tom75]

ciao , una soluzione possibile è usare il motore di sintesi vocale , il motore di sintesi vocale oltre a suonare piccoli file wav è anche in grado di "parlare" ovvero recitare il testo che noi gli passiamo.
La lingua usata dipende dalle impostazioni del sistema operativo e si puo cambiare da pannello di controllo nelle funzionalità di sintesi vocale.

Per l'esempio accertarsi che il percoso del file wav esista sul proprio pc altrimenti modificarlo.

Option Explicit
Sub Main
Call PlayWav ("C:\Windows\Media\windows ding.wav" , 3 ,"You win" )
End Sub
Sub PlayWav ( sFile , nRepeat , sTesto )

Dim oVoice ,oSpFileStream
Dim k

Set oVoice = CreateObject("SAPI.SpVoice")
Set oSpFileStream = CreateObject("SAPI.SpFileStream")

For k = 1 To nRepeat
oSpFileStream.Open sFile
oVoice.SpeakStream oSpFileStream
oSpFileStream.Close

Next
oVoice.Speak sTesto
End Sub

Ottimo! Funziona splendidamente! Grazie mille grandissimo! Grazie anche a te Joe per l'indicazione della funzione "LanciaFile" che avevo comunque già trovato e utilizzato grazie alla guida implementata nel fantastico programma!