(论文)vb课程设计 简易绘图板说明书最新优秀毕业论文资料搜集呕血奉献

程序设计基础课程设计工程学院课程设计说明书课 程 名 称: 程序设计基础课程设计 题 目: 简易绘图板 年级/专业/班: 学 生 姓 名: 学 号: 开 始 时 间: 年 月 日完 成 时 间: 年 月 日课程设计成绩：学习态度及平时成绩（30）技术水平与实际能力（20）创新（5）说明书（计算书、图纸、分析报告）撰写质量（45）总 分（100）指导教师签名： 年 月 日目 录摘要- 2 -1 引言- 3 -1.1 选题背景- 3 -1.2 任务与分析- 3 -2 方案设计- 4 -3 界面设计- 4 -4 代码设计及程序调试- 5 -5 软件使用说明- 8 -总结与体会- 9 -致谢- 10 -参考文献- 11 -摘 要 随着软件技术的不断更新发展,计算机绘图方便高效，在生活生产中扮演着极为重要的角色， Windows环境下的Visual Basic提供了丰富的图形功能。本文主要通过对选题背景、方案设计、界面设计、代码编写及调试以及软件使用说明等的介绍，介绍了作者利用Visual Basic对“简易绘图板”应用软件的开发设计过程，并分析了所开发软件系统的优点和不足。关键词：Visual Basic 简易绘图板 程序设计 1 引 言 1.1 选题背景 通过一年来对Visual Basic 高级语言程序设计的学习，我已经掌握了一些常用的控件的使用方法，对简单的程序设计的常用算法也有了一定的了解，还掌握了对图形的一些基本操作。为了进一步加深理解、验证、巩固课堂教学内容，加深对可视化编程思想的理解，强化Visual Basic对程序流程控制、常用控件的属性、事件、方法的理解和使用；为了进一步提高编程能力、程序的调试能力，理论联系实际的能力；巩固所学的这些程序设计的方法，为了达到后续课程对实际编程计算能力的要求，特作“简易绘图板”这个小题目作为课程设计实践教学环节的题目，有助于培养综合运用所学知识解决实际问题的能力，可以充分发挥想象力和创新能力；也能让我看到自己在这方面的不足以便找到努力方向。1.2 任务与分析 本段应详细阐述所选设计题目任务的具体内容及具体要求，分析设计软件的预期功能和涉及的VB知识点。简易绘图板这小程序要求能完成简单的图形绘制，如直线、圆、矩形、椭圆；能实现基本的线型线宽的改变；能实现绘图界面的清空；能通过菜单栏实现文件的保存、打开以及在帮助菜单中找到使用说明和其它问题解决办法。该程序中涉及：各种基本绘图语句的运用条件语句的使用控件数组的创建和使用active控件的创建和使用2 方案设计 设计一个类似于windows附件中绘图板的程序画直线状态下点鼠标左键位置为直线的起点，松开鼠标所在位置点为终点。画圆状态下圆心，松开鼠标所在位置点为圆上一点。画矩形状态下点鼠标左键位置和松开鼠标所在位置点为所画矩形的两个对角点。加载窗体默认绘图为黑色细实线画直线，通过点击界面上的相应控件改变线型、颜色、粗细。点击“涂鸦”按钮实现自由绘画点击“清空”按钮清楚图纸上的内容在菜单栏中添加保存、打开和帮助项 3 界面设计界面设计结果如下图界面设计步骤1、Ctrl+E打开菜单栏编辑器添加菜单项目2、添加可见控件控件名要更改的属性名更改后的属性值Picture3(0)backcolor选黑色Picture3(1)backcolor选红色Picture3(2)backcolor选黄色Picture3(3)backcolor选蓝色Frame1Caption颜色Frame2Caption线型Frame3Caption线宽Command1Caption清空Command2Caption涂鸦CommonDialog1Filename我的图画CommonDialog1Filter.bmp 3、添加图片框控件里的line及shape先在相应位置画好图形再按下表更改属性控件名要更改的属性名更改后的属性值Line2borderstyle2-DashLine3borderstyle3-DotLine6borderwidth2Line7borderwidth3Shape1shape3-CircleShape2shape0-RectangleShape3shape2-Oval4 代码设计及程序调试1、声明必须的全局变量Dim reX As Integer, reY As Integer, k As Integer, xx As Integer, xk As Integer, ys As Integer, tuya As Integer 声明必要的全局变量2、清空绘图板上的图像Private Sub Command1_Click() 清空绘图板 Picture1.ClsEnd Sub3、涂鸦状态选择Private Sub Command2_Click() 涂鸦状态选择 If tuya = 0 Then 如果不是涂鸦状态则进入涂鸦状态，是则退出 tuya = 1 Else tuya = 0 End IfEnd Sub4、拾取起点坐标Sub picture1_mousedown(button As Integer, shift As Integer, X As Single, y As Single) reX = X 拾取坐标 reY = y End Sub5、实现自由绘制Sub picture1_mousemove(button As Integer, shift As Integer, X As Single, y As Single) If xk = 0 Then 默认线宽为1 xk = 1 End If If tuya = 1 And button = 1 Then Picture1.DrawWidth = xk 使用线宽 Picture1.DrawStyle = xx 使用线型 Picture1.Line (reX, reY)-(X, y), QBColor(ys) 画线 reX = X 又将当前点坐标赋给reX、reY reY = y End IfEnd Sub6、绘制图像Sub picture1_mouseup(button As Integer, shift As Integer, X As Single, y As Single) If xk = 0 Then xk = 1 End If有、 Picture1.DrawWidth = xk Picture1.DrawStyle = xx If k = 0 And button = 1 Then 画直线 Picture1.Line (reX, reY)-(X, y), QBColor(ys) End If If k = 1 And button = 1 Then 画圆 rrr = Sqr(reX - X) 2 + (reY - y) 2) Picture1.Circle (reX, reY), rrr, QBColor(ys) End If If k = 2 And button = 1 Then 画矩形 Picture1.Line (reX, reY)-(X, y), QBColor(ys), B End If If k = 3 And button = 1 Then 画椭圆 rrr = Sqr(reX - X) 2 + (reY - y) 2) Picture1.Circle (reX, reY), rrr, QBColor(ys), , , 1 / 3 End If End Sub7、选择线型Private Sub Picture2_Click(Index As Integer) 选择线型 xx = IndexEnd Sub8、选择颜色Private Sub Picture3_Click(Index As Integer) 选择颜色 If Index = 0 Then ys = 0 ElseIf Index = 1 Then ys = 12 ElseIf Index = 2 Then ys = 14 ElseIf Index = 3 Then ys = 9 End IfEnd Sub5 软件使用说明1、线型只有在细实线的状态下才能更改2、点“涂鸦”进入自由绘图状态，再次点击退出3、点击换颜色、线型、线宽请确认点中4、默认为画黑色直线5、退出前请点击文件保存6、清空会清楚全部已绘制的图形 总结与体会 从最开始得无从下手到现在这个程序完成真是让我很感慨。在设计过程中，我通过查阅大量有关资料，与同学交流经验和自学，并向老师请教等方式，使自己学到了不少知识，也经历了不少艰辛，但收获同样巨大。在整个设计中我懂得了许多东西，大大提高了自己的动手能力，使我充分体会到了在创造过程中探索的艰难和成功时的喜悦。虽然这个设计做的也不太好，但是在设计过程中所学到的东西是这次课程设计的最大收获和财富，使我终身受益。主要的收获有以下绩点：1、科学处理问题的过程。提出问题分析问题收集资料逐步解决问题2、了解了一些计算机的思维方式3、对VB的很多语句更熟悉，也有了更深刻的理解在这次课程设计中我也发现了我的不足：（1）对所学过的相关知识不是很熟练，不会灵活应用；（2）缺乏实践经验，不会理论联系实际（3）思维不是很灵活（4）知识面不够广在以后的学习和工作当中就要更加的认真仔细，尽量不让不该发生的错误发生，也更应该增加实践经验和灵活的思维方法，当然，努力学习还是首要的任务，因为只有有了很牢固的知识后才能让我们做什么事都游刃有余，胸有成竹。虽然，在设计的过程中遇到了很多的问题，但最后每个问题都得到解决的时候，我心里充满了无限的快乐，事实说明“人通过激发潜能获得快乐”是完全正确的。最后我想说：“我编程，我快乐。”致 谢 感谢张诗波老师的细心指导感谢百度知道网友的热心帮助感