رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


  • 0
rezamoaser

مهم ؛ مهم آموزش ساخت رینگتون

سوال

rezamoaser    53

کاربر رو به رشد

با عرض سلام به اساتید و دوستای گلم متاسفانه هرچی تو انجمن گشتم نتونستم پستی راجب به ساخت رینگتون یا همون آهنگ زنگ یا پیامک رو پیدا کنم یعنی چون هیچ چی درباره نحوه کد نویسیش و ینکه چطور آهنگ ها رو بزارم نمیدونم سرور نمونه ای هم نبود . میشه دوستان لطف کنید اگر میدونید به من هم بگید یا لینک بزارید خیلی ممنونم . اگر میشه لطف کنید بگید خیلی نیازم البته یه سرور ساده هم بزارید تا یدونم قضیه چیه باقیش درسته . مرسی از همه ❤

  • پسندیدن 2

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


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

12 پاسخ به این سوال تا کنون داده شده است

پست های پیشنهاد شده

  • 0
rezamoaser    53

کاربر رو به رشد

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

  • پسندیدن 2

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
alimo1999    82

کاربر رو به رشد

سلام و وقت بخیر

چه ربطی به سرور داره ؟ یا شاید اشتباه تایپی بوده سورس منظورت بوده

اگر منظورت رینگتون یعنی همون صدای زنگ موبایل اول باید دسترسی نوشتن تنظیمات بگیری تو اندروید های جدید (تقریبا 6 به بالا ) که در تاپیک زیر پستش هست

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

کتابخونه phone ام تیک بزن

Sub done1_Click
	Try
		Dim ring As RingtoneManager
		Dim shpu As Int  =  1 'متغییر مربوط به ادرس در فایل ها
		If File.Exists(File.DirRootExternal,shpu&".ogg") = True Then
			File.Delete(File.DirRootExternal,shpu&".ogg")
			LogColor("DELETE A FILE...",Colors.Blue)
		End If
		
		Dim v As Int
		requestpermisian
		v=Msgbox2("صدای زنگ تغییر کند؟",ListView1.GetItem(shpu),"بله","خیر","",Null)
		LogColor("Select RING : " & shpu,Colors.Green)
		
		
	
		
		If v=DialogResponse.POSITIVE Then
        
			If File.Exists(File.DirRootExternal,shpu&".ogg") = False Or File.Exists(File.DirRootExternal,shpu&".ogg") = True Then
				File.Copy(File.DirAssets,shpu&".ogg",File.DirRootExternal,shpu&".ogg")
				Dim r As String
				Try
					r = ring.AddToMediaStore(File.DirRootExternal,shpu&".ogg",shpu,False,False,True,True)
					File.WriteString(File.DirInternal,shpu&".txt",r)
				Catch
					Dim re As String
					re=File.ReadString(File.DirInternal,shpu&".txt")
					ring.DeleteRingtone(re)
					r = ring.AddToMediaStore(File.DirRootExternal,shpu&".ogg",shpu,False,False,True,True)
					File.WriteString(File.DirInternal,shpu&".txt",r)
				End Try
				ring.SetDefault(ring.TYPE_RINGTONE,r)
				LogColor("SET RING : " & shpu,Colors.Green)
				'    ToastMessageShow(ListView1.GetItem(Position)&" به عنوان صدای زنگ تنظیم شد",True)
    

			End If
		End If
'		other.tostsucess("انجام شد.")
		Try
		
			'نمایش تبلیغات الامبال
    
			Try
		

'				show_ad_tamamsafehe

			Catch
				Log(LastException)
			End Try
		
        
        
		Catch
			Log(LastException)
		End Try
	Catch
		'  ToastMessageShow("انجام نشد!دوباره تلاش کنید...",False)
	End Try



End Sub

موفق و پیروز باشی

  • پسندیدن 1
  • تشکر 2

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
rezamoaser    53

کاربر رو به رشد

