synthése vocale (1 Viewer)

[carreno]

Sa vous plairez pas que MédiaPortal puisse s'exprimer?

J'ai commancé une recherche sur le sujet et je suis tombé sur sa, je ne sais pas si sa peut servir:

ici

 

[Azzazel]

Originally posted by carreno@18 Aug 2005, 00:41
Sa vous plairez pas que MédiaPortal puisse s'exprimer?

J'ai commancé une recherche sur le sujet et je suis tombé sur sa, je ne sais pas si sa peut servir:

ici
<div align="right"><{POST_SNAPBACK}>

[/quote]

Ouep je suis dessus moi ... enfin je commence ...

une autre ressource

Je suis parti du plugin pour télécommande ... je vous tiens au courant dès que j'ai quelque chose qui fonctionne ...

 

[Jean-Max]

A l'inverse de l'expression vocale par MP, qui a testé l'add-on "Mediaportal voice recognition" de kimaidou ?
FR forum:
<a href="http://www.mp-fr.com/forums/index.php?showtopic=671" target="_blank">http://www.mp-fr.com/forums/index.php?showtopic=671</a>
Site:
<a href="http://membres.lycos.fr/kimai/" target="_blank">http://membres.lycos.fr/kimai/</a>
Download:
<a href="http://membres.lycos.fr/kimai/Add-on%20Med...nition_V1.0.zip" target="_blank">http://membres.lycos.fr/kimai/Add-on%20Med...nition_V1.0.zip</a>

... cité, il y a déjà pas mal de temps, dans notre page des downloads
<a href="http://download.mp-fr.com/en/" target="_blank">http://download.mp-fr.com/en/</a>

 

[carreno]

Originally posted by Azzazel@18 Aug 2005, 10:43
Ouep je suis dessus moi ... enfin je commence ...

Cool.

 

[Azzazel]

Je ne suis pas comme dis jean-max sur l'expression vocale de MP , je fais comme kimaidou mais integré dans un plugin. J'ai pas testé ce qu'il a fait mais je regarderais ça ...

 

[imported_luch]

je viens de tester le travail de kimaidou, c'est vrai que c'est bluffant , ca marche chez moi à 60%, je dois pas tres bien prononcer lol, je vais voir aussi du coté du réglage de mon micro.... ca va épater quelques amis tout ça !!!!!!

 

[gnoacco]

J'ai essaye ce plugin, et ca marche a 90% ! bluffant ! Je l'ai meme modifie avec des mots clef un peu plus courants que "banana" lol...

par contre, la synthese vocale serait bien, au niveau de l'idee, mais pour lire quoi? Les messages d'erreur de MP ? C'est trop rare... alors quoi ?

 

[carreno]

<div class='quotetop'>CITATION</div>

mais pour lire quoi?[/b]

des indications du genre " votre programme va commance dans 5 minutesr" , les emails , l'horoscope , le résumé (EPG) ...

 

[carreno]

<div class='quotetop'>CITATION</div>

Je l'ai meme modifie avec des mots clef un peu plus courants que "banana" lol...[/b]

tu peut nous mettre a disposition ta transformation , avec un resumé des modifications.

 

[gnoacco]

bien sûr... je vais mettre ci dessous l'intégralité du fichier...

par contre, si quelqu'un pouvait me dire où trouver un moteur de recon. voc en français, je suis preneur !

fichier (pour afficher le code, fermez le formulaire, et appuyez sur Alt+F11, puis allez sur UserForm1, cliquez droit, puis sur code):



Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long


Private Sub CommandButton1_Click()
Dim chemin
Dim sFile As String
Dim noth As Long
chemin = ActiveWorkbook.Path
noth = ShellExecute(0, "OPEN", chemin & "\motsclés.txt", "", "C:", 1)

End Sub

Private Sub UserForm_Activate()

Dim SpeechGrammer As String
SpeechGrammer = "[Grammar]" & vbCrLf & _
"langid = 1033" & vbCrLf & _
"type=cfg" & vbCrLf & _
"[<Start>]" & vbCrLf & _
"<start>=O K " & vbCrLf & _
"<start>=next song" & vbCrLf & _
"<start>=precedent song" & vbCrLf & _
"<start>=last page" & vbCrLf & _
"<start>=down" & vbCrLf & _
"<start>=right" & vbCrLf & _
"<start>=left" & vbCrLf & _
"<start>=up" & vbCrLf & _
"<start>=wait" & vbCrLf & _
"<start>=media portal" & vbCrLf & _
"<start>=exit media portal" & vbCrLf & _
"<start>=show menu " & vbCrLf & _
"<start>=Tom Jones is a" & vbCrLf & _
"<start>=sex bomb" & vbCrLf & _
"<start>=select item " & vbCrLf & _
"<start>=open Notepad"

vcrVoice.GrammarFromString SpeechGrammer
vcrVoice.Activate

End Sub

Private Sub vcrVoice_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
Dim sFile As String
Dim noth As Long

Label1.Caption = Phrase
Select Case Phrase

Case Is = "Tom Jones is a"
MsgBox ("Sex Bomb !!")

Case Is = "open Notepad"
sFile = "\system32\notepad.exe"
noth = ShellExecute(0, "OPEN", Environ("SystemRoot") & sFile, "", "", 1)

Case Is = "next song" 'I use this one as an example : you can use the word you want, it still works !
SendKeys ("{F4}") 'F4 I use it to play the next song in a playlist

Case Is = "precedent song"
SendKeys ("{F3}") 'F3

Case Is = "last page"
SendKeys ("{ESC}") 'ESCAPE

Case Is = "wait"
SendKeys Chr(32) 'SPACE BAR

Case Is = "O K"
SendKeys ("{ENTER}") ' ENTER

Case Is = "left"
SendKeys ("{LEFT}") 'LEFT ARROW

Case Is = "right"
SendKeys ("{RIGHT}") 'RIGHT ARROW

Case Is = "down"
SendKeys ("{DOWN}") 'DOWN ARROW

Case Is = "up"
SendKeys ("{UP}") 'UP ARROW

Case Is = "show menu" 'I use this one to display the context menu associated with a file/song/video
SendKeys ("{F9}")

Case Is = "select item" 'I use this one to put the selected folder/artist/album in the playlist (normally y in mediaportal)
SendKeys ("{F8}") 'F8

Case Is = "media portal" 'I use this one to open MediaPortal ! Change the address if yours is different
noth = ShellExecute(0, "OPEN", "C:\Media Center\MediaPortal.exe", "", "C:", 1)

Case Is = "exit media portal"
SendKeys ("%{F4}") ' = ALT+F4 I use this one to close MediaPortal

End Select
End Sub