qizhongjigangduqiangdujisuan.txt

来自「计算起重机主梁刚度强度的简单易用的小程序。深受机械工程师的喜爱！」· 文本 代码 · 共 52 行

On Error Resume Next
qzl = Val(Text1.Text)    '转换文本框属性
kd = Val(Text2.Text)
hlzz = Val(Text3.Text)
q = Val(Text4.Text)
zgxj = Val(Text5.Text)
bxn = Val(Text6.Text)
sxn = Val(Text7.Text)
ztyl = Val(Text8.Text)
yc = Val(Text9.Text)
Pg = Val(Text11.Text)
spgxj = Val(Text13.Text)

    '计算下挠值
    
    sxn = (qzl * 10000 + hlzz * 10000) * (kd * 1000) ^ 3 / (48 * 210000# * zgxj * 10000)
    jsspjgd = Pg * (kd * 1000) ^ 3 / (48 * 210000# * spgxj * 10000)
    bxn = kd * 1000 / 800
    spjgd = kd / 2
    Text6.Text = "≤" & bxn
    Text7.Text = sxn
    Text14.Text = "≤" & spjgd
    Text10.Text = "0" & jsspjgd
    
    If sxn <= bxn Then
    Picture1.Visible = True
    Picture2.Visible = False
    Else
    Picture1.Visible = False
    Picture2.Visible = True
    End If
    If sxn <= bxn And jsspjgd <= spjgd Then Label12.Caption = "主梁刚度符合要求，可以采用！" Else Label12.Caption = "该截面刚度不符合要求，建议不采用！"
    
    '计算强度值
    
 ztyl = yc * ((1.25 * qzl * 10000 + 1.1 * hlzz * 10000) * kd * 1000 / 4 + 1.1 * q * (kd * 1000) ^ 2 / 8) / zgxj / 10000
   Text8.Text = ztyl
   

    Command3.Enabled = True

   
   '数据传输
   
    主梁合成应力计算.Text5.Text = Text8.Text
    主梁合成应力计算.Text14.Text = Text8.Text
    
    MsgBox "请在下一步计算的“P”中输入(1.25倍额定起重量 + 葫芦自重)下单个小车轮最大轮压！"
    主梁合成应力计算.Text6.Text = "请在此输入(1.25倍额定起重量 + 葫芦自重)下单个小车轮最大轮压"
    主梁合成应力计算.Text6.ToolTipText = "请在此输入(1.25倍额定起重量 + 葫芦自重)下单个小车轮最大轮压"