بخش صداي mp3

[www.pc3enter.tk]

سلام دوستان

يك سوال داشتم ان هم اينكه
كد يا تابعي هست كه بتوان صدا يا صوت mp3 را بخش كرد

[amin32]

سلام .
در بخش References تیک ActiveMove Control Type library رو بزنید (البته اگه dll اون در سیستمتون باشه که احتمالآ هست) . یک دکمه در فرم ایجاد کنید و این کد ها رو وارد کنید:
Dim MediaCtl As IMediaControl
Private Sub Command1_Click()
Set MediaCtl = New FilgraphManager
MediaCtl.RenderFile "آدرس فایل"
MediaCtl.Run
End Sub


فقط باید آدرس رو عوض کنید و آدرس فایل مورد نظر رو وارد کنید.
فکر میکنم راههای دیگه ای هم هست . مثلآ از کامپوننت windows media player استفاده کنید.

[MohammadGh2011]

سلام دوستان

يك سوال داشتم ان هم اينكه
كد يا تابعي هست كه بتوان صدا يا صوت mp3 را بخش كرد
سلام عليکم

ميتونيد از تابع API هم استفاده کنيد:



نوشته شده توسط آقاي محسن واژدي (http://barnamenevis.org/showthread.php?313186-%D9%BE%D8%AE%D8%B4-%D9%81%D8%A7%DB%8C%D9%84-%D8%B5%D9%88%D8%AA%DB%8C-%D8%AF%D8%B1-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87&p=1374976&viewfull=1#post1374976):




Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
Dim FileName$
FileName = "C:\test.mp3"
mciSendString "close my_alias_nam", 0, 0, 0
If mciSendString("open " & FileName & " type MPEGVideo alias my_alias_nam", 0, 0, 0) = 0 Then
mciSendString "play my_alias_nam from 0", 0, 0, 0
End If
End Sub
Private Sub Command2_Click()
mciSendString "stop my_alias_nam", 0, 0, 0
mciSendString "close my_alias_nam", 0, 0, 0
End Sub
Private Sub Command3_Click()
mciSendString "pause my_alias_nam", 0, 0, 0
End Sub
Private Sub Command4_Click()
mciSendString "play my_alias_nam", 0, 0, 0
End Sub

ويا از کنترل Windows Media Player


موفق باشيد

[irprogramer]

خوب بود مرسی

[man551]

سلامممممممممممممم
ببخشید من 1 برنامه نوشتم که تو از مدیا پلیر استفاده میکنم و چند فایل mp3 رو اجرا میکنم
اما وقتی که setup برنامه رو درست میکنم و روی سیستم دیگه ای اجراش میکنم فایل ها باز نمیشه
اگه لطف کنید و کمکم کنید ممنون میشم
(فقط 1 خورده عجله دارم :(((((( )

[MohammadGh2011]

سلامممممممممممممم
ببخشید من 1 برنامه نوشتم که تو از مدیا پلیر استفاده میکنم و چند فایل mp3 رو اجرا میکنم
اما وقتی که setup برنامه رو درست میکنم و روی سیستم دیگه ای اجراش میکنم فایل ها باز نمیشه
اگه لطف کنید و کمکم کنید ممنون میشم
(فقط 1 خورده عجله دارم :(((((( )

سلام عليکم
چه خطايي ميده به شما؟؟؟
شما بايد موقع ساخت ستاپ برنامه تمام کامپوننتهايي که در برنامه استفاده کردين به برنامه ستاپ ساز معرفي کنيد تا موقع نصب براتون توي سيستم کاربر ريجسترشون کنه.

[man551]

سلام
اصلا خطا نمیده برنامه کامل نصب و اجرا میشه
ولی وقتی میخاد اون فایل صوتی اجرا بشه، نمیشه انگار که هبچ ادرسی دهی نشده

[MohammadGh2011]

سلام عليکم

از چه کامپوننتي استفاده کرديد؟Windows Media Player ؟
اگه از ويندوز 7 استفاده ميکنيد و برنامه رو تو 7 نصب کرديد ،تِم ويندوز رو حالت شيشه اي کنيد اين مشکل من هم بوده .

[saber67]

شاید آدرس فایل رو ثابت در نظر گرفتی! منظورم اینه مثلا آدرس رو این جوری داده باشی:
"C:\Program Files\My Program\File.mp3"
ولی موقع نصب مسیرش یه جا دیگ باشه