📄 水泥砼路面配比.frm
字号:
If Combo7.Text = "3.1～3.4" Then
If Combo5.Text = "1、碎石" Then
Text9.Text = "36～40"
End If
If Combo5.Text = "2、卵石" Then
Text9.Text = "34～38"
End If
If Combo5.Text = "3、碎卵石" Then
Text9.Text = "35～39"
End If
End If
If Combo7.Text = "3.4～3.7" Then
If Combo5.Text = "1、碎石" Then
Text9.Text = "38～42"
End If
If Combo5.Text = "2、卵石" Then
Text9.Text = "36～40"
End If
If Combo5.Text = "3、碎卵石" Then
Text9.Text = "37～41"
End If
End If
Exit Sub
handlerror:
xiansh = MsgBox("请检查数据后再试试。", vbInformation, "问题提示")
End Sub
Private Sub Command1_Click()
'关闭
On Error GoTo handlerror
If List1.ListCount > 1 And rjsfzc = 88 Then
frmMain.Text1 = frmMain.Text1 & vbCrLf & ""
For i = 0 To List1.ListCount - 1
frmMain.Text1 = frmMain.Text1 & vbCrLf & " " + List1.List(i)
Next i
frmMain.Text1 = frmMain.Text1 & vbCrLf & " --------------------------------------"
End If
Unload Me
Exit Sub
handlerror:
End Sub
Private Sub Command2_Click()
'计算配合比
On Error GoTo handlerror
If Combo1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text9.Text = "" Then
xiansh = MsgBox("某些数据未输入，请输入数据后再计算。", vbInformation, "问题提示")
Exit Sub
End If
t = Val(Text1.Text) '保证率系数
cv = Val(Text2.Text) '变异系数
S = Val(Text3.Text) '标准差
fr = Val(Text4.Text) '设计弯拉强度标准值
fc = fr / (1 - 1.04 * cv) + t * S '配制28d弯拉强度的均值
fs = Val(Text10.Text) '水泥实测28d抗折强度(MPa)
'水灰比
wc = 0 '计算水灰比
wcq = 0 '满足耐久性后的水灰比
If Combo5.Text = "1、碎石" Or Combo5.Text = "3、碎卵石" Then
wc = 1.5684 / (fc + 1.0097 - 0.3595 * fs)
End If
If Combo5.Text = "2、卵石" Then
wc = 1.2618 / (fc + 1.5492 - 0.4709 * fs)
End If
If wc > Val(Text8.Text) Then '当计算水灰比大于最大水灰比时
wcq = Val(Text8.Text)
Else
wcq = wc
End If
'坍落度SL的计算（如果为限值）
sls = 0 '坍落度上限
slx = 0 '坍落度下限
sl = 0 '平均坍落度
chdu = Len(Text5.Text)
If chdu > 0 Then
For i = 1 To chdu
If Mid(Text5.Text, i, 1) = "～" Then
sls = Val(Mid(Text5.Text, 1, i - 1))
slx = Val(Mid(Text5.Text, i + 1, chdu))
sl = (sls + slx) / 2
Exit For
End If
Next i
End If
If sls = 0 And slx = 0 Then sl = Val(Text5.Text)
'最优砂率Sp
sps = 0 '砂率上限
spx = 0 '砂率下限
sp = 0 '平均砂率
chdu = Len(Text9.Text)
If chdu > 0 Then
For i = 1 To chdu
If Mid(Text9.Text, i, 1) = "～" Then
sps = Val(Mid(Text9.Text, 1, i - 1))
spx = Val(Mid(Text9.Text, i + 1, chdu))
sp = (sps + spx) / 2
Exit For
End If
Next i
End If
If sps = 0 And spx = 0 Then sp = Val(Text9.Text)
'计算单位用水量
w0 = 0 '计算用水量
wq0 = 0 '不得超过最大单位用水量
If Combo5.Text = "1、碎石" Or Combo5.Text = "3、碎卵石" Then
w0 = 104.97 + 0.309 * sl + 11.27 * (1 / wcq) + 0.61 * sp
End If
If Combo5.Text = "2、卵石" Then
w0 = 86.89 + 0.37 * sl + 11.24 * (1 / wcq) + 1# * sp
End If
If w0 > Val(Text7.Text) Then '当计算单位用水量大于最大用水量时
wq0 = Val(Text7.Text)
Else
wq0 = w0
End If
'计算单位水泥用量
C0 = 0
cq0 = 0
If Combo1.Text = "高速公路" Or Combo1.Text = "一级公路" Then
If Check1.Value = 0 And Check2.Value = 0 Then
cq0 = 300
End If
If Check1.Value = 1 Or Check2.Value = 1 Then
cq0 = 320
End If
End If
If Combo1.Text = "二级公路" Then
If Check1.Value = 0 And Check2.Value = 0 Then
cq0 = 300
End If
If Check1.Value = 1 Or Check2.Value = 1 Then
cq0 = 320
End If
End If
If Combo1.Text = "三、四级公路" Then
If Check1.Value = 0 And Check2.Value = 0 Then
cq0 = 305
End If
If Check1.Value = 1 Or Check2.Value = 1 Then
cq0 = 325
End If
End If
C0 = wq0 / (wcq)
If C0 > cq0 Then '当计算单位水泥用量小于最小水泥用量时
cq0 = C0
End If
shyl = (2400 - cq0 - wq0) * sp / 100 '砂用量
sshyl = 2400 - cq0 - wq0 - shyl '碎石用量
'计算结果
List1.Clear
List1.AddItem "《水泥砼路面配合比》"
List1.AddItem ""
List1.AddItem "－－－－弯拉等级－－－－"
List1.AddItem "公路技术等级 ＝" + Combo1.Text
List1.AddItem "试件样本数n(组) ＝" + Combo2.Text
List1.AddItem "保证率系数t ＝" + Text1.Text
List1.AddItem "弯拉强度变异水平等级 ＝" + Combo3.Text
List1.AddItem "弯拉强度变异系数Cv ＝" + Text2.Text
List1.AddItem "试件样本的标准差s(MPa) ＝" + Text3.Text
List1.AddItem "交通等级 ＝" + Combo4.Text
List1.AddItem "设计弯拉强度fr(MPa) ＝" + Text4.Text
List1.AddItem "水泥实测28d抗折强度(MPa)＝" + Text10.Text
List1.AddItem ""
List1.AddItem "－－－－参数设置－－－－"
List1.AddItem "粗集料名称 ＝" + Combo5.Text
List1.AddItem "路面施工方法 ＝" + Combo6.Text
List1.AddItem Label11.Caption + " ＝" + Text5.Text + " 计算值＝" + Trim(Str(sl))
List1.AddItem Label12.Caption + " ＝" + Text6.Text
List1.AddItem "最大用水量(kg/m3) ＝" + Text7.Text
List1.AddItem "最大水灰比W/C ＝" + Text8.Text
List1.AddItem "砂的细度模数 ＝" + Combo7.Text
List1.AddItem "最优砂率Sp(%) ＝" + Text9.Text + " 计算值＝" + Trim(Str(sp))
If Check1.Value = 1 Then
List1.AddItem "有抗冰冻要求"
Else
List1.AddItem "无抗冰冻要求"
End If
If Check2.Value = 1 Then
List1.AddItem "有抗盐冻要求"
Else
List1.AddItem "无盐冰冻要求"
End If
List1.AddItem ""
List1.AddItem "－－－－计算结果－－－－"
List1.AddItem "28d弯拉强度的均值fc(MPa)＝" + Trim(Str(Int(fc * 1000 + 0.5) / 1000))
List1.AddItem "计算水灰比W/C ＝" + Trim(Str(Int(wc * 1000 + 0.5) / 1000))
List1.AddItem "计算确定水灰比W/C ＝" + Trim(Str(Int(wcq * 1000 + 0.5) / 1000))
List1.AddItem "计算单位用水量W0 ＝" + Trim(Str(Int(w0 * 1000 + 0.5) / 1000))
List1.AddItem "计算确定单位用水量W0 ＝" + Trim(Str(Int(wq0 * 1000 + 0.5) / 1000))
List1.AddItem "计算单位水泥用量C0 ＝" + Trim(Str(Int(C0 * 1000 + 0.5) / 1000))
List1.AddItem "计算确定单位水泥用量C0 ＝" + Trim(Str(Int(cq0 * 1000 + 0.5) / 1000))
List1.AddItem "计算单位砂用量 ＝" + Trim(Str(Int(shyl * 1000 + 0.5) / 1000))
List1.AddItem "计算单位碎石用量 ＝" + Trim(Str(Int(sshyl * 1000 + 0.5) / 1000))
List1.AddItem "配合比水泥：砂：碎石：水＝" + "1：" + Trim(Str(Int(shyl / cq0 * 1000 + 0.5) / 1000)) + "：" + Trim(Str(Int(sshyl / cq0 * 1000 + 0.5) / 1000)) + "：" + Trim(Str(Int(wcq * 1000 + 0.5) / 1000))
Exit Sub
handlerror:
xiansh = MsgBox("请检查输入的数据后，再试试。", vbInformation, "问题提示")
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
'Esc键退出，VbEscape可以用27代替
On Error GoTo handlerror
If KeyAscii = 27 Then
Unload Me
End If
Exit Sub
handlerror:
End Sub
Private Sub Form_Load()
'启动窗体
On Error GoTo handlerror
'弯拉强度
'公路技术等级
Combo1.Clear
Combo1.AddItem "高速公路"
Combo1.AddItem "一级公路"
Combo1.AddItem "二级公路"
Combo1.AddItem "三、四级公路"
'样本组数
Combo2.Clear
Combo2.AddItem "3 组"
Combo2.AddItem "6 组"
Combo2.AddItem "9 组"
Combo2.AddItem "15 组"
Combo2.AddItem "20 组"
'保证率t
Text1.Text = ""
'变异水平等级
Combo3.Clear
Combo3.AddItem "低 0.05～0.10"
Combo3.AddItem "中 0.10～0.15"
Combo3.AddItem "高 0.15～0.20"
'变异系数cv
Text2.Text = ""
'标准差s
Text3.Text = ""
'交通等级
Combo4.Clear
Combo4.AddItem "1、特重"
Combo4.AddItem "2、重"
Combo4.AddItem "3、中等"
Combo4.AddItem "4、轻"
'设计强度fr
Text4.Text = ""
'粗集料名称
Combo5.Clear
Combo5.AddItem "1、碎石"
Combo5.AddItem "2、卵石"
Combo5.AddItem "3、碎卵石"
'施工方法
Combo6.Clear
Combo6.AddItem "1、滑模摊铺机"
Combo6.AddItem "2、轨道摊铺机"
Combo6.AddItem "3、三辊轴机组"
Combo6.AddItem "4、小型机具"
'坍落度
Text5.Text = ""
Text6.Text = ""
'最大用水量
Text7.Text = ""
'最大水灰比
Text8.Text = ""
'砂的细度模数
Combo7.Clear
Combo7.AddItem "2.2～2.5"
Combo7.AddItem "2.5～2.8"
Combo7.AddItem "2.8～3.1"
Combo7.AddItem "3.1～3.4"
Combo7.AddItem "3.4～3.7"
'最优砂率
Text9.Text = ""
'计算结果
List1.Clear
'水泥实测28d抗折强度(MPa)
Text10.Text = ""
Exit Sub
handlerror:
xiansh = MsgBox("在启动时出错，请再试试。", vbInformation, "问题提示")
End Sub
Private Sub Text5_Click()
'点击出机坍落度
On Error GoTo handlerror
Text5.SelStart = 0
Text5.SelLength = Len(Text5.Text)
Exit Sub
handlerror:
xiansh = MsgBox("请检查数据后再试试。", vbInformation, "问题提示")
End Sub
Private Sub Text6_Click()
'点击出机坍落度
On Error GoTo handlerror
Text6.SelStart = 0
Text6.SelLength = Len(Text6.Text)
Exit Sub
handlerror:
xiansh = MsgBox("请检查数据后再试试。", vbInformation, "问题提示")
End Sub
Private Sub Text9_Click()
'点击最佳砂率
On Error GoTo handlerror
Text9.SelStart = 0
Text9.SelLength = Len(Text9.Text)
Exit Sub
handlerror:
xiansh = MsgBox("请检查数据后再试试。", vbInformation, "问题提示")
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -