تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لتسجيل الصوت من المايكروفون و اعادة استماعه
#1
كاتب الموضوع : 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
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  للتحكم في درجه الصوت الويندوز sound volume RaggiTech 0 1,568 17-10-12, 05:35 PM
آخر رد: RaggiTech
  اعادة تعيين حجم زر الأمر بناء على حجم النص RaggiTech 0 1,653 17-10-12, 04:49 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم