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

多媒体软件设计技术课程设计报告学号姓名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程序的源代码Public flag1 As Integer Public flag2 As Integer标记Private Sub clear_Click()清除滤镜效果 Picture1.Picture = Picture2.Picture 清除标记 flag1 = 0 flag2 = 0End 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 flag1End 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.RefreshEnd 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 IfEnd SubPrivate 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.RefreshEnd 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 Dengg