آموزش ساخت نرم افزار تغییر زنگ خور به آهنگ دلخواه(فوری)

[shahryar UDK 11]

با سلام

لطفا کمک کنید واجبه

جطوری میشه رینگتون گوشی رو به آهنگ دلخواه که توی فایل هست عوض کرد

اگه تونستید اموزش انتخاب آهنگ از خود گوشی رو هم توضیح بدبد*لال**لال*

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

سلام و درود

از خواصیت RingTone Manager در کتابخانه Phone میتونید استفاده کنید

فکر کنم کد نویسی کاملش هم توی انجمن موجود باشه ( فکر کنم ).

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

[Intelligent 93]

با سلام

لطفا کمک کنید واجبه

جطوری میشه رینگتون گوشی رو به آهنگ دلخواه که توی فایل هست عوض کرد

اگه تونستید اموزش انتخاب آهنگ از خود گوشی رو هم توضیح بدبد*لال**لال*

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

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

Dim answer As Int=Msgbox2("آیا مایل هستید موسیقی انتخاب شده به عنوان زنگ*خور تماس تنظیم گردد؟","","صد البته","بیخیال","",LoadBitmap(File.DirAssets,"qustion.png"))
If answer=DialogResponse.POSITIVE Then
Dim ct As CustomToast
ct.Initialize
ct.ShowBitmap("با موفقیت تنظیم شد!",700,Gravity.CENTER,0,27%y,LoadBitmap(File.DirAssets,"tik.png"))



Dim rm As RingtoneManager
rm.SetDefault(rm.TYPE_RINGTONE,rm.AddToMediaStore(File.DirRootExternal,"avaye haram/"& name,name,False,False,True,False))

Else
Return True
End If

[jeqele 562]

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

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

Dim answer As Int=Msgbox2("آیا مایل هستید موسیقی انتخاب شده به عنوان زنگ*خور تماس تنظیم گردد؟","","صد البته","بیخیال","",LoadBitmap(File.DirAssets,"qustion.png"))
If answer=DialogResponse.POSITIVE Then
Dim ct As CustomToast
ct.Initialize
ct.ShowBitmap("با موفقیت تنظیم شد!",700,Gravity.CENTER,0,27%y,LoadBitmap(File.DirAssets,"tik.png"))



Dim rm As RingtoneManager
rm.SetDefault(rm.TYPE_RINGTONE,rm.AddToMediaStore(File.DirRootExternal,"avaye haram/"& name,name,False,False,True,False))

Else
Return True
End If

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

کتابخانه phone رو فعال کنید بعد:

Sub button1_Click
Dim CC As ContentChooser
CC.Initialize("CCAudio")
CC.Show("audio/*", "یک فایل صوتی انتخاب کنید")
End Sub

Sub CCAudio_Result(Success As Boolean, Dir As String, FileName As String)
If Success Then
	Dim rm As RingtoneManager
	rm.SetDefault(rm.TYPE_RINGTONE, Dir & "\" & FileName)
	ToastMessageShow("rington set done", True)
Else
	ToastMessageShow("there was a problem, try again", True)
End If
End Sub

با کد بالا کاربر میتونه با کلیک روی button1 از داخل گوشی یه آهنگ انتخاب و به عنوان رینگتن set کنه.

[shahryar UDK 11]

خیلی ممنون از راهنمایی تون*چشمک**چشمک*

[shahryar UDK 11]

من کد رو اینطور زدم ولی کار نمیکنه

مشکل چیه؟

Sub Process_Globals


End Sub

Sub Globals
Dim Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub button1_click
 Dim CC As ContentChooser
CC.Initialize("CCAudio")
CC.Show("audio/*", "یک فایل صوتی انتخاب کنید")
End Sub

Sub CCAudio_Result(Success As Boolean, Dir As String, FileName As String)
   If Success Then
       Dim rm As RingtoneManager
       rm.SetDefault(rm.TYPE_RINGTONE, Dir & "\" & FileName)
       ToastMessageShow("rington set done", True)
   Else
       ToastMessageShow("there was a problem, try again", True)
   End If
End Sub  

هم چنین در پاسخ:ddccsdad

در کد :Dim ct As CustomToast

CustomToast کار نمیکنه و قرمز نمایش داده میشه

اینمربوط به کدوم کتابخانس؟

[jeqele 562]

چه اروری میده

toastmassage ها رو نشون میده یا نه؟

اگه آره کدوم مسیجو

[alireza-love 29]

من کد رو اینطور زدم ولی کار نمیکنه

مشکل چیه؟

هم چنین در پاسخ:ddccsdad

در کد :Dim ct As CustomToast

CustomToast کار نمیکنه و قرمز نمایش داده میشه

اینمربوط به کدوم کتابخانس؟

کتابخونه CustomToast فعال کن خب !

[Intelligent 93]

در کد :Dim ct As CustomToast

CustomToast کار نمیکنه و قرمز نمایش داده میشه

اینمربوط به کدوم کتابخانس؟

بهتره به جای این کتابخانه از "toastmessageshow" استفاده کنید

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

[shahryar UDK 11]

کتابخونه CustomToast فعال کن خب !

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

اگه میشه پیوستش کن

[shahryar UDK 11]

آقای ddccsdad میشه یه توضیح بیشتر درمورد کدتون بدید؟

توی موبایل که اجرا میکنم آهنگ رو انتخاب میکنم ولی تنظیم نمیشه

[Intelligent 93]

آقای ddccsdad میشه یه توضیح بیشتر درمورد کدتون بدید؟

توی موبایل که اجرا میکنم آهنگ رو انتخاب میکنم ولی تنظیم نمیشه

توی قسمت addtomediastore آدرس صحیح فایل صوتی رو به برنامه دادین؟ کدتون رو عینن اینجا بذارید

[shahryar UDK 11]

کسی نیست کمک کنه؟

[reza71 32]

اقا برای تنظیم اهنگ زنگ کسی سورس درست نداره؟

قبلیا فقط یکبار تنظیم میشه

[reza71 32]

برای تنظیم اهنگ کسی سورس سالم نداره