نحوه قرار دادن پلیر موزیک در vb.net 2010 [بایگانی]

conter

سه شنبه 03 اسفند 1389, 15:08 عصر

با سلام خدمت همه دوستان عزیز میخواستم بدونم کسی از دوستان میتونه راهنمایی کنه که در برنامه هایی که در vb.net 2010 یا vb6 چه جوری میشه کدی گذاشت که موزیکی که در پوشه برنامه هستش پخش شه !
هم بصورت اتوران و هم به صورت قرار دادن دکمه ؟ ممنون میشم راهنمایی کنید !

محسن شامحمدی

سه شنبه 03 اسفند 1389, 18:22 عصر

با سلام خدمت همه دوستان عزیز میخواستم بدونم کسی از دوستان میتونه راهنمایی کنه که در برنامه هایی که در vb.net 2010 یا vb6 چه جوری میشه کدی گذاشت که موزیکی که در پوشه برنامه هستش پخش شه ! چند تا پروژه music player به زبان Visual basic 6
با قابلیت پخش فایل های
mp3,wav,mid,midi

اگر خوب بود کلید تشکر فراموش نشه!

محسن شامحمدی

سه شنبه 03 اسفند 1389, 18:24 عصر

ادامه فایل ها:
دلیل:توی هر پست فقط می شه 5 تا فایل آپلود کرد.

محسن شامحمدی

سه شنبه 03 اسفند 1389, 18:32 عصر

5 تای بعدی:

conter

سه شنبه 03 اسفند 1389, 21:57 عصر

مرسی دوست عزیز از اینکه اینقدر زحمت کشیدی ولی این ها همشون پلیر های تقریبا حرفه ای هستند ! من دنبال یک کد میگردم که مثلا با اجرا کردن برنامه یک آهنگ که تو پوشه برنامه هستش رو اجرا کنه یا خیلی قویش این باشه که توی برنامه دکمه اجرا و توقف موزیک داشته باشه ... همین

دوم اینکه هیچ کدوم از برنامه ها درست بالا نیومدن اگه ممکنه پکیجی چیزی ازشون بذاری ممنون میشم هر کدومو اجرا میکردم کلی اخطار میداد که فلان ایتم نمیتونه لود شه و ...... بازم ممنون

conter

جمعه 06 اسفند 1389, 09:39 صبح

دوستان هیچ کسی این کد رو نداره ؟ یا نمیتونه راهنمایی کنه ؟

shedayat

جمعه 06 اسفند 1389, 09:44 صبح

سلام.
با تابع sndPlaySound می تونی فایل های صوتیت رو بخونی.

parselearn

جمعه 06 اسفند 1389, 11:24 صبح

http://msdn.microsoft.com/en-us/library/system.media.soundplayer.aspx

Imports System.Media
'------------------------
Dim m As New Media.SoundPlayer
m.SoundLocation = My.Application.Info.DirectoryPath() & "\Sounds\" & Temp
m.PlaySync()

conter

شنبه 07 اسفند 1389, 10:36 صبح

http://msdn.microsoft.com/en-us/library/system.media.soundplayer.aspx

Imports System.Media
'------------------------
Dim m As New Media.SoundPlayer
m.SoundLocation = My.Application.Info.DirectoryPath() & "\Sounds\" & Temp
m.PlaySync()

مرسی دوست عزیز ولی میشه یک توضیحی روی این کد بدی من توی directorypath هرچی مسیر فایل رو میدم ارور میده

conter

شنبه 07 اسفند 1389, 11:05 صبح

دوستان من توی سایت مایکروسافت این کدو دیدم که برای پخش یک فایل یه کار میرود .... ولی خوب نمیفهمم چه جوری به کارش بگیرم !!!! میتونید راهنمایی کنید که به چه شکلی میشه راه اندازیش کرد ؟ توی vb2010

ReportStatus("Playing .wav file asynchronously.")
player.Play()

این هم توی قسمت سینتکس نوشته بود ؟

