VFP 愛用者社區

janlih · 註冊時間: 2003-11-04 文章: 69 第 1 樓

請問各位先進:

getcolor()函數的傳回值如何轉為RGB?

如: lncolor=GETCOLOR() 選擇白色

lncolor=16777215

用哪個函數可以將 16777215 轉為 255,255,255 → 代表RGB(255,255,255) 呢?

小賴 · 註冊時間: 2004-12-27 文章: 473 第 2 樓

考數學問題是嗎 ?
若 A = RGB(123,25,87) && A = 5708155
則 A = 5708155 = 123 + 25 * 256 + 87 * 256 ^ 2

公式 A = RGB(R, G, B) = R + 256 * G + B * 256 ^ 2
=> R = MOD(A, 256)
=> G = MOD(INT(A/256), 256)
=> B = MOD(INT(A/256^2), 256)

就不知你的數學能力如何 ?

小賴 · 註冊時間: 2004-12-27 文章: 473 第 3 樓

有一種看起來比較專業的求法 :

X = RGB(R, G, B)

=>

R = MOD(X, 256)
G = MOD(BITRSHIFT(X, Cool

, 256)
B = BITRSHIFT(X, 16)

nelsonchuang · 發表於: 星期五六月 06, 2008 8:01 pm 文章主題:

小賴，說真的，俺也不會~

janlih · 註冊時間: 2003-11-04 文章: 69 第 5 樓

小賴你真厲害居然知道這個公式

我2種方法都驗証過了,都ok

原來這3原色,每一種又細分256色

故共有 256*256*256=16777216 種顏色
RGB(255,255,255)=16777215

0 - 16777215 故共有 16777216 種顏色

用小賴公式算出來
共有 255+255*256+255*256^2=16777215 種顏色

tigerlee39y · 發表於: 星期五六月 06, 2008 9:23 pm 文章主題:

哇小賴好樣的佩服佩服