沈阳理工大学机械工程学院学院。
vb程序设计训练任务书。
学生姓名班级学号
设计题目绘制机械图
一． 具体内容 :
用visual basic 6.0的集成开发环境（ide）编辑、调试、运行并生成可执行程。
序，在窗体或**框中绘制图形首先要确定坐标，坐标轴的增加方向是从左向右或从上向下。
文本的文字可以通过属性窗口设置font属性，也可以使用**设置，用scalemode属性设置坐标系的标准刻度，用内部常数来设置颜色，用currentx 、 currenty 属性来设置当前的水平和垂直坐标，用print方法显示文本。绘制图形可以使用line和shape控件绘制直线和六种不同的形状。
二． 应用程序功能要求详细说明。
三． 一）应用程序要求。
1. 完成绘制右面机械图（包括主视图、左视图、俯视图，参数自拟）。
2. 机械图为参数化设计，主视图完全根据键盘输入的尺寸参数绘制，左视图和俯。
视图根据主视图坐标变换获得，主视图未表达的信息再次输入尺寸参数在相应的左视。
图和俯视图中予以完善。并将键盘输入信息存入文件，以便再次绘制此图。画出边框。
和标题栏。主视图尺寸参数用文本框输入，单击“画图”按钮，弹出绘制的界面）
二）应用程序功能。
当text1—text7中输入相应数值时，点击“绘图”按钮时将程序运行所画的图形和标题栏显示在右面picture框中，点击“清除”时可把输入框中的数值清空，点击“结束”按钮时可关闭绘出的图形，从而结束程序运行。
四． 输入数据类型、格式和内容限制。
其中对x、y、z、a、b、c、d输入的类型都为integer型； msg1 、 msg2 、 msg3为string型，内容限制必须为数值型。其中的一些长度限定为if x <=0 or y <=0 or z <=0 or a <=0 or b <=0 or c <=0 or d <=0 or x <=a or x <=c or z <=b + d) then respone = msgbox("对不起，您输入的参数不正确！请重新输入！
",vbokonly + vbexclamation, "出错")
四．系统主要界面描述–简要的语言描述。
1）首先确定该机械三视图的坐标系为左手系未改变。其次利用line控件绘制相。
应的边线框。接着通过设置每个主视图的左边线与最高水平线与相应边线框的绝对距。
离。然后通过对窗体中添加label、text控件，用于可参数化设计通过对text中的数。
据输入确定相应的相对位置尺寸和外形尺寸。通过机械三视图中的长对正、高平齐、
宽相等的要求，对每个相应的坐标点进行确定相应的主视图、俯视图、左视图直接，并将每个图形之间输入相应的间隔距离。之后在窗体中添加command控件，更改其。
caption值。并将相应的视图的**输入到对应相应caption值的command控件中。
2）在窗体上放置7个label控件，7个text控件，3个command按钮控件，将控件里的text属性值清空，用于输入相应的定型与定位尺寸；7个label控件，分别放在相应的text控件前用于表示相应的尺寸。利用程序**中已可用于显示的相应的标出的尺寸代号，可观察出x、y、z、a、b、c、d相应的形位尺寸所对应的直线。
通过text中所对应的x、y、z、a、b、c、d赋值可改变相应的每个点的坐。
标，因为所对应的边与线的距离为固定的大小，所以图形一定在所对应的窗体内。而。
且还得根据坐标的限制定位标题栏的位置，确定标题栏，显示自己的名字和学号。通。
过这个程序：respone = msgbox("对不起，您输入的参数不正确！请重新输入！",
vbokonly + vbexclamation, "出错")来提示输入参数错误时的信息。用unload me卸载窗体，用清除输入框内的内容，具体如图所示：
当text1—text7中输入数值时，点击“绘图”按钮时将程序运行所画的图形和标题栏显示在右面picture框中得到以上图形，点。
击“清除”时可清除**框，点击“结束”按钮时结束程序运行，并且根据程序里输。
入的内部常数（vbblue）将边框显示为蓝色。
3）特殊线段：
在左视图和俯视图中既有实线也有虚线，需要用来限制为。
是实线，用来限制某些线段为虚线。用。
来设定线宽。
五．结束语。
vb是一种面向对象的程序语言，它简单易懂，操作简单，应用软件的开发比较简单实用。
在编写的过程中也是对各种算法和数据结构的熟练；由于是初学者，对很多知识。
了解不深刻，在编辑这个程序的时候去图书馆查阅了很多资料，和同学一起讨论、研。
究，在反复的琢磨下终于有了进步，通过这次作业，我学会了很多东西，掌握了visual
basic 6.0 这个开发环境的应用，在不同的情况下，上网查阅，学习别人的经验，由此。
掌握了很多编辑、调试、运行的技巧。
如果以后要编辑更深层次的程序，我们还得更加努力的学习和请教老师，还得。
多加练习，希望我以后能更好的掌握这门课程。
六．源程序清单。
private sub command1_click()
dim a as integer, b as integer, c as integer, d as integer, x as integer,y as integer, z as integer
x = val(
y = val(
z = val(
a = val(
b = val(
d = val(
if x <=0 or y <=0 or z <=0 or a <=0 or b <=0 or c <=0 or d <=0 or x <=
a or x <=c or z <=b + d) then
respone = msgbox("对不起，您输入的参数不正确！请重新输入！",vbokonly +
vbexclamation, "出错")
elsescalemode = 6
currentx = 20: currenty = 20 '主视图。
(-20, 20)-step(-x, 0)
(-20 - x, 20)-step(0, z)
(-20 - x, 20 + z)-step((x - c) /2, 0)
(-20 - x + c) /2, 20 + z)-step(0, -d)
(-20 - x + c) /2, 20 + z - d)-step(-(a - c) /2, 0)
(-20 - x + a) /2, 20 + z - d)-step(0, -b)
(-20 - x + a) /2, 20 + z - d - b)-step(a, 0)
(-20, 20)-step(0, z)
(-20, 20 + z)-step(-(x - c) /2, 0)
(-20 - x - c) /2, 20 + z)-step(0, -d)
(-20 - x - c) /2, 20 + z - d)-step((a - c) /2, 0)
(-20 - x - a) /2, 20 + z - d)-step(0, -b)
'左视图。(20, 20)-step(y, z), b
(20, 20 + z - d - b)-step(y, 0)
(20, 20 + z - d)-step(y, 0)
俯视图。(-20 - x + a) /2, -20)-step(0, -y)
(-20 - x - a) /2, -20)-step(0, -y)
(-20, -20)-step(-x, -y), b
(-20 - x + c) /2, -20)-step(0, -y)
(-20 - x - c) /2, -20)-step(0, -y)
(-1060, -1060)-step(2120, 2120), vbblue, b
(1060, -1060)-step(-800, 200), vbblue, b '输入"标题栏"
dim msg1 as string, msg2 as string, msg3 as string
= ture
= "宋体"
msg1 = 标题栏"
msg2 = 学号。
msg3 = 姓名***
msg1tab(25); msg2
tab(25); msg3
end if
end sub
vb课程设计绘制曲线
具体内容。一 设计要求 二次方程ax 2 bx c 0，a不等于0 其中a，b，c从键盘随机输入，单击窗体完成该二次曲线的绘制。单击 退出 可以退出该程序窗体界面，包括三个text文本框用于输入a b c，绘制曲线 按钮，退出 按钮。二 技术要求。1.按照给定题目独立设计程序，上机调试通过。2.写出...
VB课程设计
在本系统的设计中，主要实现如下一些功能 学习 测试 成绩统计与分析。其中，学习 部分要求教100以内的加 减 乘和除 测试 模块要求随机给出参与运算的数及运算类型，并判断用户的答案，测试完给出得分 成绩统计与分析 模块能够统计成绩各种运算的平均成绩，并画出成绩分布的曲线图或柱状图。欢迎界面 登录界面...
VB课程设计
基于vb的温湿度测试分析系统 1 概述。高精度的温湿度测试计与电脑等上位机相连，发挥电脑的数字处理运算的优势，对校验数据进行采集 智能修正 运算等，最后得出校验误差等结果并打印出校验单，省去人工计算 填表等麻烦。本温湿度测试分析系统设计，要求高精度的温湿度测试计通过rs 232串口与上位机电脑相连，...