رفتن به مطلب
  • 0

چندین سوال مهم


ehsan20000

سوال

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

سلام خدمت همه بزرگواران

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

 

1.این لینک رو نگاه کنین

 

http://myket.ir/app/com.bApp.oneOoneringtones/%DB%B1%DB%B0%DB%B1%20%D8%B2%D9%86%DA%AF%20%D9%85%D9%88%D8%A8%D8%A7%DB%8C%D9%84

 

1.1- تو این برنامه اول این که باتن هاش چطوری اینجوری شده منظورم اینه که با عکسه؟

 

1.2- msgbox این که نوشته انتخاب اهنگ به عنوان چطوری 4 گزینه داره

 

1.3- و چطوری قالب msgbox  اینقدر قشنگه

 

 

2: من میخوام msgbox داشته باشم که 3 یا 4 گزینه داشته باشه که اگه مثلا وقتی باز شد اگه کاربر خارج از کادرش کلیک کرد کار نکنه یعنی قطع نشه و من یکی ساختم که اگه سه گزینه داشته باشه مثلا اولی ارسال متنی دومی بره صفحه دیگه و سومی که بیخیال بشه وقتی قطع میشه گزینه دوم رو اجرا میکنه و اگه بیرون کادرم بزنی بازم گزینه دوم اجرا میشه

 

 

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

 

 

4: کدی میخوام که اهنگی که تو پوشه فایلم داره رو تعریف و به عنوان اهنگ زنگ انتخاب کنه و کپیش کنه تو گوشی شخص

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

Dim r As RingtoneManager
 Dim u As String
 Msgbox2("می خوای آهنگ رو به عنوان آهنگ زنگ شود؟","اخطار","آری","خیر","",Null)
  If DialogResponse.POSITIVE Then
  ToastMessageShow("آهنگ به عنوان آهنگ زنگ انتخاب شد",True)
        u = r.AddToMediaStore(File.DirRootExternal,"iran10.ogg","22", True,True,True,True)
  r.SetDefault(r.TYPE_RINGTONE, u)
 File.Copy(File.DirAssets , "iran10.ogg" , File.DirRootExternal ,"/iran10.ogg")
  End If

		
    Dim rm As RingtoneManager
        Dim ring = rm.AddToMediaStore(File.DirRootExternal,"bg.mp3","bg.mp3",False,False,True,True) As String
        rm.SetDefault(rm.TYPE_RINGTONE,ring)
  ToastMessageShow("آهنگ به عنوان آهنگ زنگ انتخاب شد",True)

5: کدی میخوام که مثل این برنامه که ادرسشو دادم seekbar به اون شکل بشه و وقتی کم و زیاد میکنی صدای موزیک گوشی کم و زیاد بشه نه صدای موزیک پلیر من از این کد استفاده کردم ولی صدای موزیک پلیر کم و زیاد میشه

mp1.SetVolume(Sb2.Value / 100, Sb2.Value / 100)

و اخرین سوال * 6 : اگه بخوام 10 تا موزیک بذارم که بگم وقتی یکی رو کلیک کرد بقیه قطع بشن و اون اجرا بشه چطوری میتونم از دیتابیس ازش استفاده کنم؟ایا اصلا میشه؟اگه نشه باید برای هر اهنگ یک موزیک پلیر تعریف کنم؟

 

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

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

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

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

ببخشید این کد کار نمیکنه ارور میده

Dim r As RingtoneManager
Dim u As String
u = r.AddToMediaStore(File.DirRootExternal,"test.mp3","LOL",True,True,True,True)
r.SetDefault(r.TYPE_RINGTONE,u)
java.lang.nullpointerException Continue?

بعدشم yes OR no میده

 

مشکل کجاست؟

سلام

ایدی تلگرامم داخل امضام هست

واسه رینگتون دقیقا میخواید چیکار کنید ؟

بگید تا من کد بدم

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

سلام

ایدی تلگرامم داخل امضام هست

واسه رینگتون دقیقا میخواید چیکار کنید ؟

بگید تا من کد بدم

 

سلام بله دیدم تو تلگرام پیام دادم اگه میتونین اونجا جواب بدین به هر حال جوابتونو میدم

 

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

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

سلام.داداش ی جستجو کنی کلی آموزش و سورس هست دیگه وقتت گرفته نمیشه

 

بفرما

 

 

سورس قرار دادن یک آهنگ برای صدای زنگ بدون مشکل تکرار(رینگتون)

 

 

سورس تنظیم آهنگ به عنوان اهنگ زنگ
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

سلام.داداش ی جستجو کنی کلی آموزش و سورس هست دیگه وقتت گرفته نمیشه

 

بفرما

 

 

