Gravando som (microfone e placa de som)

[AnonymousKesha 11]

Venho deixar algumas linhas bem simples que podem complementar projetos no "ramo" de áudio.

 

#Gravar áudio tanto do microfone quanto da própria placa de som.

#Salvar em .wav, WAV é o formato de áudio que o VB trabalha, é possível trabalhar com outros formatos mais esse é o mais simples.

#Executar esses arquivos salvos.

 

Declaração:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

 

 

 

Declarar a variável como global

Dim Sound As New System.Media.SoundPlayer()

 

 

Iniciar a gravação

mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)

mciSendString("record recsound", "", 0, 0)

 

Para a gravação e salvar

mciSendString("save recsound C:\ongame\record.wav", "", 0, 0)

mciSendString("close recsound", "", 0, 0)

 

Obs.Mandei salvar na pasta do PB mesmo :pensativo:

 

Executar o áudio

Sound.SoundLocation = "C:\ongame\record.wav"

Sound.Load()

Sound.Play()

 

Para a execução( PARAR NÃO PAUSAR)

Sound.Stop()

 

 

É possível executar em Loop também o áudio