[ Visual Basic 6 ] برنامج تسجيل الصوت vb.net or vb2010

تم تحميل الصفحة في 1,9721797 ثانية
برنامج تسجيل الصوت vb.net or vb2010
الحالة
مغلق و غير مفتوح للمزيد من الردود.

mr.gemy22

Beginner Developer
rank
إنضم
16 سبتمبر 2010
المشاركات
60
الإعجابات
4
النقاط
0
العمر
23
أريد أن أعرف هل من الممكن عمل برنامج لتسجيل الصوت أم لا ؟
وإذا كان من الممكن فما هي الكيفية وبارك الله فيكم .
احلى تقييم لمن يرد عليا .:30::30::31::31::34:
 
إنضم
1 نوفمبر 2012
المشاركات
2,698
الإعجابات
3,523
النقاط
113
الإقامة
المغرب وكل البلاد اوطاني
رد: برنامج تسجيل الصوت vb.net or vb2010

السلام عليكم ورحمة الله
اخي العزيز هذا قسم الفجوال بيسك6 وليس الفجوال نت:15:
المهم تفضل الكود وان شاء الله يعمل معك
كود Visual Basic
Imports System.Runtime.InteropServices
Imports System.Text
Public Class Form1
  <DllImport("winmm.dll")> _
  Private Shared Function mciSendString(ByVal command As String, ByVal buffer As StringBuilder, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
  End Function

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try
      Dim i As Integer
      i = mciSendString("open new type waveaudio alias capture", Nothing, 0, 0)
      Console.WriteLine(i)
      'i = mciSendString("set capture samplespersec " & lSamples & " channels " & lChannels & " bitspersample " & lBits & " alignment " & iBlockAlign & " bytespersec " & lBytesPerSec, Nothing, 0, 0)
      'Console.WriteLine(i)
      i = mciSendString("record capture", Nothing, 0, 0)
      Console.WriteLine(i)
      Me.Label1.Text = "Recording"
    Catch ex As Exception
      Console.WriteLine(ex.Message)
    End Try
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Try
      Dim i As Integer
      i = mciSendString("save capture " & "d:\file\xvw.wav", Nothing, 0, 0)
      i = mciSendString("close capture", Nothing, 0, 0)
      Me.Label1.Text = "Idle"
    Catch ex As Exception
      Console.WriteLine(ex.Message)
    End Try
  End Sub
End Class

المرجوا الدعاء لي بالشفاء العاجل ورفع الهم والغم
ان افدتك اغلق الموضوع بافضل اجابة:15:
بالتوفيق
 
إنضم
16 مارس 2013
المشاركات
2,659
الإعجابات
2,155
النقاط
113
الإقامة
أ‡أ،أŒأ’أ‡أ†أ‘
رد: برنامج تسجيل الصوت vb.net or vb2010

اللهم رب الناس مذهب البأس اشف انت الشافي لا شفاء الا شفاءه شفاء لا يغادر سقما باسم الله ارقيك من كل شيئ يؤذيك اللهم ارزقه الشفاء العاجل واجعله من الشاكرين الذاكرين آمين يار ب العالمين:107::107:
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل