با سلام و سپاس خدمت کاربران عزیز سایت یاهو ۹۸ YAHOO
با استفاده از تابع زیر میتوانید افکت سیاه و سفید را روی یک تصویر (Bitmap) تنظیم کنید !
ابتدا کتابخانه XUI و BitmapCreator را فعال کنید ( این دو کتابخانه در لیست کتایخانه های اصلی بیسیک فور اندروید موجود میباشند ) و کد زیر را به اکتیویتی مورد نظرتان اضافه کنید :
✨ نکات مهم:
• کد آماده و تستشده (2 قطعهکد)
• کار با کتابخانههای: BitmapCreator، XUI
• کپی و استفاده مستقیم در پروژه B4A
📚 کتابخانههای مورد نیاز:
BitmapCreator، XUI
(از مسیر Libraries در محیط B4A تیک بزنید.)
🚀 نحوه استفاده:
کد زیر را کپی کنید و در Sub یا ماژول مناسب پروژه خود قرار دهید؛ کتابخانههای اعلامشده را تیک بزنید.
| دستهبندی | تکه کدها |
| تاریخ انتشار | ۲۷ شهریور ۱۴۰۵ - ۰۰:۲۶ |
| تعداد بازدید | ۴ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- تکهکد آماده B4A
- کاملاً رایگان
- کد تستشده با توضیح فارسی
- کتابخانه: BitmapCreator، XUI
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Public Sub GreyScale (bmp As B4XBitmap) As B4XBitmap
Dim bc As BitmapCreator
bc.Initialize(bmp.Width / bmp.Scale, bmp.Height / bmp.Scale)
bc.CopyPixelsFromBitmap(bmp)
Dim argb As ARGBColor
For x = 0 To bc.mWidth - 1
For y = 0 To bc.mHeight - 1
bc.GetARGB(x, y, argb)
Dim c As Int = argb.r * 0.21 + argb.g * 0.72 + 0.07 * argb.b
argb.r = c
argb.g = c
argb.b = c
bc.SetARGB(x, y, argb)
Next
Next
Return bc.Bitmap
End Sub
ImageView1.Bitmap = GreyScale(ImageView1.Bitmap)محصولات مشابه