MSAGENT
Gostaria de saber como faço para que os personagens falem o texto que eu escrevi !!
Ex.: coloquei lá...
Merlin.SoundEffectsOn = True
Merlin.Speak "Bem vindo ao nosso sistema. Estarei a sua disposição sempre que precisar"
mas acontece de o que escrevo aparece somente dentro do blão e não sai nada falado, depois tentei...
merlin.LanguageID = &H416
merlin.SoundEffectsOn = True
merlin.Speak "Bem vindo ao nosso sistema. Estarei a sua disposição sempre que precisar"
sendo que merlin.LanguageID = &H416 é para que fale em português, mas não sae som nenhum, apenas aparece escrito, então como faço para sair o som.
merlin.play "pleased"
esse evento aparece o som, só não aparece no que escrevo!!
bom como faço???
Ex.: coloquei lá...
Merlin.SoundEffectsOn = True
Merlin.Speak "Bem vindo ao nosso sistema. Estarei a sua disposição sempre que precisar"
mas acontece de o que escrevo aparece somente dentro do blão e não sai nada falado, depois tentei...
merlin.LanguageID = &H416
merlin.SoundEffectsOn = True
merlin.Speak "Bem vindo ao nosso sistema. Estarei a sua disposição sempre que precisar"
sendo que merlin.LanguageID = &H416 é para que fale em português, mas não sae som nenhum, apenas aparece escrito, então como faço para sair o som.
merlin.play "pleased"
esse evento aparece o som, só não aparece no que escrevo!!
bom como faço???
Cara, nunca mexi com esses personagens, creio eu que seja do Office, e como a Informática não é uma ciencia Exata (apesar de ser parte de Exatas) , provalvemente não aparece a mensagem pq o metodo speak do "merlin" só exibe o que vc digitou em um balão e não "gera" um som e toca no autofalante, isso pq é algo muito complexo para uma "ajuda" da M$ (nem o pessoal do 0800 fala direito...), agora o metodo "play" toca um som já salvo em um local especifico através do seu nome (no caso "pleased")...
Entendeu???
Entendeu???
eu tenho um q fala oq eu escrevi so o codigo melhor nem posta , tu num vai entende , se quise mando pra tu so posta seu email
olha se naun vasi entender axo , pqw nesse meu exemplo vc tenq colocar o que vc quer que o genoio fale em uma caixa de texto apertar um "command1" que seria pra faszer ele falar ae vai
Option Explicit
Dim Genie As IAgentCtlCharacterEx 'inicializa o ator
Const DataAtor = "genie.acs" 'define o caminho para o agente que voce vai usar
Const dataAtor2 = "merlin.acs"
Dim Merlin As IAgentCtlCharacter
Private Sub command4_Click()
'o ator agora faz as magicas
Genie.Play ("DoMagic1")
Genie.Play ("DoMagic2")
End Sub
Private Sub command2_Click()
Genie.Play ("GestureRight") 'aciona os gestos do ator
Genie.Play ("GestureLeft")
Genie.Play ("GestureUp")
Genie.Play ("GestureDown")
Genie.Play ("LookRight")
Genie.Play ("LookLeft")
Genie.Play ("LookUp")
Genie.Play ("LookDown")
End Sub
Private Sub command3_Click()
Genie.MoveTo 100, 10 'move o ator para direita
Genie.MoveTo 500, 50 'move o ator um pouco mais
Genie.MoveTo 600, 20 'continua a mover o ator
Genie.MoveTo 10, 10 'move o ator a sua posicao inicial
End Sub
Private Sub command1_Click()
If Text1 = "" Then Text1 = "Digite algo na caixa de texto para que eu possa falar..."
Genie.Speak Text1
End Sub
Private Sub Command6_Click()
Dim fala As String
Agent1.Characters.Load "Merlin", dataAtor2 'carrega o ator
Set Merlin = Agent1.Characters("Merlin") 'define o ator que vai atuar
Merlin.LanguageID = &H409 'define a linguagem
Merlin.MoveTo 500, 240
Merlin.Show 'faz o ator aparecer
Merlin.Play ("Greet") 'ator atua dando saudacoes
fala = "Bem , então por hoje é só \pau=400\ "
fala = fala & "hasta la vista baby ... e não se esqueça visite \pau=400\"
fala = fala & "\emp\geocities.com/SiliconValley/Bay/3994 " 'mensagem saida
Merlin.Speak fala 'aqui o ator 'fala' mensagem de saida
Merlin.Play "wave"
Genie.Play "wave"
Merlin.Hide
Genie.Hide
MsgBox "Adeus , Merlin ... Adeus Genie...!", vbOKOnly, "Companhia de teatro - MS"
Set Merlin = Nothing
Set Genie = Nothing
Unload Me
End Sub
Private Sub Command5_Click()
Text1.Text = ""
End Sub
Private Sub Form_Load()
Dim fala As String
Agent1.Characters.Load "Genie", DataAtor 'carrega o ator
Set Genie = Agent1.Characters("Genie") 'define o ator que vai atuar
Genie.LanguageID = &H409 'define a linguagem
Genie.MoveTo 100, 240
Genie.Show 'faz o ator aparecer
Genie.Play ("Greet") 'ator atua dando saudacoes
fala = "\pit=400\Benvindo , Eu fui programado para ser seu escravo,\pau=400\ "
fala = fala & "visite o site do meu criador em \pau=400\"
fala = fala & "\emp\geocities.com/SiliconValley/Bay/3994 " 'mensagem de boas vindas
Genie.Speak fala 'aqui o ator 'fala' as mensagens boas de vindas
End Sub
'Modificadores do discurso :
' 1. \emp\ enfatiza a palavra
' 2. \pau = m\ pause de m milisegundos
' 3. \pit = p\ voz para p Hertz (1 - 400)
' 4. \spd = s\ define a velocidade para s palavras por minuto
Private Sub Text1_Change()
End Sub
Option Explicit
Dim Genie As IAgentCtlCharacterEx 'inicializa o ator
Const DataAtor = "genie.acs" 'define o caminho para o agente que voce vai usar
Const dataAtor2 = "merlin.acs"
Dim Merlin As IAgentCtlCharacter
Private Sub command4_Click()
'o ator agora faz as magicas
Genie.Play ("DoMagic1")
Genie.Play ("DoMagic2")
End Sub
Private Sub command2_Click()
Genie.Play ("GestureRight") 'aciona os gestos do ator
Genie.Play ("GestureLeft")
Genie.Play ("GestureUp")
Genie.Play ("GestureDown")
Genie.Play ("LookRight")
Genie.Play ("LookLeft")
Genie.Play ("LookUp")
Genie.Play ("LookDown")
End Sub
Private Sub command3_Click()
Genie.MoveTo 100, 10 'move o ator para direita
Genie.MoveTo 500, 50 'move o ator um pouco mais
Genie.MoveTo 600, 20 'continua a mover o ator
Genie.MoveTo 10, 10 'move o ator a sua posicao inicial
End Sub
Private Sub command1_Click()
If Text1 = "" Then Text1 = "Digite algo na caixa de texto para que eu possa falar..."
Genie.Speak Text1
End Sub
Private Sub Command6_Click()
Dim fala As String
Agent1.Characters.Load "Merlin", dataAtor2 'carrega o ator
Set Merlin = Agent1.Characters("Merlin") 'define o ator que vai atuar
Merlin.LanguageID = &H409 'define a linguagem
Merlin.MoveTo 500, 240
Merlin.Show 'faz o ator aparecer
Merlin.Play ("Greet") 'ator atua dando saudacoes
fala = "Bem , então por hoje é só \pau=400\ "
fala = fala & "hasta la vista baby ... e não se esqueça visite \pau=400\"
fala = fala & "\emp\geocities.com/SiliconValley/Bay/3994 " 'mensagem saida
Merlin.Speak fala 'aqui o ator 'fala' mensagem de saida
Merlin.Play "wave"
Genie.Play "wave"
Merlin.Hide
Genie.Hide
MsgBox "Adeus , Merlin ... Adeus Genie...!", vbOKOnly, "Companhia de teatro - MS"
Set Merlin = Nothing
Set Genie = Nothing
Unload Me
End Sub
Private Sub Command5_Click()
Text1.Text = ""
End Sub
Private Sub Form_Load()
Dim fala As String
Agent1.Characters.Load "Genie", DataAtor 'carrega o ator
Set Genie = Agent1.Characters("Genie") 'define o ator que vai atuar
Genie.LanguageID = &H409 'define a linguagem
Genie.MoveTo 100, 240
Genie.Show 'faz o ator aparecer
Genie.Play ("Greet") 'ator atua dando saudacoes
fala = "\pit=400\Benvindo , Eu fui programado para ser seu escravo,\pau=400\ "
fala = fala & "visite o site do meu criador em \pau=400\"
fala = fala & "\emp\geocities.com/SiliconValley/Bay/3994 " 'mensagem de boas vindas
Genie.Speak fala 'aqui o ator 'fala' as mensagens boas de vindas
End Sub
'Modificadores do discurso :
' 1. \emp\ enfatiza a palavra
' 2. \pau = m\ pause de m milisegundos
' 3. \pit = p\ voz para p Hertz (1 - 400)
' 4. \spd = s\ define a velocidade para s palavras por minuto
Private Sub Text1_Change()
End Sub
A sim esse aki seria a abertura
Private Sub Form_Load()
Dim fala As String
Agent1.Characters.Load "Genie", DataAtor 'carrega o ator
Set Genie = Agent1.Characters("Genie") 'define o ator que vai atuar
Genie.LanguageID = &H409 'define a linguagem
Genie.MoveTo 100, 240
Genie.Show 'faz o ator aparecer
Genie.Play ("Greet") 'ator atua dando saudacoes
fala = "\pit=400\Benvindo , Eu fui programado para ser seu escravo,\pau=400\ "
fala = fala & "visite o site do meu criador em \pau=400\"
fala = fala & "\emp\geocities.com/SiliconValley/Bay/3994 " 'mensagem de boas vindas
Genie.Speak fala 'aqui o ator 'fala' as mensagens boas de vindas
End Sub
Private Sub Form_Load()
Dim fala As String
Agent1.Characters.Load "Genie", DataAtor 'carrega o ator
Set Genie = Agent1.Characters("Genie") 'define o ator que vai atuar
Genie.LanguageID = &H409 'define a linguagem
Genie.MoveTo 100, 240
Genie.Show 'faz o ator aparecer
Genie.Play ("Greet") 'ator atua dando saudacoes
fala = "\pit=400\Benvindo , Eu fui programado para ser seu escravo,\pau=400\ "
fala = fala & "visite o site do meu criador em \pau=400\"
fala = fala & "\emp\geocities.com/SiliconValley/Bay/3994 " 'mensagem de boas vindas
Genie.Speak fala 'aqui o ator 'fala' as mensagens boas de vindas
End Sub
Caso nao tenha sucesso ai com o codigo do colega,me manda 1 email que eu que posso te ajudar...
Sei que é meio "PREVISà ÂVEL" mas você instalou as Ferramentas para edição do som e etc??
Se não.... vai ter que fazer isso...
Recomento fazer download das seguintes:
[txt-color=#ff0000]Text-to-speech
Linguistic Sound Editing Tool[/txt-color]
MSAGENTS
Se não.... vai ter que fazer isso...
Recomento fazer download das seguintes:
[txt-color=#ff0000]Text-to-speech
Linguistic Sound Editing Tool[/txt-color]
MSAGENTS
eu tenho esse projeto cara se qwuiser
Tópico encerrado , respostas não são mais permitidas