سورس قرار دادن یک آهنگ برای صدای زنگ بدون مشکل تکرار(رینگتون)

 

 

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

 

 

درسته ولی خدا شاهده همه رو گشتم ولی اونی که خواستم پیدا نشد که تو اولین لینکتون بود حل شد مرسی 

 

یک سوال چطوری میتونم دقیقا مثل همینو درست کنم؟

 

http://cdn.myket.ir/images/xlarge/image/myket/screenshot/36331/3.jpeg

 

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

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

خب میتونی ی پنل تعریف کنی و داخل پنل چند تا باتن مثل عکسی که گذاشتی قرار بدی و کدهای باتن رو بذاری.(تنظیم به عنوان زنگ و...)

 

به نظرم قشنگ تر درمیاد.

 

البته CustomDialog هم هست ولی خودم استفاده نکردم ببینم اینجا کارایی داره یا نه

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

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

Dim v As Int
v=Msgbox2("صدای زنگ تغییر کند؟",Lw1.GetItem(Position),"بله","خیر","",Null)
	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)
		ToastMessageShow(Lw1.GetItem(Position)&" به عنوان صدای زنگ تنظیم شد",True)

		End If
		End If

در ضمن میخوام مثلا بگم اگه گزینه یک زد اهنگی که براش لود میشه رو برای زنگ بزاره اگه دو...

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

سلام

 

اولا ک 100تا سوال رو توی ی دونه تاپیک نمیپرسن داداش من :gol:

 

اما پاسخ های شما »:

 

- باتن هارو هم میتونید با عکس به این شکل در بیارید هم کد رنگ پیدا کنید و با اون رنگ رو ست کنید

 

اون مسیج باکس نیست و اومده ی پنل به دلخواه خودش و با شکل و طراحی دلخواهش ساخته و نمایش داده

 

- واسه ایراد مسیج باکستون هم باید کد قرار بدید ببینیم چه کردید اختمالا Return اشتباه گذاشتید :)

 

- ارسال پیامک با استفاده از کتابخانه Phone و کلاس PhoneSms :

کتابخانه Phone رو فعال کنید :

Dim p As PhoneSms
p.Send("شماره تلفن","متن شما")

- واسه رینگتون هم بازم کتابخانه Phone رو فعال کنید :) 

Dim r As RingtoneManager
Dim u As String
u = r.AddToMediaStore(File.DirRootExternal,"test.mp3","LOL",True,True,True,True)
r.SetDefault(r.TYPE_RINGTONE,u)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

سلام

 

اولا ک 100تا سوال رو توی ی دونه تاپیک نمیپرسن داداش من :gol:

 

اما پاسخ های شما »:

 

- باتن هارو هم میتونید با عکس به این شکل در بیارید هم کد رنگ پیدا کنید و با اون رنگ رو ست کنید

 

- اون مسیج باکس نیست و اومده ی پنل به دلخواه خودش و با شکل و طراحی دلخواهش ساخته و نمایش داده

 

- واسه ایراد مسیج باکستون هم باید کد قرار بدید ببینیم چه کردید اختمالا Return اشتباه گذاشتید :)

 

- ارسال پیامک با استفاده از کتابخانه Phone و کلاس PhoneSms :

کتابخانه Phone رو فعال کنید :

Dim p As PhoneSms
p.Send("شماره تلفن","متن شما")

- واسه رینگتون هم بازم کتابخانه Phone رو فعال کنید :) 

Dim r As RingtoneManager
Dim u As String
u = r.AddToMediaStore(File.DirRootExternal,"test.mp3","LOL",True,True,True,True)
r.SetDefault(r.TYPE_RINGTONE,u)

 

شما ببخشید دیگه وقتی واجبه حوصلم نکشید همش یکی یکی بپرسم :gol: 

 

کدش اینه

			If (Msgbox2("امکانات","","ارسال آهنگ","صفحه اصلی","",LoadBitmap(File.DirAssets,"alert.png")) = DialogResponse.POSITIVE ) Then
			
			
				Dim share As MESShareLibrary
    				File.Copy(File.DirAssets,"35033.wav",File.DirRootExternal, "35033.wav")
   				 share.sharebinary("File://" & File.DirRootExternal & "/35033.wav", "audio/mp3", " ارسال آهنگ", "می خوای آهنگ رو ارسال کنی؟", "")

			Else
			
	
			StartActivity(main2)
			
			
				If DialogResponse.CANCEL Then
		
					Return True
					
			End If	
				End If

چند جورشم امتحان کردم ولی نشد

 

.بابت کد رینگون و پیامک ممنون

در مورد سوال 5 و 6 هم هر چی میدونین بگین ممنون

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

