سورس قرار دادن یک آهنگ برای صدای زنگ بدون مشکل تکرار(رینگتون)

[qasem 249]

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

[salar_blackdroid 408]

ققط باید مسیر اضافه شدن آهنگ به MediaStore رو هم تغییر داد./

[salar_blackdroid 408]

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

 

قاسم جان همونطوریه دیگه برادر. فقط کافیه نوع Ringtone Manager رو تغییر بدی.

 

کلا سه حالت داره ، Ring,Notify,Alarm.

 

یه مقدار هم خودتون کار کنید ، واسه خودت میگم داداش.

 

موفق باشی./

[qasem 249]

من مقدار را   TYPE_NOTIFICATIONقرار دادم ولی آهنگ پیام گوشیم تغییر نکرد!!!

[salar_blackdroid 408]

کدتون رو قرار بدید ، بررسی بشه./

[qasem 249]

ring.SetDefault(ring.TYPE_NOTIFICATION,r)

متشکرم

[salar_blackdroid 408]

ring.SetDefault(ring.TYPE_NOTIFICATION,r)

متشکرم

 

 

اینکه درسته ، کد کامل تون رو بگید./

[qasem 249]

دوستان اگه بخوام شرط بذارم که If msg = DialogResponse.POSITIVE  بیا آهنگ را برای زنگ گوشی تنظیم کن و اگه If msg = DialogResponse.NEGATIVE بود بیا آهنگ را برای زنگ پیام قرار بده و اگه  msg = DialogResponse.CANCEL  بیا بعنوان هشدار قرار بده ، چیکار باید بکنم ؟  اگه کدهاشو کامل بزارید ممنون میشم.

[qasem 249]

دوستان اگه بخوام شرط بذارم که If msg = DialogResponse.POSITIVE  بیا آهنگ را برای زنگ گوشی تنظیم کن و اگه If msg = DialogResponse.NEGATIVE بود بیا آهنگ را برای زنگ پیام قرار بده و اگه  msg = DialogResponse.CANCEL  بیا بعنوان هشدار قرار بده ، چیکار باید بکنم ؟  اگه کدهاشو کامل بزارید ممنون میشم.

آقای نیکروان لطفا پاسخ دهید؟

[alidownload 12]

سلام 

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

 

 

برنامه ای مشابه بادصبا  که برای اذان این کار رو می کنه

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

سلام 

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

 

 

برنامه ای مشابه بادصبا  که برای اذان این کار رو می کنه

سلام.

این بحثش جداست...

اگه بخواد دانلود هم بشه باید یه مسیر ذخیره بشه و از اونجا برای صدای زنگ انتحاب بشه که آموزش های دانلود و ذخیره فایل زیاد هست ... سرچ کنید!

[puya017 0]

سلام

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

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

[HS71 78]

این کد مشکلش چیه که به عنوان اهنگ هشدار تنظیم نمیشه؟

اهنگ زنگ که تنظیم میشه.

آیا باید مسیر کپی شدن رو عوض کرد؟

یا اسیمی رو باید تغییر داد؟