'Declaration

Public Sub Play

و گفته بودش که یک namespace تعریف کنیم که من متوجه نشدم !

اینم لینکش : http://msdn.microsoft.com/en-us/library/system.media.soundplayer.play.aspx

parselearn

شنبه 07 اسفند 1389, 17:24 عصر

فايل صوتي بايد در آدرس فايل اجرايي باشد

Dim m As New Media.SoundPlayer
m.SoundLocation = My.Application.Info.DirectoryPath() & "\1.wav"
m.PlaySync()

conter

یک شنبه 08 اسفند 1389, 13:34 عصر

فايل صوتي بايد در آدرس فايل اجرايي باشد

Dim m As New Media.SoundPlayer
m.SoundLocation = My.Application.Info.DirectoryPath() & "\1.wav"
m.PlaySync()

مزسی دوست عزیز ولی من زدم کد رو و فایل موزیک رو توی پوشه برنامه گذاشتم با این خطا مواجه شدم : میتونید راهنمایم کنید ؟

http://s1.picofile.com/file/6165455730/error.jpg

parselearn

یک شنبه 08 اسفند 1389, 21:47 عصر

خطا مشخصه
فايل رو پيدا نميكنه
ميگه وضعيت فايل صوتي را بررسي كنيد

فايل صوتي بايد كنار فايل اجرايي باشد. در آدرس m.SoundLocation

conter

دوشنبه 09 اسفند 1389, 12:23 عصر

مرسی عزیز ولی من توی هر پوشه ای هم که قرار دادم بازم همین ارور رو داد نکنه باید اسم برنامه رو عوض کنم ؟ ببین دوست عزیز این فولدری که برنامه توش سیو هستش میتونی بگی کجا باید فایل رو قرار بدم ؟

http://s1.picofile.com/file/6165426556/1.jpg

http://s1.picofile.com/file/6165435610/2.jpg

parselearn

دوشنبه 09 اسفند 1389, 17:29 عصر

My Documents\Visual Studio 2010\Projects\WindowsApplication1\WindowsApplicati on1\bin\Debug

conter

دوشنبه 09 اسفند 1389, 21:53 عصر

خیلی خیلی ممنون دوست عزیز درست شد حالا برای اینکه یک دکمه برای توقفش بذارم باید این کد رو توش بنویسم ؟ m.stop

و یک سوال دیگه اینکه وقتی رو اون دکمه که این کد در داخلش قرار داره کلیک میکنم تا هنگامی که موزیک تموم نشه هیچ کاری نمیشه کرد یعنی دیگه هیچ دکمه ای کار نمیکنه ! نمیشه کاریش کرد مثل اتوران ها که یک دکمه پخش و توقف قرار داد در حالی که برنامه داره کار دیگه ای انجام میده ؟

conter

دوشنبه 09 اسفند 1389, 22:41 عصر

خیلی خیلی ممنون دوست عزیز درست شد حالا برای اینکه یک دکمه برای توقفش بذارم باید این کد رو توش بنویسم ؟ m.stop

و یک سوال دیگه اینکه وقتی رو اون دکمه که این کد در داخلش قرار داره کلیک میکنم تا هنگامی که موزیک تموم نشه هیچ کاری نمیشه کرد یعنی دیگه هیچ دکمه ای کار نمیکنه ! نمیشه کاریش کرد مثل اتوران ها که یک دکمه پخش و توقف قرار داد در حالی که برنامه داره کار دیگه ای انجام میده ؟

parselearn

سه شنبه 10 اسفند 1389, 17:28 عصر

براي پخش بدون توقف از PlaySync استفاده كنيد
معمولا هنگامي كه بخواهيد فايلهايي با زمانهاي كم را پخش كنيد كاربرد دارد

Dim m As New Media.SoundPlayer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
m.SoundLocation = My.Application.Info.DirectoryPath() & "\1.wav"
m.Play()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
m.Stop()
End Sub