tools.frm

钢筋混凝土框架结构设计计算源程序

            NumButtons      =   17
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "规则"
               Key             =   "guiz"
               ImageIndex      =   1
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "杆件"
               Key             =   "ganj"
               ImageIndex      =   2
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Caption         =   "支座"
               Key             =   "zhiz"
               ImageIndex      =   3
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Caption         =   "编号"
               Key             =   "numb"
               ImageIndex      =   4
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "删除"
               Key             =   "delgj"
               ImageIndex      =   5
            EndProperty
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "复制"
               Key             =   "copyyy"
               ImageIndex      =   6
            EndProperty
            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "移动"
               Key             =   "moveee"
               ImageIndex      =   7
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Caption         =   "缩放"
               Key             =   "scal"
               ImageIndex      =   8
            EndProperty
            BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Caption         =   "梁"
               Key             =   "lian"
               ImageIndex      =   9
            EndProperty
            BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Caption         =   "柱"
               Key             =   "zhu"
               ImageIndex      =   10
            EndProperty
            BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Caption         =   "柱附"
               Key             =   "zhuzhg"
               ImageIndex      =   11
            EndProperty
            BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Caption         =   "砌体"
               Key             =   "qiti"
               ImageIndex      =   14
            EndProperty
            BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "选项"
               Key             =   "opi"
               ImageIndex      =   12
            EndProperty
            BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "详图"
               Key             =   "zoom"
               ImageIndex      =   13
            EndProperty
         EndProperty
         Enabled         =   0   'False
      End
   End
End
Attribute VB_Name = "gongju1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Me.Width = 1030
    Me.Height = 6360
    Me.Top = 0
    Me.Left = 0
End Sub
Public Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "guiz"
            Drawp = 0
            kuangjia1.Show
            tuxing1.StatusBar1.Panels(2).Text = ""
        Case "ganj"
            Drawp = 1
            tuxing1.StatusBar1.Panels(2).Text = "杆件"
        Case "zhiz"
            Drawp = 2
            tuxing1.StatusBar1.Panels(2).Text = ""
        Case "copy"
            Drawp = 3
            tuxing1.StatusBar1.Panels(2).Text = ""
        Case "delgj"
            Drawp = 4
            tuxing1.StatusBar1.Panels(2).Text = "删除"
        Case "copyyy"
            Drawp = 5
            tuxing1.StatusBar1.Panels(2).Text = "复制"
            Call 编辑变量清空
        Case "moveee"
            Drawp = 6
            tuxing1.StatusBar1.Panels(2).Text = "移动"
            Call 编辑变量清空
        Case "scal"
            Drawp = 7
            tuxing1.StatusBar1.Panels(2).Text = ""
        Case "lian"
            Form5.Show
            tuxing1.StatusBar1.Panels(2).Text = ""
            Form5.SSTab1.Tab = 0
            Drawp = 8
        Case "zhu"
            Form5.Show
            tuxing1.StatusBar1.Panels(2).Text = ""
            Form5.SSTab1.Tab = 1
            Drawp = 9
        Case "zhuzhg"
            Form5.Show
            tuxing1.StatusBar1.Panels(2).Text = ""
            Form5.SSTab1.Tab = 2
            Drawp = 10
        Case "opi"
            frmOptions.Show
            tuxing1.StatusBar1.Panels(2).Text = ""
            Drawp = 11
        Case "zoom"
            tuxing1.StatusBar1.Panels(2).Text = ""
            Drawp = 12
        Case "qiti"
            Form5.Show
            tuxing1.StatusBar1.Panels(2).Text = ""
            Form5.SSTab1.Tab = 3
            Drawp = 13
End Select
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim Index As Integer
Dim j As Integer
Select Case Button.Key
    Case "tixing"
        Index = 0
        Call Jisuan1(Index)
    Case "junbu"
        Index = 1
        Call Jisuan1(Index)
    Case "fengzai"
        Index = 3
        Call Jisuan1(Index)
    Case "dizhen"
        Index = 4
        Call Jisuan1(Index)
    Case "huozaia"
        Index = 6
        Call Jisuan1(Index)
    Case "huozaib"
        Index = 7
        Call Jisuan1(Index)
    Case "zhuliang"
        Form4.Show
        Form4.Left = MDIForm1.Width - Form4.Width - 200
        If 击中构件号 = 0 Then 击中构件号 = 柱总数 + 1
        j = 击中构件号
'            For i = 柱总数 + 1 To Ncell
            Call 逐跨活荷载(j)
            当前荷载 = "逐跨活荷载" & Str(j)
'                Call 计算内力
'            Next i
    Case "manzai"
        Dim i As Integer
        For i = 0 To 7
            Select Case i       '梯形恒载
                Case 0
                    Call 梯形恒载
                    当前荷载 = "梯形恒载"
                Case 1
                    Call 均布恒载
                    当前荷载 = "均布恒载"
                Case 3
                    Call 风荷载
                    当前荷载 = "风荷载"
                Case 4
                    Call 地震作用
                    当前荷载 = "地震作用"
                Case 6
                    Call 活荷载("A")
                    当前荷载 = "活荷载A"
                Case 7
                    Call 活荷载("B")
                    当前荷载 = "活荷载B"
            End Select
            Call 计算内力
L:
        Next i
    '    i = MsgBox("内力计算完毕", vbOKOnly, "系统提示")
        Form1.Opt(0).Enabled = False
        Form1.Opt(1).Enabled = False
        Form1.Opt(2).Enabled = False
        Form1.Opt(3).Enabled = False
        Form1.Command1.Enabled = False
        Form1.Command.Enabled = False
        Unload Form6
        Form1.Show
        Call 杆件图(Form1.Picture1)
    Case "peijin"
        Call 弯矩调幅
        Form8.Show
End Select
End Sub
Sub Jisuan1(Index As Integer)
    Dim i, j
    Erase Ld(), XYM()   ', A(), D()
    For i = 1 To Kuashu + 1
        For j = 1 To 3
            XYM(i, j) = 0
        Next j
    Next i
    Call 生成荷载Ld(Index)          '荷载通过菜单的参数来传递给荷载计算
    图 = "荷载"
    Call Form1.初始图
End Sub