网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > Visual Basic
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程:ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
本月文章推荐
.多用户应用程序中应注意的其它问.
.用VB实现程序的隐形.
.VB从零开始编外挂(四).
.VB从零开始编外挂(七).
.ODBCAPI的VBSample.
.VB游戏写作技巧(1)秀图篇.
.多用户应用程序中应注意的其它问.
.ADO三大对象的属性、方法、事件及.
.VB查找并替换WORD文档中的字符串.
.加强客户端约束增强数据库完整性.
.插入对象.
.DataGrid控件的使用五.
.如何充分扩充VB功能.
.用MDB文件做admin888库.
.在数据库中不用EOF以加快记录循环.
.用VB制作TopMost类型窗口.
.VB精彩教程:数据异步加载.
.VisualBasic使用技巧.
.VB图像处理之图像的色彩纠正.
.VisualBasicCommonDialog控件的使.

VB图像处理之图像的色彩纠正

发表日期:2006-2-27


前几次为大家讲述了如何通过操作像素来实现一些简单的滤镜效果。这次想更大家讲述一下用灰度直方图均衡来调整图像的色彩空间。

  先给大家介绍一下一些颜色的小常识。以电脑的颜色来说,颜色的组成是右红、绿、蓝三种颜色组成。以最容易的24位色来说,红色、绿色、蓝色各用1个字节来表示,1个字节有8位,所以加在一起正好是24位。由于电脑无法用连续的模拟值来表示一个自然量,只能将它们分成一段一段来显示,分得越多就越接近自然。1个字节是2^8=256,所以在24位色中每一个单色都有256种不同的强度,三种颜色按照不同的强度混合,可以得到2^24种色彩。大约可以表达1677万种色彩,对于人的眼睛来说已经和自然色彩没有区别了。

  如果我们用PHOTOSHOP来打开一张图片,选择LEVEL工具,就可以察看这张图片的色彩分布了。

  原图:

->->

  灰度通道:

->->

  红色通道:

->->

  绿色通道:

->->

  蓝色通道:

->->

  由上面的四个通道图,我们可以发现,这张图片的色彩都是以低亮度为主,红绿蓝三色在高亮度区域的分布都很少,而灰度通道也表明整张图片的亮度值很低。

  在前面的文章中,我已经和大家讲过,人眼对于灰度(亮度)的敏感程度最高。因此,如果我们能通过一种方法把这章图片的灰度提高,那么它在我们的视觉中就会有更好的表现。

  或许有朋友说只要把图片加亮度,不是就可以了吗?不错,通过提高所有色彩的亮度,可以把原来处于第亮区域的色彩转移到中亮度或高亮度区域,但是大家也知道,在算法中,加亮度只是很简单的在R、G、B三个值后面直接加上一个偏移量:NewRed=OldRed Offset,NewGreen=OldGreen Offset,NewBlue Offset,但是这种做法只是“粗暴”地将整个色彩空间搬了一个位置,而没有改变其分布。请看下面,我在这张图片加上了120点亮度:再看看此时的色彩分布你就知道我为什么说它“粗暴”了。

  灰度通道:

->->

  红色通道:

->->

  绿色通道:

->->

  蓝色通道:

->->

  可以看到,原图上的高亮度部分的色彩信息全部丢失,而低亮度部分(0-120)则是一片空白,如果说原来的图片是2^8×2^8×2^8一共1677万色的话,那么现在的图片则是:(256-120)^3=251万色,也就是说,通过我们给图片加了120点的亮度,我们丢失了一大半的颜色信息。

  (选择加120点亮度是为了使图片的整体亮度和直方图均衡后的亮度相当,易于比较。)

  那么,有什么方法可以在不丢失,或丢失很少的颜色信息的前提下做到是图片显示更好呢?

  有,这就是今天要说的“灰度直方图均衡”的方法。

  先给大家看一下效果:下面是将原来的图片通过灰度直方图的方法处理后的效果和前面的比较。

  原图:

->->

  提高亮度120:

->->

  灰度直方图均衡:

->->

  通过直方图均衡后的颜色分布如下:

  灰度通道:

->->

  红色通道:

->->

  绿色通道:

->->

  蓝色通道:

