رفتن به مطلب

AriaPhotoShop فتوشاپ در B4A!


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

میخوام یه برنامه برای ادیت عکس که خواصیت،crop, blur و همینایی که این کتابخانه خواصیتشو داره رو درست کنم

اگه نمونه باشه یا یه سورس کوچیکی باشه ممنون میشم

آقای محمدی نوشتن همه ی اینا کار آسونی نیست .

خیلی دستور داره

با یکم تلاش و تمرین خودتون می تونید یا بگیرید!

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

  • پاسخ 60
  • ایجاد شده
  • آخرین پاسخ

بیشترین ارسال‌ها در این موضوع

ارسال‌های محبوب

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

Crop +  ReduceColors + SetDensity      اضافه شد .   AriaPhotoShop.zip

سلام با همین کتابخانه استاد شاهدی میشه Dim p As AriaPhotoshp Dim ImageView1 As ImageView p.Contrast(ImageView1.Bitmap , 1 ) p.SavePic(ImageView1.Bitmap , File.DirDefaultExternal ,"ax1.png") اگر از

  • 3 هفته بعد...

سلام.با کدوم دستور میشه قسمتی از عکس رو برید؟و چجوری؟

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

با متد Crop : 

Dim aria As AriaPhotoshp
Dim bitmap As Bitmap = LoadBitmap(File.DirAssets,"icon.png")
 aria.Crop(bitmap,0,0,50,100) 
لینک ارسال
به اشتراک گذاری در سایت های دیگر

امین جان درباره blur یه توضیحی میدی!

الان این factor و offset توی blur یعنی چی ؟ مقدارشون رو چند قرار بدم؟

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

مشکل بلور حل شد ، با این ورژن بلور به خوبی انجام میشه : 

Sub Globals
	Dim aria As AriaPhotoshp
	Dim img As Bitmap
End Sub

Sub Activity_Create(FirstTime As Boolean)

img=LoadBitmap(File.DirAssets,"icon.png")

aria.Initialize("aria")
aria.Blur(img,20)

End Sub


Sub aria_BlurEnd (BluredImage As Bitmap)

	Activity.SetBackgroundImage( BluredImage )
		
End Sub

**ساب هم از طریق sub فاصله و زدن تب نمایش داده میشه

AriaPhotoshop.zip

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

دوستان این blur رو یکی بهم توضیح بده ، هر کار میکنم درست نمیشه! :fekr::'(

اینم کد:

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
    Dim ar As AriaPhotoshp
	Private ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("abcd")
	ar.Initialize("ar")
	ImageView1.Bitmap=LoadBitmap(File.DirAssets,"10.jpg")
ar.Blur(ImageView1.Bitmap,20)
End Sub

لطفا کمک کنید :)

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

من الان blur و snow و noise رو امتحان کردم ولی هیچ کدوم هیچ عمل خاصی انجام نمیده. احتمالا من دارم کد ها رو اشتباه میزنم . کسی میتونه کمک کنه؟آیا؟

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

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

ولی یه سوال الان دوباره کاری نشده !؟

کتابخونه rsimageproccess بود دیگه !

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

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

ولی یه سوال الان دوباره کاری نشده !؟

کتابخونه rsimageproccess بود دیگه !

 

توی پست اول گفتم که با استفاده از یه کتابخونه ی دیگه ساختم ، تکملی شده ی اونه .

 

من الان blur و snow و noise رو امتحان کردم ولی هیچ کدوم هیچ عمل خاصی انجام نمیده. احتمالا من دارم کد ها رو اشتباه میزنم . کسی میتونه کمک کنه؟آیا؟

 

دقیقا مثل نمونه کدی که گفتم عمل کردین ؟ چون من کد sub blur رو نمیبینم ! بلور بعد از اینکه عکس رو بلور کرد عکس رو میریزه توی ساب ! نمونه کدی که دادم رو ببینید

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

  • 2 ماه بعد...

یه سوال داشتم

چجوری میشه با کانتراست و روشنایی کار کرد ؟

مثلا کانتراست رو اورد پایین

روشنایی رو برد بالا

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

یه سوال داشتم

چجوری میشه با کانتراست و روشنایی کار کرد ؟

مثلا کانتراست رو اورد پایین

روشنایی رو برد بالا

فکر کنم اینجوری باشه :)

Dim ariaphoto As AriaPhotoshp
ariaphoto.Initialize("")
ariaphoto.Contrast(ImageView1.Bitmap , 20)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

چجوری باید اینکارو بکنم ؟

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

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

چجوری باید اینکارو بکنم ؟

سلام با همین کتابخانه استاد شاهدی میشه

Dim p As AriaPhotoshp
Dim ImageView1 As ImageView
p.Contrast(ImageView1.Bitmap , 1 )
p.SavePic(ImageView1.Bitmap , File.DirDefaultExternal ,"ax1.png")

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

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

  • 2 ماه بعد...

با سلام .

 

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

 

افکت هایی مثل : Blur کردن عکس ،ترکیب عکس،تغییر رنگ، فیتلر سیاه ، برفی ،Invert کردن رنگ، روشنایی ، Contrast ,آینه ، noise  و چرخش کلی کار دیگه ، ( از طریق همین کتابخونه میتونین عکس رو به راحتی ذخیره کنین ویا به اشتراک بزارین)

 

 

دانلود v1.1

اقا واعا عالی بود 

ایای کتابخوته ای هست که بتونم باهاش عکس رو تغییر سایز بدم؟؟؟؟

حجم عکس بیاد پاییین

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

سلام 

من تو یه برنامه یه عکسی رو به سمت سرور میفرستم 

ولی میخوام قبل از ارسال عکس حجمش رو کم کنم

مثلا 200*200

با این کتابخونه میشه؟

نفهمیدم از کدوم متد استفاده کنم؟

ممنون میشم کمک کنید.

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

کار با این کتابخانه مثل کار با RSImageProcessing است .

سلام داداش من خیلی دنبال این کتابخونه rsimage ... گشتم

لطف کن اگه داریش برام بفرست

ممنونتم

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

  • 2 ماه بعد...

آقای شاهدی

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

با کلیک روی اون عکس، اون افکت اعمال میشه.

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

میزان هر افکت، مثلا افکت مات یا بلور، به چه شکل اعمال میشه. یه میزان ثابت براش قرار داده میشه  و برای تمام عکس‌ها اعمال میشه (مثلا 70 یا 60) ؟؟؟

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

میشه یک آموزش بدید که چطوری باهاش کار کنیم

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

به گفتگو بپیوندید

هم اکنون می توانید مطلب خود را ارسال نمایید و بعداً ثبت نام کنید. اگر حساب کاربری دارید، برای ارسال با حساب کاربری خود اکنون وارد شوید .
توجه: مطلب ارسالی شما پس از تایید مدیریت برای همه قابل رویت خواهد بود.

مهمان
ارسال پاسخ به این موضوع ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به صورت لینک

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.

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

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

×
  • اضافه کردن...