Tocando SOM
com VB.NET
Tocando 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.
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 |
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.
Colaboração de :