我的vb课程设计.docx

1、我的vb课程设计 成 绩 评 定 表学生姓名张宇班级学号 1201050117专 业机械电子工程课程设计题目控件绘制机械零件图评语组长签字：成绩日期 20 年 月 日课程设计任务书学 院机械工程学院专 业机械电子工程学生姓名张宇班级学号1201050117课程设计题目控件绘制机械零件图实践教学要求与任务:要求：掌握如何使用“PictureBox”控件,“TextBox”控件，“CommandButton” 控件，“Label”控件绘制机械零件图。同时，熟练掌握Line函数的属性及基本用法，要求尺寸参数通过文本框输入，程序运行界面如图所示。 学习要点：1. “PictureBox”控件的应用2.

2、 “TextBox”控件的应用3. “CommandButton”控件的应用4. “Label”控件的应用工作计划与进度安排:1、题目分析，相应控件的查找 1天2、设计实现功能的算法 1天3、编制程序 1天4、编写课程设计说明书 1天5、答辩 1天指导教师： 201 年 月 日专业负责人：201 年 月 日学院教学副院长：201 年 月 日目录一 题目内容的描述1二 使用变量含义及数据类型1 三 应用程序功能的详细说明1 四 主要模块的算法描述1 五 运行结果4六 结束语4七 程序的源代码清单5一 题目内容的描述要求：掌握如何使用“PictureBox”控件,“TextBox”控件，“Comm

3、andButton” 控件，“Label”控件绘制机械零件图。同时，熟练掌握Line函数的属性及基本用法，要求尺寸参数通过文本框输入。根据题目所给信息以及运行步骤，研究各参数分别在一个三视图里代表哪条线，从而猜测出参数在零件图里的代表意义。然后在这基础上自己用绘图工具画出一个零件图从而根据此零件图自己绘出其三视图。 二 使用变量含义及数据类型a, b, c, d, e，scale ：a、b、c、d、e为设定的参数初始值，a表示此零件图的长，b表示此零件图的高，c表示此零件图的宽，d表示内部切槽的高，e表示内部切槽的长度，scale为此三视图的图形界限 ；他们同都属于Long数据类型三 应用程序

4、功能的详细说明此程序可以绘制一个机械零件图的三视图，同时可以通过变换参数a、b、c、d、e值的大小来控制图形的三视图的变换，从而根据三视图可以直观的想象出变换后的零件图样式，以及可以变换画面的背景颜色和前景颜色。此绘图程序还包含一些绘制椭圆、圆弧、画点等功能。当绘制椭圆时，则利用Circle的命令，此时利用Aspect选项绘制；当绘制圆弧时则利用Start、End选项进行绘制。与此同时，画点的PSet和画直线的Line方法都不可以用在With和End With的语句之间。四 主要模块的算法描述 1. 从Windows【开始】菜单中找到“Microsoft Visual Basic 6.0”应用

5、程序打开，会弹出对话框如下图所示，选择“Standard EXE”项，然后单击“打开”按钮，这样就建立了一个新的工程。 2. 在窗体“Form1”上添加“PictureBox”控件对象 、“TextBox”控件对象、“CommandButton”控件对象、“Label”控件对象，窗体布局如下图，各控件属性如下表：控件名称属性名称属性值Form1Caption机械零件图Text1Text 清空Text2Text清空Text3Text清空Text4Text清空Text5Text清空Label1Caption输入参数Label2CaptionaLabel3Caption bLabel4Caption

6、 cLabel5CaptiondLabel6Caption eCommand1Caption绘图Command2Caption退出Picture1AutoRedrawTure3.根据各函数变量所定义的初始值a、b、c、d、e的含义首先利用矩形对角线法绘制出外框，然后利用点到点法绘制出其他相应直实线，然后利用点划线切换命令DrawStyle=2绘制出相应的主视图点划线。这样，主视图就绘制完毕。其图形如图所示：4.根据主俯长对正原理，主俯距离为2，用同样的方法绘制出俯视图。同时利用Cirle命令绘制圆形，这样，俯视图就绘制完毕。其图形如图所示： 5.再根据主左高平齐、左俯宽相等原理，主左距离为3用

