السلام عليكم
اخواني الكرام ابحث عن كود وطريقة استطيع من خلالها تسجيل صوت عبر المايكريفون باسخدام لغة vb.net
اذا امكن تسجيل الصوت ووضعه في ملف mp3 مباشرة
شكرا جزيلا اخواني الاعزاء
بارك الله فيكم
السلام عليكم
اخواني الكرام ابحث عن كود وطريقة استطيع من خلالها تسجيل صوت عبر المايكريفون باسخدام لغة vb.net
اذا امكن تسجيل الصوت ووضعه في ملف mp3 مباشرة
شكرا جزيلا اخواني الاعزاء
بارك الله فيكم
__________________
عاشت فلسطين وعاشت المقاومة
http://www.palintefada.com/arabic
http://www.palissue.com/arabic
موقع انتفاضة فلسطين - موقع القضية الفلسطينية
الكاسر
وعليكم السلام
شوف هذا الرابط
http://www.eggheadcafe.com/community...in-vb-net.aspx
قوقل صديقك!
__________________
متى استعبدتم الناس وقد ولدتهم أمهاتهم أحرار........
-----------------------------------
شبكة الشعر الادبيه
السلام عليكم
شكرا جزيلا اخي العزيز
حاولت احول الكود الى vb.net ولاكن لا يقوم بالتسجيل!!!!!
هذا هو الكود الحالي
شكرا جزيلاكود:Imports Microsoft.VisualBasic.Devices Imports System.Runtime.InteropServices Class UserMenu Private Shared Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer End Function Private Sub MainMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click mciSendString("open new Type waveaudio Alias recsound", "", 0, 0) mciSendString("record recsound", "", 0, 0) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click mciSendString("save recsound c:\new.wav", "", 0, 0) mciSendString("close recsound ", "", 0, 0) Dim c As New Computer() c.Audio.[Stop]() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim computer As New Computer() computer.Audio.Play("c:\new.wav", AudioPlayMode.Background) End Sub End Class
التعديل الأخير تم بواسطة elkaser ; 01-08-2010 الساعة 05:22 AM
__________________
عاشت فلسطين وعاشت المقاومة
http://www.palintefada.com/arabic
http://www.palissue.com/arabic
موقع انتفاضة فلسطين - موقع القضية الفلسطينية
الكاسر