رنگ با فرمت فتوشاپ [بایگانی]

REZADG

پنج شنبه 12 آذر 1388, 07:51 صبح

سلام دوستان من کمی با رنگ ها مشکل دارم که اگر کمک کنید خوب میشه
جستوجو کردم چند تا کد واسه گرفتن رنگ پیدا کردم که میدونستم و چند تا اکتیو ایکس پیدا کردم که کار اون سورس ها رو انجام میدادن
مشکل من اینه من میخوام اسم رنگ رو پیدا کنم یعنی وقتی به فرض توی فتوشاپ میخوایی یه رنگ درست کنی بهت یه نام میده اکثرا 8 رقمی که اینجوریه 90ff00 که این رنگ سبز میشه سبز کم رنگ و این نوع کد دهی با ویندوز هم سازگاری داره و در ویندوز هم سبز میشه ولی در وی بی نمیشه وقتی اینو میزنی یه رنگ میده عتیقه می خواستم از دوستان خواهش کنم کمک کنید کد تولیدی وی بی رو به این فرمت تغیر بدیم

mpmsoft

پنج شنبه 12 آذر 1388, 09:21 صبح

شما مقدار B R G در در فتوشاپ بردارید و در وی بی وارد کنید

parselearn

پنج شنبه 12 آذر 1388, 11:10 صبح

من براي رنگها از برنامه Color Cop استفاده مي كنم
شما هم مي تونيد از اين استفاده كنيد
البته نمونه سورس همون برنامه در سايت هست
جستجو كنيد

REZADG

پنج شنبه 12 آذر 1388, 17:54 عصر

ممنون اما اگر میشه توضیح کامل بنویسید من چیزی در این باره پیدا نکردم

xxxxx_xxxxx

پنج شنبه 12 آذر 1388, 18:16 عصر

سلام،
سیستم رنگی بر اساس مبنای 16 (Hex) عمل میکنه. درواقع اون رنگی که شما گفتید (90ff00) همان رنگ سبز است در مبنای 16 که شما بایست به VB بفهمانید که این یک عدد در مبنای 16 است، برای همین قبل از عدد خود حرف H را اضافه کنید به معنای (Hexadecimal) و بعد به ابتدا و انتهای آن علامت & رو اضافه کنید. که میشه &H90FF00&

این عدد بایست یک عدد 8 رقمی باشد درصورتی که عدد شما کمتر از 8 رقم هست به ابتدای آن صفر اضافه کنید تا به هشت رقم برسه، اگر هم این کارو نکنید خودش به طور خودکار اضافه می کنه که درنهایت میشه: &H0090FF00&

برای تبدیل این عدد به مقادیر RGB باید تقسیم های متوالی انجام بدید که کدش در همین سایت هست، جستجو کنید.

موفق باشید/

REZADG

پنج شنبه 12 آذر 1388, 18:32 عصر

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

xxxxx_xxxxx

پنج شنبه 12 آذر 1388, 19:02 عصر

یعنی چی میخواید این کد رو تولید کنید؟
شما رنگ موردنظرتون رو از طریق RGB تعیین کنید خروجیش میشه همین عدد که باید به مبنای هگز بره

REZADG

پنج شنبه 12 آذر 1388, 21:24 عصر

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

xxxxx_xxxxx

پنج شنبه 12 آذر 1388, 23:10 عصر

خروجی RGB رو باید مبنای 16 ببرید.
مثلاً اینطوری:

x = RGB(120, 5, 205)
Dim h As String, hx As String, result As String
While x > 0
v = x Mod 16
If v = 10 Then h = "A"
If v = 11 Then h = "B"
If v = 12 Then h = "C"
If v = 13 Then h = "D"
If v = 14 Then h = "E"
If v = 15 Then h = "F"
If v < 10 Then h = Str(v)
hx = Trim(hx) & Trim(h)
x = x \ 16
Wend
Me.Caption = hx
For i = Len(hx) To 1 Step -1
result = result & Mid(hx, i, 1)
Next i
MsgBox result

خب نتیجه که همون result باشه همون رنگ ما در مبنای 16 هست.

parselearn

جمعه 13 آذر 1388, 06:59 صبح

شايد كدي كه ميخواين تو اينم باشه
http://barnamenevis.org/forum/showthread.php?t=175987

mpmsoft

شنبه 14 آذر 1388, 15:52 عصر

نیازی به هیچ کد نویسی نیست

شما در خصوصیت فرضا background textbox در پایین پنجره باز شدهتعدادی خونه های خالی دارید که سفید رنگ هستند
بروی یکی از آنها کلیک راست کنید و سپس در پنجره باز شده R G B رنگ مورد نظر را وارد کنید