7、同样方法绘制出左视图。图形如图所示：（三视图绘制完毕）6再依照步骤将其他的Command命令以及Text命令在相应的编码区里编译出其相应的代码这样整个过程编译完毕，进行调试。五 运行结果通过运用函数line的属性可以在面板上相应的绘制出机械零件图的三视图。结果如下:六 结束语 本学期的课程已经结束了，通过这段时间的学习，我基本掌握了许多语言程序设计方面的一些知识，同时也锻炼了自己发现问题和解决问题的能力。学会了自主学习，学以致用。还养成了积极探究以及不懂就要问的好习惯，我做的程序是控件绘制机械零件图，开始感觉很难，后来通过询问他人，老师，去图书馆查阅资料以及网上查阅相关知识，顿时感觉恍然大悟，

8、但是在设计的时候也会遇到一些小问题。比如：编写程序时马虎，写错程序语言；还有在写实验报告的时候，论述方式及表达能力跟不上等等。因此，通过这次课程设计，我感受最多的就是遇到不会的一定要及时询问他人，积极思考，敢于尝试，最终找到解决的办法。在这期间，不仅解决了问题，还促进团队的互助协作精神以及沟通能力。课程设计让我们可以学习与实践相结合，提高了我们对书本知识的理解和运用能力。加强了我们的学习动手能力。在今后的学习生活与工作中，还要继续加强自主学习与勇于实践的能力。最后，向教导我的老师和帮助过我的同学表示衷心的感谢！七 程序的源代码清单Dim a, b, c, d, e, sccalev As Lo

9、ngPrivate Sub Command1_Click()Picture1.BackColor = RGB(255, 0, 0) 设置背景颜色为红色Picture1.ForeColor = RGB(255, 255, 0) 设置前景颜色为黄色Picture1.Scale (0, 0)-(40, 30) 设置绘图比例Picture1.Line (2, 2)-(2 + a, 2 + b), , B 主视图Picture1.Line (2, 2 + d)-(2 + a, 2 + d)Picture1.Line (2 + a / 2 - e / 2, 2)-(2 + a / 2 - e / 2, 2

10、 + d)Picture1.Line (2 + a / 2 + e / 2, 2)-(2 + a / 2 + e / 2, 2 + d)Picture1.DrawStyle = 2 点划线Picture1.Line (2 + a / 2 - 1.5, 2 + d)-(2 + a / 2 - 1.5, 2 + b)Picture1.Line (2 + a / 2 + 1.5, 2 + d)-(2 + a / 2 + 1.5, 2 + b)Picture1.Line (2 + a / 2, 2 + d - 0.5)-(2 + a / 2, 2 + b + 0.5)Picture1.DrawStyl

11、e = 0 实线Picture1.Line (2, 2 + b + 2)-(2 + a, 2 + b + 2 + c), , B 俯视图Picture1.Line (2 + a / 2 - e / 2, 2 + b + 2 + c - 6)-(2 + a / 2 + e / 2, 2 + b + 2 + c), , B 矩形Picture1.Line (2, 2 + b + 2 + c - 5)-(2 + a / 2 - e / 2, 2 + b + 2 + c - 5)Picture1.Line (2 + a / 2 + e / 2, 2 + b + 2 + c - 5)-(2 + a, 2

12、 + b + 2 + c - 5)Picture1.Circle (2 + a / 2, 2 + b + 2 + c - 3), 1.5 圆Picture1.DrawStyle = 2Picture1.Line (2 + a / 2, 2 + b + 2 + c - 6.5)-(2 + a / 2, 2 + b + 2 + c + 0.5)Picture1.Line (2 + a / 2 - e / 2 - 0.5, 2 + b + 2 + c - 3)-(2 + a / 2 + e / 2 + 0.5, 2 + b + 2 + c - 3)Picture1.DrawStyle = 0Pict

13、ure1.Line (2 + a + 3, 2)-(2 + a + 3, 2 + b) 左视图Picture1.Line (2 + a + 3, 2 + b)-(2 + a + 3 + c, 2 + b)Picture1.Line (2 + a + 3 + c, 2 + b)-(2 + a + 3 + c, 2 + d)Picture1.Line (2 + a + 3 + c, 2 + d)-(2 + a + 3 + c - 5, 2)Picture1.Line (2 + a + 3 + c - 5, 2)-(2 + a + 3, 2)Picture1.DrawStyle = 2Picture

