رفتن به مطلب
  • 0

مشکل در دکمه pause


amir mahdizadeh

سوال

سلام به همه دوستان

من توی برنامه 2 تا دکمه گذاشتم یکی برای play و یکی برای pause

زمانی که اهنگ در حال اجرا هست اگه روی دکمه pause کلیک کنم درست کار می کنه اما زمانی که دوباره روی دکمه play کلیک می کنم اهنگ از ادامه پخش نمیشه بلکه از اول پخش میشه اینم کدهای دکمه هام

لطفا کمکم کنید

خودم حدس میزنم مشکل از mp.load باشه اما نمیدونم کجا بذارمش چون هر جا دیگه میذارمش ارور میده

Sub Button2_Click
		If mp.IsPlaying Then
			mp.Pause
			Button2.Visible=False
			Button1.Visible=True
		End If
End Sub

Sub Button1_Click	
	Dim result As Int
	fd.FilePath = File.DirRootExternal & "/Tooshe hamrah"
	If File.Exists(fd.FilePath,meghdar &"doa.mp3") = False Then
		result=Msgbox2("آیا می خواهید صوت مورد نظر را دانلود کنید؟","دانلود","بله","","خیر",Null)
		If (result = DialogResponse.POSITIVE) Then
			StartActivity(download)
		Else
			If (result = DialogResponse.NEGATIVE) Then
				ToastMessageShow("صوت مورد نظر دانلود نشد",False)
			End If
		End If
	Else
		mp.Load(fd.FilePath,meghdar &"doa.mp3")
		If Button2.Visible=True Then
			mp.Play
			Button1.Visible=True
			Button2.Visible=False
		Else

			Button1.Visible=True
			mp.Play
			Button1.Visible=False
			Button2.Visible=True
			timer1.Initialize("timer1", 1000)
			timer1.Enabled=True
		End If
	End If
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

سلام

 

اینو تست کنید

Sub Globals
fd.FilePath = File.DirRootExternal & "/Tooshe hamrah"
Dim mp As MediaPlayer
Dim b As Boolean
End Sub

Sub Activity_Create(FirstTime As Boolean)
	mp.Load(fd.FilePath,meghdar &"doa.mp3")
End Sub

Sub play_Click
	Dim result As Int
	If File.Exists(fd.FilePath,meghdar &"doa.mp3") = False Then
			result=Msgbox2("آیا می خواهید صوت مورد نظر را دانلود کنید؟","دانلود","بله","","خیر",Null)
			If (result = DialogResponse.POSITIVE) Then
			StartActivity(download)
		Else iF (result = DialogResponse.NEGATIVE) Then
				ToastMessageShow("صوت مورد نظر دانلود نشد",False)
			End If
	End If
	
	If b = False Then
		mp.Play
		play.Visible = True
		pause.Visible = False
		Else
			play.Visible=True
			mp.Play
			play.Visible=False
			pause.Visible=True
			timer1.Initialize("timer1", 1000)
			timer1.Enabled=True
	End If
End Sub

Sub pause_Click
	b = True
	If mp.IsPlaying = True Then
		pause.Visible = False
		play.Visible = True
	End If
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

سلام

 

اینو تست کنید

Sub Globals
fd.FilePath = File.DirRootExternal & "/Tooshe hamrah"
Dim mp As MediaPlayer
Dim b As Boolean
End Sub

Sub Activity_Create(FirstTime As Boolean)
	mp.Load(fd.FilePath,meghdar &"doa.mp3")
End Sub

Sub play_Click
	Dim result As Int
	If File.Exists(fd.FilePath,meghdar &"doa.mp3") = False Then
			result=Msgbox2("آیا می خواهید صوت مورد نظر را دانلود کنید؟","دانلود","بله","","خیر",Null)
			If (result = DialogResponse.POSITIVE) Then
			StartActivity(download)
		Else iF (result = DialogResponse.NEGATIVE) Then
				ToastMessageShow("صوت مورد نظر دانلود نشد",False)
			End If
	End If
	
	If b = False Then
		mp.Play
		play.Visible = True
		pause.Visible = False
		Else
			play.Visible=True
			mp.Play
			play.Visible=False
			pause.Visible=True
			timer1.Initialize("timer1", 1000)
			timer1.Enabled=True
	End If
End Sub

Sub pause_Click
	b = True
	If mp.IsPlaying = True Then
		pause.Visible = False
		play.Visible = True
	End If
End Sub

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

زمانی که mp.load رو داخل activity create میذارم ارور میده

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

 

سلام

 

اینو تست کنید

Sub Globals
fd.FilePath = File.DirRootExternal & "/Tooshe hamrah"
Dim mp As MediaPlayer
Dim b As Boolean
End Sub

Sub Activity_Create(FirstTime As Boolean)
	mp.Load(fd.FilePath,meghdar &"doa.mp3")
End Sub

Sub play_Click
	Dim result As Int
	If File.Exists(fd.FilePath,meghdar &"doa.mp3") = False Then
			result=Msgbox2("آیا می خواهید صوت مورد نظر را دانلود کنید؟","دانلود","بله","","خیر",Null)
			If (result = DialogResponse.POSITIVE) Then
			StartActivity(download)
		Else iF (result = DialogResponse.NEGATIVE) Then
				ToastMessageShow("صوت مورد نظر دانلود نشد",False)
			End If
	End If
	
	If b = False Then
		mp.Play
		play.Visible = True
		pause.Visible = False
		Else
			play.Visible=True
			mp.Play
			play.Visible=False
			pause.Visible=True
			timer1.Initialize("timer1", 1000)
			timer1.Enabled=True
	End If
End Sub

Sub pause_Click
	b = True
	If mp.IsPlaying = True Then
		pause.Visible = False
		play.Visible = True
	End If
End Sub

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

زمانی که mp.load رو داخل activity create میذارم ارور میده

 

 

 

 

meghdar و fd رو من نمیدونم چی هستن

اونا روهم باید تو Sub Global تعریف کنید :)

لینک ارسال
به اشتراک گذاری در سایت های دیگر

meghdar مشخص کننده اینه که الان روی کدوم گزینه کلیک شده تا بتونه بفهمه کدوم صوت رو باید پخش کنه

fd  هم جایی هست که صوت ها ذخیره شده الان تویdirrootexternal هست

ضمنا هر دوتاشون توی global  تعریف شدن

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...