📄 钢混截面设计.frm
字号:
VERSION 5.00
Begin VB.Form Form7
Caption = "Form7"
ClientHeight = 4185
ClientLeft = 60
ClientTop = 345
ClientWidth = 5775
LinkTopic = "Form7"
MDIChild = -1 'True
ScaleHeight = 4185
ScaleWidth = 5775
Begin VB.TextBox Text1
Height = 280
Index = 1
Left = 1440
TabIndex = 12
Top = 960
Width = 800
End
Begin VB.TextBox Text1
Height = 280
Index = 2
Left = 1440
TabIndex = 11
Top = 1320
Width = 800
End
Begin VB.TextBox Text1
Height = 280
Index = 3
Left = 1440
TabIndex = 10
Top = 1755
Width = 800
End
Begin VB.TextBox Text1
Height = 276
Index = 4
Left = 1440
TabIndex = 9
Top = 2160
Width = 800
End
Begin VB.CommandButton Command1
Caption = "显示计算结果"
Height = 420
Index = 0
Left = 3600
TabIndex = 8
Top = 240
Width = 1356
End
Begin VB.TextBox Text1
Height = 300
Index = 7
Left = 3600
TabIndex = 7
Top = 830
Width = 1356
End
Begin VB.TextBox Text1
Height = 280
Index = 5
Left = 1440
TabIndex = 6
Top = 2520
Width = 800
End
Begin VB.TextBox Text1
Height = 276
Index = 6
Left = 1440
TabIndex = 5
Top = 3000
Width = 800
End
Begin VB.CommandButton Command1
BackColor = &H80000004&
Caption = "η≤大偏心受压"
Height = 375
Index = 1
Left = 3600
TabIndex = 4
Top = 3480
Width = 1815
End
Begin VB.CommandButton Command2
Caption = "小偏心受压"
Height = 375
Left = 3600
TabIndex = 3
Top = 2390
Width = 1815
End
Begin VB.CommandButton Command3
Caption = "η>1大偏心受压"
Height = 375
Left = 3600
TabIndex = 2
Top = 2935
Width = 1815
End
Begin VB.CommandButton Command4
Caption = "双筋梁As'>.3As"
Height = 375
Left = 3600
TabIndex = 1
Top = 1845
Width = 1815
End
Begin VB.CommandButton Command5
Caption = "选筋"
Height = 375
Left = 3600
TabIndex = 0
Top = 1300
Width = 1815
End
Begin VB.Label Lable1
Caption = "请输入原始数据："
Height = 300
Index = 0
Left = 360
TabIndex = 19
Top = 480
Width = 1455
End
Begin VB.Label Label2
Caption = " M(kN.m)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 1
Left = 360
TabIndex = 18
Top = 960
Width = 1185
End
Begin VB.Label Label2
Caption = " b(mm)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 2
Left = 360
TabIndex = 17
Top = 1320
Width = 1185
End
Begin VB.Label Label2
Caption = " h(mm)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 3
Left = 360
TabIndex = 16
Top = 1770
Width = 1185
End
Begin VB.Label Label2
Caption = " bf'(mm)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 4
Left = 360
TabIndex = 15
Top = 2160
Width = 1185
End
Begin VB.Label Label2
Caption = " hf'(mm)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 5
Left = 360
TabIndex = 14
Top = 2520
Width = 1185
End
Begin VB.Label Label2
Caption = "fcm(N/mm2)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 6
Left = 360
TabIndex = 13
Top = 3000
Width = 1185
End
End
Attribute VB_Name = "Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Private Sub Command1_Click()
' Dim m As Single, n As Single, fcm As Single, fy As Single
' Dim B As Single, h As Single, a As Single, fc As Single, L0 As Single
' Cls
' m = 15.9 * 10 ^ 7
' n = 300000#
' B = 300
' h = 400
' a = 35
' L0 = 7 * h
' fcm = 11
' fc = 10
' fy = 310
' Print "例题7-9"
' Print "As=As'="; areacolbar(m, n, fcm, fy, B, h, a, fc, L0)
' Print "x="; L0
'End Sub
'
'Private Sub Command2_Click()
' Dim m As Single, n As Single, fcm As Single, fy As Single
' Dim B As Single, h As Single, a As Single, fc As Single, L0 As Single
' Cls
' n = 2400000#
' m = 24 * 10 ^ 7
' B = 400
' h = 700
' a = 35
' L0 = 5000
' fcm = 11
' fc = 10
' fy = 310
' Print "例题7-10"
' Print "As=As'="; areacolbar(m, n, fcm, fy, B, h, a, fc, L0)
' Print "x="; L0
'End Sub
'
'Private Sub Command3_Click()
' Dim m As Single, n As Single, fcm As Single, fy As Single
' Dim B As Single, h As Single, a As Single, fc As Single, L0 As Single
' Cls
' m = 15.9 * 10 ^ 7
' n = 300000#
' B = 300
' h = 400
' a = 35
' L0 = 6000
' fcm = 11
' fc = 10
' fy = 310
' Print "例题7-10-1"
' Print "As=As'="; areacolbar(m, n, fcm, fy, B, h, a, fc, L0)
' Print "x="; L0
'End Sub
'
'Function areacolbar(m As Single, n As Single, fcm As Single, fy As Single, B As Single, h As Single, a As Single, fc As Single, L0 As Single)
' Dim ξb As Single, ζ1 As Single, ζ2 As Single, h0 As Single
' Dim e0 As Single, ei As Single, ea As Single, e As Single
' Dim x As Single, x1 As Single, area As Single
' Cls
' ξb = 0.544
' h0 = h - a
' e0 = m / n
' ea = 0.12 * ((0.3) * h0 - e0)
' If ea < 0 Then ea = 0
' ei = e0 + ea
' ζ1 = 0.5 * fc * B * h / n
' ζ2 = 1.15 - 0.01 * L0 / h
' If ζ2 < 1 Then ζ2 = 1
' If L0 / h > 8 Then
' η = 1 + (L0 / h) ^ 2 * ζ1 * ζ2 / 1400 / ei * (h - a)
' Else
' η = 1
' End If
' e = η * ei + h / 2 - a
' x = n / fcm / B
' If x <= ξb * h0 Then
' area = (n * e - fcm * B * x * (h0 - x / 2)) / fy / (h0 - a)
' Else
' x = (x + ξb * h0) / 2
' Do
' x1 = x
' area = (n * e - fcm * B * x * (h0 - x / 2)) / (fy * (h0 - a))
' σs = (x / h0 - 0.8) * fy / (ξb - 0.8)
' x = (n - (fy - σs) * area) / fcm / B
' Loop Until Abs(x - x1) < 1
' End If
' areacolbar = area
' L0 = x
'End Function
'
'Private Sub Command4_Click()
' Dim m As Single, n As Single, fcm As Single, fy As Single
' Dim B As Single, h As Single, a As Single, fc As Single, L0 As Single
' m = 23 * 10 ^ 7
' B = 200
' h = 500
' a = 35
' fcm = 11
' fy = 310
' Print "例题"
' Print "As="; area梁端力bar(m, fcm, fy, B, h, a)
' Print "x="; a
'End Sub
'
'梁端配筋面积计算
'Function area梁端力bar(m As Single, fcm As Single, fy As Single, B As Single, h As Single, a As Single)
' Dim x As Single, x1 As Single, area As Single, h0 As Single
' h0 = h - a
' x = 0.35 * h0
' c = 0.3
' Do
' Do
' x1 = x
' area = (m - fcm * B * x * (h0 - x / 2)) / fy / (h0 - a)
' x = (fy * (area - c * area)) / fcm / B
' Loop Until Abs(x - x1) < 1
' If x > 0.35 * h0 Then
' c = c + 0.02
' Else
' Exit Do
' End If
' Loop
' area梁端力bar = area
' a = x
'End Function
'
'梁选筋计算
'Sub Nbar(area As Single, 梁端力orcol As String)
' Dim ar As Single, k As Single
' Static bar$(100), barea(100) As Single
' Static fg As Integer, ii As Integer
' If fg = 0 Then
' arrb = Array("2Φ10", "2Φ12", "2Φ14", "2Φ16", "2Φ18", "2Φ20", "2Φ22", _
' "2Φ25", "2Φ16+1Φ12", "2Φ20+1Φ16", "2Φ25+1Φ20", "2Φ25Φ16", _
' "3Φ14", "3Φ16", "3Φ18", "3Φ20", "3Φ22", "3Φ25", "end")
' For i = 1 To 100
' bar$(i) = arrb(i - 1)
' If bar$(i) = "end" Then Exit For
' Next i
' ii = i - 1
' For i = 1 To ii
' ar = 0
' B$ = bar$(i)
' Do
' N1 = InStr(B$, "Φ")
' N2 = InStr(B$, "+")
' ar = ar + Val(B$) * (Val(Mid$(B$, N1 + 1)) / 2) ^ 2 * 3.1416
' If N2 > 0 Then
' B$ = Mid$(B$, N2 + 1)
' Else
' barea(i) = ar
' Exit Do
' End If
' Loop
' Next i
' For i = 1 To ii - 1
' For j = ii - 1 To i Step -1
' If barea(j) > barea(j + 1) Then
' k = barea(j + 1)
' barea(j + 1) = barea(j)
' barea(j) = k
' B$ = bar$(j + 1)
' bar$(j + 1) = bar$(j)
' bar$(j) = B$
' End If
' Next j
' Next i
' fg = 1
' For i = 1 To ii
' Print bar$(i); barea(i)
' Next i
'
' End If
' For i = 1 To ii
' If area < barea(i) Then
' 梁端力orcol = bar$(i)
' area = barea(i)
' Exit Sub
' End If
' Next i
'
'End Sub
'
'Private Sub Command5_Click() '输入钢筋面积，输出钢筋规格数量
' Dim area As Single, 梁端力orcol As String
' area = 100
' Call Nbar(area, 梁端力orcol)
' Print "As="; area; " "; 梁端力orcol
' area = 200
' Call Nbar(area, 梁端力orcol)
' Print "As="; area; " "; 梁端力orcol
'End Sub
'
'Private Sub Form_Load()
' Show
'End Sub
'
'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -