砼配合比计算与编程

精选文库砼配合比计算与编程摘要：砼配合比实验是砼工程中重要的工作，砼配合比的计算涉及的参数非常多计算复杂，本文利用access数据库软件，结合VBA编程，极大简化了计算，考虑各种参数后，计算瞬间完成，极大简化了砼配合比实验的计算量。关键词：access数据库软件 配合比 塌落度 砂率 1、引言影响砼强度的参数主要有：水泥强度、砼级配、塌落度、骨料类别、材料密度、水灰比、砂率等，有的砼还要考虑添加剂，如引气剂、减水剂等。做实验时，还要考虑设计指标，如强度保证率。2、界面的因素设置 考虑砼强度的主要影响因素，利用编辑软件编辑如图面板，把自动形成的名称改成中文，但编程时要用原来的名称。3、计算思路在控制面板上可以直接选择各种参数，或填写各类参数，计算后得到一系列数据，根据得到的数据进行试配，得到砼的真实强度。真实强度和计算强度对比，然后在实配计算参数调整砂率和用水量，进行试配计算，再进行一系列砼强度试验，最后出配料单。4、编程计算4.1选择砼级配Private Sub Command98_Click()On Error GoTo Err_Command148_Click判断砼级配 If Me!Frame18 = 1 And Me!Text124 0 Or Me!Frame18 = 1 And Me!Text126 0 Then msgtit3 = 自相矛盾 msgtxt3 = 如是一级料，则中石和大石为0！ retval3 = MsgBox(msgtxt3, vbDefaultButton1, msgtit3) End If If Me!Frame18 = 2 And Me!Text126 0 Then msgtit4 = 自相矛盾 msgtxt4 = 如是二级料，则大石为0！ retval4 = MsgBox(msgtxt4, vbDefaultButton1, msgtit4) ElseIf Me!Frame18 = 2 And Me!Text124 = 0 Then msgtit4 = 自相矛盾 msgtxt4 = 如是二级料，则中石不为0！ retval4 = MsgBox(msgtxt4, vbDefaultButton1, msgtit4) End IfIf Me!Frame18 = 3 And Me!Text122 = 0 Or Me!Frame18 = 3 And Me!Text124 = 0 Or Me!Frame18 = 3 And Me!Text126 = 0 Then msgtit4 = 自相矛盾 msgtxt4 = 如是三级料，则各级骨料不为为0！ retval4 = MsgBox(msgtxt4, vbDefaultButton1, msgtit4) End If 其他选择类似编程。4.2主计算程序 求 If sjqd = 15 Then = 3.5 ElseIf sjqd = 20 Then = 4 ElseIf sjqd = 30 Then = 4.5 ElseIf sjqd = 40 Then = 5 ElseIf sjqd = 50 Then = 5.5 Else msgtitl = 多动脑子 msgtxt = 设计强度不对,重新输入！ retval = MsgBox(msgtxt, vbDefaultButton1, msgtitl) End If Me!Text205 = sjqd + qgldT * hmh = sjqd + qgldT * + Me!Text80 * 0.37 求水灰比shb，调整值Me!Text223 If Me!Frame40 = 0 Then hga = 0.539 hgb = 0.459 Else hga = 0.637 hgb = 0.569 End If shb = hga * Me!Text199 / (hmh + hgb * hga * Me!Text199) + Me!Text223 shbx = 1 / (hmh / (hga * Me!Text199) + hgb) Me!Text212 = shb 水值调整2,st st = Abs(shb - 0.5) * 20 shuit = shui + st Me!水94 = shuit Me!Text186 = shuit Me!水泥96 = shuit / shb * (1 - Text80 / 100) Me!Text107 = shuit / shb * Text80 / 100 Me!Text118 = shuit / shb * Me!Text82 / 100 Me!Text120 = shuit / shb * Me!Text84 / 10000 Exit_Command148_Click: Exit SubErr_Command148_Click: MsgBox Err.Description Resume Exit_Command148_Click End Sub 五、结语砼试验、配料是砼工程的基础而又重要的工作，而配料的计算又是砼试验的基础工作，传统的计算模式比较麻烦。本文综合计算规则和编程以及数据库，把各类因素综合考虑，能比较准确而快捷的完成配料的