14、1.Line (2 + a + 3 + c - 1.5, 2 + d)-(2 + a + 3 + c - 1.5, 2 + b)Picture1.Line (2 + a + 3 + c - 4.5, 2 + d)-(2 + a + 3 + c - 4.5, 2 + b)Picture1.Line (2 + a + 3 + c - 3, 2 + d - 0.5)-(2 + a + 3 + c - 3, 2 + b + 0.5)Picture1.Line (2 + a + 3 + c, 2 + d)-(2 + a + 3 + c - 6, 2 + d)Picture1.Line (2 + a +

15、3 + c - 6, 2 + d)-(2 + a + 3 + c - 6, 2)Picture1.DrawStyle = 0End SubPrivate Sub Command2_Click() 退出命令Unload MeEnd SubPrivate Sub Form_Load()Text1.Text = 16 设置绘图参数初始值Text2.Text = 10Text3.Text = 9Text4.Text = 7Text5.Text = 8End SubPrivate Sub Form_Resize() 此处为尺寸改变事件Picture1.BackColor = RGB(255, 0, 0)

16、Picture1.ForeColor = RGB(255, 255, 0)Picture1.Scale (0, 0)-(40, 30)Picture1.Line (2, 2)-(2 + a, 2 + b), , BPicture1.Line (2, 2 + d)-(2 + a, 2 + d)Picture1.Line (2 + a / 2 - e / 2, 2)-(2 + a / 2 - e / 2, 2 + d)Picture1.Line (2 + a / 2 + e / 2, 2)-(2 + a / 2 + e / 2, 2 + d)Picture1.DrawStyle = 2Pictur

17、e1.Line (2 + a / 2 - 1.5, 2 + d)-(2 + a / 2 - 1.5, 2 + b)Picture1.Line (2 + a / 2 + 1.5, 2 + d)-(2 + a / 2 + 1.5, 2 + b)Picture1.Line (2 + a / 2, 2 + d - 0.5)-(2 + a / 2, 2 + b + 0.5)Picture1.DrawStyle = 0Picture1.Line (2, 2 + b + 2)-(2 + a, 2 + b + 2 + c), , BPicture1.Line (2 + a / 2 - e / 2, 2 + b

18、 + 2 + c - 6)-(2 + a / 2 + e / 2, 2 + b + 2 + c), , BPicture1.Line (2, 2 + b + 2 + c - 5)-(2 + a / 2 - e / 2, 2 + b + 2 + c - 5)Picture1.Line (2 + a / 2 + e / 2, 2 + b + 2 + c - 5)-(2 + a, 2 + b + 2 + c - 5)Picture1.Circle (2 + a / 2, 2 + b + 2 + c - 3), 1.5Picture1.DrawStyle = 2Picture1.Line (2 + a

19、 / 2, 2 + b + 2 + c - 6.5)-(2 + a / 2, 2 + b + 2 + c + 0.5)Picture1.Line (2 + a / 2 - e / 2 - 0.5, 2 + b + 2 + c - 3)-(2 + a / 2 + e / 2 + 0.5, 2 + b + 2 + c - 3)Picture1.DrawStyle = 0Picture1.Line (2 + a + 3, 2)-(2 + a + 3, 2 + b)Picture1.Line (2 + a + 3, 2 + b)-(2 + a + 3 + c, 2 + b)Picture1.Line

20、(2 + a + 3 + c, 2 + b)-(2 + a + 3 + c, 2 + d)Picture1.Line (2 + a + 3 + c, 2 + d)-(2 + a + 3 + c - 5, 2)Picture1.Line (2 + a + 3 + c - 5, 2)-(2 + a + 3, 2)Picture1.DrawStyle = 2Picture1.Line (2 + a + 3 + c - 1.5, 2 + d)-(2 + a + 3 + c - 1.5, 2 + b)Picture1.Line (2 + a + 3 + c - 4.5, 2 + d)-(2 + a +

21、3 + c - 4.5, 2 + b)Picture1.Line (2 + a + 3 + c - 3, 2 + d - 0.5)-(2 + a + 3 + c - 3, 2 + b + 0.5)Picture1.Line (2 + a + 3 + c, 2 + d)-(2 + a + 3 + c - 6, 2 + d)Picture1.Line (2 + a + 3 + c - 6, 2 + d)-(2 + a + 3 + c - 6, 2)Picture1.DrawStyle = 0End SubPrivate Sub Text1_Change()a = Text1.Text 输入参数aEnd SubPrivate Sub Text2_Change()b = Text2.Text 输入参数bEnd SubPrivate Sub Text3_Change()c = Text3.Text 输入参数cEnd SubPrivate Sub Text4_Change()d = Text4.Text 输入参数dEnd SubPrivate Sub Text5_Change()e = Text5.Text 输入参数eEnd Sub