اجرای مدیا پلیر با Thread

[mohammade79 127]

سلام عزیزان من میخواستم این کد رو با تردد اجرا کنم لطفا کمکم کنید 3 سال اینحا عضوم یبار نشد کسی کمکم کنه 

اینم سورسم ، میتونید رو این یه ویرایش بدید ؟ ممنون میشم

مشکلم اینجاس ک اگر چند بار این دکمه ها رو بزنم دیگه اجرا نمیکنه رو دکمه ها صدارو

piano thread.rar

[mohammade79 127]

کسی بلد نیست؟

 

[mohammade79 127]

کسی نیست بتونه کمکم کنه بخدا کارم گیره مسلمونا 

[پژمان نیکروان 6,055]

سلام

فکر نکنم راه حلش Thread باشه. سرچ کنید یه سورس ساز قانون بود فکر کنم. طبق اون پیش برید. از مدیاپلیر استفاده نشده.

[mohammade79 127]

نه متاسفانه نشد نمیدونم چیجوری میشه این کارو کرد

[مجید آرتا 5,874]

سلام

ببین دوستم شم اینجا دو تا نکته مد نظرتون باید باشه.ایونت های اتمام شدن ترد و مدیا پلیر.

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

Sub runner_Ended(endedOK As Boolean, error As String) 'The thread has terminated. If endedOK is False error holds the reason for failure
	If endedOK Then
			LogColor("runner_Ended:Succesfully",Colors.Magenta)
			If mp.IsPlaying Then status = True
		Else
			LogColor(Colors.Magenta,"runner_Ended:Error")
	End If
End Sub

بعد توی رویداد مربوط به مدیا پلیر ( Complete ) میگید که بره آهنگ بعدی.آهنگ بعدی هم با هر بار کلیک روی دکمه هاتون، اسم آهنگ میره توی یک لیست و بعد از اتمام پخش اهنگ فعلی توی رویداد Complete  اتوماتیک میره اهنگ بعدی.

Sub MediaPlayer_Complete

End Sub

 

دقیقا این چیزی که بنده واستون نوشته بودم »

 

 

کلا با یک ترد و یک مدیا پلیر.شما کار با ترد رو یاد داشته باشید خیلی راحت می تونید اینو درست کنید.

[mohammade79 127]

در 17 ساعت قبل، مجید آرتا گفته است :

سلام

ببین دوستم شم اینجا دو تا نکته مد نظرتون باید باشه.ایونت های اتمام شدن ترد و مدیا پلیر.

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

Sub runner_Ended(endedOK As Boolean, error As String) 'The thread has terminated. If endedOK is False error holds the reason for failure
	If endedOK Then
			LogColor("runner_Ended:Succesfully",Colors.Magenta)
			If mp.IsPlaying Then status = True
		Else
			LogColor(Colors.Magenta,"runner_Ended:Error")
	End If
End Sub

بعد توی رویداد مربوط به مدیا پلیر ( Complete ) میگید که بره آهنگ بعدی.آهنگ بعدی هم با هر بار کلیک روی دکمه هاتون، اسم آهنگ میره توی یک لیست و بعد از اتمام پخش اهنگ فعلی توی رویداد Complete  اتوماتیک میره اهنگ بعدی.

Sub MediaPlayer_Complete

End Sub

 

دقیقا این چیزی که بنده واستون نوشته بودم »

 

 

کلا با یک ترد و یک مدیا پلیر.شما کار با ترد رو یاد داشته باشید خیلی راحت می تونید اینو درست کنید.

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