گذاشتن تعداد زیاد اهنگ از دیتابیس افلاین

[ali777795 11]

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

[ali777795 11]

درود

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

این عکس از دیتابیسم

اینم قطعه کد های مربوط به اهنگ که کاملا ناقص

("")pCantent.Initialize
	(navi.ContentPanel.AddView(pCantent,0,0,100%x,100%y
	pCantent.SendToBack	
	("pCantent.LoadLayout("2
	("File.Copy(File.DirAssets,"ahang.db",File.DirInternal,"ahang.db
		(sql1.Initialize(File.DirInternal,"ahang.db",True
	("cur1=sql1.ExecQuery("SELECT text FROM ah
		For i = 0 To cur1.RowCount-1
		cur1.Position=i
			 Dim p12 As Panel
			 ("")p12.Initialize
			 (sv1.Panel.AddView(p12,0,stop,100%x,140dip
			 ("p12.LoadLayout("1
			 stop = stop + 135dip
			 ("btnnumber.Tag = cur1.GetString("text
			 ("btnnumber.Text=cur1.GetString("text
			 sv1.Panel.Height=stop
		Next

Sub button1_Click
    Dim p12 As Button
	p12=Sender
	Select p12.Tag
        .
        .
        .
        .
	End Select
End Sub

[ali777795 11]

آموزش Tag و Sender بنده رو دیدید شما ؟

توی اون آموزش ما میاییم مثلا Name رو تگ میدیم

خب شما هم بیا اسم آهنگ رو تگ بده و به جای اینکه مثلا توی ToastMsg نشون بدی بیا همون رو Load و Play کن

 

توی کدی که دادید اصلا نیازی به select نیست

شما وقتی نام آهنگ رو به صورت tag میدید دیگه چه نیازی به select case هستش ؟

pl2 میشه همون نام آهنگ... همون pl2 رو Load و Play کنید ! 

داداش ممنونم

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

با سپاس  

[sina2751 0]

سلام" ببخشید اگه آلبوم صوتی (مثلا 100 تا )بود و خواستیم برای هر کدام تعریف کنیم تا اجرا بشند چی؟؟ کد بالا برای پخش یک فایل صوتی هست. ببخشید خیلی گشتم و پیدا نکردم.

[shahab.es 5,429]

سلام

زیر خاکی آوردید بالا

 

میتونید اسم هر فایل صوتی خودتون رو به دیتابیستون بدید

و بعد برای هر آهنگ ، اسم رو از دیتابیس بگیرید و جایگزین

mp.Load(File.DirAssets("file.mp3"))

file.mp3‌بفرمایید

تاپیک زیر براتون مفید خواهد بود

 

موفق باشید

 

[sina2751 0]

در 2 ساعت قبل، shahab.es گفته است :

سلام

زیر خاکی آوردید بالا

 

میتونید اسم هر فایل صوتی خودتون رو به دیتابیستون بدید

و بعد برای هر آهنگ ، اسم رو از دیتابیس بگیرید و جایگزین

mp.Load(File.DirAssets("file.mp3"))

file.mp3‌بفرمایید

تاپیک زیر براتون مفید خواهد بود

 

موفق باشید

 

ببخشید چون مبتدی ام نتونسته بودم پیدا کنم جوابمو. خب من قبلا عناوین رو وارد دیتابیسم کردم و داخل لیست ویو نمایش دراومده. فقط مونده اینکه وقتی روی هر عنوان تپ شد، فایل صوتی مخصوصش اجرا بشه. من این روش رو خیلی انجام دادم ولی جابجا پخش می کنه. همینطور ظاهرا مجبورم برای هر 100 تا فایل صوتیم کد بزنم. درسته؟؟

[sina2751 0]

در در 1397/03/28, 12:03:38، sina2751 گفته است :

و بعد برای هر آهنگ ، اسم رو از دیتابیس بگیرید و جایگزین

mp.Load(File.DirAssets("file.mp3"))

file.mp3‌بفرمایید

سورس برنامه

 

Soorehha_1 = fara.FarakhaniString(“ID”,Soorehha_1,”Sooreh ha_1″)

طبق سورس ، توی خط بالا خطا دارم

 

[dostmobile 329]

سلام و درود من قبلا ساختم چنین چیزی

https://cafebazaar.ir/app/com.dostmobile.ringtone/?l=fa

شما نام اهنگهارو بزار تو دیتابیس همراه با آیدی و یه متن که نشانگر اهنگه مثلا(نگران منی - پاشایی)

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

If File.Exists(File.DirInternal,"database.db") = False Then 
File.Copy(File.DirAssets,"database.db",File.DirInternal,"database.db")
End If
sql1.Initialize(File.DirInternal,"database.db",False)
cur1= sql1.ExecQuery ("SELECT * FROM pashayi")

For i = 0 To cur1.RowCount-1
cur1.Position=i
Dim p As Panel 
p.Initialize ("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
stop=stop+31%y
p.LoadLayout ("pashayi")
 label1.Text = cur1.GetString ("album")
Label2.Text = cur1.GetString ("lblring")
لیبل های بالا عنوان اهنگهارو نشون میدیم توی لیبل
label1.Typeface= Typeface.LoadFromAssets("dastnevis.ttf")
Label2.Typeface= Typeface.LoadFromAssets("dastnevis.ttf")
 
Button1.Tag =cur1.GetString("ahang")
Button2.Tag =cur1.GetString("ahang")
Button3.Tag =cur1.GetString("ahang")
"این سه تا باتن ها برای انتخاب بعنوان اهنگ زنگ پیام و الارم,البته میتونید هشدارهارو هم تغییر بدین"
یه نکته هم بگم برای اندروید 5 گمونم کار نکنه

و حالا میریم سراغ کد نویسی باتن ها(برای نمونه فقط اهنگ زنگو تغییر میدیم)

Sub Button1_Click
 Dim iz As Button 
 iz= Sender
Dim v As Int
v=Msgbox2("صدای زنگ تغییر کند؟",(iz.tag ),"بله","خیر","",Null)
	If v=DialogResponse.POSITIVE Then
	If File.Exists(File.DirRootExternal,(iz.Tag & ".ogg")) = False Or File.Exists(File.DirRootExternal,(iz.Tag & ".ogg")) = True Then
	File.Copy(File.DirAssets,(iz.Tag & ".ogg"),File.DirRootExternal,(iz.Tag & ".ogg"))
	Dim r As String
		  	Try
	 r = ring.AddToMediaStore(File.DirRootExternal,(iz.Tag & ".ogg"),(iz.Tag),False,False,True,True)
	File.WriteString(File.DirInternal,(iz.Tag)&".txt",r)
	 Catch
	 Dim re As String
	re=File.ReadString(File.DirInternal,(iz.Tag)&".txt")
	ring.DeleteRingtone(re)
	 	 r = ring.AddToMediaStore(File.DirRootExternal,(iz.Tag & ".ogg"),(iz.Tag),False,False,True,True)
	File.WriteString(File.DirInternal,(iz.Tag )&".txt",r)
	 End Try
        ring.SetDefault(ring.TYPE_RINGTONE,r)
		ToastMessageShow((iz.tag )&" به عنوان صدای زنگ تنظیم شد",True)

		End If
		End If

End Sub

اگر تعداد اهنگها زیاده قابلیت لیمیت بزارین

اون قسمت لیمیت رو نزاشتم چون قبلا خریدم ,مربوط به جناب آرتا بود

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

کسی هم که کلا با تگ و سندر کار نکرده بود و پیاده سازی نوع برنامه مثل اونو بلدم و فقط توی گذاشتن اهنگش مونم اگر ممکنه کمکم کنید

 

آموزش Tag و Sender بنده رو دیدید شما ؟

توی اون آموزش ما میاییم مثلا Name رو تگ میدیم

خب شما هم بیا اسم آهنگ رو تگ بده و به جای اینکه مثلا توی ToastMsg نشون بدی بیا همون رو Load و Play کن  

 

توی کدی که دادید اصلا نیازی به select نیست

شما وقتی نام آهنگ رو به صورت tag میدید دیگه چه نیازی به select case هستش ؟

pl2 میشه همون نام آهنگ... همون pl2 رو Load و Play کنید ! 

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

درود

برای پخش کار خاصی نیازی نیست انجام بدید

چندین سورس مدیا پلیر توی انجمن قرار داره. میتونید از اونها الگو برداری کنید

بسیار بسیار راحت هستش اگه شما برنامتون رو بلد باشید مثل شکل بالا پیاده سازی کنید، دیگه اضافه کردن قابلیت پخش موزیک حداقل 5 دقیقه طول داره

فقط باید برای کلیک Play از Tagو Sender استفاده کنید که آموزش تصویری اون هم شخصا پر کردم و توی انجمن قرار داره

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

کد پخش موزیک :

Dim mp As MediaPlayer
mp.Initialize2("mp")
mp.Load(File.DirAssets("file.mp3"))
mp.Play