欢迎来到天天文库
浏览记录
ID:37151011
大小:171.00 KB
页数:28页
时间:2019-05-19
《整个VB流程简介》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、整个VB中各窗口的定义Form1首页,进入系统Form2齿轮设计参数的初步选择Form3渐开线斜齿硬齿面的参数化设计Form4斜齿轮的三维造型判断Form5接触疲劳强度极限Form6弯曲疲劳强度极限Form7动载荷系数Form8使用系数Form32重合度系数Form9齿间载荷分配系数Form33重合度系数Form10齿宽系数Form34友情提醒Form11复合齿形系数Form12应力修正系数Form13标准模数mForm14材料弹性影响系数Form15材料性质Form16精度选择Form17安全
2、系数Form18齿间载荷分配系数Form19螺旋角系数Form20铸造副轮式斜齿圆柱齿轮Form21圆柱实体式斜齿轮Form22实心斜齿轮Form23腹板式斜齿圆柱齿轮Form24圆柱实体式直齿轮Form25渐开线直齿硬齿面的参数化设计Form26渐开线斜齿软齿面的参数化设计Form27实心直齿轮Form28渐开线直齿软齿面的参数化设计Form29腹板式直齿圆柱齿轮Form30铸造副轮式直齿圆柱齿轮Form31直齿轮的三维造型判断三维造型主要VB编程即Form4(以斜齿轮为例)DimswAppA
3、sObjectDimPartAsObjectDimboolstatusAsBooleanDimlongstatusAsLongDimfeaturedataAsObjectDimfeatureAsObject'展角度数(弧度)DimuAsDouble'基圆直径DimDbAsDouble'齿顶圆直径DimDaAsDouble'法面模数DimmAsDouble'齿数DimZAsDouble'分度圆直径DimDAsDouble'齿根圆直径DimDfAsDouble'压力角DimαAsDouble'螺旋角
4、Dimα1AsDouble'齿顶高系数DimhaAsDouble'顶隙系数DimcAsDouble'键槽宽及计算所用参数DimbAsDoubleDimbbAsDoubleDimt1AsDoubleDimddAsDoubleDimLAsDoubleDimb1AsDoubleDimhhAsDouble'齿根圆角Dimr0AsDoubleDimpiAsDoublePrivateSubCommand1_Click()pi=3.14159265358979Z=Val(Text3.Text)m=Val(Te
5、xt4.Text)α=Val(Combo1.Text)*pi/180α1=Val(Text2.Text)*pi/180ha=Val(Combo2.Text)c=Val(Combo3.Text)D=Z*m/Cos(α1)Da=(Z/Cos(α1)+2*ha)*mDf=(Z/Cos(α1)-2*ha-2*c)*mDb=Z*m*Cos(α)/Cos(α1)Text8.Text=Str$(D)Text9.Text=Str$(Da)Text10.Text=Str$(Df)Text11.Text=Str$(
6、Db)EndSubPrivateSubCommand2_Click()OnErrorResumeNextdd=Text6.TextIfdd<=12Thenb=4t1=1.8ElseIfdd<=17Thenb=5t1=2.3ElseIfdd<=22Thenb=6t1=2.8ElseIfdd<=30Thenb=8t1=3.3ElseIfdd<=38Thenb=10t1=3.3ElseIfdd<=44Thenb=12t1=3.3ElseIfdd<=50Thenb=14t1=3.8ElseIfdd<=5
7、8Thenb=16t1=4.3ElseIfdd<=65Thenb=18t1=4.4ElseIfdd<=75Thenb=20t1=4.9ElseIfdd<=85Thenb=22t1=5.4ElseIfdd<=95Thenb=25t1=5.4ElseIfdd<=110Thenb=28t1=6.4ElseEndIfText12.Text=Str(b)Text13.Text=Str(t1)EndSubPrivateSubCommand3_Click()pi=3.14159265358979'坐标函数点值
8、:x,yDimx00()AsDoubleDimy00()AsDoubleDimx0()AsDoubleDimy0()AsDouble'坐标函数点值:p,qDimp00()AsDoubleDimq00()AsDoubleDimp0()AsDoubleDimq0()AsDouble'模数选择DimffAsDoubleDimt0AsDoubleDimqAsDoubleDimnAsDoubleDimoAsDoubleDimtAsDouble'反向渐开线起始角度计算DimsAsDoubleDiminvαA
此文档下载收益归作者所有