Public Sub ISO13256ACOIL() 'A-Coil Option On Error Resume Next If TestType = 1 Then 'Cooling Test EBW = ((IDLvgStandAirflow * ESP) * 0.3918) 'Eqv. Blower Watts EIBA = EBW * 3.413 'Eqv. Indoor BTU Adjustment AIC = NetIDCapacity - EIBA 'Adjusted Indoor Capacity ETW = CompWatts + EBW + PumpPenalty 'Eqv.Total Watts AIAC = (AIC + ISOAvg) / 2 'Adjusted ISO Avg. Capacity EPPA = AIAC / ETW 'EER with Pump Penalty frmISO.txtEIBA.Text = Format(EIBA, "#.##") 'send results to form ISO frmISO.txtAIC.Text = Format(AIC, "#.##") 'send results to form ISO frmISO.txtEBW.Text = Format(EBW, "#.##") 'send results to form ISO frmISO.txtETW.Text = Format(ETW, "#.##") 'send results to form ISO frmISO.txtEPPA.Text = Format(EPPA, "#.##") 'send results to form ISO frmISO.txtAIAC.Text = Format(AIAC, "#.##") 'send results to form ISO End If If TestType = 2 Then 'Heating Test EBW = ((IDLvgStandAirflow * ESP) * 0.3918) 'Eqv. Blower Watts EIBA = EBW * 3.413 'Eqv. Indoor BTU Adjustment AIC = NetIDCapacity + EIBA 'Adjusted Indoor Capacity ETW = CompWatts + EBW + PumpPenalty 'Eqv.Total Watts AIAC = (AIC + ISOAvg) / 2 'Adjusted ISO Avg. Capacity EPPA = ((AIAC / ETW) / 3.413) 'COP with Pump Penalty frmISO.txtEIBA.Text = Format(EIBA, "#.##") 'send results to form ISO frmISO.txtAIC.Text = Format(AIC, "#.##") 'send results to form ISO frmISO.txtEBW.Text = Format(EBW, "#.##") 'send results to form ISO frmISO.txtETW.Text = Format(ETW, "#.##") 'send results to form ISO frmISO.txtEPPA.Text = Format(EPPA, "#.##") 'send results to form ISO frmISO.txtAIAC.Text = Format(AIAC, "#.##") 'send results to form ISO End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)