VB课程设计(绘制机械图)

沈阳理工大学课程设计专用 纸 沈阳理工大学 机械工程学院 学院 Vb 程序设计训练任务书 学生姓名 班级 学号 设计题目 绘制机械图 具体内容 :在窗体或图片框中绘制图形首先要确定坐标，坐标轴的增加方向是从左向右或从上向下。 ScaleLeft 和 ScaleTop 属性用于设置对象左上角的坐标，可以方便地修改原点的位置； ScaleHeight 和 ScaleWidth 属性是根据绘图区域的当前宽度和高度来定义刻度。 文本的文字可以通过属性窗口设置 Font 属性，也可以使用代码设置。 绘制图形可以使用 Line 和 Shape 控件绘制直线和六种不同的形状，也可以使用Pset 、 Line 和 Circle 方法绘制点、线和圆 。 一 设计要求 1. 完成绘制右面机械图（包括主视图、左视图、俯视图，参数自拟）。 2. 机械图为参数化设计，主视图完全根据键盘输入的尺寸参数绘制，左视图和俯视图根据主视图坐标变换获得，主视图未表达的信息再次输入尺寸参数在相应的左视图和俯视图中予 以完善。并将键盘输入信息存入文件，以便再次绘制此图。 3. 画出边框和标题栏。 二技术要求 1. 按照给定题目独立设计程序，上机调试通过。 2. 写出 设计报告 1）首先确定该机械三视图的坐标系为左手系 未 改变。其次利用 Line 控件绘制相应的边线框。接着通过设置每个主视图的左边线与最高水平线与相应边线框的绝对距离。然后通过对窗体中添加 Label、 text 控件，用于可参数化设计通过对 text 中的数据输入确定相应的相对位置尺寸和 外形 尺寸。通过机械三视图中的 长对正 、 高平齐 、宽相等 的要求，对每个相应的坐标点进行确定 相应的主 视图、俯视图、左视图直线连接，并将每个图形之间输入相应的间隔距离。之后在窗体中添加 command 控件，更改其 caption 值。并将相应的视图的代码输入到对应相应 caption 值的 command 控件中。 2）利用程序代码中已可用于显示的相应的标出的尺寸代号，可观察出相应的 形 位尺寸 a、 b、 c、 d、 e、 f所对应的直线。通过 text 中所对应的 a、 b、 c、 d、 e、 f赋值可改变相应的每个点的坐标，而因为所对应的与边线的距离为固定的大小，所以图形一定在所对应的窗体内。 首先定义上边界与主视图最高上边界的距离为 10mm。其次 主视图的最左边界与窗体左边界距离为 10mm。 并保持主视图，左视图，俯视图之间的最短绝对距离为 20mm。如图 沈阳理工大学课程设计专用 纸 那么由图示可得出的坐标点如下： 主视图： (10, 10 + a - b)； (10 + c, 10 + a - b)； (10 + c, 10 + a - b)； (10 + c, 10)； (10 + c, 10)； (10 + e, 10)； (10 + e, 10； (10 + e, 10 + a)； (10 + e, 10 + a)； (10, 10 + a)； (10, 10 + a)； (10, 10 + a - b) 俯视图： (5, a + 30 + d / 2)； (15 + e, a + 30 + d / 2)； (10 + c / 2, a + 25)；(10 + c / 2, a + 35 + d)； (10, a + 30)； (10 + e, a + 30)； (10 + e, a + 30)；(10 + e, a + 30 + d)； (10 + e, a + 30 + d)； (10, a + 30 + d)； (10, a + 30 + d)； (10, a + 30)； (10 + c, a + 30)； (10 + c, a + 30 + d) 左视图： (30 + e, a + 10)； (30 + e + d, a + 10)； (30 + e, 10)； (30 + e + d, 10)； (30 + e, a + 10)； (30 + e, 10)； (30 + e + d, a + 10)； (30 + e + d, 10)； (30 + e, a + 10 - b)； (30 + e + d, a + 10 - b)； (30 + e + d / 2 - f / 2, a + 10)；(30 + e + d / 2 - f / 2, a + 10 - b)； (30 + e + d / 2 + f / 2, a + 10)； (30 + e + d / 2 + f / 2, a + 10 - b)； (30 + e + d / 2, a + 15)； (30 + e + d / 2, 5) 特殊线段： 并在主视图中 Line (10 + (c - f) / 2, 10 + a - b)-(10 + (c - f) / 2, 10 + a) Line (10 + (c + f) / 2, 10 + a - b)-(10 + (c + f) / 2, 10 + a)的直线连接中用虚线连接则其上为 DrawStyle = 1 定义其为虚线。 Line (10 + c / 2, 5 + a - b)-(10 + c / 2, 15 + a)由于为点划线，则在其上 DrawStyle = 3 定义为点划线。 同理 俯视图 中 Line (30 + e + d / 2 - f / 2, a + 10)-(30 + e + d / 2 - f / 2, a + 10 - b)、 Line (30 + e + d / 2 + f / 2, a + 10)-(30 + e + d / 2 + f / 2, 沈阳理工大学课程设计专用 纸 a + 10 - b)定义为虚线。 Line (30 + e + d / 2, a + 15)-(30 + e + d / 2, 5)定义为点划线。 在 左 视图中定义其圆心坐标为 (10 + c / 2, 30 + a + d / 2)。对其用 circle 方法进行画圆。（以上作直线均用 line 的方法） 标注用点：在主视图中找到（ 10 + c / 2， 10 + a - b）（ 10 + e， 10 + a / 2）（ 10 + e / 2， a + 10）（ 10， 10 + a / 2）利用 current print 方法标注 c、 a、 e、d标注其定形、定位尺寸。 同理在 俯视图 中 找到（ 10 + c / 2， 30 + a + d / 2）点同样标注为 f. 在左视图中找到 3） 其中对 a、 b、 c、 d、 e、 f输入的类型都为单 精度浮点型； 格式 为 18 位的数字格式 ；内容限制必须为数值型。 4） 在窗体上放置 5个 command 控件分别显示“主视图”、“俯视图”、“左视图”、“清屏” “图形外框” ； 6个 text 控件，将控件里的 text 属性值清空，用于输入相应的定型与定位尺寸； 6个 label 控件，分别放在相应的 text 控件前用于表示相应的尺寸。 沈阳理工大学课程设计专用 纸 控件 属性 属性值scalemode 6drawwidth 1command1 caption 主视图command2 caption 俯视图command3 caption 左视图command4 caption 图形外框command5 caption 清屏text 空font 小二text 空font 小二text 空font 小二text 空font 小二text 空font 小二text 空font 小二label1 caption a：label2 caption b:label3 caption c:label4 caption d:label5 caption e:label6 caption f:text4text5text6form1text1text2text3提 交报告的内容 如下： 1） 题目内容的描述 2） 应用程序功能的详细说明 3） 输入数据类型、格式和内容限制； 4）系统 主要 界面 描述 简要的语 言描述 5） 结束语 6） 程序的源代码清单 7） 报告的字数 ,不算源代码清单不少于 4页 按规定的模板封面输出 ,不准自定义封面格式 提交报告的格式 如下： 1） 正文宋体小四号字 2） 每个自然段开始空两格 . 3） 文中英文用新罗马 (time new roman),四号 沈阳理工大学课程设计专用 纸 4） 源程序清单用英文新罗马五号 5） 提交报告封