结构设计.bas

钢结构设计数据库应用

Attribute VB_Name = "Module1"

Public Sub 比例(h#, sc#)
    If h < 100 Then
        sc = 40
    ElseIf h < 200 Then
        sc = 20
    ElseIf h < 400 Then
        sc = 10
    End If
End Sub

Public Sub Draw槽钢断面(h#, b#, d#, t#, r#, r1#, z0#, sc#, Pic As PictureBox)
    Dim x1#, x2#, y1#, y2#, x#, sc2#
    sc2 = sc / 2
    Pic.Width = (b * 1.1) * sc
    Pic.Height = (h * 1.1) * sc
    Pic.Scale (-sc * 4, h * sc2 + sc * 4)-(b * sc + sc * 4, -h * sc2 - sc * 4)
    Pic.Cls
    y0 = h * sc2
    x0 = z0 * sc
    x1 = d * sc
    x2 = b * sc
    x = x2 - (b - d) * sc2
    y = y0 - t * sc
    y2 = y + (x2 - x) * 0.1
    y1 = y + (x1 - x) * 0.1
    
    Pic.Line (x0, -y0 * 1.1)-(x0, y0 * 1.1)
    Pic.Line (-x2, 0)-(x2, 0)
    Pic.DrawWidth = 2
    Pic.Line (0, -y0)-(0, y0)
    Pic.Line -(x2, y0)
    Pic.Line -(x2, y2)
    Pic.Line -(x1, y1)
    Pic.Line -(x1, -y1)
    Pic.Line -(x2, -y2)
    Pic.Line -(x2, -y0)
    Pic.Line -(0, -y0)
    Pic.DrawWidth = 1
End Sub