رفتن به مطلب

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


shahryar UDK

ارسال های توصیه شده

با سلام

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام و درود

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

با سلام

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

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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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 کنه.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

مشکل چیه؟

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 کار نمیکنه و قرمز نمایش داده میشه

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

چه اروری میده

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

مشکل چیه؟

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

در کد :Dim ct As CustomToast

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در کد :Dim ct As CustomToast

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 5 هفته بعد...

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...