توقف اهنگ در حال پخش

[majid08 266]

سلام من یه اهنگ انلاین پخش میکنم اگه دوباره روپلی کلیک کنی دوباره اهنگ اجرا میشه و اهنگ اهلی هم قطع نمیشه

میخام اگه روی پلی کلیک شد و اهنگ در حال پخش بود کلا اهنگ قطع شه

ممنونم

اینم کد هام

Sub Button2_Click
	Dim cur1 As Cursor
cur1=MyBank.ExecQuery("SELECT * FROM tbl1 WHERE id="& home.fasl1)
cur1.Position= 0
	pl.Initialize("pl")
	pl.Load(cur1.GetString("value"))
End Sub

Sub pl_StreamReady
    Log("starts playing")
		pl.Play
	End Sub

[مهدی ایزدی 9,203]

یک شرط بزار که اگه isPlaying = True  بود

به جای Play  بیاد آهنگ رو Pause کنه

در غیر این صورت Play کنه

[majid08 266]

شرط رو بلدم ولی عمل نمیکنه

If pl.IsPlaying=True  Then
	pl.Pause
	Else
	pl.Play
	End If

این که کجاش بزارم نمیدونم ولی هر جا هم گذاشتم فایده نداره

[مهدی ایزدی 9,203]

نباید مشکل داشته باشه

کد رو به همون Button مورد نظرتون که میخواهید عمل روش انجام بشه بدید

[majid08 266]

نباید مشکل داشته باشه

کد رو به همون Button مورد نظرتون که میخواهید عمل روش انجام بشه بدید

 

نمیشه

ببینید کد ها به صورت زیر هست باتن 1 رو کیک میکنم ولی میاد قسمت دوم رو اجرا میکنه

Sub Button2_Click
	Dim cur1 As Cursor
cur1=MyBank.ExecQuery("SELECT * FROM tbl1 WHERE id="& home.fasl1)
cur1.Position= 0
	pl.Initialize("pl")
	pl.Load(cur1.GetString("value"))
End Sub



قسمت دوم
Sub pl_StreamReady
    Log("starts playing")
		pl.Play
	End Sub

[مهدی ایزدی 9,203]

یه جست و جو زدم توی سیستم ام برای نمونه سورس آماده بهتون بدم

سورس استاد مهران محمودی رو دیدم

امیدوارم که انجمن بتونه دوباره از حضور ارزشمند دوست عزیزم مهران محمودی که جزء موسسین انجمن هستد بهره مند بشه

 

این نمونه سورس رو ببینید

ساده هست اما کارتون رو راه میندازه

[majid08 266]

یه جست و جو زدم توی سیستم ام برای نمونه سورس آماده بهتون بدم

سورس استاد مهران محمودی رو دیدم

امیدوارم که انجمن بتونه دوباره از حضور ارزشمند دوست عزیزم مهران محمودی که جزء موسسین انجمن هستد بهره مند بشه

 

این نمونه سورس رو ببینید

ساده هست اما کارتون رو راه میندازه

داداش لینک مشکل داره

[مهدی ایزدی 9,203]

داداش لینک مشکل داره

عذر خواهی میکنم

لینک تصحیح شد

میتونید دانلود کنید