Reproduzindo uma Mensagem
|
Início Anterior Próximo |
|
A partir da versão 2.1 recomenda-se fazer o tratamento de dígitos no evento OnDigitsReceived e não no OnPlayStop. Neste caso o Case ssDigitReceived do exemplo abaixo seria movido para o evento OnDigitsReceived. O capítulo Aplicação Passo a Passo explica em detalhes.
|
|
'Evento gerado quando a placa detecta um
|
'Ring. Neste exemplo, atende no primeiro toque
|
Private Sub VoicerLibX1_OnRingDetected()
|
|
'Mensagem de boas vindas
|
VoicerLibX1.PlayFile(1,"c:\boas.sig,"345",0)
|
'Lembre que o programa segue o fluxo normal após iniciada
|
'a reprodução
|
End Sub
|
|
|
'Evento que ocorre quando a reprodução é finalizada
|
'É necessário analisar o motivo
|
Private Sub VoicerLibX1_OnPlayStop(Port as Integer,
|
Status As VoicerLib.TxStopStatus)
|
Select Case Status
|
Case ssNormal:
|
'Terminou a mensagem sem opção digitada
|
'então manda para a telefonista
|
VoicerLibX1.Flash 1,600,1000
|
VoicerLibX1.Dial 1,"200",0
|
VoicerLibX1.HangUp 1
|
Case ssDigitReceived:
|
'Recebeu o digito finalizador
|
'Verifica qual é e transfere para o ramal
|
VoicerLibX1.Flash 1,600 'Executa flash
|
if Digits = "3" then
|
VoicerLibX1.Dial 1,"220",0 'vendas
|
ElseIf Digits = "4" then
|
VoicerLibX1.Dial 1,"215",0 'técnica
|
ElseIf Digits = "5" then
|
VoicerLibX1.Dial 1,"202",0 'fax
|
else
|
VoicerLibX1.Dial 1,"200",0 'telefonista
|
End if
|
'Desliga
|
VoicerLibX1.HangUp 1
|
End Select
|
End sub
|
|
|
VoicerLibX1.PlayFile(1,"c:\boas.sig,"345",10)
|
|