ab.com コミュニティ

なるほどですね。

では、ＢＢ　ＧＧ　ＲＲ　の順で
　　　００　００　００　から
　　　ＦＦ　ＦＦ　ＦＦ　までを持っているんですね。

ということは

ＲＲの値＋（ＧＧの値＊２５６）＋（ＢＢの値＊２５６＊２５６）

の逆をすれば分離できるということですね。

符号付は、符号無視。ないしは、符号を昇降順と考えると。

　　　ＲＲ　ＧＧ　ＢＢ　の順で
　　　００　００　００　から
　　　ＦＦ　ＦＦ　ＦＦ　までを持っているんですね。

なんとなく、処理が見えてきました。

ありがとうございました。

'定義
FF=255
GetBasicColor(0)=RGB(0,0,0)
GetBasicColor(1)=RGB(0,0,FF)
GetBasicColor(2)=RGB(FF,0,0)
GetBasicColor(3)=RGB(FF,0,FF)
GetBasicColor(4)=RGB(0,FF,0)
GetBasicColor(5)=RGB(0,FF,FF)
GetBasicColor(6)=RGB(FF,FF,0)
GetBasicColor(7)=RGB(FF,FF,FF)
'ここからメインプログラム
X=1
Y=1
PSet (X,Y),RGB(255,0,0)
A=Point (X,Y)
'ここからRGB値の取り出し
If A<0 Then
	ColorCode=Abs(A)
Else
	ColorCode=Abs(GetBasicColor(A))
End If
Red=ColorCode Mod 256
Green=Int(ColorCode/256) Mod 256
Blue=Int(ColorCode/65536) Mod 256
'ここから表示
Print Red
Print Green
Print Blue

手抜きですが次のコードを試してみてくだされ。
4.13のコードからちょっと引っ張ってきたので2.62で動く保障はありませんが。

[code]
'定義
FF=255
GetBasicColor(0)=RGB(0,0,0)
GetBasicColor(1)=RGB(0,0,FF)
GetBasicColor(2)=RGB(FF,0,0)
GetBasicColor(3)=RGB(FF,0,FF)
GetBasicColor(4)=RGB(0,FF,0)
GetBasicColor(5)=RGB(0,FF,FF)
GetBasicColor(6)=RGB(FF,FF,0)
GetBasicColor(7)=RGB(FF,FF,FF)
'ここからメインプログラム
X=1
Y=1
PSet (X,Y),RGB(255,0,0)
A=Point (X,Y)
'ここからRGB値の取り出し
If A<0 Then
ColorCode=Abs(A)
Else
ColorCode=Abs(GetBasicColor(A))
End If
Red=ColorCode Mod 256
Green=Int(ColorCode/256) Mod 256
Blue=Int(ColorCode/65536) Mod 256
'ここから表示
Print Red
Print Green
Print Blue
[/code]


追記:2.62で動作確認。 '06/3/8 21:05

Ｖｅｒ２６２を使っておりますが。。（すみません）

Ｐｏｉｎｔ（　）で、特定座標のＲＧＢがとってこれます。
２４ビットデータということなので分離したいのですが。

結果は倍精度の符号付１０進データで来ますので。
調理の方法に困っています。

いい関数などがすでにあるのでしょうか？
（ひたすらヘルプを読んでいますが、なかなか分かりません）

どなたか、このへんについてお詳しい方、追加解説をお願いいたします。