钢混框架设计软件.frm

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

    Dim i As Integer
    Dim j As Integer
    For i = 0 To 8
        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"
            Case 8
                For j = 柱总数 + 1 To Ncell
                    Call 逐跨活荷载(j)
                    当前荷载 = "逐跨活荷载" & Str(j)
                    Call 计算内力
                Next j
        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)
End Sub
Private Sub Bmcross_Click()
    Call 弯矩调幅
    Form8.Show
End Sub
Private Sub exit_Click()
    Call 退出
    If cancel1 <> -1 Then End
End Sub
Private Sub ganduan_Click()
    Form6.Show
End Sub
Private Sub ganduancha_Click()
    Form2.Show
End Sub
Private Sub jm_Click(Index As Integer)
    Select Case Index
        Case 0
            Form5.Show
            Form5.SSTab1.Tab = 0
        Case 1
            Form5.Show
            Form5.SSTab1.Tab = 1
        Case 2
            Form5.Show
            Form5.SSTab1.Tab = 2
        Case 3
            Form5.Show
            Form5.SSTab1.Tab = 3
    End Select
End Sub
Private Sub kj1_Click()
    kuangjia1.Show
End Sub
Private Sub kj2_Click()
    kuangjia2.Show
End Sub
Private Sub load_Click(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
Private Sub MDIForm_Load()
    Selectedoption = 0
    gongju1.Show
    tuxing1.Show
End Sub
Public Sub MDIForm_Unload(cancel As Integer)
    Dim Msg, Response     ' 声明变量。
        If Fname <> "" Then
        Msg = "是否在退出程序前保存工程数据?"
        Response = MsgBox(Msg, vbQuestion + vbYesNoCancel, "系统提示")
        Select Case Response
           Case vbCancel   ' 不允许关闭。
              cancel = -1
              tuxing1.Show
              gongju1.Show
              Msg = "Command has been canceled."
           Case vbYes
           ' 这里输入保护数据的代码。
              Call 保存原始数据
              Call all_Click
              Unload Form1
              Msg = "Data saved." '
           Case vbNo
              Msg = "Data not saved."
        End Select
        StatusBar1.Panels(1).Text = Msg
    End If
End Sub
Sub new_Click()
    Dim i As Integer
    '禁止用户在输入基本数据前使用荷载计算
'    On Error Resume Next
'    gongshu = gongshu + 1
'    MkDir ("C:\WINDOWS\Desktop\工程存档" + Str(gongshu) + "\")
'    ChDir ("C:\WINDOWS\Desktop\工程存档" + Str(gongshu) + "\")
'    Fname = "工程" + Str(gongshu)
    Form3.Show
    tuxing1.Picture1.Cls
    Call Gridxy(tuxing1.Picture1)
    存盘标记 = False
    Call 变量清零
End Sub
Private Sub open_Click()
    Dim N As String, i As Integer
    ComD1.CancelError = True
    On Error GoTo ErrHandler
    ComD1.Flags = cdlOFNCreatePrompt
        '当文件不存在时对话框要提示创建文件。该标志自动设置 cdlOFNPathMustExist 和 cdlOFNFileMustExist 标志
    ComD1.Filter = "工程(*.工程)|*.工程|所有文件(*.*)|*.*"
        'Filter 语法：object.Filter [= description1 |filter1 |description2 |filter2...]
        '使用管道 ( | ) 符号 (ASCII 124) 将 fifter 与 description 的值隔开。管道符号的前后都不要加空格，因为这些空格会被与 fifter 与 description 的值一起显示。
    ComD1.FilterIndex = 1
        'FilterIndex 属性确定哪一个作为缺省过滤器显示
    ComD1.ShowOpen
        '通用对话框使用如下两种方法显示打开对话框CommondDialog.showopen和CommondDialog.Action=1
    Fname = ComD1.Filename  '得到用户输入或选中的文件名
    N = InStr(Fname, ".")
    Fname = Left$(Fname, N) '去扩展名留待后用
    Call Menu1
    Call 变量清零
    Call 读取原始数据及设计资料(ComD1.Filename)
    存盘标记 = True
    Call 自动生成NgnXY
    tuxing1.Show
    Call tuxing1.Form_Load
    For i = 0 To 2
        MDIForm1.jm(i).Enabled = True
    Next i
    gongju1.Toolbar2.Buttons("zhu").Enabled = True
    gongju1.Toolbar2.Buttons("lian").Enabled = True
    gongju1.Toolbar2.Buttons("zhuzhg").Enabled = True
    gongju1.Toolbar2.Buttons("qiti").Enabled = True
    Form5.Show
    kuangjia2.Show
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
Private Sub prope_Click()
    Form3.Show
End Sub
Private Sub save_Click()
    Call 保存原始数据
    Call all_Click
    Unload Form1
End Sub
Private Sub saveas_Click()
    Dim N As Integer
    ComD1.Flags = cdlOFNOverwritePrompt
    ComD1.CancelError = False
    ComD1.Filter = "工程(*.工程)|*.工程|所有文件(*.*)|*.*"
    ComD1.FilterIndex = 1
    ComD1.ShowSave
    Fname = ComD1.Filename  '得到用户输入或选中的文件名
    N = InStr(Fname, ".")
    Fname = Left$(Fname, N) '去扩展名留待后用
    StatusBar1.Panels(1).Text = "当前工程：「" + Left$(Fname, N - 1) + "」"
    Call 保存原始数据
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
 Dim i As Integer, N As String
    Select Case Button.Key
        Case "new"
'            On Error Resume Next
'            gongshu = gongshu + 1
'            MkDir ("C:\WINDOWS\Desktop工程存档" + Str(gongshu) + "\")
'            ChDir ("C:\WINDOWS\Desktop工程存档" + Str(gongshu) + "\")
'            Fname = "工程" + Str(gongshu)
            Form3.Show
'            Call Menu1
            tuxing1.Picture1.Cls
            Call Gridxy(tuxing1.Picture1)
            存盘标记 = False
            Call 变量清零
        Case "open"
            ComD1.CancelError = True
            On Error GoTo ErrHandler
            ComD1.Flags = cdlOFNCreatePrompt
                '当文件不存在时对话框要提示创建文件。该标志自动设置 cdlOFNPathMustExist 和 cdlOFNFileMustExist 标志
            ComD1.Filter = "工程(*.工程)|*.工程|所有文件(*.*)|*.*"
                'Filter 语法：object.Filter [= description1 |filter1 |description2 |filter2...]
                '使用管道 ( | ) 符号 (ASCII 124) 将 fifter 与 description 的值隔开。管道符号的前后都不要加空格，因为这些空格会被与 fifter 与 description 的值一起显示。
            ComD1.FilterIndex = 1
                'FilterIndex 属性确定哪一个作为缺省过滤器显示
            ComD1.ShowOpen
                '通用对话框使用如下两种方法显示打开对话框CommondDialog.showopen和CommondDialog.Action=1
            Fname = ComD1.Filename  '得到用户输入或选中的文件名
            N = InStr(Fname, ".")
            Fname = Left$(Fname, N) '去扩展名留待后用
            Call Menu1
            Call 变量清零
            Call 读取原始数据及设计资料(ComD1.Filename)
            存盘标记 = True
            Call 自动生成NgnXY
            tuxing1.Show
            Call tuxing1.Form_Load
            For i = 0 To 2
                MDIForm1.jm(i).Enabled = True
            Next i
            gongju1.Toolbar2.Buttons("zhu").Enabled = True
            gongju1.Toolbar2.Buttons("lian").Enabled = True
            gongju1.Toolbar2.Buttons("zhuzhg").Enabled = True
            gongju1.Toolbar2.Buttons("qiti").Enabled = True
            Form5.Show
            kuangjia2.Show
ErrHandler:
            ' 用户按了“取消”按钮
            Exit Sub
        Case "save"
            Call 保存原始数据
            Call all_Click
            Unload Form1
        Case "saveas"
            ComD1.Flags = cdlOFNOverwritePrompt
            ComD1.CancelError = False
            ComD1.Filter = "工程(*.工程)|*.工程|所有文件(*.*)|*.*"
            ComD1.FilterIndex = 1
            ComD1.ShowSave
            Fname = ComD1.Filename  '得到用户输入或选中的文件名
            N = InStr(Fname, ".")
            Fname = Left$(Fname, N) '去扩展名留待后用
            StatusBar1.Panels(1).Text = "当前工程：「" + Left$(Fname, N - 1) + "」"
            Call 保存原始数据
        Case "exit"
            Call 退出
            If cancel1 <> -1 Then End
    End Select
End Sub
Private Sub tools_Click()
    gongju1.Show
End Sub
Private Sub tu1_Click()
    tuxing1.Show
End Sub
Private Sub tu2_Click()
    Form1.Show
End Sub
Sub Menu1()
    Dim N
    shj.Enabled = True
    MDesign = True
    Lodecaculate = True
    Toolbar1.Buttons(3).Enabled = True
    Toolbar1.Buttons(4).Enabled = True
    gongju1.Toolbar2.Enabled = True
    gongju1.Toolbar1.Enabled = True
    save.Enabled = True
    saveas.Enabled = True
    windows.Enabled = True
    debug1.Enabled = True
    caption1 = "钢混框架设计软件"
    N = InStr(Fname, ".")
    fname1 = Left$(Fname, N - 1)
    StatusBar1.Panels(1).Text = "当前工程：「" + fname1 + "」"
End Sub
Sub 退出()
    Dim Msg, Response     ' 声明变量。
        If Fname <> "" Then
        Msg = "是否在退出程序前保存工程数据?"
        Response = MsgBox(Msg, vbQuestion + vbYesNoCancel, "系统提示")
        Select Case Response
           Case vbCancel   ' 不允许关闭。
              cancel1 = -1
              tuxing1.Show
              gongju1.Show
              Msg = "Command has been canceled."
           Case vbYes
           ' 这里输入保护数据的代码。
              Call 保存原始数据
              Call all_Click
              Unload Form1
              Msg = "Data saved." '
           Case vbNo
              Msg = "Data not saved."
        End Select
        StatusBar1.Panels(1).Text = Msg
    End If
End Sub