我的vb课程设计.docx
《我的vb课程设计.docx》由会员分享，可在线阅读，更多相关《我的vb课程设计.docx（10页珍藏版）》请在冰豆网上搜索。
我的vb课程设计
成绩评定表
学生姓名
张宇
班级学号
1201050117
专业
机械电子工程
课程设计题目
控件绘制机械零件图
评
语
组长签字：
成绩
日期
20年月日
课程设计任务书
学院
机械工程学院
专业
机械电子工程
学生姓名
张宇
班级学号
1201050117
课程设计题目
控件绘制机械零件图
实践教学要求与任务:
要求：
掌握如何使用“PictureBox”控件
“TextBox”控件
，“CommandButton”
控件，“Label”控件
绘制机械零件图。
同时，熟练掌握Line函数的属性及基本用法，要求尺寸参数通过文本框输入，程序运行界面如图所示。
学习要点：
1.“PictureBox”控件
的应用
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”控件
，“CommandButton”控件
，“Label”控件
绘制机械零件图。
同时，熟练掌握Line函数的属性及基本用法，要求尺寸参数通过文本框输入。
根据题目所给信息以及运行步骤，研究各参数分别在一个三视图里代表哪条线，从而猜测出参数在零件图里的代表意义。
然后在这基础上自己用绘图工具画出一个零件图从而根据此零件图自己绘出其三视图。
二使用变量含义及数据类型
a,b,c,d,e，scale：
a、b、c、d、e为设定的参数初始值，a表示此零件图的长，b表示此零件图的高，c表示此零件图的宽，d表示内部切槽的高，e表示内部切槽的长度，scale为此三视图的图形界限；他们同都属于Long数据类型
三应用程序功能的详细说明
此程序可以绘制一个机械零件图的三视图，同时可以通过变换参数a、b、c、d、e值的大小来控制图形的三视图的变换，从而根据三视图可以直观的想象出变换后的零件图样式，以及可以变换画面的背景颜色和前景颜色。
此绘图程序还包含一些绘制椭圆、圆弧、画点等功能。
当绘制椭圆时，则利用Circle的命令，此时利用Aspect选项绘制；当绘制圆弧时则利用Start、End选项进行绘制。
与此同时，画点的PSet和画直线的Line方法都不可以用在With和EndWith的语句之间。
四主要模块的算法描述
1.从Windows【开始】菜单中找到“MicrosoftVisualBasic6.0”应用程序打开，会弹出对话框如下图所示，选择“StandardEXE”项，然后单击“打开”按钮，这样就建立了一个新的工程。
2.在窗体“Form1”上添加“PictureBox”控件对象
、“TextBox”控件对象
、“CommandButton”控件对象
、“Label”控件对象
，窗体布局如下图，各控件属性如下表：
控件名称
属性名称
属性值
Form1
Caption
机械零件图
Text1
Text
清空
Text2
Text
清空
Text3
Text
清空
Text4
Text
清空
Text5
Text
清空
Label1
Caption
输入参数
Label2
Caption
a
Label3
Caption
b
Label4
Caption
c
Label5
Caption
d
Label6
Caption
e
Command1
Caption
绘图
Command2
Caption
退出
Picture1
AutoRedraw
Ture
3.根据各函数变量所定义的初始值a、b、c、d、e的含义首先利用矩形对角线法绘制出外框，然后利用点到点法绘制出其他相应直实线，然后利用点划线切换命令DrawStyle=2绘制出相应的主视图点划线。
这样，主视图就绘制完毕。
其图形如图所示：
4.根据主俯长对正原理，主俯距离为2，用同样的方法绘制出俯视图。
同时利用Cirle命令绘制圆形，这样，俯视图就绘制完毕。
其图形如图所示：
5.再根据主左高平齐、左俯宽相等原理，主左距离为3用同样方法绘制出左视图。
图形如图所示：
（三视图绘制完毕）
6再依照步骤将其他的Command命令以及Text命令在相应的编码区里编译出其相应的代码这样整个过程编译完毕，进行调试。
五运行结果
通过运用函数line的属性可以在面板上相应的绘制出机械零件图的三视图。
结果如下:
六结束语
本学期的ＶＢ课程已经结束了，通过这段时间的学习，我基本掌握了许多语言程序设计方面的一些知识，同时也锻炼了自己发现问题和解决问题的能力。
学会了自主学习，学以致用。
还养成了积极探究以及不懂就要问的好习惯，我做的程序是控件绘制机械零件图，开始感觉很难，后来通过询问他人，老师，去图书馆查阅资料以及网上查阅相关知识，顿时感觉恍然大悟，但是在设计的时候也会遇到一些小问题。
比如：
编写程序时马虎，写错程序语言；还有在写实验报告的时候，论述方式及表达能力跟不上等等。
因此，通过这次课程设计，我感受最多的就是遇到不会的一定要及时询问他人，积极思考，敢于尝试，最终找到解决的办法。
在这期间，不仅解决了问题，还促进团队的互助协作精神以及沟通能力。
课程设计让我们可以学习与实践相结合，提高了我们对书本知识的理解和运用能力。
加强了我们的学习动手能力。
在今后的学习生活与工作中，还要继续加强自主学习与勇于实践的能力。
最后，向教导我的老师和帮助过我的同学表示衷心的感谢！
七程序的源代码清单
Dima,b,c,d,e,sccalevAsLong
PrivateSubCommand1_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+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.DrawStyle=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+b+2+c-5）
Picture1.Circle（2+a/2,2+b+2+c-3）,1.5‘圆
Picture1.DrawStyle=2
Picture1.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=0
Picture1.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=2
Picture1.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+3+c-6,2+d）-（2+a+3+c-6,2）
Picture1.DrawStyle=0
EndSub
PrivateSubCommand2_Click（）‘退出命令
UnloadMe
EndSub
PrivateSubForm_Load（）
Text1.Text=16‘设置绘图参数初始值
Text2.Text=10
Text3.Text=9
Text4.Text=7
Text5.Text=8
EndSub
PrivateSubForm_Resize（）‘此处为尺寸改变事件
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+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.DrawStyle=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+b+2+c-5）
Picture1.Circle（2+a/2,2+b+2+c-3）,1.5
Picture1.DrawStyle=2
Picture1.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=0
Picture1.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=2
Picture1.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+3+c-6,2+d）-（2+a+3+c-6,2）
Picture1.DrawStyle=0
EndSub
PrivateSubText1_Change（）
a=Text1.Text‘输入参数a
EndSub
PrivateSubText2_Change（）
b=Text2.Text‘输入参数b
EndSub
PrivateSubText3_Change（）
c=Text3.Text‘输入参数c
EndSub
PrivateSubText4_Change（）
d=Text4.Text‘输入参数d
EndSub
PrivateSubText5_Change（）
e=Text5.Text‘输入参数e
EndSub
升级会员 