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

AnswerCenter

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

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

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

  • 0
rezamoaser

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

سوال

rezamoaser    14

کاربر عادی

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

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


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

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

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

  • 0
rezamoaser    14

کاربر عادی

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

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


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

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

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

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

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

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


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

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 قرار دهید.


×
×
  • جدید...