و اینکه برای پاک کردن اهنگی که دیگه به عنوان زنگ یا هشدار تنظیم نشده چطور باید پاک کرد از حافظه از داخل برنامه، دستورش چیه؟

    Dim v As Int
 v=Msgbox2("تغییر صدا",List1.GetItem(Position),"زنگ","هشدار","لغو",Null)
 
    If v=DialogResponse.POSITIVE Then
    If File.Exists(File.DirRootExternal,Position&".mp3") = False Or File.Exists(File.DirRootExternal,Position&".mp3") = True Then
    File.Copy(File.DirAssets,Position&".mp3",File.DirRootExternal,Position&".mp3")
    
    Dim r As String
        Try
     r = rin.AddToMediaStore(File.DirRootExternal,Position&".mp3",Position,False,False,True,True)
    File.WriteString(File.DirInternal,Position&".txt",r)
     Catch
     Dim re2 As String
    re2=File.ReadString(File.DirInternal,Position&".txt")
    rin.DeleteRingtone(re2)
          r = rin.AddToMediaStore(File.DirRootExternal,Position&".mp3",Position,False,False,True,True)
    File.WriteString(File.DirInternal,Position&".txt",r)
     End Try
        rin.SetDefault(rin.TYPE_RINGTONE,r)
        ToastMessageShow(List1.GetItem(Position)&"  آهنگ زنگ تنظیم شد",True)

        End If
        End If

    


    If v=DialogResponse.CANCEL Then
    If File.Exists(File.DirRootExternal,Position&".mp3") = False Or File.Exists(File.DirRootExternal,Position&".mp3") = True Then
    File.Copy(File.DirAssets,Position&".mp3",File.DirRootExternal,Position&".mp3")
    
    Dim r As String
        Try
     r = rin.AddToMediaStore(File.DirRootExternal,Position&".mp3",Position,True,False,False,True)
    File.WriteString(File.DirInternal,Position&".txt",r)
     Catch
     Dim re2 As String
    re2=File.ReadString(File.DirInternal,Position&".txt")
    rin.DeleteRingtone(re2)
          r = rin.AddToMediaStore(File.DirRootExternal,Position&".mp3",Position,True,False,False,True)
    File.WriteString(File.DirInternal,Position&".txt",r)
     End Try
        rin.SetDefault(rin.TYPE_ALARM,r)
        ToastMessageShow(List1.GetItem(Position)&"  آهنگ هشدار تنظیم شد",True)

        End If
        End If



    If v=DialogResponse.NEGATIVE Then
        End If

[تک1 71]

این برنامه منه رینگتون موبایل اگه وقط کردم سورس کاملش را میگذارم البته مانیتور سیستمم سوخته اگه یک بخرم سورس رو میگذارم استفاده کنید حال اگر برنامه را خواستید به جیمیلم پ ام بدید

Kindir1980@gmail.com

http://cafebazaar.ir/app/?id=Mobile.Ringtone&ref=share

[haspic123 34]

آره چرا که نه.

اگه کار نکرد مشکلتون رو بازهم مطرح کنید...

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

دارم دیونه میشم به خدا

'ﾓﾊ ﾈﾑ ﾑ跫 ﾒ苣 ﾊ翩ﾓ

Sub btnringtone_Click

If Msgbox2("ﾈ� ﾚ蓙ﾇ� ﾒ苣 ﾊ翩ﾓ ﾞﾑﾇﾑ ﾈ戦ﾑﾏ ","Ringtone","ﾈ砒","ﾎ樰","",Null)=DialogResponse.POSITIVE Then

Dim ring As String

'Try

Dim s As String

s=File.ReadString(File.DirInternal,"ring.txt")

If s.Length>1 Then

rm.DeleteRingtone(s)

ring=rm.AddToMediaStore(madule2.dir1 & "/mymusic_1/" & lvid & "/" & s3 & "/",nm,nm,False,False,True,False)

File.WriteString(File.DirInternal,"ring.txt",ring)

rm.SetDefault(rm.TYPE_RINGTONE,ring)

ToastMessageShow("ﾈ� ﾚ蓙ﾇ� ﾒ苣 ﾊ翩ﾓ ﾞﾑﾇﾑ 績ﾝﾊ",False)

Else

ring=rm.AddToMediaStore(madule2.dir1 & "/mymusic_1/" & lvid & "/" & s3 & "/",nm,nm,False,False,True,False)

File.WriteString(File.DirInternal,"ring.txt",ring)

rm.SetDefault(rm.TYPE_RINGTONE,ring)

ToastMessageShow("ﾈ� ﾚ蓙ﾇ� ﾒ苣 ﾊ翩ﾓ ﾞﾑﾇﾑ 績ﾝﾊ",False)

End If

'Catch

'End Try

End If

End Sub

متغیر ها هم به ترتیب

lvid= پوشه فارسی

S3= علیرضا روزگار

nm= rozegar.mp3