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

多媒体软件设计技术多媒体软件设计技术 课程设计报告课程设计报告 学号姓名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 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 256 Mod 256 Blue pi And HFF0000 65536 Picture1 PSet x y RGB Red Green Blue Next y DoEvents Next x Picture1 Refresh End Sub 木刻滤镜 Private Sub Command3 Click Dim pi Dim x y Dim a b As Integer Dim Red Green Blue As Integer a 1 b 1 xx Picture1 ScaleWidth yy Picture1 ScaleHeight For x 0 To xx For y 0 To yy pi Picture1 Point x y Red pi Mod 256 Green pi And HFF00 256 Mod 256 Blue pi And HFF0000 65536 If Red Green Blue 3 0 Then 启动浮雕滤镜 才能通过拉杆改变浮雕效果 Picture1 Picture Picture2 Picture Dim fd As Integer HScroll1 Min 5 HScroll1 Max 20 Text1 Text HScroll1 Value fd HScroll1 Value Dim pi1 pi2 Dim x y Dim a b As Long Dim Red Green Blue As Integer a fd 10 b fd 10 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 End If End Sub Private Sub open Click Picture1 Picture LoadPicture App Path lezg jpg Picture2 Picture Picture1 Picture1 AutoRedraw True Picture2 AutoRedraw True Picture1 ScaleMode 3 Picture2 ScaleMode 3 单位设为像素 Picture1 AutoSize True Picture2 Width Picture1 Width Picture2 Height Picture1 Height 自动调节 Picture1 和 Picture2 的大小 End Sub 灯光滤镜 Private Sub Dengguang ByRef in1 As Integer ByRef in2 As Integer Dim pi1 pi2 Dim X1 Y1 Dim a b As Integer Dim Red Green Blue As Integer a in1 b in2 xx Picture1 ScaleWidth yy Picture1 ScaleHeight For X1 1 To xx For Y1 1 To yy pi1 Picture1 Point X1 Y1 If Sqr a X1 a X1 b Y1 b Y1 40 0 Then Red pi1 Mod 256 200 1 Sqr a X1 a X1 b Y1 b Y1 1 40 Green pi1 And HFF00 256 Mod 256 200 1 Sqr a X1 a X1 b Y1 b Y1 1 40 Blue pi1 And HFF0000 65536 200 1 Sqr a X1 a X1 b Y1 b Y1 1 40 If Red 255 Then Red 255 If Green 255 Then Green 255 If Blue 255 Then Blue 255 Picture1 PSet X1 Y1 RGB Red Green Blue End If Next Y1 Next X1 Picture1 Refresh End Sub 根据鼠标坐标改变灯光位置 Private Sub Picture1 MouseUp Button As Integer Shift As Integer x As Single y As Single Dim index1 As Integer Dim index2 As Integer Picture1 Picture Picture2 Picture 获取当前鼠标坐标 Me Cls Me Caption x y Label1 Left X Label1 Top Y Label1 Caption 当前位置 X X Y Y index1 x index2 y If flag2 0 Then 启动灯光滤镜 才能改变灯光位置 Call Dengguang index1 index2 End If End Su