ذخیره تصویر

[mehdi.m 158]

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

سوال من اینه که با چه کدی بیام یه تصویر داخل پوشه assest رو با هر بار مراجعه به اکتیویتی بصورت image1,image2...n ذخیره کنم.

منظورم اینه که مثلا برای اولین مراجعه به اکتیویتی و زدن باتن ذخیره عکس داخل یه پوشه با یه اسمی ذخیره بشه مثلا image1.png و وقتی یبار دیگه کاربر زد روی باتن ذخیره همون عکس بصورت image2.png ذخیره بشه.و الی ماشاالله

مثله ذخیره سازی برنامه های ویرایش عکس...

ممنون

[mehdi.m 158]

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

http://answercenter.ir/topic/14898-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D9%88-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%AA%D8%B9%D8%AF%D8%A7-%D8%B2%DB%8C%D8%A7%D8%AF-%D8%B9%DA%A9%D8%B3-%D8%A8%D8%A7-m-bitmap-utils%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87/

با کتابخونه بالا خیلی راحت میتونین فایلهای بیت مپ رو ذخیره کنید

یه مثال از کتابخونه

Dim m As M_Bitmap_Utils
m.savebitmap(LoadBitmap(File.DirAssets,"imag.png"),File.DirDefaultExternal,"image1","png")

موفق باشید

این کتابخونه فک نکنم به کار من بیاد چون من میخوام تصاویر رو به صورت پشت سر هم بصورت 1،2...n ذخیره کنم.

فک کنم کار من بایه if و یه متغیر i از نوع int حل بشه.

اما نمیدونم چه کدی؟؟؟؟؟

ممنون از شما

[محمدرضا شاهپیری 5,579]

عزیز جان شما انتظار دارین همه کدها آماده و بدون هیچ تلاشی براتون مهیا باشه

شما اصلا به حلقه احتیاج ندارین عزیز کتابخونه ariasharedprefrence رو تیک بزنید و هر بار روی باتن ذخیره کلیک شد مقدار ذخیره شده رو یک واحد افزایش بدین به صورت زیر 

Dim aria As AriaSharedPreferences
aria.Initialize("Aria")
Dim mutil As M_Bitmap_Utils
mutil.savebitmap(LoadBitmap(File.DirAssets,"image.png"),File.DirDefaultExternal,"image"&aria.GetInt("number",0),"png")
aria.SaveInt("number",aria.GetInt("number",0)+1)

موفق باشید

[محمدرضا شاهپیری 5,579]

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

http://answercenter.ir/topic/14898-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D9%88-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%AA%D8%B9%D8%AF%D8%A7-%D8%B2%DB%8C%D8%A7%D8%AF-%D8%B9%DA%A9%D8%B3-%D8%A8%D8%A7-m-bitmap-utils%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87/

 

با کتابخونه بالا خیلی راحت میتونین فایلهای بیت مپ رو ذخیره کنید

یه مثال از کتابخونه 

Dim m As M_Bitmap_Utils
m.savebitmap(LoadBitmap(File.DirAssets,"imag.png"),File.DirDefaultExternal,"image1","png")

موفق باشید