آموزش گالری (اشتراک، تنظیم به پس زمینه، ذخیره در پوشه دلخواه)

[vistamobile 1,700]

سلام!! 

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

 

راستی از کتابخونه استودنت استفاده کردم که این کتابخونه دسترسی های غیر مجاز زیادی داره پس حتما تو مانیفیست این کدها رو قرار بدین تا مارکتها گیر ندن :

RemovePermission(android.permission.READ_PHONE_STATE)
RemovePermission(android.permission.ACCESS_FINE_LOCATION)
RemovePermission(android.permission.internet)
RemovePermission(android.permission.CAMERA)

بعد پروژه جدید ایجاد کنین  و یه لی اوت بسازین . تو لی اوت یه پنل قرار بدین و تنظیمات پنل رو از صفر تا صد بزارین یا یه جوری که بیشتر صفحه رو بگیره. بقیه اشیا رو این پنل سوار میشن . من تو پنل اولم یه پنل دیگه ساختم و مشکی کردم و یه ایمیج ویو گذاشتم توش بعد درصد ایمیج ویو رو یک پیکسل از درصد پنلی که توشه کمتر گذاشتم تا بنظر برسه که ایمیج ویو فریم داره!! بعد یه پنل دیگه تو پنل اصلی گذاشتم و 5 تا باتون قرار دادم. دوتا باتون برای جلو و عقب بردن عکسها، یه باتون برای ذخیره سازی عکس در پوشه، یه باتون برای استراک گذاری عکس در همه جا!! و یه باتون برای تنظیم عکس به پس زمینه گوشی:

 

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

                                                                                

بریم سراغ کد نویسی :

Sub Globals

	Private ImageView1 As ImageView
	Private nexpng As Button
	Private Panel1 As Panel
	Private Panel2 As Panel
	Private Panel3 As Panel
	Private perimg As Button
	Private savebtn As Button
	Private setwall As Button
	Private sharebtn As Button
	Dim startx As Int
  	Dim a As Bitmap
   	Dim i As Int
	Dim phone1 As Phone
	Dim shomare As Int
End Sub

خوب  Sub Globals ما اینجوریه. هیچ چیز خاصی نداره جز اینکه کتابخونه Phone رو تیک زدیم و یه اینت به نام شماره زدیم واسه اینکه عکسهای پنل رو بشمریم.

 

perimg  این باتون عکس قبلیه  

nexpng این باتون عکس بعدیه

 savebtn این باتون ذخیره هستش

setwall  این باتون تنظیم به پس زمنیه هستش

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

 

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

 

حالا لی لوت رو معرفی میکنیم و یه فولدر هم به برنامه میدیم که بسازه. برای چی؟ برای اینکه عکسها رو ذخیره کنه. البته عکسی که کاربر ذخیره کنه نه تمامی عکسها :

 

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("sery1")
		If File.Exists(File.DirRootExternal ,"/vistawall/")=False Then 
	File.MakeDir (File.DirRootExternal ,"vistawall")
	End If
End Sub

من اسم لی اوت اولم sery1 هستش و یه پوشه هم ساختم به اسم vistawall .

 

تا اینجا اسون بود. حالا باید عکسهاتون رو بدین به برنامه. واسه عکسها اینجوری اسم بزارین :

 

z0.jpg   ,   z1.jpg     ,     z2.jpg      ,    .....

 

چرا؟ چون ما میخوایم این حرف اول که من اینجا z  انتخاب کردم بشه پایه و اون عددها که از صفر شروع شده بشن شمارشگر عکسها مثلا من 14 تا عکس دارم که از صفر میشمره پس اولین عکس میشه   z0.jpg   و عکس چهاردهم میشه z13.jpg. یعنی از صفر تا سیزده میشه 14 تا عکس!!  الان چجوری بشمریم؟ خوب من میخوام یه باتون عکس رو ببره جلو. پس میگم عکس اولم z0.jpg هستش و از این 14 برو جلو :

