[مشروع] كود لعمل موجة مرئية مع المايك واليكم المشروع مرفق مع الاضافة NAudio

كود :



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