فهمیدن به اتمام رسیدن Media Player

[reza644 435]

اتمام مدیا پلیر

 

سلام

 

میخوام کدی داشته باشم که اگه mediaplayer1 قطع شد یه رویدادی اتفاق بیوفته

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

سلام...

جای این کد:

mediaplayer1.Initialize()

کد زیر رو بنویسید:

mediaplayer1.Initialize2("mediaplayer1")

[reza644 435]

تمام کدهاتون رو قرار بدید لطفا تا ببینم چیکار کردید !!!

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
Private imageview1 As ImageView
Private imageview2 As ImageView
Private imageview3 As ImageView
Private imageview4 As ImageView
Private webview1 As WebView
Dim mediaplayer1 As MediaPlayer

End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("gm")
	mediaplayer1.Initialize()
	mediaplayer1.Load(File.DirAssets,"gm.mp3")
	imageview1.Visible=True
	imageview2.Visible=False
	imageview3.Visible=True
	imageview4.Visible=False
imageview3.Visible=True
webview1.LoadUrl("file:///android_asset/"&"gm.htm")
 
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
mediaplayer1.stop
End Sub
Sub imageview1_click
mediaplayer1.play
imageview1.Visible=False
imageview2.Visible=True
imageview3.Visible=True
imageview4.Visible=False
End Sub
Sub imageview2_click
mediaplayer1.Pause
imageview1.Visible=True
imageview2.Visible=False
imageview3.Visible=True
imageview4.Visible=False
End Sub

Sub imageview3_click
mediaplayer1.stop
	imageview1.Visible=False
	imageview2.Visible=False
imageview3.Visible=True
	imageview4.Visible=True
End Sub
Sub imageview4_click
mediaplayer1.Load(File.DirAssets,"gm.mp3")
mediaplayer1.play
imageview1.Visible=False
imageview2.Visible=True
imageview3.Visible=True
imageview4.Visible=False
End Sub

Sub mediaplayer1_Complete
	imageview1.Visible=False
	imageview2.Visible=False
imageview3.Visible=True
	imageview4.Visible=True
End Sub

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

درود

ببینید حرفتون رو کامل نگفتید

 

قطع شدن چند مدل داریم :

یکی میبینید بعد از کامل اجرا شدن موزیک قطع میشه

یکی رو میبینید خودمون قطع میکنیم

 

در مورد اول :

Sub mp_Complete
	
End Sub

کدی که میخواهید عمل کنه رو توی Sub بزارید . mp هم اسمی هست که مدیا پلیر رو معرفی کردیم !

 

در مورد دوم هم میتونید توی کلیدی که Pause یا Stop تعریف کردید بایید رویدادی که میخواهید عمل کنه رو بنویسید دیگه

 

خیلی ساده هست

 

باز اگه منظور شما چیز دیگه ای بود واضح تر بیان کنید

 

موفق باشید

[reza644 435]

درود

ببینید حرفتون رو کامل نگفتید

 

قطع شدن چند مدل داریم :

یکی میبینید بعد از کامل اجرا شدن موزیک قطع میشه

یکی رو میبینید خودمون قطع میکنیم

 

در مورد اول :

Sub mp_Complete
	
End Sub

کدی که میخواهید عمل کنه رو توی Sub بزارید . mp هم اسمی هست که مدیا پلیر رو معرفی کردیم !

 

در مورد دوم هم میتونید توی کلیدی که Pause یا Stop تعریف کردید بایید رویدادی که میخواهید عمل کنه رو بنویسید دیگه

 

خیلی ساده هست

 

باز اگه منظور شما چیز دیگه ای بود واضح تر بیان کنید

 

موفق باشید

 

ممنون

 

فقط لطفا عنوان رو ویرایش کنید

[reza644 435]

درود

ببینید حرفتون رو کامل نگفتید

 

قطع شدن چند مدل داریم :

یکی میبینید بعد از کامل اجرا شدن موزیک قطع میشه

یکی رو میبینید خودمون قطع میکنیم

 

در مورد اول :

Sub mp_Complete
	
End Sub

کدی که میخواهید عمل کنه رو توی Sub بزارید . mp هم اسمی هست که مدیا پلیر رو معرفی کردیم !

 

در مورد دوم هم میتونید توی کلیدی که Pause یا Stop تعریف کردید بایید رویدادی که میخواهید عمل کنه رو بنویسید دیگه

 

خیلی ساده هست

 

باز اگه منظور شما چیز دیگه ای بود واضح تر بیان کنید

 

موفق باشید

 

کد رو آخر آخر نوشتم

 

کار نکرد یعنی آهنگ قطع شد رویدادم اتفاق نیوفتاد

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

تمام کدهاتون رو قرار بدید لطفا تا ببینم چیکار کردید !!!