سوال در مورد پخش موزیک

[armin-nosrati 10]

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

موزیک اول که در حال پخش بود stop بشه و موزیک که کاربر روش کلیک کرده پخش بشه

من با ahang.stop این کارم کردم ولی دفعه دوم که روی همون اهنگ اول کلیک کنیم دیگه پخش نمیشه

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

[armin-nosrati 10]

میشه یه توضیح بدی من با sound pool کار نکردم

اگر که این کتابخونه رو خودت داری ممنون میشم بزاری برام

[ALI0123 21]

سلام دوست عزیز با این کد ببین مشکلت حل میشه؟

#Region Project Attributes
#ApplicationLabel: تست
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#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
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim ahang1 As MediaPlayer
Private ImageView1 As ImageView
Private ImageView2 As ImageView
Private ImageView3 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("1")
ahang1.Initialize()
ahang1.Load(File.DirAssets,"66109.wav")
ahang1.Load(File.DirAssets,"66691.wav")
ahang1.Load(File.DirAssets,"66692.wav")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub ImageView1_Click
If ahang1.IsPlaying = True Then
ahang1.Stop
Else
ahang1.Load(File.DirAssets,"66109.wav")
ahang1.Play
End If
End Sub
Sub ImageView2_Click
If ahang1.IsPlaying = True Then
ahang1.Stop
Else
ahang1.Load(File.DirAssets,"66691.wav")
ahang1.Play
End If
End Sub
Sub ImageView3_Click
If ahang1.IsPlaying = True Then
ahang1.Stop
Else
ahang1.Load(File.DirAssets,"66692.wav")
ahang1.Play
End If
End Sub

 

با سلام

 چرا از اکتیویتی موزیک به عقب برمیگردم و به یه اکتیویتی دیگ میرم اهنگ قطع میشه؟؟؟؟؟؟

چیکار کنم مشکلم حل شه

[Hidden-coder 10]

سلام دوست عزیز با این کد ببین مشکلت حل میشه؟

#Region  Project Attributes 
   #ApplicationLabel: تست
   #VersionCode: 1
   #VersionName: 
   'SupportedOrientations possible values: unspecified, landscape or portrait.
   #SupportedOrientations: unspecified
   #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
   #FullScreen: False
   #IncludeTitle: True
#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
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim ahang1 As MediaPlayer
   Private ImageView1 As ImageView
   Private ImageView2 As ImageView
   Private ImageView3 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("1")
    ahang1.Initialize()
    ahang1.Load(File.DirAssets,"66109.wav")
    ahang1.Load(File.DirAssets,"66691.wav")
    ahang1.Load(File.DirAssets,"66692.wav")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub ImageView1_Click
   If ahang1.IsPlaying = True Then
   ahang1.Stop
   Else
   ahang1.Load(File.DirAssets,"66109.wav")
   ahang1.Play
   End If
End Sub
Sub ImageView2_Click
   If ahang1.IsPlaying = True Then
   ahang1.Stop
   Else
   ahang1.Load(File.DirAssets,"66691.wav")
   ahang1.Play
   End If
End Sub
Sub ImageView3_Click
   If ahang1.IsPlaying = True Then
   ahang1.Stop
   Else
   ahang1.Load(File.DirAssets,"66692.wav")
   ahang1.Play
   End If
End Sub

تست.rar

[armin-nosrati 10]

سلام دوست عزیز با این کد ببین مشکلت حل میشه؟

#Region  Project Attributes 
   #ApplicationLabel: تست
   #VersionCode: 1
   #VersionName: 
   'SupportedOrientations possible values: unspecified, landscape or portrait.
   #SupportedOrientations: unspecified
   #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
   #FullScreen: False
   #IncludeTitle: True
#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
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim ahang1 As MediaPlayer
   Private ImageView1 As ImageView
   Private ImageView2 As ImageView
   Private ImageView3 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("1")
    ahang1.Initialize()
    ahang1.Load(File.DirAssets,"66109.wav")
    ahang1.Load(File.DirAssets,"66691.wav")
    ahang1.Load(File.DirAssets,"66692.wav")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub ImageView1_Click
   If ahang1.IsPlaying = True Then
   ahang1.Stop
   Else
   ahang1.Load(File.DirAssets,"66109.wav")
   ahang1.Play
   End If
