26-10-24, 12:18 AM
كود :
Imports NAudio.CoreAudioApi
Imports NAudio.Wave
Partial Public Class Form1
Dim waveIn = New WaveIn()
Public Sub New()
InitializeComponent()
Dim de As MMDeviceEnumerator = New MMDeviceEnumerator()
Dim device = de.EnumerateAudioEndPoints(DataFlow.All, DeviceState.Active)
ComboBox1.Items.AddRange(device.ToArray())
End Sub
Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
If ComboBox1.SelectedItem IsNot Nothing Then
Dim device = CType(ComboBox1.SelectedItem, MMDevice)
ProgressBar1.Value = CInt(Math.Round(device.AudioMeterInformation.MasterPeakValue * 100))
Label1.Text = Math.Round(device.AudioMeterInformation.MasterPeakValue * 100).ToString()
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()
waveIn.StartRecording()
ComboBox1.SelectedIndex = 1
End Sub
End Class