程序设计基础课程设计--简易绘图板

《程序设计基础课程设计--简易绘图板》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、程序设计基础课程设计交通与汽车工程学院课程设计说明书课程名称:程序设计基础课程设计课程代码:8234580题目:简易绘图板年级/专业/班:2009级热能与动力工程3班学生姓名:学号:312009080501712开始时间:20010年4月26日完成时间:20010年5月21日课程设计成绩：学习态度及平时成绩（30）技术水平与实际能力（20）创新（5）说明书（计算书、图纸、分析报告）撰写质量（45）总分（100）指导教师签名：年月日-11-程序设计基础课程设计目录摘要-2-1引言-3-1.1选题背景-3-1.2任务与分析-3-2方案设计-4-3界面设计-4

2、-4代码设计及程序调试-5-5软件使用说明-8-总结与体会-9-致谢-10-参考文献-11--11-程序设计基础课程设计摘要随着软件技术的不断更新发展,计算机绘图方便高效，在生活生产中扮演着极为重要的角色，Windows环境下的VisualBasic提供了丰富的图形功能。本文主要通过对选题背景、方案设计、界面设计、代码编写及调试以及软件使用说明等的介绍，介绍了作者利用VisualBasic对“简易绘图板”应用软件的开发设计过程，并分析了所开发软件系统的优点和不足。关键词：VisualBasic简易绘图板程序设计-11-程序设计基础课程设计1引言1.1选题

3、背景通过一年来对VisualBasic高级语言程序设计的学习，我已经掌握了一些常用的控件的使用方法，对简单的程序设计的常用算法也有了一定的了解，还掌握了对图形的一些基本操作。为了进一步加深理解、验证、巩固课堂教学内容，加深对可视化编程思想的理解，强化VisualBasic对程序流程控制、常用控件的属性、事件、方法的理解和使用；为了进一步提高编程能力、程序的调试能力，理论联系实际的能力；巩固所学的这些程序设计的方法，为了达到后续课程对实际编程计算能力的要求，特作“简易绘图板”这个小题目作为课程设计实践教学环节的题目，有助于培养综合运用所学知识解决实际问题的

4、能力，可以充分发挥想象力和创新能力；也能让我看到自己在这方面的不足以便找到努力方向。1.2任务与分析本段应详细阐述所选设计题目任务的具体内容及具体要求，分析设计软件的预期功能和涉及的VB知识点。简易绘图板这小程序要求能完成简单的图形绘制，如直线、圆、矩形、椭圆；能实现基本的线型线宽的改变；能实现绘图界面的清空；能通过菜单栏实现文件的保存、打开以及在帮助菜单中找到使用说明和其它问题解决办法。该程序中涉及：各种基本绘图语句的运用条件语句的使用控件数组的创建和使用active控件的创建和使用-11-程序设计基础课程设计2方案设计设计一个类似于windows附件

5、中绘图板的程序画直线状态下点鼠标左键位置为直线的起点，松开鼠标所在位置点为终点。画圆状态下圆心，松开鼠标所在位置点为圆上一点。画矩形状态下点鼠标左键位置和松开鼠标所在位置点为所画矩形的两个对角点。加载窗体默认绘图为黑色细实线画直线，通过点击界面上的相应控件改变线型、颜色、粗细。点击“涂鸦”按钮实现自由绘画点击“清空”按钮清楚图纸上的内容在菜单栏中添加保存、打开和帮助项3界面设计界面设计结果如下图界面设计步骤1、Ctrl+E打开菜单栏编辑器添加菜单项目-11-程序设计基础课程设计2、添加可见控件控件名要更改的属性名更改后的属性值Picture3(0)bac

6、kcolor选黑色Picture3(1)backcolor选红色Picture3(2)backcolor选黄色Picture3(3)backcolor选蓝色Frame1Caption颜色Frame2Caption线型Frame3Caption线宽Command1Caption清空Command2Caption涂鸦CommonDialog1Filename我的图画CommonDialog1Filter.bmp3、添加图片框控件里的line及shape先在相应位置画好图形再按下表更改属性控件名要更改的属性名更改后的属性值Line2borderstyle2-D

7、ashLine3borderstyle3-DotLine6borderwidth2Line7borderwidth3Shape1shape3-CircleShape2shape0-RectangleShape3shape2-Oval-11-程序设计基础课程设计4代码设计及程序调试1、声明必须的全局变量DimreXAsInteger,reYAsInteger,kAsInteger,xxAsInteger,xkAsInteger,ysAsInteger,tuyaAsInteger‘声明必要的全局变量2、清空绘图板上的图像PrivateSubCommand1_

8、Click()‘清空绘图板Picture1.ClsEndSub3、涂鸦状态选择P