17-10-12, 06:04 PM
كاتب الموضوع : Boutemine Oualid
السلام عليكم و رحمة الله وبركاتهكود :
Public Class Form1
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
Private Sub btnRecordFromMicrophone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRecordFromMicrophone.Click
' record from microphone
mciSendString("open new Type waveaudio Alias recsound", vbNullString, 0, 0)
mciSendString("record recsound", vbNullString, 0, 0)
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
' stop and save
mciSendString("save recsound c:\record.wav", vbNullString, 0, 0)
mciSendString("close recsound", vbNullString, 0, 0)
End Sub
Private Sub btnPlayRecordedSound_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayRecordedSound.Click
' play audio
My.Computer.Audio.Play("c:\record.wav", AudioPlayMode.WaitToComplete)
End Sub
End Class