《多媒体软件设计技术》课程设计报告.docVIP

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