End Sub
Sub ImageView2_Click
   If ahang1.IsPlaying = True Then
   ahang1.Stop
   Else
   ahang1.Load(File.DirAssets,"66691.wav")
   ahang1.Play
   End If
End Sub
Sub ImageView3_Click
   If ahang1.IsPlaying = True Then
   ahang1.Stop
   Else
   ahang1.Load(File.DirAssets,"66692.wav")
   ahang1.Play
   End If
End Sub

مچکر مشکلم حل شد

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

درود

احتمالا واسه اینه که شما Initialize رو تغییر دادید.

کد نویسیتون رو لطفا قرار بدید ببینیم

[armin-nosrati 10]

#Region  Project Attributes 
   #ApplicationLabel: music
   #VersionCode: 1
   #VersionName: 1.0
   'SupportedOrientations possible values: unspecified, landscape or portrait.
   #SupportedOrientations: portrait
   #CanInstallToExternalStorage: False
#End Region

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

Sub Process_Globals


End Sub

Sub Globals





   Private ScrollView1 As ScrollView


   Dim ahang1 As MediaPlayer
   Dim ahang2 As MediaPlayer

   Private ImageView1 As ImageView
   Private ImageView2 As ImageView

   End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("1")
   ScrollView1.Panel.LoadLayout("2")
   Activity.SetBackgroundImage(LoadBitmap(File.DirAssets,"bg2.jpg"))




   ahang1.Initialize()
   ahang1.Load(File.DirAssets,"ahang1.mp3")

   ahang2.Initialize()
   ahang2.Load(File.DirAssets,"ahang2.mp3")






End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub ImageView1_Click
   If (ahang2.IsPlaying) Then
       ahang2.Stop
       ahang2.Initialize()
   ahang2.Load(File.DirAssets,"ahang2.mp3")

   End If



   If (ahang1.IsPlaying) Then
       ahang1.Pause
       ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,"ahang1-1.jpg"))
   Else
       ahang1.Play
       ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,"ahang1-2.jpg"))
   End If

End Sub

Sub ImageView2_Click

   If (ahang1.IsPlaying) Then
       ahang1.Stop
       ahang1.Initialize()
   ahang1.Load(File.DirAssets,"ahang1.mp3")

   End If

   If (ahang2.IsPlaying) Then
       ahang2.Pause
       ImageView2.SetBackgroundImage(LoadBitmap(File.DirAssets,"ahang2-1.jpg"))
   Else
       ahang2.Play
       ImageView2.SetBackgroundImage(LoadBitmap(File.DirAssets,"ahang2-2.jpg"))
   End If



End Sub

با این کار مشکل حل میشه

ولی واسه 20 تا اهنگ کد ها خیلی زیاد میشه

[asvar 41]

از

[color=#000000][color=#DD0000]ahang1.Initialize2("")[/color][/color]

استفاده کن ببین جواب میده

[armin-nosrati 10]

فک نکنم ربطی به Initialize داشته باشه

من می خوام از حالت stop در بیاد

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

عزیزم شما که نباید برای یک تیکه آهنگ بیایی یه کد بزاری

فوقش آهنگ هات توی یک دیتابیس میایی قرار میدی و فراخوانیشون میکنی توی یک ListView

بعدش با کلیک کردن روشون قابلیت Play و ... براشون میزاری !

اونی که 500 تا آهنگ توی برنامه میزاره که برای هر 500 تا آهنگ کد نویسی جدا نکرده *گاز*

روش شما برای همون 1 تا 5 تا آهنگ خوبه و میتونه مناسب باشه. بیشتر که بشه وقت گیر میشه.

بهترین راه دیتابیس هست

[armin-nosrati 10]

برنامه به صورت افلاین برای همین از دیتا بیس استفاده نکردم

همین حالا هم قابلیت Play و pause داره فقط مشکلم همونیه که اول گفتم وقتی اهنگ stop میشه برای پخش دوباره باید Initialize و Load بشه

حالا که تعداد بالاست باید چیکار کنم

[asvar 41]

برنامه به صورت افلاین برای همین از دیتا بیس استفاده نکردم

همین حالا هم قابلیت Play و pause داره فقط مشکلم همونیه که اول گفتم وقتی اهنگ stop میشه برای پخش دوباره باید Initialize و Load بشه

حالا که تعداد بالاست باید چیکار کنم

از sound pool هم میتونی استفاده کنی . یه بار لودو Initialize میخواد