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