رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


  • 0
msd313

بدست آوردن RGB یک عکس یک رنگ

سوال

msd313    53

کاربر عادی

سلام دوستان و خداقوت

میخواستم بدونم چطوری میشه توی بیسیک یک عکسی که فقط یک رنگ داره  RGB اون رو بدست آورد.

مثلاً کاربر عکس بده و ما توی برنامه RGB رو بهش بدیم

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


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

5 پاسخ به این سوال تا کنون داده شده است

پست های پیشنهاد شده

  • 0
msd313    53

کاربر عادی

کاربر یک عکس وارد برنامه بکنه که اون عکس هم تک رنگه
میخوام بدونم میشه رنگ اون عکس رو RGB شو درآورد

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
Mohsen27    199

کاربر نیمه فعال

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

Android - Pick Colors from Image Color Palette - Android Tutorials Hub

GitHub - skydoves/ColorPickerView: The most standard and powerful colorpicker library.

شاید بتونید با رپ کردن استفاده کنید ازش

  • تشکر 1

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
m007moh    180

کاربر رو به رشد

در در 1397/10/10, 13:57:04، msd313 گفته است :

سلام دوستان و خداقوت

میخواستم بدونم چطوری میشه توی بیسیک یک عکسی که فقط یک رنگ داره  RGB اون رو بدست آورد.

مثلاً کاربر عکس بده و ما توی برنامه RGB رو بهش بدیم

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

Sub Activity_Create(FirstTime As Boolean)

	Dim aria As Bitmap
	aria.Initialize(File.DirAssets,"1.jpg")
	Private argb() As Int
	argb = GetARGB(aria.GetPixel(1,1))
	Msgbox("A = " & argb(0)&CRLF&"R = " & argb(1)&CRLF&"G = " & argb(2)&CRLF&"B = " & argb(3),"")
End Sub

Sub GetARGB(Color1 As Int) As Int()
	Private res(4) As Int
	res(0) = Bit.UnsignedShiftRight(Bit.And(Color1, 0xff000000), 24)
	res(1) = Bit.UnsignedShiftRight(Bit.And(Color1, 0xff0000), 16)
	res(2) = Bit.UnsignedShiftRight(Bit.And(Color1, 0xff00), 8)
	res(3) = Bit.And(Color1, 0xff)
	Return res
End Sub

 

  • پسندیدن 2
  • تشکر 1

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

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

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

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

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

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

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


×
×
  • جدید...