در در 19 مهر 1398 در 10:53، alimo1999 گفته است :

سلام و وقت بخیر

چه ربطی به سرور داره ؟ یا شاید اشتباه تایپی بوده سورس منظورت بوده

اگر منظورت رینگتون یعنی همون صدای زنگ موبایل اول باید دسترسی نوشتن تنظیمات بگیری تو اندروید های جدید (تقریبا 6 به بالا ) که در تاپیک زیر پستش هست

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

کتابخونه phone ام تیک بزن


Sub done1_Click
	Try
		Dim ring As RingtoneManager
		Dim shpu As Int  =  1 'متغییر مربوط به ادرس در فایل ها
		If File.Exists(File.DirRootExternal,shpu&".ogg") = True Then
			File.Delete(File.DirRootExternal,shpu&".ogg")
			LogColor("DELETE A FILE...",Colors.Blue)
		End If
		
		Dim v As Int
		requestpermisian
		v=Msgbox2("صدای زنگ تغییر کند؟",ListView1.GetItem(shpu),"بله","خیر","",Null)
		LogColor("Select RING : " & shpu,Colors.Green)
		
		
	
		
		If v=DialogResponse.POSITIVE Then
        
			If File.Exists(File.DirRootExternal,shpu&".ogg") = False Or File.Exists(File.DirRootExternal,shpu&".ogg") = True Then
				File.Copy(File.DirAssets,shpu&".ogg",File.DirRootExternal,shpu&".ogg")
				Dim r As String
				Try
					r = ring.AddToMediaStore(File.DirRootExternal,shpu&".ogg",shpu,False,False,True,True)
					File.WriteString(File.DirInternal,shpu&".txt",r)
				Catch
					Dim re As String
					re=File.ReadString(File.DirInternal,shpu&".txt")
					ring.DeleteRingtone(re)
					r = ring.AddToMediaStore(File.DirRootExternal,shpu&".ogg",shpu,False,False,True,True)
					File.WriteString(File.DirInternal,shpu&".txt",r)
				End Try
				ring.SetDefault(ring.TYPE_RINGTONE,r)
				LogColor("SET RING : " & shpu,Colors.Green)
				'    ToastMessageShow(ListView1.GetItem(Position)&" به عنوان صدای زنگ تنظیم شد",True)
    

			End If
		End If
'		other.tostsucess("انجام شد.")
		Try
		
			'نمایش تبلیغات الامبال
    
			Try
		

'				show_ad_tamamsafehe

			Catch
				Log(LastException)
			End Try
		
        
        
		Catch
			Log(LastException)
		End Try
	Catch
		'  ToastMessageShow("انجام نشد!دوباره تلاش کنید...",False)
	End Try



End Sub

موفق و پیروز باشی

سلام داداش از کمکت ممنونم ولی برنامه رو امتحان کردم روی گوشی واقعی اصلا آهنگ ثبت نمیشه یعنی به گوشی زنگ میزنن آهنگ همونی که انتخاب میکنی نمیشه. حتی کد های بالا رو هم گذاشتم ولی باز ران کردم . قسمت شبیه ساز نشون میده که ثبت شده به عنوان آهنگ زنگ ولی واسه گوشی خودم با اندروید( ۹ یا ۸ ) روی زنگ میزنم پیام میده که آهنگ زنگ انتخاب شد ولی اصلا نمیشه جای آهنگ زنگ رو بگیره روی هر کدوم از آهنگام کلیک میکنم ست نمیشه به جای آهنگ زنگ گوشیم. چ کنیم؟ 

میشه بگید کجای کدی که بالا گذاشتید اشتباهه ؟ شاید قسمت ست آهنگ زنگ گوشی اشتباه باشه؟!! توی گوشی اصلی مثل سامسونگ j7 برنامه ای که ریختم زنگ رو به جای اصلی قرار نمیده !!!!تا موقع زنگ اون آهنگ رو بخونه

  • پسندیدن 3

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
rezamoaser    53

