📄 梁柱配筋.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form8
Caption = "构件设计"
ClientHeight = 7125
ClientLeft = 1275
ClientTop = 1155
ClientWidth = 9345
LinkTopic = "Form8"
MDIChild = -1 'True
ScaleHeight = 7125
ScaleWidth = 9345
Begin VB.Frame Frame4
Caption = "计算"
Height = 1215
Left = 7440
TabIndex = 13
Top = 240
Width = 1455
Begin VB.CommandButton Command1
Caption = "配筋"
Height = 375
Left = 240
TabIndex = 15
Top = 240
Width = 975
End
Begin VB.CommandButton Command2
Caption = "打印"
Height = 375
Left = 240
TabIndex = 14
Top = 720
Width = 975
End
End
Begin VB.Frame Frame3
Caption = "配筋结果显示"
Height = 5295
Left = 240
TabIndex = 12
Top = 1680
Width = 8895
Begin TabDlg.SSTab SSTab1
Height = 4815
Left = 240
TabIndex = 16
Top = 240
Width = 8415
_ExtentX = 14843
_ExtentY = 8493
_Version = 393216
Tabs = 2
TabsPerRow = 4
TabHeight = 520
TabCaption(0) = "梁配筋"
TabPicture(0) = "梁柱配筋.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Grid1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "柱配筋"
TabPicture(1) = "梁柱配筋.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Grid2"
Tab(1).ControlCount= 1
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 4095
Left = 120
TabIndex = 17
Top = 480
Width = 8175
_ExtentX = 14420
_ExtentY = 7223
_Version = 393216
Cols = 10
FixedCols = 0
RowHeightMin = 300
ScrollTrack = -1 'True
GridLines = 2
End
Begin MSFlexGridLib.MSFlexGrid Grid2
Height = 4095
Left = -74880
TabIndex = 18
Top = 480
Width = 8175
_ExtentX = 14420
_ExtentY = 7223
_Version = 393216
Cols = 10
FixedCols = 0
RowHeightMin = 300
ScrollTrack = -1 'True
GridLines = 2
End
End
End
Begin VB.Frame Frame2
Caption = "选择条目"
Height = 1215
Left = 5640
TabIndex = 9
Top = 240
Width = 1335
Begin VB.OptionButton Opt
Caption = "柱配筋"
Height = 255
Index = 1
Left = 240
TabIndex = 11
Top = 720
Width = 975
End
Begin VB.OptionButton Opt
Caption = "梁配筋"
Height = 255
Index = 0
Left = 240
TabIndex = 10
Top = 360
Value = -1 'True
Width = 975
End
End
Begin VB.Frame Frame1
Caption = "选择钢筋"
Height = 1215
Left = 360
TabIndex = 0
Top = 240
Width = 4815
Begin VB.ComboBox Combo1
Height = 300
IMEMode = 1 'ON
Index = 3
ItemData = "梁柱配筋.frx":0038
Left = 3600
List = "梁柱配筋.frx":0048
TabIndex = 7
Text = "Combo1"
Top = 720
Width = 855
End
Begin VB.ComboBox Combo1
Height = 300
IMEMode = 1 'ON
Index = 2
ItemData = "梁柱配筋.frx":005C
Left = 1320
List = "梁柱配筋.frx":006C
TabIndex = 5
Text = "Combo1"
Top = 720
Width = 855
End
Begin VB.ComboBox Combo1
Height = 300
IMEMode = 1 'ON
Index = 0
ItemData = "梁柱配筋.frx":0080
Left = 1320
List = "梁柱配筋.frx":0090
TabIndex = 2
Text = "Combo1"
Top = 240
Width = 855
End
Begin VB.ComboBox Combo1
Height = 300
IMEMode = 1 'ON
Index = 1
ItemData = "梁柱配筋.frx":00A4
Left = 3600
List = "梁柱配筋.frx":00B4
TabIndex = 1
Text = "Combo1"
Top = 240
Width = 855
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "柱箍筋等级"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 3
Left = 2400
TabIndex = 8
Top = 720
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "梁箍筋等级"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 2
Left = 120
TabIndex = 6
Top = 720
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "梁纵筋等级"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 0
Left = 120
TabIndex = 4
Top = 240
Width = 1215
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "柱纵筋等级"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 1
Left = 2400
TabIndex = 3
Top = 240
Width = 1215
End
End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Form8.Opt(1).Enabled = True
For i = 0 To 3
grade(i + 1) = Combo1(i).Text
Next i
Select Case Selectedoption1
Case 0
Call 梁跨中正截面
Call 梁端正截面
Call 梁端斜截面
Form8.SSTab1.Tab = 0
Case 1
Call 柱正截面
Call 柱斜截面
Form8.SSTab1.Tab = 1
End Select
Form8.Opt(1).Value = True
End Sub
Private Sub Form_Load()
Dim i As Integer, j As Integer, Ne As Integer
Me.Height = 7530
Me.Width = 9465
Form8.Opt(1).Enabled = False
For i = 0 To 1
Combo1(i).ListIndex = 1
Next i
For i = 2 To 3
Combo1(i).ListIndex = 0
Next i
Ne = 1
Grid1.Rows = Cengshu * Kuashu + 1
For i = 1 To Cengshu
For j = 1 To Kuashu
Grid1.ColAlignment(i) = flexAlignCenterCenter
Grid1.TextMatrix(Ne, 0) = "第" + Str(i) + " " + "层" + "第" + Str(j) + " " + "跨"
Ne = Ne + 1
Next j
Next i
End Sub
Sub 梁跨中正截面()
Call 跨中M_恒12活14
Call 跨中M_恒12活风1485
Call 跨中M_恒活12地震13 '(恒+活*0.5)*1.2+地震1.3
Call 显示跨中最不利M
Call 显示跨中配筋
End Sub
Sub 梁端正截面()
Call 梁端力调整
Call 梁端M_恒12活14
Call 梁端M_恒12活风1485
Call 梁端M_恒活12地震13 '(恒+活*0.5)*1.2+地震1.3
Call 显示梁端最不利M
Call 显示梁端主筋
End Sub
Sub 梁端斜截面()
Call 计算一级抗震梁_Vb
Call 显示梁端最不利Q及配箍筋
Call 显示梁跨中配箍筋
End Sub
Private Sub Opt_Click(Index As Integer)
Dim Selectedoption As Integer
Selectedoption1 = Index
End Sub
Sub 柱正截面()
Call 柱端力调整
Call 柱端力清空
Call 柱恒_活14(1.2)
Call 柱恒_活14(1)
Call 柱恒_风14(1.2)
Call 柱恒_风14(1)
Call 柱恒_活风1485(1)
Call 柱恒_活风1485(1.2)
Call 柱恒活_地震13(1.2) '(恒+活*0.5)*1.2+地震1.3
Call 柱恒活_地震13(1) '(恒+活*0.5)*1.0+地震1.3
Call 显示柱纵筋
Call 验算轴压比
Call 计算重力荷载代表值下的N
Call 验算强柱弱梁
End Sub
Sub 柱斜截面()
Call 显示柱端剪力及配筋
Call 显示柱中剪力及配筋
End Sub
Sub 柱端力清空()
Dim i As Integer
Dim 柱端力 As 杆端内力
For i = 1 To 柱总数
Open Fname & "柱端力" For Random As #55 Len = Len(柱端力)
With 柱端力
Get #55, i, 柱端力
.Q1 = 0
.Q2 = 0
.N1 = 0
.N2 = 0
Put #55, i, 柱端力
End With
Close 55
Next i
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -