用VB编写的RGB转LAB源码(附色卡对照表).doc
《用VB编写的RGB转LAB源码(附色卡对照表).doc》由会员分享,可在线阅读,更多相关《用VB编写的RGB转LAB源码(附色卡对照表).doc(26页珍藏版)》请在咨信网上搜索。
1、RGB转Lab的VB代码在网上搜索了很久,也没有看到用VB写的RGB转Lab的代码,现根据网上通用的转换算法改写成VB代码(转换后与CIE-Lab的标准色卡有差异,附色卡Lab与RGB对照表),希望能抛砖引玉。代码如下:RGB转LabSub RGB_Lab(R1, G1, B1 As Long, L, A, B As Currency) R1,G1,B1为颜色三分量值,先赋值 Dim R2, G2, B2, X1, Y1, Z1 As Currency R2 = R1 / 255 G2 = G1 / 255 B2 = B1 / 255 If R2 0.04045 Then R2 = (R2 +
2、 0.055) / 1.055) 2.4 Else R2 = R2 / 12.92 If G2 0.04045 Then G2 = (G2 + 0.055) / 1.055) 2.4 Else G2 = G2 / 12.92 If B2 0.04045 Then B2 = (B2 + 0.055) / 1.055) 2.4 Else B2 = 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
3、 + 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 If Y1 0.008856 Then L = 116 * (Y1 (1 / 3) - 16 Else L = 903.3 * Y1 If X1 0.008856 Then X1 = X1 (1 / 3) Else X1 = 7.787 * X1 + 0.137931 If Y1 0.008856 Then Y1 = Y1 (1 / 3
4、) Else Y1 = 7.787 * Y1 + 0.137931 If Z1 0.008856 Then Z1 = Z1 (1 / 3) Else Z1 = 7.787 * Z1 + 0.137931 A = 500 * (X1 - Y1) B = 200 * (Y1 - Z1)End Sub主程序调用RGB_Lab 后,返回Lab值,序号PANTONENO色样LABCMYK配方RGB值L亮度A洋红-绿B黄-蓝C青M洋红Y黄K黑R红G绿B蓝RGB色码1100C93-85000510243237134#F3ED862101C92-9660079024523698#F5EC623102C91-7
5、1000010002502300#FAE6004103C7109100100182021730#CAAD005104C62-17400100301721500#AC96006105C48-149001005112911420#8172147106C91-6650072024623197#F6E7618107C90-4810079025022647#FAE22F9108C880950010002542190#FEDB0010109C865100099402552090#FFD10011110C737940119462191740#DBAE0012111C61475011100271751430#
6、AF8F0013112C55262011100381531280#99800014113C90-2670669025022590#FAE15A15114C89-2700672025022481#FAE05116115C89-1720979025122274#FBDE4A17116C857930159402552060#FFCE0018117C681083018100152061570#CE9D0019118C60873018100271791380#B38A0020119C501490111005113811826#8A761A21120C8905306560249223121#F9DF792
7、21205C9003100270243226167#F3E2A723121C8925709690251219110#FBDB6E241215C8914006430245221146#F5DD9225122C8756801883025321279#FDD44F261225C84116901560025319969#FDC74527123C84127903094025519938#FFC726281235C7922850277602551790#FFB30029124C75168502710062351710#EBAB00301245C641369027100181981460#C69200311
8、25C611272023100271871370#BB8900321255C5610590271003417012814#AA800E33126C55860023100341611240#A17C00341265C467460271005113110120#83651435127C89-34606510239223133#EFDF8536128C860610965024221494#F2D65E37129C8436901576024120568#F1CD4438130C75188602710002411710#F1AB0039131C65198002710092121450#D49100401
9、32C551164023100301661220#A67A0041133C39541018100561338919#71591342134C8754509430248213131#F8D583431345C861039011470251207141#FBCF8D44135C84126101860025420090#FEC85A451355C841345018560253200125#FDC87D46136C81187102779025518858#FFBC3A471365C80216003079025518384#FFB75448137C7532870349102551590#FF9F0049
10、1375C7435810387602551540#FF9A0050138C6435830389402281270#E47F00511385C60347404710092141170#D6750052139C542368038100231821130#B67100531395C47215304310038158969#9E620954140C401143027100561228615#7A560F551405C341336038100651087119#6C471356141C83653011470239200104#EFC86857142C79126402376024118770#F1BB46
11、58143C75197203083023917035#EFAA2359144C65387904710002371280#ED800060145C59317104710092071180#CF760061146C47225603810034159960#9F600062147C39635027100691138833#71582163148C861131011380251208157#FBD09D641485C812642023560255181123#FFB57B65149C841539018510254198136#FEC688661495C74416503069025515059#FF96
12、3B67150C77295903069025516979#FFA94F681505C6756900387602551140#FF720069151C6653860438702551150#FF730070152C61447705110002311110#E76F00711525C50487306510011202780#CA4E0072153C533363043100181921020#C06600731535C38345305110038147630#933F0074154C44265004310034153849#995409751545C21192605110083813811#5126
13、0B76155C8742209270236214175#ECD6AF771555C832125018340255191160#FFBFA078156C811234018430239193138#EFC18A791565C783137034510255169125#FFA97D80157C71275203876023715579#ED9B4F811575C70465804372025513466#FF864282158C60476606094023310716#E96B10831585C6457740568702551050#FF690084159C5345610651009205886#CD5
14、806851595C5548640601006218925#DA5C0586160C443348060100341627818#A24E12871605C433547056100301627419#A24A1388161C27182705110069975323#613517891615C353040056100431336016#853C1090162C841921011180253195170#FDC3AA911625C763528030380255162139#FFA28B92163C753740030470255156113#FF9C71931635C72443703847025514
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 编写 RGB LAB 源码 附色卡 对照
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【精****】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【精****】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。