Sub nexpng_Click
	i = i+1
If i>14 Then
i=14
End If
shomare=i
       a.Initialize(File.DirAssets,"z"&i&".jpg")
       ImageView1.SetBackgroundImage(a)	
End Sub

و واسه باتون برگشت هم همینو با کمی تغییر میزنم :

Sub perimg_Click
		i=i-1
If i<0 Then
i=0
End If
shomare=i
       a.Initialize(File.DirAssets,"z"&i&".jpg")
      ImageView1.SetBackgroundImage(a)	
End Sub

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

 

الان واسه اشتراک گذاری اولش باید یه ساب تعریف کنیم:

Sub CreateUri(uri As String) As Object
   Dim r As Reflector
   Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(uri), Array As String("java.lang.String"))
End Sub

کتابخونه  Reflector رو تیک بزنین و تو رویداد باتون اشتراک هم این کد رو بریزین :

Sub sharebtn_Click

    	File.Copy (File.DirAssets ,"z"&shomare&".jpg",File.DirRootExternal ,"/vistawall/"&"vistawall"&"z"&shomare&".jpg")
    Dim r As Reflector
    Dim f As Object
    f = r.CreateObject2("java.lang.String", Array As Object("file:///sdcard/vistawall/"&"vistawall"&"z"&shomare&".jpg"), Array As String("java.lang.String"))
    Dim share As Intent
    share.Initialize(share.ACTION_SEND,"")
    share.SetType("image/*")
    share.PutExtra("android.intent.extra.STREAM", r.RunStaticMethod("android.net.Uri", "parse", _
    	    Array As Object(f), Array As String("java.lang.String")))
    share.WrapAsIntentChooser("ارسال عکس")
    StartActivity(share)	
End Sub

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

 

واسه تنظیم به پس زمینه هم خیلی ساده و فقط تو چند خط اول ساب تنظیم پس زمینه رو تعریف کردیم :

Sub SetWallPaper(bm As Bitmap)
   Dim r As Reflector
   r.Target = r.RunStaticMethod("android.app.WallpaperManager", "getInstance", _
      Array As Object(r.GetContext), Array As String("android.content.Context"))
   r.RunMethod4("setBitmap", Array As Object(bm), Array As String("android.graphics.Bitmap"))
End Sub

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

Sub setwall_Click
	Dim s As StudentLibrary
	s.SetWallPaper(a)
	Msgbox("به عنوان پس زمینه انتخاب شد","ویستا موبایل")	
End Sub

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

Sub savebtn_Click
If File.ExternalWritable =True Then
	File.Copy(File.DirAssets ,"z"&shomare&".jpg",File.DirRootExternal ,"/vistawall/"&"vistawall"&"z"&shomare&".jpg")
	Msgbox("ذخیره شد"," عکس")
	End If	
End Sub

همین!! 

 

چندتا نکته :

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

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

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

سورس رو نذاشتم دوستا همین کدها رو کپی کنین سورس میشه   

[mohamadali98 21]

سورس و کتابخانه هاش رو با هم بگزار خواهشا

[vistamobile 1,700]

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

"کتابخانه phone  و  Reflector پیشفرض بیسیک هستش "

[nany12 623]

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

عالی

مقامت پایین تر نیومد که

[amirex128 19]

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

این کد ها رو وارد کردم

#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
	Private ImageView1 As ImageView
	Private nexpng As Button
	Private Panel1 As Panel
	Private Panel2 As Panel
	Private Panel3 As Panel
	Private perimg As Button
	Private savebtn As Button
	Private setwall As Button
	Private sharebtn As Button
	Dim startx As Int
  	Dim a As Bitmap
   	Dim i As Int
	Dim phone1 As Phone
	Dim shomare As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("galory")
		If File.Exists(File.DirRootExternal ,"/vistawall/")=False Then 
	File.MakeDir (File.DirRootExternal ,"vistawall")
	End If
	End Sub
	Sub nexpng_Click
	i = i+1
