مشکل در دکمه pause

[amir mahdizadeh 109]

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

من توی برنامه 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

[Elyas Erfani 3,582]

سلام

 

اینو تست کنید

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

[amir mahdizadeh 109]

 

سلام

 

اینو تست کنید

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 میذارم ارور میده

 

[Elyas Erfani 3,582]

 

 

سلام

 

اینو تست کنید

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 تعریف کنید

[amir mahdizadeh 109]

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

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

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

[amir mahdizadeh 109]

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