PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Preenchendo campos com comando de voz no Windev Mobile
Preenchendo campos com comando de voz no Windev Mobile
Iniciado por Boller, mar., 30 2020 3:45 PM - 1 resposta
Membro registado
3.173 mensagems
Popularité : +89 (91 votes)
Publicado em março, 30 2020 - 3:45 PM
Prezados,

Preenchendo campos com comando de voz no Windev Mobile



https://help.windev.com/en-US/…

https://help.windev.com/en-US/?1000019805&name=SpeechSynthesisReadText


//Abtertura do projeto
IF NOT InAndroidEmulatorMode AND NOT InAndroidSimulatorMode THEN
SpeechSynthesisInitialize(tabconfig.tabconfig_voz,5)
SpeechRecognitionAddCommand(rot_audio,"Hora")
SpeechRecognitionAddCommand(rot_audio,"Data")
SpeechRecognitionAddCommand(rot_audio,"Glicemia")
SpeechRecognitionAddCommand(rot_audio,"Captura")
SpeechRecognitionAddCommand(rot_audio,"Glicada")
SpeechRecognitionAddCommand(rot_audio,"Quinze")
SpeechRecognitionAddCommand(rot_audio,"Trinta")
SpeechRecognitionAddCommand(rot_audio,"Tempo")
SpeechRecognitionAddCommand(rot_audio,"Bateria")
SpeechRecognitionAddCommand(rot_audio,"Diferenca")
SpeechRecognitionAddCommand(rot_audio,"Desativar")
SpeechRecognitionAddCommand(rot_audio,"Ativar")
SpeechRecognitionAddCommand(rot_audio,"Ajuda")
END


Dentro do campo que vc quer capturar o áudio




glo_captura_som( )


PROCEDURE glo_captura_som()
IF MySelf<>"" THEN RETURN
IF gbaudio = False THEN RETURN
SpeechRecognitionTrigger("")


//No começo do app
SpeechRecognitionAddCommand(rot_audio,"")


//Usando Indirection
PROCEDURE rot_audio(ROTINA)
ROTINA=Upper(ROTINA)
{ControlCurrent,indControl}..Value=ROTINA


PROCEDURE rot_audio(solicitacao)
IF int_ativar_alarme = True AND STC_slider = 0 THEN
RETURN
END
mensagem is string
SWITCH Upper(solicitacao)
CASE "DATA"
mensagem=glo_dataextenso()
CASE "HORA"
horaaj is Time=TimeSys()
IF horaaj..Minute = 0 THEN
mensagem=horaaj..Hour+" Horas"
ELSE
mensagem=horaaj..Hour+" Horas e "+horaaj..Minute+" minutos"
END
CASE "GLICEMIA"
mensagem=gsmensagemglicemia
CASE "GLICADA"
glicada is string=ExtractString(STC_A1C_1,1,"/")
mensagem="Sua glicada prevista é "+glicada
CASE "QUINZE"
mensagem=EDT_15m+" dentro de 15 minutos"
// CASE "TRINTA"
// mensagem=EDT_30m+" dentro de 30 minutos"
CASE "TEMPO"
mensagem="Tempo sem captura "+STC_Ultima_captura_01+" minutos"
CASE "BATERIA"
mensagem="Bateria celular "+PowerStatus(ChargePercentage)+"% , Bateria paciente "+stc_bateria_1
CASE "DIFERENCA"
IF Val(STC_valor_ant) < 0 THEN
mensagem="Glicemia em queda "+STC_valor_ant+" nos ultimos 5 minutos"
ELSE
IF Val(STC_valor_ant) > 0 THEN
mensagem="Glicemia subindo "+STC_valor_ant+" nos ultimos 5 minutos"
ELSE
mensagem="Glicemia sem oscilação"
END
END
CASE "DESATIVAR"
HReadSeekFirst(tabconfig,IDtabconfig,1)
cbox_audio=False
mensagem="sistema de voz desativado"
CASE "ATIVAR"
HReadSeekFirst(tabconfig,IDtabconfig,1)
cbox_audio=True
HSave(tabconfig)
mensagem="sistema de voz ativado"
OTHER CASE
mensagem="Comandos disponiveis: Glicemia, Data, Hora, glicada, captura, quinze, trinta, bateria, desativar, ativar"
END

IF mensagem = "" THEN
SpeechSynthesisReadText("Sem retorno")
ELSE
SpeechSynthesisReadText(mensagem)
END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.173 mensagems
Popularité : +89 (91 votes)
Publicado em março, 31 2020 - 2:34 AM
https://repository.windev.com/resource.awp…

https://repository.windev.com/resource.awp?file_id=281474976710912;preenchendo-campos-com-comando-voz-windev-mobile-filling-fields-with-voice-command-windev-mobile


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/