《多媒体软件设计技术》课程设计报告学号姓名Email项目名称利用VB进行图像处理滤镜本项目功能及目标实现4个滤镜效果：浮雕、油画、木刻、灯光。其中浮雕深度效果可通过拉杆改变调节，灯光位置调节使用鼠标单击。设计思路及其算法根据教程P153页图像的滤镜效果。VB中有两个操作像素的基本方法：Pset和Point。使用PSet方法可以生成像素，使用Point可以读取像素值，并在显示器上显示的颜色用RGB的值来表示。首先，新建一个窗体Form1，在窗体上建立两个图片框picture1和picture2（picture1为经过滤镜处理后的图像,picture2为原图片），将其autosize的值设为true，然后用LoadPicture()命令给Picture1&2装入一副图像，在通过四个命令commond1,commond2,commond3,commond4的click事件调用过滤过程。浮雕滤镜通过拉杆改变参数使浮雕效果发生改变，灯光通过单击鼠标获取鼠标坐标，将鼠标坐标作为参数传递给灯光滤镜，使灯光位置随鼠标移动。浮雕滤镜的算法是：在相邻像素的差值加上一个常数，使黑暗区域加亮一些，我们可以去同一行、同意列或对角线的相邻像素间的差值加一个常数。油画滤镜的算法是：用当前点四周一定范围内任一点的颜色来代替当前的颜色。木刻滤镜算法是：只需判断当前点是浅色还是深色即可，浅色用白色代替，深色用黑色代替。灯光滤镜算法是：取一点为光源，从光线末端开始想光源点逐渐增加亮度。2源程序文件的组成Lezg.jpg工程1.vbpForm1.frm工程1.vbw程序的源代码Publicflag1AsIntegerPublicflag2AsInteger‘标记PrivateSubclear_Click()'清除滤镜效果Picture1.Picture=Picture2.Picture‘清除标记flag1=0flag2=0EndSub'浮雕滤镜PrivateSubCommand1_Click()flag1=1Dimpi1&,pi2&Dimx,yDima,bAsLongDimRed,Green,BlueAsIntegera=1b=1xx=Picture1.ScaleWidthyy=Picture1.ScaleHeightForx=1Toxx-2Fory=1Toyy-2pi1&=Picture1.Point(x,y)pi2&=Picture1.Point(x+a,y+b)Red=Abs((pi1&Mod256)-(pi2&Mod256)+128)Green=Abs((((pi1&And&HFF00)/256&)Mod256&)-(((pi2&And&HFF00)/256&)Mod256&)+128)Blue=Abs(((pi1&And&HFF0000)/65536)-((pi2&And&HFF0000)/65536)+128)Picture1.PSet(x,y),RGB(Red,Green,Blue)NextyNextxPicture1.Refresh'Printflag1EndSub'油画滤镜PrivateSubCommand2_Click()Dimpi&Dimx,yDima,bAsIntegerDimRed,Green,BlueAsIntegerxx=Picture1.ScaleWidthyy=Picture1.ScaleHeightForx=2Toxx-3Fory=2Toyy-3a=Rnd*3-1b=Rnd*3-1pi=Picture1.Point(x+a,y+b)Red=(pi&Mod256)Green=(((pi&And&HFF00)/256&)Mod256&)Blue=((pi&And&HFF0000)/65536)Picture1.PSet(x,y),RGB(Red,Green,Blue)NextyDoEventsNextxPicture1.RefreshEndSub'木刻滤镜PrivateSubCommand3_Click()Dimpi&Dimx,yDima,bAsIntegerDimRed,Green,BlueAsIntegera=1b=1xx=Picture1.ScaleWidthyy=Picture1.ScaleHeightForx=0ToxxFory=0Toyypi=Picture1.Point(x,y)Red=(pi&Mod256)Green=(((pi&And&HFF00)/256&)Mod256&)Blue=((pi&And&HFF0000)/6553