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

[mamix 2]

سلام و درود فراوان

دوستان من با این کدا اومدم یه سری زنگو برای قسمت های مختلف گوشی ست کردم اولش اجرا شد ولی فرداش این ارورو داد میدونید از چیه؟

[sganji 678]

فکر کنم اشکال از کد زیر هست:

Dim ring(0) As String

و کد درست:

Dim ring() As String

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

[mamix 2]

نه درست نمیشه بازم اینطوری متاسفانه*naa*

[sganji 678]

سلام

عکس واضح نیست.

کد های پروژه رو بزار به همراه متن ارور(کدی که ازش ارور گرفته رو هم قرمز کن)

[Alireza.Ghafari 2,104]

بیا این کد :

Dim rm As RingtoneManager
   Dim s As Int
   s=Msgbox2("آهنگ فوق جایگزین شود ؟","تغییر زنگ خور","بله","خیر","",Null)
   If s=DialogResponse.POSITIVE Then
   File.Copy(File.DirAssets,"2.mp3",File.DirRootExternal,"2.mp3")
   Dim ring = rm.AddToMediaStore(File.DirRootExternal,"2.mp3","2",False,False,True,True) As String
       rm.SetDefault(rm.TYPE_RINGTONE,ring)

کتابخانه phone رو تیک بزن.... به جای 2.mp3 هم آهنگ خودت که در پوشه files هست بزار.... موفق باشی

[mamix 2]

سلام

عکس واضح نیست.

کد های پروژه رو بزار به همراه متن ارور(کدی که ازش ارور گرفته رو هم قرمز کن)

Sub Button1_Click	alarm(0).Play
End Sub
Sub Button2_Click
alarm(0).Stop
End Sub
Sub Button3alarm_Click
	[color=#ff0000] Dim ring = rm.AddToMediaStore(File.DirRootExternal,"argon.ogg","argon",False,False,True,True) As String[/color]
       rm.SetDefault(rm.TYPE_ALARM,ring)
	ToastMessageShow("به عنوان زنگ آلارم انتخاب شد",False)
End Sub

[mamix 2]

بیا این کد :

Dim rm As RingtoneManager
   Dim s As Int
   s=Msgbox2("آهنگ فوق جایگزین شود ؟","تغییر زنگ خور","بله","خیر","",Null)
   If s=DialogResponse.POSITIVE Then
   File.Copy(File.DirAssets,"2.mp3",File.DirRootExternal,"2.mp3")
   Dim ring = rm.AddToMediaStore(File.DirRootExternal,"2.mp3","2",False,False,True,True) As String
       rm.SetDefault(rm.TYPE_RINGTONE,ring)

کتابخانه phone رو تیک بزن.... به جای 2.mp3 هم آهنگ خودت که در پوشه files هست بزار.... موفق باشی

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

[sganji 678]

فایل رو کپی کردی اصن تو روت؟

[mamix 2]

فایل رو کپی کردی اصن تو روت؟

بله تو activity create گذاشتم کدای کپی کردنو

[sganji 678]

پس بیزحمت یه سورسی چیزی بذار یا کد های اکتیویتی رو کامل بذار

[mamix 2]

این کدای مربوط به یکی از آهنگاس که میخام برای آلارم ست بشه:

Sub Activity_Create(FirstTime As Boolean)
           If File.Exists(File.DirRootExternal,"argon.ogg") = False Then
   File.Copy(File.DirAssets,"argon.ogg",File.DirRootExternal,"argon.ogg")
     End If
     Player_Initializer
     Thread_Initializer
End sub
     Private Sub Player_Initializer
     alarm(0).Initialize2(alarm)
end sub
     Private Sub Thread_Initializer
     ArrayMyThread(0).Initialise("ArrayMyThread")
     End Sub
Sub Play_Index1(obj As Object)
obj=alarm(0)
alarm(0).Load(File.DirAssets,"Argon.ogg")
alarm(0).Play
End Sub
Sub pause_index1(obj As Object)
obj=alarm(0)
alarm(0).Pause
End Sub
Sub type_index1(obj As Object)
obj=alarm(0)
   Dim ring(0) As String
    [color=#ff0000] ring(0) = rm(0).AddToMediaStore(File.DirRootExternal,"argon.ogg","argon",True,True,True,True)[/color]
   rm(0).SetDefault(rm(0).TYPE_ALARM,ring)
     ToastMessageShow("به عنوان زنگ آلارم انتخاب شد",False)
End Sub
Sub Button3alarm_Click
ArrayMyThread(0).Start(Me,"type_index1",Array As Object(alarm(0)))

End Sub