轴承的参数化绘图.pdfVIP

下载本文档

12
0
约2.56千字
约 3页
2018-04-22 发布于河南
举报
版权申诉

轴承的参数化绘图.pdf

1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

轴承的参数化绘图

编制程序完成轴承的参数化绘图程序的设计（如右图所示的单列向心球轴承）要求：程序运行时仅需输入轴承的型号，程序提取该型号轴承的相关参数，并在窗体（Form）上显示该型号轴承的各参数，然后在图片框（Picture）中完成该轴承的绘制。（此类轴承有多个系列，要求只对其中某一系列编程）程序源代码： Option Base 1 Dim p(1 To 11, 1 To 3) As Single Dim A, b, D As Single Private Sub Combo1_Click() i = Combo1.ListIndex + 1 D = p(i, 1): b = p(i, 2): A = p(i, 3) Text1(0).Text = D Text1(1).Text = b Text1(2).Text = A 单击组合框后，在文本框中相应显示轴承参数 Command1.Enabled = True End Sub Private Sub Command1_Click() 绘图 Picture1.Cls Picture1.AutoRedraw = True Picture1.Height = Picture1.Width * 5 / 6 Picture1.Scale (-60, 50)-(60, -50) 设置PICURE1 的刻度，并将其定义为5:6，从而保证长/宽每刻度相等 Picture1.BackColor = RGB(255, 255, 255) Picture1.ForeColor = RGB(0, 0, 0) Picture1.DrawStyle = 0 Picture1.DrawWidth = 3 Picture1.FillStyle = 4 Picture1.FillColor = RGB(0, 0, 0) Picture1.Line (-b / 2, D / 2 - A)-(b / 2, D / 2 - A / 2), , B 画线 Picture1.FillStyle = 5 Picture1.Line (-b / 2, D / 2 - A / 2)-(b / 2, D / 2), , B Picture1.FillStyle = 0 Picture1.FillColor = RGB(255, 255, 255) Picture1.Line (-b / 2, D / 2 - A / 2 - A / 4 / 2)-(b / 2, D / 2 - A / 2 + A / 4 / 2), , B Picture1.Circle (0, D / 2 - A / 2), A / 4 画圆 Picture1.Line (-b / 2, -D / 2 + A)-(b / 2, D / 2 - A), , B Picture1.Line (-b / 2, -D / 2)-(b / 2, -D / 2 + A), , B Picture1.DrawWidth = 1 细实线 Picture1.Line (-b / 2, -D / 2)-(b / 2, -D / 2 + A) Picture1.Line (-b / 2, -D / 2 + A)-(b / 2, -D / 2) Picture1.DrawWidth = 1 Picture1.DrawStyle = 3 细虚线 Picture1.Line (-b / 2 - 5, 0)-(b / 2 + 5, 0) Picture1.Line (0, -D / 2 - 5)-(0, D / 2 + 5) End Sub Private Sub Command2_Click() 退出程序 If MsgBox(确定要退出吗？, 1 + 32 + 0, 确认退出) = 1 Then End End If End Sub Private Sub Form_Load() 按D 、b 、A 的顺序存放 p(1, 1) = 32: p(1, 2) = 9: p(1, 3) = 8.5 p(2, 1) = 35: p(2, 2) = 10: p(2, 3) = 9 p(3, 1) = 42: p(3, 2) = 12: p(3, 3)