مشکل با پخش و متوقف کردن موزیک پس از دانلود

[mahfelsoft 130]

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

Sub btnplay_Click
	 If File.Exists(File.DirRootExternal & "/safireshgh", "m.mp3") = False Then
	 	ToastMessageShow("فایل وجود ندارد. دانلود ابتدا فایل را دانلود کنید",False)
		Else 
			
	mediaplayer1.Load(File.DirRootExternal & "/pooshe", "m.mp3")
    mediaplayer1.Looping=False
    mediaplayer1.Play
   	timer3.Initialize("timer3", 1000)
	timer3.Enabled = True
  End If

End Sub

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

 

 

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

 If File.Exists(File.DirRootExternal & "/pooshe", "m.mp3") = true AND mediaplayer1.isplaying Then
mediaplayer.pause
end if

 چیکار میشه کرد ؟

[Elyas Erfani 3,582]

اینجوری امتحان کنید ببینید جواب نمیده :

If File.Exists(File.DirRootExternal & "Folder", "m.mp3") = True Then

If MediaPlayer1.IsPlaying = True Then

MediaPlayer1.Stop

Else

Return True

End If

End If

[mahfelsoft 130]

نه متاسفانه .

با این کد هنوز موزیک پخش نشده متوقف میشه و دیگه پخش نمیشه

[Elyas Erfani 3,582]

نه متاسفانه .

با این کد هنوز موزیک پخش نشده متوقف میشه و دیگه پخش نمیشه

این رو بنویسید ب احتمال 90%. درسته

If File.Exists(File.DirRootExternal & "Folder", "m.mp3") = True And MediaPlayer1.IsPlaying = True Then

MediaPlayer1.Stop

End If

واسه MediaPlayer.IsPlaying

IsPlaying از نوع Boolean هست و باید حتما بهش True یا False بدید ک شما نداده بودید

[mahfelsoft 130]

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

[Elyas Erfani 3,582]

ببخشید اینو هم امتحان کنید *khejalat*

If File.Exists(File.DirRootExternal & "Folder" , "m.mp3") = True Then

ToastMessageShow("File Mosiqi Vojod Darad”,True)

If MediaPlayer1.IsPlaying = True Then

MediaPlayer1.Pause

ToastMessageShow(" Mosiqi Qat Shod" , True)

Else If MediaPlayer1.IsPlaying = False Then

ToastMessageShow(" Mosiqi Dar Hale Pakhsh Nist" , True)

End If

End If

اگر هم اوکی نشد ی تیکه سورس رو پ خ کنید *sharmande*