Como tocar SOM com VB.NET

Existem muito aplicativos que tem a necessidade de tocar sons em determinadas situações, e como sempre no VB.NET nada é complicado tudo é muito simples.

por Jefferson Gobi Barbosa

Existem muito aplicativos que tem a necessidade de tocar sons em determinadas situações, e como sempre no VB.NET nada é complicado tudo é muito simples.

Vamos começar com o código:

Inicie um projeto do tipo Windows Aplication com Visual Basic .NET. Depois adicione uma classe com o código abaixo com o seguinte nome: SoundClass.

Public Class SoundClass
    Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name As _
                 String, ByVal hmod As Integer, ByVal flags As Integer) _
                 As Integer

    Public Const SND_SYNC = &H0          " TOCANDO com sincronismo
    Public Const SND_ASYNC = &H1         " TOCANDO sem sincronismo
    Public Const SND_FILENAME = &H20000
    Public Const SND_RESOURCE = &H40004

    Public Sub PlaySoundFile(ByVal filename As String)
        PlaySound(filename, Nothing, SND_FILENAME Or SND_ASYNC)
    End Sub

End Class

Esta classe será responsável pelo Play do Arquivo de Som, note que estou utilizando a "winmm.dll" (Função PlaySound do Windows).

Depois da classe criada vamos criar uma função em um módulo para chamada da classe. Adicione um módulo ao seu projeto com o nome Sound e adicione as linhas de código abaixo dentro dele.

Module Sound

    Public Sub playSound(ByVal wavfile As String)
        Dim pTocar As New SoundClass
        pTocar.PlaySoundFile(wavfile)
    End Sub

End Module

Estamos pronto para fazer a o nosso sistema tocar SONS. Dentro do seu WinForm adicione os seguintes controles:

Controle	Propriedade	Valor da Propriedade
TextBox	Name	txtFile
Button	Name	btnPlay
Form	Name	frmPlaySound

O seu WinForm ficará semelhante à figura abaixo:

Após a colocação dos controles, vamos colocar o código dentro do evento Click do nosso btnPlay. O código será o seguinte:

Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As _
            System.EventArgs) Handles btnPlay.Click
Sound.playSound(Me.TextBox1.Text.Trim)
End Sub

Pronto, o seu sistema desenvolvido em VB.NET poderá tocar SONS sempre que você necessitar.