📄 frmpjmj.frm
字号:
VERSION 5.00
Begin VB.Form frmpjmj
Caption = "计算所得控制截面配筋量"
ClientHeight = 4800
ClientLeft = 3270
ClientTop = 3150
ClientWidth = 9240
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4800
ScaleWidth = 9240
Begin VB.Frame frmpjmj
Caption = "控制截面示意图"
Height = 4575
Left = 120
TabIndex = 3
Top = 120
Width = 4455
Begin VB.PictureBox Picture1
Height = 4095
Left = 120
Picture = "frmpjmj.frx":0000
ScaleHeight = 4035
ScaleWidth = 4155
TabIndex = 4
Top = 360
Width = 4215
End
End
Begin VB.Frame Frame2
Caption = "控制截面2"
Height = 2175
Left = 4800
TabIndex = 2
Top = 2520
Width = 4335
Begin VB.Label Label1
Caption = "mm"
Height = 255
Index = 10
Left = 3720
TabIndex = 34
Top = 1470
Width = 495
End
Begin VB.Label Label1
Caption = "KN"
Height = 255
Index = 9
Left = 3720
TabIndex = 33
Top = 810
Width = 495
End
Begin VB.Label lbltgd2
Caption = "0"
Height = 255
Left = 2040
TabIndex = 32
Top = 1470
Width = 1215
End
Begin VB.Label lbltll2
Caption = "0"
Height = 255
Left = 2040
TabIndex = 31
Top = 810
Width = 1215
End
Begin VB.Label lbllg2
Caption = "拉应力大于ft区高度："
Height = 255
Index = 1
Left = 240
TabIndex = 30
Top = 1470
Width = 1935
End
Begin VB.Label lblll22
Caption = "砼承担拉力值："
Height = 255
Index = 1
Left = 240
TabIndex = 29
Top = 810
Width = 1695
End
Begin VB.Label lblmj2
Caption = "0"
Height = 255
Left = 2040
TabIndex = 22
Top = 1800
Width = 1215
End
Begin VB.Label lblgd2
Caption = "0"
Height = 255
Left = 2040
TabIndex = 21
Top = 1140
Width = 1215
End
Begin VB.Label lblll2
Caption = "0"
Height = 255
Left = 2040
TabIndex = 20
Top = 480
Width = 1215
End
Begin VB.Label Label1
Caption = "mm2"
Height = 255
Index = 5
Left = 3720
TabIndex = 16
Top = 1800
Width = 495
End
Begin VB.Label Label1
Caption = "mm"
Height = 255
Index = 4
Left = 3720
TabIndex = 15
Top = 1140
Width = 495
End
Begin VB.Label Label1
Caption = "KN"
Height = 255
Index = 3
Left = 3720
TabIndex = 14
Top = 480
Width = 495
End
Begin VB.Label lbllg2
Caption = "受拉区高度："
Height = 255
Index = 0
Left = 240
TabIndex = 9
Top = 1140
Width = 1095
End
Begin VB.Label lblll22
Caption = "截面总拉力值："
Height = 255
Index = 0
Left = 240
TabIndex = 8
Top = 480
Width = 1695
End
Begin VB.Label lblmj22
Caption = "配筋面积："
Height = 255
Left = 240
TabIndex = 5
Top = 1800
Width = 1695
End
End
Begin VB.Frame Frame1
Caption = "控制截面1"
Height = 2295
Left = 4800
TabIndex = 0
Top = 120
Width = 4335
Begin VB.Label lbltgd1
Caption = "0"
Height = 255
Left = 2040
TabIndex = 28
Top = 1560
Width = 975
End
Begin VB.Label lbltll1
Caption = "0"
Height = 255
Left = 2040
TabIndex = 27
Top = 840
Width = 1215
End
Begin VB.Label Label1
Caption = "mm"
Height = 255
Index = 8
Left = 3720
TabIndex = 26
Top = 1560
Width = 495
End
Begin VB.Label Label1
Caption = "KN"
Height = 255
Index = 7
Left = 3720
TabIndex = 25
Top = 840
Width = 495
End
Begin VB.Label lblgd11
Caption = "拉应力大于ft区高度："
Height = 255
Index = 1
Left = 240
TabIndex = 24
Top = 1560
Width = 1815
End
Begin VB.Label lblll11
Caption = "砼承担拉力值："
Height = 255
Index = 1
Left = 240
TabIndex = 23
Top = 840
Width = 1695
End
Begin VB.Label lblmj1
Caption = "0"
Height = 255
Left = 2040
TabIndex = 19
Top = 1920
Width = 1095
End
Begin VB.Label lblgd1
Caption = "0"
Height = 255
Left = 2040
TabIndex = 18
Top = 1200
Width = 975
End
Begin VB.Label Label1
Caption = "mm2"
Height = 255
Index = 6
Left = 3720
TabIndex = 17
Top = 1920
Width = 495
End
Begin VB.Label Label1
Caption = "mm"
Height = 255
Index = 2
Left = 3720
TabIndex = 13
Top = 1200
Width = 495
End
Begin VB.Label Label1
Caption = "KN"
Height = 255
Index = 0
Left = 3720
TabIndex = 11
Top = 480
Width = 495
End
Begin VB.Label lblll1
Caption = "0"
Height = 255
Left = 2040
TabIndex = 10
Top = 480
Width = 1215
End
Begin VB.Label lblgd11
Caption = "受拉区高度："
Height = 255
Index = 0
Left = 240
TabIndex = 7
Top = 1200
Width = 1095
End
Begin VB.Label lblll11
Caption = "截面总拉力值："
Height = 255
Index = 0
Left = 240
TabIndex = 6
Top = 480
Width = 1695
End
Begin VB.Label lblmj11
Caption = "配筋面积："
Height = 255
Index = 0
Left = 240
TabIndex = 1
Top = 1920
Width = 1695
End
End
Begin VB.Label Label1
Caption = "KN"
Height = 255
Index = 1
Left = 7920
TabIndex = 12
Top = 1320
Width = 495
End
End
Attribute VB_Name = "frmpjmj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim ll1, ll2, tll1, tll2, gd1, gd2, tgd1, tgd2, mj1, mj2 As String
Datamj = "G:\ansys\11\circlekkmj.dat"
Open Datamj For Input As #1
Line Input #1, ll1
Line Input #1, tll1
Line Input #1, gd1
Line Input #1, tgd1
Line Input #1, mj1
Line Input #1, ll2
Line Input #1, tll2
Line Input #1, gd2
Line Input #1, tgd2
Line Input #1, mj2
lblll1.Caption = ll1
lbltll1.Caption = tll1
lblgd1.Caption = gd1
lbltgd1.Caption = tgd1
lblmj1.Caption = mj1
lblll2.Caption = ll2
lbltll2.Caption = tll2
lblgd2.Caption = gd2
lbltgd2.Caption = tgd2
lblmj2.Caption = mj2
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -