save کردن تغییرات ایجاد شده توسط کاربر در برنامه

[hunter0010 62]

سلام 

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

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

من میخواستم اون تغییرات  برای همیشه  save  بشه؟؟؟

لطفا راهنماییم کنید            

[حاج حسین 2,098]

تشکر

من اهنګو تو یه پوشه تو حافظه تلفن ذخیره میکنم

چه طور ادرس بوشه رو بدم که اګه بود بخش کنه و اګه نبود دانلود کنه؟؟؟

*** دانلود موسیقی و پخش پس از دانلود ***

 

[arastooms 1,046]

سلام 
اگر از دیتابیس استفاده می کنید باید بعد از کامل شدن دکمه و جایی که دکمه پخش ظاهر میشه دستوری بدید که مثلا در یک ستون یا سطر خاص یک عدد ثبت کنه مثلا عدد یک "1"
بعد قبل از این دستور باید یه دستور داشته باشید که بیاد چک کنه ببینه اون سطون و سطر خاص عدد 1 هست یانه 
اگر 1 بود دکمه پلی رو فعال کنه یعنی فایل قبلا دانلود شده و بره به محل پخش فایل
و اگر 0 بود یعنی فایل دانلود نشده و شروع به دانلود کنه و بعد از اتمام دانلود همون ستون وسطر خاص رو یک1 قرار بده که یعنی دانلود شده و موجوده
.............
اگر هم بدون دیتابیس کار کردید که فکر کنم همین کار رو بتونید با ایجاد یک فایل تکس انجام بدبد
/

[امین شاهدی 5,777]

http://answercenter.ir/topic/9955-ذخیره-انواع-اطلاعات-به-صورت-استاندارد-خود-اندرو/

با این روش راحت میتونین اطلاعات رو ذخیزه کنید

[hunter0010 62]

تشکر

من با کد زیر اقدام به دانلود فایل میکنم

Sub button1_click
	StartActivity(vi.OpenBrowser("link"))
	button2.Visible= True
End Sub

با دانلود فایل button2 ضاهر میشه   برای بخش اهنګ 

Sub button2_click
	mp.Initialize("mp")
	mp.Load("link")
End Sub

من میخوام وقتی button2 ضاهر شد دیګه save بشه و با خارج شدن کاربر و ورود دوباره همون button2 رو نشون بده نه  button1 ؟؟؟؟

راستی اګه بخوام از روش اقای شاهدی استفاده کنم باید اسمی که اهنګ باهاش زخیره میشه رو بدم؟

[امین شاهدی 5,777]

چیزی که میخواین فکر کنم یه چی تو این مایه ها باشه : 

Sub Globals
Dim SharedPrefrence As AriaSharedPreferences
Dim button1 As Button
Dim button2 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
If SharedPrefrence.GetBoolean("EsmeAhang",False) Then
	button1.Visible=False
	button2.Visible=True
End If

End Sub

Sub button1_click
	StartActivity(vi.OpenBrowser("link"))
	
	SharedPrefrence.SaveBoolean("EsmeAhang",True)
	
	button2.Visible= True
End Sub

Sub button2_click
	mp.Initialize("mp")
	mp.Load("link")
End Sub

[hunter0010 62]

تشکر

من اهنګو تو یه پوشه تو حافظه تلفن ذخیره میکنم

چه طور ادرس بوشه رو بدم که اګه بود بخش کنه و اګه نبود دانلود کنه؟؟؟