MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Aviso sonoro tipo bipp

    avatar
    arturgov
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 07/06/2014

    Aviso sonoro tipo bipp Empty Aviso sonoro tipo bipp

    Mensagem  arturgov em 3/7/2019, 20:44

    Boa tarde,
    Amigos gostaria de ajuda.
    Estou desenvolvendo um aplicativo ( tipo um painel de chamada e gostaria de colocar um aviso sonoro sempre que um novo cliente for chamado no painel), o formulario tem um subformulario que os dados vem de uma consulta e esse formulario tem um refresh para ser atualizado.
    marcelo3092
    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 19/08/2010

    Aviso sonoro tipo bipp Empty Re: Aviso sonoro tipo bipp

    Mensagem  marcelo3092 em 4/7/2019, 01:10

    Ola Amigo bom uso este código abaixo, num módulo salve:
    Private Declare Function mciSendString Lib "winmm.dll" Alias _
    "mciSendStringA" (ByVal lpstrCommand As String, _
    ByVal lpstrReturn As String, ByVal uReturnLength As Long, _
    ByVal hwndCallback As Long) As Long

    Sub Toca(strMusicFile As String)
    Dim cmd As String, MusicType As String
    Dim ret
    On Error GoTo sai
    ' Verifica se existe o arquivo gravado.
    If Dir(strMusicFile) = "" Then
    MsgBox "O arquivo de áudio não é válido", vbInformation, "Impossível reproduzir "
    Exit Sub
    End If
    'pega a extensão do arquivo
    MusicType = UCase(Right$(strMusicFile, 3))

    ' Verifica o tipo de arquivo que esta sendo objeto dessa rotina.
    Select Case MusicType
    Case "MID"
    cmd = "open """ & strMusicFile & """ type sequencer alias myaudio"
    Case "MP3"
    cmd = "open " & """" & strMusicFile & """" & " alias myaudio"
    Case "WAV"
    cmd = "open " & """" & strMusicFile & """" & " alias myaudio"
    Case "WPL"
    cmd = "open " & """" & strMusicFile & """" & " alias myaudio"
    Case Else
    GoTo sai
    End Select

    'Se tiver tocando alguma coisa pára.
    StopMusic

    ' Open the file.
    ret = mciSendString(cmd, 0&, 0, 0)
    If ret <> 0 Then
    MsgBox "Houve um erro na reprodução do arquivo '" & strMusicFile & _
    "'." & vbCrLf & vbCritical, "ERRO"
    Else
    'Play the file
    cmd = "Play myaudio"
    ret = mciSendString(cmd, vbNullString, 0, 0)
    End If
    Exit Sub

    sai:
    End Sub

    Private Sub StopMusic()
    Dim ret
    ret = mciSendString("close myaudio", vbNullString, 0, 0)
    End Sub



    e no formulario

    Public Function Som()

    Dim strPath As String

    strPath = CurrentProject.Path & "\Sons\AvisoMensagens.mp3" ' Aqui você coloca o toque que queira na pasta do sistema e adiciona o nome com a extenção e so chamar a função call som

    Call Toca(strPath)


    End Function



    Porem o correto seria ver como esta seu procedimento de verificação de chamado.
    avatar
    arturgov
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 07/06/2014

    Aviso sonoro tipo bipp Empty aviso sonoro tipo bipp

    Mensagem  arturgov em 4/7/2019, 03:43

    funciona da seguinte forma:

    No formulário painel é alimentado por um formulário que o medico marca um chekbox como atendido e um listbox o consultorio e salva.
    Quando executa essa evento do botão salvar é alimentado um consulta que esta mesma alimenta um formulário painel, nele tem um time que dar um refresh no formulario atualizando a consulta,
    nesse momento aparece o novo paciente, ai onde eu gostaria de colocar o sinal sonoro.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3504
    Registrado : 04/04/2010

    Aviso sonoro tipo bipp Empty Re: Aviso sonoro tipo bipp

    Mensagem  Avelino Sampaio em 4/7/2019, 09:36

    Olá!

    este meu artigo também pode ajuda:

    usandoaccess.com.br/tutoriais/sons-no-access-bingo.asp?id=1#inicio
    Copiar link e colar no navegador.

    Sucesso!

    Conteúdo patrocinado

    Aviso sonoro tipo bipp Empty Re: Aviso sonoro tipo bipp

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 00:03