->->

  通过对比,我们可以发现,灰度直方图均衡,是对原图中的色彩分布按照出现的频率作了一个分布。

  将出现最多的色彩“分”开,将出现很少的色彩“挤”得更紧,这样作的好处就是把我们眼睛所看到的主体表示得更鲜明了。

  好了,关于效果,也已经说得很多了,下面我们就来说明一下这个算法是如何实现的。
  首先,我们需要获取要处理的图片中所有像素的色彩分布统计,也就是上面的几个通道所作那样。

  假设有一张图(我们直接用灰度来表示):

->1005020
204050
100250200->

  统计入下:

->20:2
40:1
50:2
100:2
200:1
250:1->

  这张图一共有9个像素,我们用比例来表示每种颜色的出现比例:

->20:2/9
40:1/9
50:2/9
100:2/9
200:1/9
250:1/9->

  由于所有的色彩出现的次数不可能超过图片的总像素,因此,将所有色彩的比例相加也不会超过1(大家已经可以看出正好是1)

  最后我们按照从低到高的顺序,把各个色彩的比例进行加权统计,也就是当前点的“权”等于该点的原有比例加上前一个点的“权”,我们得到一个新的统计表:

->20:2/9
40:3/9
50:5/9
100:7/9
200:8/9
250:9/9->

  最后,根据这个新的统计表,我们来把像素的亮度用一个新的亮度来代替,算法为:

  新亮度=该点“权”×255

->20:2/9>>20(第一点不动,依然用20)
40:3/9×255=85
50:5/9×255=141
100:7/9×255=198
200:8/9×255=226
250:9/9×255=255->

  这时我们得到了新的图:

->100502019814120
204050>>1085141
100250200198255226->

  原图中相对出现频率多的部分的宽度变大了。而出现较少的部分则变窄了。

  所以,灰度直方图均衡的作用就是把一张图片上出现多的色彩拓展,而把出现少的色彩压缩。

  从而得到了更“均衡”的色彩分布。

  下面附上我的例程:

->PrivateTypeColorChart
 ColorCount(255)AsLong'统计原来图片中的亮度出现次数
 PixcelCountAsLong'记录图片的像素个数
 ColRatio(255)AsSingle'记录每一个亮度的出现比例
 NewVal(255)AsByte'存放新的亮度索引
EndType

DimColChartAsColorChart

PublicSubStatisticsChart()
 DimRAsByte
 DimGAsByte
 DimBAsByte
 DimGrayAsInteger
 DimXAsLong
 DimYAsLong
 DimIAsLong
 DimLAsLong
 DimMAsLong
 DimCAsDouble
 OnErrorGoToErrLine

 Done=False
 TimeFilter=timeGetTime
 WithColChart
  ForX=0To255'先把数组清零
   .ColorCount(X)=0
  Next
  ForX=0ToOutPutWid'这两个循环用来扫描图片数据,记录每个点的灰度和出现次数
   ForY=0ToOutPutHei
    R=ColVal(2,X,Y)
    G=ColVal(1,X,Y)
    B=ColVal(0,X,Y)
    Gray=R*3 G*6 B
    Gray=Gray\10
    .ColorCount(Gray)=.ColorCount(Gray) 1
   Next
  Next

  .PixcelCount=X*Y'获得图片的像素总量
  C=1/.PixcelCount

  .ColRatio(0)=.ColorCount(M,0)*C'计算每个亮度的出现比例
  .NewVal(0)=0'色值最小的色彩总是为0,不参与计算
  L=0
  ForI=1To255
   .ColRatio(I)=.ColorCount(I)*C .ColRatio(L)'进行加权
   .NewVal(I)=.ColRatio(I)*255'计算新的颜色索引
   L=L 1
  Next

  ForX=0ToOutPutWid
   ForY=0ToOutPutHei
    R=Colval(2,X,Y)'读取原来点的颜色
    G=Colval(1,X,Y)
    B=Colval(0,X,Y)
    R=.NewVal(R)'查表得到新的颜色
    G=.NewVal(G)
    B=.NewVal(B)
    ColOut(2,X,Y)=R'把新的颜色放到输出数组中
    ColOut(1,X,Y)=G
    ColOut(0,X,Y)=B
   Next
  Next
 EndWith

 Done=True
 TimeFilter=timeGetTime-TimeFilter
 ExitSub
ErrLine:
 Done=True
 MsgBoxErr.Description
EndSub->
->

上一篇:VB设计Win2000下截获IP数据包程序 人气:3048
下一篇:VB图像处理之图像的亮度对比度调整 人气:3561
浏览全部Visual Basic的内容 Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