کاربر رو به رشد

در 17 ساعت قبل، rezamoaser گفته است :

سلام داداش از کمکت ممنونم ولی برنامه رو امتحان کردم روی گوشی واقعی اصلا آهنگ ثبت نمیشه یعنی به گوشی زنگ میزنن آهنگ همونی که انتخاب میکنی نمیشه. حتی کد های بالا رو هم گذاشتم ولی باز ران کردم . قسمت شبیه ساز نشون میده که ثبت شده به عنوان آهنگ زنگ ولی واسه گوشی خودم با اندروید( ۹ یا ۸ ) روی زنگ میزنم پیام میده که آهنگ زنگ انتخاب شد ولی اصلا نمیشه جای آهنگ زنگ رو بگیره روی هر کدوم از آهنگام کلیک میکنم ست نمیشه به جای آهنگ زنگ گوشیم. چ کنیم؟ 

میشه بگید کجای کدی که بالا گذاشتید اشتباهه ؟ شاید قسمت ست آهنگ زنگ گوشی اشتباه باشه؟!! توی گوشی اصلی مثل سامسونگ j7 برنامه ای که ریختم زنگ رو به جای اصلی قرار نمیده !!!!تا موقع زنگ اون آهنگ رو بخونه

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

Sub ListView1_ItemLongClick (Position As Int, Value As Object)
	Try
	Dim v As Int
	v=Msgbox2("صدای زنگ تغییر کند؟",ListView1.GetItem(Position),"بله","خیر","",Null)
LogColor("Select RING : " & Position,Colors.Green)
	
	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 = ring.AddToMediaStore(File.DirRootExternal,Position&".mp3",Position,False,False,True,True)
				File.WriteString(File.DirInternal,Position&".txt",r)
			Catch
				Dim re As String
				re=File.ReadString(File.DirInternal,Position&".txt")
				ring.DeleteRingtone(re)
				r = ring.AddToMediaStore(File.DirRootExternal,Position&".mp3",Position,False,False,True,True)
				File.WriteString(File.DirInternal,Position&".txt",r)
			End Try
			ring.SetDefault(ring.TYPE_RINGTONE,r)
		LogColor("SET RING : " & Position,Colors.Green)
		ToastMessageShow(ListView1.GetItem(Position)&" به عنوان صدای زنگ تنظیم شد",True)


	End If
End If

Try
		
    
	Try
					
	Catch
		Log(LastException)
	End Try
		
        
        
Catch
	Log(LastException)
End Try
Catch
  ToastMessageShow("انجام نشد!دوباره تلاش کنید...",False)
End Try

End Sub

 

  • پسندیدن 2

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
alimo1999    82

کاربر رو به رشد

در 20 ساعت قبل، rezamoaser گفته است :

سلام داداش از کمکت ممنونم ولی برنامه رو امتحان کردم روی گوشی واقعی اصلا آهنگ ثبت نمیشه یعنی به گوشی زنگ میزنن آهنگ همونی که انتخاب میکنی نمیشه. حتی کد های بالا رو هم گذاشتم ولی باز ران کردم . قسمت شبیه ساز نشون میده که ثبت شده به عنوان آهنگ زنگ ولی واسه گوشی خودم با اندروید( ۹ یا ۸ ) روی زنگ میزنم پیام میده که آهنگ زنگ انتخاب شد ولی اصلا نمیشه جای آهنگ زنگ رو بگیره روی هر کدوم از آهنگام کلیک میکنم ست نمیشه به جای آهنگ زنگ گوشیم. چ کنیم؟ 

میشه بگید کجای کدی که بالا گذاشتید اشتباهه ؟ شاید قسمت ست آهنگ زنگ گوشی اشتباه باشه؟!! توی گوشی اصلی مثل سامسونگ j7 برنامه ای که ریختم زنگ رو به جای اصلی قرار نمیده !!!!تا موقع زنگ اون آهنگ رو بخونه

