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

[vahid_d_0101 31]

با سلام

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

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

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

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

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

برنامه من الارم ساعته

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

خب نوعش رو میتونید از نوع TYPE_ALARM قرار بدید دیگه.

ring.SetDefault(ring.TYPE_ALARM)

[vahid_d_0101 31]

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

cc.Show("audio/**","انتخاب اهنگ")

[vahid_d_0101 31]

ring.SetDefault(ring.TYPE_ALARM)

اخطار میده 

[امین شاهدی 5,720]

از این متغیر ایراد میگیره

Dim u As Uri

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

اینم خوبه

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

 

کتابخانه ContentResolver رو تیک بزنید

[vahid_d_0101 31]

ایول حل شد

فقط اون مورد مونده که میخوام از داخل برنامه پنچره رینگتون الارم باز بشه و رینگتون الارم را  تغیر بدهند

پنچره را باز میکنم ولی وقتی ok میزنم همون رینگتون قبلی دیفالت هست

[vahid_d_0101 31]

اقایون کارم گیره خواهشا کمک کنید

[SoRoUsH 300]

اولا اسپم ندید لطفا...دومن اون cc توی کداتون چی هست دقیقا؟

[vahid_d_0101 31]

Dim cc As ContentChooser

[dostmobile 329]

Dim ring As RingtoneManager



ring.SetDefault(ring.TYPE_RINGTONE)

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

رینگتون خاص رو تو کافه بازار ببین

https://cafebazaar.ir/app/com.dostmobile.ringtone/?l=fa

[vahid_d_0101 31]

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

برنامه من الارم ساعته

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

[امین شاهدی 5,720]

Sub Activity_Create(FirstTime As Boolean)
   Dim rm As RingtoneManager
   PlayRingtone(rm.GetDefault(rm.TYPE_ALARM))
End Sub

Sub PlayRingtone(url As String)
   Dim jo As JavaObject
   jo.InitializeStatic("android.media.RingtoneManager")
   Dim jo2 As JavaObject
   jo2.InitializeContext
   Dim u As Uri
   u.Parse(url)
   jo.RunMethodJO("getRingtone", Array(jo2, u)).RunMethod("play", Null)
End Sub

کتابخونه Phone , javaObject رو تیک بزنید

[vahid_d_0101 31]

از این متغیر ایراد میگیره

Dim u As Uri

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

اینم خوبه

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