VB实验报告(实验9).docVIP

电子信息工程学系实验报告 课程名称：面向对象程序设计 实验项目名称：实验9 图形图像 实验时间2011-12-12 班级： 姓名： 学号： 实 验 目 的: 1）、理解坐标系。 2）、熟练掌握绘制图形的方法。 3）、熟练掌握文本输出的方法。 4）、熟练掌握图像处理的方法。 实 验 环 境: Windows XP Visual Studio.NET 2003 实 验 内 容 及 过 程: 将图像处理成马赛克效果 算法： 马赛克效果是将图像处理成由一块块同一颜色块组成的图像。方法是先计算一块矩形区域的像素平均值，然后将该区域的各像素都改为这一平均值。 新建一个“Visual Basic项目” 界面设计 在窗体中添加一个MainMenu、一个OpenFileDialog1和两个PictureBox，他们主菜单添加两个 子菜单，分别是“文件”和“图像处理”。“文件”菜单下添加两个菜单项“打开”和“退出”，“图像处理”添加一个菜单项“马赛克”，如（图T9-1）。 图T9-1 主菜单 编写程序代码 单击“打开”菜单的功能：Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click OpenFileDialog1.Filter = Images|*.bmp;*gif;*.jpg; OpenFileDialog1.ShowDialog() If OpenFileDialog1.FileName = Then Exit Sub PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName) PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize End Sub 单击“退出”菜单的单击功能： Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click Close() End Sub 单击“马赛克”菜单的功能： Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click Dim i, j, m, n As Integer Dim r, g, b As Integer Dim bmp As Bitmap bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height) Dim tmpbmp As New Bitmap(PictureBox1.Image) With tmpbmp For i = 10 To .Height - 11 Step 20 For j = 10 To .Width - 11 Step 20 Dim p1 As Color r = 0 g = 0 b = 0 For m = -10 To 10 For n = -10 To 10 p1 = .GetPixel(j + m, i + n) r = r + p1.R