Nesse vídeo demonstraremos em como emitir sons (conforme sua placa mãe) usando as funções Beep e Tone.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe063
Emite um sinal sonoro no computador
@type Function
@author Atilio
@since 06/12/2022
@see https://tdn.totvs.com/display/tec/Beep e https://tdn.totvs.com/display/tec/Tone
@obs
Função Beep
Retorno
+ lSuccess , Lógico , .T. se conseguiu desparar o Beep ou .F. se não conseguiu
Função Tone
Retorno
+ lRetorno , Lógico , .T. se conseguiu desparar o som ou .F. se não conseguiu
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe063()
Local aArea := FWGetArea()
//Emite um som (dependendo da placa mãe)
If Beep()
FWAlertSuccess("Conseguiu disparar o som", "Exemplo Beep")
EndIf
//Emite um som (dependendo da placa mãe)
If Tone()
FWAlertSuccess("Conseguiu disparar o som", "Exemplo Tone")
EndIf
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