If i>14 Then
i=14
End If
shomare=i
       a.Initialize(File.DirAssets,"z"&i&".jpg")
       ImageView1.SetBackgroundImage(a)	
End Sub




Sub perimg_Click
		i=i-1
If i<0 Then
i=0
End If
shomare=i
       a.Initialize(File.DirAssets,"z"&i&".jpg")
      ImageView1.SetBackgroundImage(a)	
End Sub





Sub CreateUri(uri As String) As Object
   Dim r As Reflector
   Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(uri), Array As String("java.lang.String"))
End Sub




Sub sharebtn_Click

    	File.Copy (File.DirAssets ,"z"&shomare&".jpg",File.DirRootExternal ,"/vistawall/"&"vistawall"&"z"&shomare&".jpg")
    Dim r As Reflector
    Dim f As Object
    f = r.CreateObject2("java.lang.String", Array As Object("file:///sdcard/vistawall/"&"vistawall"&"z"&shomare&".jpg"), Array As String("java.lang.String"))
    Dim share As Intent
    share.Initialize(share.ACTION_SEND,"")
    share.SetType("image/*")
    share.PutExtra("android.intent.extra.STREAM", r.RunStaticMethod("android.net.Uri", "parse", _
    	    Array As Object(f), Array As String("java.lang.String")))
    share.WrapAsIntentChooser("ارسال عکس")
    StartActivity(share)	
End Sub



Sub SetWallPaper(bm As Bitmap)
   Dim r As Reflector
   r.Target = r.RunStaticMethod("android.app.WallpaperManager", "getInstance", _
      Array As Object(r.GetContext), Array As String("android.content.Context"))
   r.RunMethod4("setBitmap", Array As Object(bm), Array As String("android.graphics.Bitmap"))
End Sub



Sub setwall_Click
	Dim s As StudentLibrary
	s.SetWallPaper(a)
	Msgbox("به عنوان پس زمینه انتخاب شد","ویستا موبایل")	
End Sub


Sub savebtn_Click
If File.ExternalWritable =True Then
	File.Copy(File.DirAssets ,"z"&shomare&".jpg",File.DirRootExternal ,"/vistawall/"&"vistawall"&"z"&shomare&".jpg")
	Msgbox("ذخیره شد"," عکس")
	End If	
End Sub

	
	
	
	
	

[vistamobile 1,700]

عکس از ارور؟

[reza2001 587]

سلام آقا مختار ! ممنون بابت آموزش !

 

نمی دونید چه طور میشه عکس ها رو آنلاین گرفت و توی برنامه نمایش داد ؟!

[vistamobile 1,700]

داداش نه!! یه سورس از اینجا خریدم با یکی از دوستان خیلی سعی کردیم نشد!! و البته تعداد زیادی امتیاز منفی هم نصیبم شد. سر همون قضیه اینو ساختم. 

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

آنلاین دیگه میایید عکسو دانلود می کنید خب.

توی رویداد JobDone  از getBitmap  استفاده کنید

[vistamobile 1,700]

آنلاین دیگه میایید عکسو دانلود می کنید خب.

توی رویداد JobDone  از getBitmap  استفاده کنید

سلام داداش مجید. یه تیکه کد میدی؟؟ 

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

سلام داداش مجید. یه تیکه کد میدی؟؟ 

سلام مختار جان.

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

[reza2001 587]

سلام مختار جان.

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

 

کدوم محصول فروشگاه رو میگین ؟!

 

اگه بتونید یه آموزش کامل بزارید که نیاز به اون آموزش توی فروشگاه هم نباشه ممنون میشیم !

[vistamobile 1,700]

داداش جدا کردن عکس با * و دانلود. لینک تو فروشگاه هست. 

[ali777795 11]

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

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

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

