vb实验报告(实验9)

《vb实验报告(实验9)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、电子信息工程学系实验报告成绩：课程名称：面向对象程序设计指导教师（签名）：实验项目名称：实验9图形图像实验时间2011-12-12班级：姓名：学号：实验目的:1）、理解坐标系。2）、熟练掌握绘制图形的方法。3）、熟练掌握文本输出的方法。4）、熟练掌握图像处理的方法。实验环境:WindowsXPVisualStudio.NET2003实验内容及过程:将图像处理成马赛克效果算法：马赛克效果是将图像处理成由一块块同一颜色块组成的图像。方法是先计算一块矩形区域的像素平均值，然后将该区域的各像素都改为这一平均值。1、新建一个“VisualBasic

2、项目”2、界面设计在窗体中添加一个MainMenu、一个OpenFileDialog1和两个PictureBox，他们主菜单添加两个子菜单，分别是“文件”和“图像处理”。“文件”菜单下添加两个菜单项“打开”和“退出”，“图像处理”添加一个菜单项“马赛克”，如（图T9-1）。图T9-1主菜单3、编写程序代码单击“打开”菜单的功能：PrivateSubMenuItem3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem3.ClickOpenFil

3、eDialog1.Filter="Images

4、*.bmp;*gif;*.jpg;"OpenFileDialog1.ShowDialog()IfOpenFileDialog1.FileName=""ThenExitSubPictureBox1.SizeMode=PictureBoxSizeMode.AutoSizePictureBox1.Image=Image.FromFile(OpenFileDialog1.FileName)PictureBox1.SizeMode=PictureBoxSizeMode.AutoSizeEndSub单击

5、“退出”菜单的单击功能：PrivateSubMenuItem4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem4.ClickClose()第3页共3页EndSub单击“马赛克”菜单的功能：PrivateSubMenuItem5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem5.ClickDimi,j,m,nAsIntegerDimr,g,bA

6、sIntegerDimbmpAsBitmapbmp=NewBitmap(PictureBox1.Width,PictureBox1.Height)DimtmpbmpAsNewBitmap(PictureBox1.Image)WithtmpbmpFori=10To.Height-11Step20Forj=10To.Width-11Step20Dimp1AsColorr=0g=0b=0Form=-10To10Forn=-10To10p1=.GetPixel(j+m,i+n)r=r+p1.Rg=g+p1.Gb=b+p1.BNextnNextmF

7、orm=-10To10Forn=-10To10bmp.SetPixel(j+m,i+n,Color.FromArgb(r/500,g/500,b/500))NextnNextmNextjNextiEndWithPictureBox2.Image=bmpEndSub4、保存项目和运行项目。单击“文件”菜单，选择“保存”，并命名项目。在单击“调试”菜单，选择“启动”命令。启动程序后，单击“文件/打开”菜单项，选择一个图像文件，确定该图像显示在窗体左侧的图片框中，再单击“图像/马赛克”菜单项，程序运行结果如（图T9-2）图T9-2马赛克效果第3

8、页共3页实验心得：通过这次实验，让我对坐标系的理解更加深刻，也熟悉掌握了绘制图形的方法，对打开对话框也更加熟悉，并且学会了处理图像的一些方法。第3页共3页