سلام داداش خواهش

مطمنی که دسترسی رو می گیری ؟

من رو اندروید 6و 7 تست کردن ج داده

  • پسندیدن 2

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
rezamoaser    53

کاربر رو به رشد

در 1 ساعت قبل، alimo1999 گفته است :

سلام داداش خواهش

مطمنی که دسترسی رو می گیری ؟

من رو اندروید 6و 7 تست کردن ج داده

سلام داداش بله اندروید که من باهاش تست کردم 9 هستش متاسفانه جواب نمیده یعنی پیام اینکه روی زنگ تلفن ثبت شده رو میزنه اما روی زنگ گوشی ثبت نمیشه و با زنگ خوردن آهنگ مورد نظر رو پخش نمیکنه در واقعه جایگزین نمیکنه اهنگه رو

  • پسندیدن 2
  • تشکر 1

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
alimo1999    82

کاربر رو به رشد

متاسفانه اندروید 9  در دسترسم نیست  داداش

اگر می تونی برنامه زیر دانلود کن بعد یه آهنگشو ست کن رو گوشی بعد زنگ بزن ببین صدا زنگش تغییر می کنه ؟

لینکش

 

 

  • پسندیدن 3

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
rezamoaser    53

کاربر رو به رشد

در 49 دقیقه قبل، alimo1999 گفته است :

متاسفانه اندروید 9  در دسترسم نیست  داداش

اگر می تونی برنامه زیر دانلود کن بعد یه آهنگشو ست کن رو گوشی بعد زنگ بزن ببین صدا زنگش تغییر می کنه ؟

لینکش

 

 

با عرض سلام مجدد.

با خیلی تعجب برنامه شما هم پیام رو داد ولی آهنگ زنگم تغییر نکرد اما وقتی که گفتم شاید گوشی من موردی داشته باشه .برای گوشی ای دیگه برنامه خودمو فرستادم و اندرویدش ۸ بود و اینجا آهنگ ثبت شد در کمال شگفتی! .

یعنی این کد ها برای اندروید های زیر ۹ کار میکنه یا شایدم divice من اینطوریه که نه برتامه شما نه برنامه خودم توش کار نمیکرد. مرسی از پاسخ گوییتون

  • پسندیدن 2

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
rezamoaser    53

کاربر رو به رشد

در 12 ساعت قبل، alimo1999 گفته است :

متاسفانه اندروید 9  در دسترسم نیست  داداش

اگر می تونی برنامه زیر دانلود کن بعد یه آهنگشو ست کن رو گوشی بعد زنگ بزن ببین صدا زنگش تغییر می کنه ؟

لینکش

 

 

سلام داداش فک کنم مشکل رو پیدا کردم روی یه خط آهنگ رو میزاره . الانه همه گوشی ها دو سیمکارته شده  ولی نمیشه متاسفانه انتخاب کرد روی کدوم خط بیوفته ؟؟ 

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

من نمیدونم چطور کدشو ربط بدم به کدوم خطش !؟

  • پسندیدن 3

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
alimo1999    82

کاربر رو به رشد

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

من احساس می کنم شما دسترسی نوشتن تنظیمات رو نمی دی به برنامه (دسترسی کارت حافظه رو نمی گم)

  • پسندیدن 2

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
rezamoaser    53

کاربر رو به رشد

در 18 دقیقه قبل، alimo1999 گفته است :

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

من احساس می کنم شما دسترسی نوشتن تنظیمات رو نمی دی به برنامه (دسترسی کارت حافظه رو نمی گم)

سلام داداش برنامه به طور خودکار دسترسی داره به تغییرات . نگاه گردم سیم من روی قسمت ۲ بود .حرفت درست بود حداقل روی ۱ نبود ولی خوب میشه کاری کرد که هرکدوم که انتخاب میکنیم بشه روی هر سیم کارت؟!!!

  • پسندیدن 3

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.


×
×
  • جدید...