مسیج باکسو ب این شکل بنویسید : 

 

	Dim i As Int
	i = Msgbox2("امکانات","","ارسال آهنگ","صفحه اصلی","",LoadBitmap(File.DirAssets,"alert.png") 
			If  i = DialogResponse.POSITIVE  Then
				Dim share As MESShareLibrary
    				File.Copy(File.DirAssets,"35033.wav",File.DirRootExternal, "35033.wav")
   				 share.sharebinary("File://" & File.DirRootExternal & "/35033.wav", "audio/mp3", " ارسال آهنگ", "می خوای آهنگ رو ارسال کنی؟", "")
			Else If i = DialogResponse.NEGATIVE Then
			StartActivity(main2)
	Else If i = DialogResponse.CANCEL Then
		Return True
		End If

واسه سیک بار این تاپیکو ببینید توش 100 مدل ادرس سیک بار هست :) 

http://answercenter.ir/topic/9558-seekbar-%D8%AF%D8%A7%DB%8C%D8%B1%D9%87-%D8%A7%DB%8C%DA%AF%D8%B1%D8%AF/

 

 

سوال اخرتون رو دقیق نمیدونم چون با دیتابیس واسه مدیا پلیر کار نکردم تاحالا :fekr:

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

مسیج باکسو ب این شکل بنویسید : 

 

	Dim i As Int
	i = Msgbox2("امکانات","","ارسال آهنگ","صفحه اصلی","",LoadBitmap(File.DirAssets,"alert.png") 
			If  i = DialogResponse.POSITIVE  Then
				Dim share As MESShareLibrary
    				File.Copy(File.DirAssets,"35033.wav",File.DirRootExternal, "35033.wav")
   				 share.sharebinary("File://" & File.DirRootExternal & "/35033.wav", "audio/mp3", " ارسال آهنگ", "می خوای آهنگ رو ارسال کنی؟", "")
			Else If i = DialogResponse.NEGATIVE Then
			StartActivity(main2)
	Else If i = DialogResponse.CANCEL Then
		Return True
		End If

واسه سیک بار این تاپیکو ببینید توش 100 مدل ادرس سیک بار هست :) 

http://answercenter.ir/topic/9558-seekbar-%D8%AF%D8%A7%DB%8C%D8%B1%D9%87-%D8%A7%DB%8C%DA%AF%D8%B1%D8%AF/

 

 

سوال اخرتون رو دقیق نمیدونم چون با دیتابیس واسه مدیا پلیر کار نکردم تاحالا :fekr:

خیلی ممنون که زود جواب میدی عزیز یک دنیا ممنون

 

تو این کد بهم ارور میده برنامه رو اجرا نمیکنه

	i = Msgbox2("امکانات","","ارسال آهنگ","ثبت به عنوان آهنگ پیشواز","",LoadBitmap(File.DirAssets,"alert.png")

؟؟؟

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

خیلی ممنون که زود جواب میدی عزیز یک دنیا ممنون

 

تو این کد بهم ارور میده برنامه رو اجرا نمیکنه

	i = Msgbox2("امکانات","","ارسال آهنگ","ثبت به عنوان آهنگ پیشواز","",LoadBitmap(File.DirAssets,"alert.png")

؟؟؟

 

ی دونه پرانتز کمه :)

i = Msgbox2("امکانات","","ارسال آهنگ","ثبت به عنوان آهنگ پیشواز","",LoadBitmap(File.DirAssets,"alert.png"))
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

ی دونه پرانتز کمه :)

i = Msgbox2("امکانات","","ارسال آهنگ","ثبت به عنوان آهنگ پیشواز","",LoadBitmap(File.DirAssets,"alert.png"))

 

داداش دستت درد نکنه این درست شد اون مال صدا رو پیدا نکردم همه صفحه ها رو گشتم

؟

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

دوستان لطفا جواب بدین

 

یکی هم این کد جناب پژمان اشتباهه اصلا باز نمیکنه

 

http://answercenter.ir/topic/7383-%D8%B3%D9%88%D8%B1%D8%B3-%D8%A7%D8%B3%D9%84%D8%A7%DB%8C%D8%AF-%D9%85%D9%86%D9%88-%D8%AD%D8%B1%D9%81%D9%87-%D8%A7%DB%8C-%D9%85%D8%AA%D8%B1%DB%8C%D8%A7%D9%84/

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

ببخشید این کد کار نمیکنه ارور میده

Dim r As RingtoneManager
Dim u As String
u = r.AddToMediaStore(File.DirRootExternal,"test.mp3","LOL",True,True,True,True)
r.SetDefault(r.TYPE_RINGTONE,u)
java.lang.nullpointerException Continue?
بعدشم yes OR no میده
 
مشکل کجاست؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

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

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