完整word版用VB编写的RGB转LAB源码附色卡对照表.docx
- 文档编号:3231676
- 上传时间:2022-11-20
- 格式:DOCX
- 页数:92
- 大小:55.69KB
完整word版用VB编写的RGB转LAB源码附色卡对照表.docx
《完整word版用VB编写的RGB转LAB源码附色卡对照表.docx》由会员分享,可在线阅读,更多相关《完整word版用VB编写的RGB转LAB源码附色卡对照表.docx(92页珍藏版)》请在冰豆网上搜索。
完整word版用VB编写的RGB转LAB源码附色卡对照表
RGB转Lab的VB代码
在网上搜索了很久,也没有看到用VB写的RGB转Lab的代码,现根据网上通用的转换算法改写成VB代码(转换后与CIE-Lab的标准色卡有差异,附色卡Lab与RGB对照表),希望能抛砖引玉。
代码如下:
’RGB转Lab
SubRGB_Lab(R1,G1,B1AsLong,L,A,BAsCurrency)’R1,G1,B1为颜色三分量值,先赋值
DimR2,G2,B2,X1,Y1,Z1AsCurrency
R2=R1/255
G2=G1/255
B2=B1/255
'IfR2>0.04045ThenR2=((R2+0.055)/1.055)^2.4ElseR2=R2/12.92
'IfG2>0.04045ThenG2=((G2+0.055)/1.055)^2.4ElseG2=G2/12.92
'IfB2>0.04045ThenB2=((B2+0.055)/1.055)^2.4ElseB2=B2/12.92
R2=R2/12.92
G2=G2/12.92
B2=B2/12.92
X1=R2*0.412453+G2*0.35758+B2*0.180423
Y1=R2*0.212671+G2*0.71516+B2*0.072169
Z1=R2*0.019334+G2*0.119193+B2*0.950227
X1=X1/0.95047
Y1=Y1/1
Z1=Z1/1.08883
IfY1>0.008856ThenL=116*(Y1^(1/3))-16ElseL=903.3*Y1
IfX1>0.008856ThenX1=X1^(1/3)ElseX1=7.787*X1+0.137931
IfY1>0.008856ThenY1=Y1^(1/3)ElseY1=7.787*Y1+0.137931
IfZ1>0.008856ThenZ1=Z1^(1/3)ElseZ1=7.787*Z1+0.137931
A=500*(X1-Y1)
B=200*(Y1-Z1)
EndSub
主程序调用RGB_Lab后,返回Lab值,
序号
PANTONE
NO
色样
LAB
CMYK配方
RGB值
L
亮度
A
洋红-绿
B
黄-蓝
C
青
M
洋红
Y
黄
K
黑
R
红
G
绿
B
蓝
RGB
色码
1
100C
93
-8
50
0
0
51
0
243
237
134
#F3ED86
2
101C
92
-9
66
0
0
79
0
245
236
98
#F5EC62
3
102C
91
-7
100
0
0
100
0
250
230
0
#FAE600
4
103C
71
0
91
0
0
100
18
202
173
0
#CAAD00
5
104C
62
-1
74
0
0
100
30
172
150
0
#AC9600
6
105C
48
-1
49
0
0
100
51
129
114
20
#817214
7
106C
91
-6
65
0
0
72
0
246
231
97
#F6E761
8
107C
90
-4
81
0
0
79
0
250
226
47
#FAE22F
9
108C
88
0
95
0
0
100
0
254
219
0
#FEDB00
10
109C
86
5
100
0
9
94
0
255
209
0
#FFD100
11
110C
73
7
94
0
11
94
6
219
174
0
#DBAE00
12
111C
61
4
75
0
11
100
27
175
143
0
#AF8F00
13
112C
55
2
62
0
11
100
38
153
128
0
#998000
14
113C
90
-2
67
0
6
69
0
250
225
90
#FAE15A
15
114C
89
-2
70
0
6
72
0
250
224
81
#FAE051
16
115C
89
-1
72
0
9
79
0
251
222
74
#FBDE4A
17
116C
85
7
93
0
15
94
0
255
206
0
#FFCE00
18
117C
68
10
83
0
18
100
15
206
157
0
#CE9D00
19
118C
60
8
73
0
18
100
27
179
138
0
#B38A00
20
119C
50
1
49
0
11
100
51
138
118
26
#8A761A
21
120C
89
0
53
0
6
56
0
249
223
121
#F9DF79
22
1205C
90
0
31
0
0
27
0
243
226
167
#F3E2A7
23
121C
89
2
57
0
9
69
0
251
219
110
#FBDB6E
24
1215C
89
1
40
0
6
43
0
245
221
146
#F5DD92
25
122C
87
5
68
0
18
83
0
253
212
79
#FDD44F
26
1225C
84
11
69
0
15
60
0
253
199
69
#FDC745
27
123C
84
12
79
0
30
94
0
255
199
38
#FFC726
28
1235C
79
22
85
0
27
76
0
255
179
0
#FFB300
29
124C
75
16
85
0
27
100
6
235
171
0
#EBAB00
30
1245C
64
13
69
0
27
100
18
198
146
0
#C69200
31
125C
61
12
72
0
23
100
27
187
137
0
#BB8900
32
1255C
56
10
59
0
27
100
34
170
128
14
#AA800E
33
126C
55
8
60
0
23
100
34
161
124
0
#A17C00
34
1265C
46
7
46
0
27
100
51
131
101
20
#836514
35
127C
89
-3
46
0
6
51
0
239
223
133
#EFDF85
36
128C
86
0
61
0
9
65
0
242
214
94
#F2D65E
37
129C
84
3
69
0
15
76
0
241
205
68
#F1CD44
38
130C
75
18
86
0
27
100
0
241
171
0
#F1AB00
39
131C
65
19
80
0
27
100
9
212
145
0
#D49100
40
132C
55
11
64
0
23
100
30
166
122
0
#A67A00
41
133C
39
5
41
0
18
100
56
133
89
19
#715913
42
134C
87
5
45
0
9
43
0
248
213
131
#F8D583
43
1345C
86
10
39
0
11
47
0
251
207
141
#FBCF8D
44
135C
84
12
61
0
18
60
0
254
200
90
#FEC85A
45
1355C
84
13
45
0
18
56
0
253
200
125
#FDC87D
46
136C
81
18
71
0
27
79
0
255
188
58
#FFBC3A
47
1365C
80
21
60
0
30
79
0
255
183
84
#FFB754
48
137C
75
32
87
0
34
91
0
255
159
0
#FF9F00
49
1375C
74
35
81
0
38
76
0
255
154
0
#FF9A00
50
138C
64
35
83
0
38
94
0
228
127
0
#E47F00
51
1385C
60
34
74
0
47
100
9
214
117
0
#D67500
52
139C
54
23
68
0
38
100
23
182
113
0
#B67100
53
1395C
47
21
53
0
43
100
38
158
96
9
#9E6209
54
140C
40
11
43
0
27
100
56
122
86
15
#7A560F
55
1405C
34
13
36
0
38
100
65
108
71
19
#6C4713
56
141C
83
6
53
0
11
47
0
239
200
104
#EFC868
57
142C
79
12
64
0
23
76
0
241
187
70
#F1BB46
58
143C
75
19
72
0
30
83
0
239
170
35
#EFAA23
59
144C
65
3
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 完整 word 版用 VB 编写 RGB LAB 源码 附色卡 对照
![提示](https://static.bdocx.com/images/bang_tan.gif)