1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Imports NAudio.Wave
Imports System.Net
Imports System.IO
Public Class Form1
Public WithEvents wi As New WaveIn
Public wo As New WaveOut
Public bw As BufferedWaveProvider
Public byteToBase64 As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wi.DeviceNumber = 0
wi.WaveFormat = New NAudio.Wave.WaveFormat(16000, 1)
bw = New BufferedWaveProvider(wi.WaveFormat) ' buffer d'enregistrement
bw.DiscardOnBufferOverflow = True
wo.Init(bw) ' init avec le buffer
End Sub
Private Sub BtnEnregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnregistrer.Click
wi.StartRecording() ' demarrage de l'enregistrement
wo.Play()
End Sub
Private Sub wi_DataAvailable(ByVal sender As Object, ByVal e As WaveInEventArgs) Handles wi.DataAvailable
bw.AddSamples(e.Buffer, 0, e.BytesRecorded)
End Sub
Private Sub BtnStopper_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStopper.Click
wi.StopRecording()
End Sub
End Class |