Haefely 2830, User Manual, Page: 104 / 124

96 Software
ACTemp:=Heat_Temp;
ACFrequency:=GetMeasData(id_FREQ);
ACStress:=GetMeasData(id_ACSTRESS);
Cair:=GetMeasData(id_CAP);
DF:=GetMeasData(id_DF);
AC_HVOff;
Heat_Off;
After the measurement is done a check is made if the values are in a
good range. If not a dialog will pop up an inform the user that
something with the test cell is not good.
//Check if Cair is in a good range
if Cair < 48e-12 then
ShowMessage('The capacity value of the empty '+CRLF
+'and cleaned test cell is too '+CRLF
+'low: '+AddDouble(Cair*1e12,0,0)+' pF '
+'(48 pF < C air < 72 pF)'+CRLF+CRLF
+'Check the test cell for dust, wet'+CRLF
+'and correct assembling.');
else
if Cair > 72e-12 then
ShowMessage('The capacity value of the empty '+CRLF
+'and cleaned test cell is too '+CRLF
+'high: '+AddDouble(Cair*1e12,0,0)+' pF '
+'(48 pF < C air < 72 pF)'+CRLF+CRLF
+'Check the test cell for dust, wet'+CRLF
+'and correct assembling.');
else
If the measured values are in a good range the values will be stored
in the liquid test cell settings of the selected liquid test cell
(see chapter 9.6.4.3
Fix Variable
).
//Save measurement values
CellCAir:=AddDouble(Cair,0,13);
CellCTemp:=AddDouble(ACTemp,0,1);
CellCalibrated:=AddDate;
At the end the measuring result will be added to the “Test Results”
section of the report. With the keywords end. the sequence ends.
//Create Report
ReportClear;
ReportAdd(
'Test Cell Calibration'+CRLF+
'Date - Time: '+' –
'+CRLF+CRLF+
'Cell type: '+CRLF+CRLF);
ReportAdd(
'Ambient temperature:
'+AddDouble(GetMeasData(id_TEMP),0,1)+' °C'+CRLF+
'Ambient humidity:
'+AddDouble(GetMeasData(id_HUM),0,1)+'%'+CRLF+
'AC electrical stress: '+AddDouble(ACStress,0,0)+
‘V/mm'+CRLF+