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

[rezamoaser 53]

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

[rezamoaser 53]

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

[ali mo 264]

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

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

اگر منظورت رینگتون یعنی همون صدای زنگ موبایل اول باید دسترسی نوشتن تنظیمات بگیری تو اندروید های جدید (تقریبا 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

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

[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 برنامه ای که ریختم زنگ رو به جای اصلی قرار نمیده !!!!تا موقع زنگ اون آهنگ رو بخونه

[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

 

[ali mo 264]

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

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

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

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

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

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

[rezamoaser 53]

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

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

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

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

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

[ali mo 264]

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

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

لینکش

 

 

[rezamoaser 53]

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

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

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

لینکش

 

 

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

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

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

[rezamoaser 53]

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

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

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

لینکش

 

 

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

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

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

[ali mo 264]

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

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

[rezamoaser 53]

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

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

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

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

[ali mo 264]

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