سورس تنظیم آهنگ به عنوان اهنگ زنگ

[baghlava 12]

لطفا یک سورس سالم تنظیم اهنگ به عنوان اهنگ زنگ بزارید

باتشکر

[پژمان نیکروان 6,055]

ممنون چطور باید اینکارو انجام بدیم؟

یعنی با این کدی که آقا مهران داد؟

 Dim rm As RingtoneManager
       Dim ring = rm.AddToMediaStore(File.DirRootExternal,"music.mp3","music.mp3",False,False,True,True) As String
       rm.SetDefault(rm.TYPE_RINGTONE,ring)

آقا مهدی اگه زحمتی نیست یه سورس کد ساده آماده کنید که یه اهنگ کوچیک تو پوشه فایل داشته باشه،انتقالش بده به گوشی و بعد صدای زنگ رو تغییر بده.

ممنون میشم.

[پژمان نیکروان 6,055]

با عرض معذرت ... آپ.

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

بفرمایید

به جز File.Copy کردن دیگه همش کد نویسی خودتون هست که آقای محمودی داده بودن.

دلیل جواب ندادن بنده هم همین بود

تست هم کردم جواب میده کاملا. فقط فایل موزیک رو حذف کردم که حجم پیوست کم بشه...

Set Music As RingTone(Basic4Android.org).rar

[mojtaba.mohaghegh99 0]

بفرمایید

به جز File.Copy کردن دیگه همش کد نویسی خودتون هست که آقای محمودی داده بودن.

دلیل جواب ندادن بنده هم همین بود

تست هم کردم جواب میده کاملا. فقط فایل موزیک رو حذف کردم که حجم پیوست کم بشه...

سلام رمز این فایل زیپ چی هست؟

ممنون

[Negan 1,300]

قسمت بالای انجمن رو توجه کنید لطفا

پسورد فایل های قدیمی basic4android.org و پسورد فایل های جدید answercenter.ir میباشد

[dada 8]

با سلام و عنایت خدمت دوستان 

یه سوالی برام پیش اومده چون تازه کارم ممنون میشم بهم کمک کنید 

الان ما سورس کد ادد رو ران کردیم در پروژه 

کد:

#Region Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
Dim r As Reflector
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("dada")
     Dim verticalPosition As String = "bottom" '"top" or "bottom"
Dim horizontalPosition As String = "center" '"left", "right" or "center"
Dim r As Reflector
Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")
r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click

End Sub

End Sub

الان به Button1_Click چه کدی باید بدیم که به جای کلیک رو بنر عدد کلیک رو Button1_Click بشه که url تبلیغات باز شه.

به جای لمس رو بنر با کلیک انجام بشه 

ممنون میشم کمک کنید

[Mostafanet 21]

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

[مجید آرتا 5,874]

کتابخانه Reflection رو تیکشو بزن این کدو بنویس:

[color=#0000FF][font=Courier New]Sub [/font][/color][color=#000000][font=Courier New]Process_Globals
[/font][/color][color=#0000FF]Dim[/color][color=#000000] mp [/color][color=#0000FF]As[/color][color=#008B8B]MediaPlayer[/color][color=#000000]
[/color][color=#0000FF]End Sub[/color][color=#000000]

[/color][color=#0000FF]Sub [/color][color=#000000]Globals

[/color][color=#0000FF]End Sub[/color][color=#000000]

[/color][color=#0000FF]Sub [/color][color=#000000]Activity_Create(FirstTime [/color][color=#0000FF]As[/color][color=#000000] Boolean)
  [/color][color=#0000FF]If[/color][color=#000000] FirstTime [/color][color=#0000FF]Then[/color][color=#000000]
     mp.Initialize
  [/color][color=#0000FF]End[/color][color=#0000FF]If[/color][color=#000000]
  PlayRinger
[/color][color=#0000FF]End Sub[/color][color=#000000]

[/color][color=#0000FF]Sub [/color][color=#000000]PlayRinger
  [/color][color=#0000FF]Dim[/color][color=#000000] r [/color][color=#0000FF]As[/color][color=#008B8B]Reflector[/color][color=#000000]
  r.Target = [/color][color=#800000]"ContentDir"[/color][color=#000000]
  r.Target = r.RunMethod([/color][color=#800000]"intern"[/color][color=#000000])   
  mp.Load(r.Target, [/color][color=#800000]"content://settings/system/ringtone"[/color][color=#000000])
  mp.Play
[/color][color=#0000FF][font=Courier New]End Sub[/font][/color]

[پژمان نیکروان 6,055]

دوستان فکر کنید من یه سری فایل mp3 داخل پوشه فایل برنامم دارم. حالا میخوام یکی ازاینا رو به عنوان صدای زنگ از این پوشه قرار بدم چیکار کنم؟؟

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

دوستان فکر کنید من یه سری فایل mp3 داخل پوشه فایل برنامم دارم. حالا میخوام یکی ازاینا رو به عنوان صدای زنگ از این پوشه قرار بدم چیکار کنم؟؟

اول آهنگ رو به گوشی انتقال میدی بعد آهنگ زنگ میزاری دیگه *مکار*

[مهران محمودی 778]

کتابخانه Phone رو اضافه کن:

Dim rm As RingtoneManager
Dim ring = rm.AddToMediaStore(File.DirRootExternal,"music.mp3","music.mp3",False,False,True,True) As String
rm.SetDefault(rm.TYPE_RINGTONE,ring)