用VB编写的RGB转LAB源码(附色卡对照表)

《用VB编写的RGB转LAB源码(附色卡对照表)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、RGB转Lab的VB代码在网上搜索了很久，也没有看到用VB写的RGB转Lab的代码，现根据网上通用的转换算法改写成VB代码（转换后与CIE-Lab的标准色卡有差异，附色卡Lab与RGB对照表），希望能抛砖引玉。代码如下：’RGB转LabSubRGB_Lab(R1,G1,B1AsLong,L,A,BAsCurrency)’R1,G1,B1为颜色三分量值，先赋值DimR2,G2,B2,X1,Y1,Z1AsCurrencyR2=R1/255G2=G1/255B2=B1/255'IfR2>0.04045ThenR2=((R2+0.055)

2、/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.92R2=R2/12.92G2=G2/12.92B2=B2/12.92X1=R2*0.412453+G2*0.35758+B2*0.180423Y1=R2*0.212671+G2*0.71516+B2*0.072169Z1=R2*0.019334+G2*0.1

3、19193+B2*0.950227X1=X1/0.95047Y1=Y1/1Z1=Z1/1.08883IfY1>0.008856ThenL=116*(Y1^(1/3))-16ElseL=903.3*Y1IfX1>0.008856ThenX1=X1^(1/3)ElseX1=7.787*X1+0.137931IfY1>0.008856ThenY1=Y1^(1/3)ElseY1=7.787*Y1+0.137931IfZ1>0.008856ThenZ1=Z1^(1/3)ElseZ1=7.787*Z1+0.137931A=500*(X1-Y1

4、)B=200*(Y1-Z1)EndSub主程序调用RGB_Lab后，返回Lab值，序号PANTONENO色样LABCMYK配方RGB值L亮度A洋红-绿B黄-蓝C青M洋红Y黄K黑R红G绿B蓝RGB色码1100C　93-85000510243237134#F3ED862101C　92-9660079024523698#F5EC623102C　91-71000010002502300#FAE6004103C　7109100100182021730#CAAD005104C　62-17400100301721500#AC96006105C　

5、48-149001005112911420#8172147106C　91-6650072024623197#F6E7618107C　90-4810079025022647#FAE22F9108C　880950010002542190#FEDB0010109C　865100099402552090#FFD10011110C　737940119462191740#DBAE0012111C　61475011100271751430#AF8F0013112C　55262011100381531280#99800014113C　90-267

6、0669025022590#FAE15A15114C　89-2700672025022481#FAE05116115C　89-1720979025122274#FBDE4A17116C　857930159402552060#FFCE0018117C　681083018100152061570#CE9D0019118C　60873018100271791380#B38A0020119C　501490111005113811826#8A761A21120C　8905306560249223121#F9DF79221205C　90031

7、00270243226167#F3E2A723121C　8925709690251219110#FBDB6E241215C　8914006430245221146#F5DD9225122C　8756801883025321279#FDD44F261225C　84116901560025319969#FDC74527123C　84127903094025519938#FFC726281235C　7922850277602551790#FFB30029124C　75168502710062351710#EBAB00301245C　64

8、1369027100181981460#C6920031125C　611272023100271871370#BB8900321255C　5610590271003417012814#AA800E33126C　5586002310034161124