Ola J Paulo esse codigo eu aproveitei em meu PDV.
Que devo acrescentar nele para parar e tb pausar durante o audio ?
É devido eu ter agregado um texto de leitura dos beneficios de cada produto, e caso haja necessario uma pausa ou interromper o audio eu possa assim executar tal ação.
Outra duvida que tenho , é que durante o audio todo meu sistema fica inoperante para outras acoes , enquanto o audio estiver rolando, dai eu te pergunto se seria possivel ouvir o audio sem interomper as acoes do Access, pois pode ser que eu tenha que chamar um ou outro Formulario e enquanto o cliente ouve, eu faco por exemplo os afazeres do meu PDV incluir produtos no carrinho por exemplo ou chamar outro formulario qualquer, sem no entanto parar o audio ja iniciado, exceto se precionado alguma tecla de PAUSE ou STOP.
Gostei muito do seu codigo e muito Obrigado mesmo !
Que devo acrescentar nele para parar e tb pausar durante o audio ?
É devido eu ter agregado um texto de leitura dos beneficios de cada produto, e caso haja necessario uma pausa ou interromper o audio eu possa assim executar tal ação.
Outra duvida que tenho , é que durante o audio todo meu sistema fica inoperante para outras acoes , enquanto o audio estiver rolando, dai eu te pergunto se seria possivel ouvir o audio sem interomper as acoes do Access, pois pode ser que eu tenha que chamar um ou outro Formulario e enquanto o cliente ouve, eu faco por exemplo os afazeres do meu PDV incluir produtos no carrinho por exemplo ou chamar outro formulario qualquer, sem no entanto parar o audio ja iniciado, exceto se precionado alguma tecla de PAUSE ou STOP.
Gostei muito do seu codigo e muito Obrigado mesmo !
- Código:
Public Function FazerFalar(str As String)
'By JPaulo 2008
Dim objVo As Object
Set objVo = CreateObject("SAPI.SpVoice")
objVo.Speak str
End Function
- Código:
Private Sub Som1_Click()
FazerFalar ("Olá Cliente, Eu sou a Pâmela! Sou sua orientadora virtual!!! ")
FazerFalar (A_Descricao)
End Sub