[ali777795 11]

دوستان کسی نمی دونه من این مشکل صفحه سفید که فقط برای اولین بار میاد چجوری حلش کنم ؟

[Hamed Sabet Farhadi 707]

دوستان کسی نمی دونه من این مشکل صفحه سفید که فقط برای اولین بار میاد چجوری حلش کنم ؟

سورستون رو پیوست کنید

[ali777795 11]

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

(ImageView1.Bitmap=LoadBitmap(File.DirAssets,"z0.jpg"

[mehdi.ch.52.mc 1]

سلام!!

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

راستی از کتابخونه استودنت استفاده کردم که این کتابخونه دسترسی های غیر مجاز زیادی داره پس حتما تو مانیفیست این کدها رو قرار بدین تا مارکتها گیر ندن :

RemovePermission(android.permission.READ_PHONE_STATE)
RemovePermission(android.permission.ACCESS_FINE_LOCATION)
RemovePermission(android.permission.internet)
RemovePermission(android.permission.CAMERA)

بعد پروژه جدید ایجاد کنین و یه لی اوت بسازین . تو لی اوت یه پنل قرار بدین و تنظیمات پنل رو از صفر تا صد بزارین یا یه جوری که بیشتر صفحه رو بگیره. بقیه اشیا رو این پنل سوار میشن . من تو پنل اولم یه پنل دیگه ساختم و مشکی کردم و یه ایمیج ویو گذاشتم توش بعد درصد ایمیج ویو رو یک پیکسل از درصد پنلی که توشه کمتر گذاشتم تا بنظر برسه که ایمیج ویو فریم داره!! بعد یه پنل دیگه تو پنل اصلی گذاشتم و 5 تا باتون قرار دادم. دوتا باتون برای جلو و عقب بردن عکسها، یه باتون برای ذخیره سازی عکس در پوشه، یه باتون برای استراک گذاری عکس در همه جا!! و یه باتون برای تنظیم عکس به پس زمینه گوشی:

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

بریم سراغ کد نویسی :

Sub Globals

	Private ImageView1 As ImageView
	Private nexpng As Button
	Private Panel1 As Panel
	Private Panel2 As Panel
	Private Panel3 As Panel
	Private perimg As Button
	Private savebtn As Button
	Private setwall As Button
	Private sharebtn As Button
	Dim startx As Int
  	Dim a As Bitmap
   	Dim i As Int
	Dim phone1 As Phone
	Dim shomare As Int
End Sub

خوب Sub Globals ما اینجوریه. هیچ چیز خاصی نداره جز اینکه کتابخونه Phone رو تیک زدیم و یه اینت به نام شماره زدیم واسه اینکه عکسهای پنل رو بشمریم.

perimg این باتون عکس قبلیه

nexpng این باتون عکس بعدیه

savebtn این باتون ذخیره هستش

setwall این باتون تنظیم به پس زمنیه هستش

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

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

حالا لی لوت رو معرفی میکنیم و یه فولدر هم به برنامه میدیم که بسازه. برای چی؟ برای اینکه عکسها رو ذخیره کنه. البته عکسی که کاربر ذخیره کنه نه تمامی عکسها :

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("sery1")
		If File.Exists(File.DirRootExternal ,"/vistawall/")=False Then 
	File.MakeDir (File.DirRootExternal ,"vistawall")
	End If
End Sub

من اسم لی اوت اولم sery1 هستش و یه پوشه هم ساختم به اسم vistawall .

تا اینجا اسون بود. حالا باید عکسهاتون رو بدین به برنامه. واسه عکسها اینجوری اسم بزارین :

z0.jpg , z1.jpg , z2.jpg , .....

چرا؟ چون ما میخوایم این حرف اول که من اینجا z انتخاب کردم بشه پایه و اون عددها که از صفر شروع شده بشن شمارشگر عکسها مثلا من 14 تا عکس دارم که از صفر میشمره پس اولین عکس میشه z0.jpg و عکس چهاردهم میشه z13.jpg. یعنی از صفر تا سیزده میشه 14 تا عکس!! الان چجوری بشمریم؟ خوب من میخوام یه باتون عکس رو ببره جلو. پس میگم عکس اولم z0.jpg هستش و از این 14 برو جلو :

Sub nexpng_Click
	i = i+1
If i>14 Then
i=14
End If
shomare=i
       a.Initialize(File.DirAssets,"z"&i&".jpg")
       ImageView1.SetBackgroundImage(a)	
End Sub

و واسه باتون برگشت هم همینو با کمی تغییر میزنم :

Sub perimg_Click
		i=i-1
If i<0 Then
i=0
End If
shomare=i
       a.Initialize(File.DirAssets,"z"&i&".jpg")
      ImageView1.SetBackgroundImage(a)	
End Sub

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

الان واسه اشتراک گذاری اولش باید یه ساب تعریف کنیم:

Sub CreateUri(uri As String) As Object
   Dim r As Reflector
   Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(uri), Array As String("java.lang.String"))
End Sub

کتابخونه Reflector رو تیک بزنین و تو رویداد باتون اشتراک هم این کد رو بریزین :

Sub sharebtn_Click

    	File.Copy (File.DirAssets ,"z"&shomare&".jpg",File.DirRootExternal ,"/vistawall/"&"vistawall"&"z"&shomare&".jpg")
    Dim r As Reflector
    Dim f As Object
    f = r.CreateObject2("java.lang.String", Array As Object("file:///sdcard/vistawall/"&"vistawall"&"z"&shomare&".jpg"), Array As String("java.lang.String"))
    Dim share As Intent
    share.Initialize(share.ACTION_SEND,"")
    share.SetType("image/*")
    share.PutExtra("android.intent.extra.STREAM", r.RunStaticMethod("android.net.Uri", "parse", _
    	    Array As Object(f), Array As String("java.lang.String")))
    share.WrapAsIntentChooser("ارسال عکس")
    StartActivity(share)	
End Sub

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

واسه تنظیم به پس زمینه هم خیلی ساده و فقط تو چند خط اول ساب تنظیم پس زمینه رو تعریف کردیم :

Sub SetWallPaper(bm As Bitmap)
   Dim r As Reflector
   r.Target = r.RunStaticMethod("android.app.WallpaperManager", "getInstance", _
      Array As Object(r.GetContext), Array As String("android.content.Context"))
   r.RunMethod4("setBitmap", Array As Object(bm), Array As String("android.graphics.Bitmap"))
End Sub

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

Sub setwall_Click
	Dim s As StudentLibrary
	s.SetWallPaper(a)
	Msgbox("به عنوان پس زمینه انتخاب شد","ویستا موبایل")	
End Sub

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

Sub savebtn_Click
If File.ExternalWritable =True Then
	File.Copy(File.DirAssets ,"z"&shomare&".jpg",File.DirRootExternal ,"/vistawall/"&"vistawall"&"z"&shomare&".jpg")
	Msgbox("ذخیره شد"," عکس")
	End If	
End Sub

همین!!

چندتا نکته :

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

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

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

سورس رو نذاشتم دوستا همین کدها رو کپی کنین سورس میشه

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

یه سوال

این کدها رو که برای منیفست فرمودین اضافه کنیم یا جایگزین کنیم؟

ممنون میشم پاسخ بدین

فرستاده شده از GT-I9100ِ من با Tapatalk

[Hamidbergis 332]

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

یه سوال

این کدها رو که برای منیفست فرمودین اضافه کنیم یا جایگزین کنیم؟

ممنون میشم پاسخ بدین

فرستاده شده از GT-I9100ِ من با Tapatalk

اضافه کنید به مانیفست دوست عزیز

[Hamidbergis 332]

سلام مختار جان.

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

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