Advantech PCLS-848-P, User Manual

Page: 67 / 106

CHAPTER 2 INSTALLATION 61
ietimout(30000); { Setting timeout S sec. }
ieeol(adS00,2,oeolstr,0,10); { Init ADSOOA terminator }
{ Set the DVM and Multiplexer }
outstr:=’FlT3RANS’;
ieoutput(hp3478,outstr); { Send DVM setting string }
iochk; { Error check }
outstr:=’DW0,16;DW1,0';
icoutput(adS00,outstr); { Open Mux & Actuator }
iochk(); { Error check }
{ Measurement start }
for meas:=1 to 10 do
begin
alarm:=0;
for i:=0 to 1S do
begin
dumflag:=encode(chstr,i);
outstr:=’DW0,’;
concat(outstr,chstr);
ieoutput(adS00,outstr); { Close ch.I }
iochk;
for k:=1 to 100 do dum:=dum;{ Relay operation delay }
ietrig(hp3478); { Trigger the DVM.}
ieenter(hp3478,instr); { Enter DVM reading }
iochk; { Error check }
if instr[1]=’+’ then delete(instr,1,1);{ delete ‘+’ }
dumflag:=decode(instr,v[i]);
writeln(‘CHANNEL’,i:3,v[i]:10:6,’ VOLTS’);
if v[i] > v_lmt then
begin
writeln(, ALARM l!’);
alarm:=1;
end;
end;
if alarm=1 then
begin
outstr:=’DW1,1';
ieoutput(adS00,outstr); { Set the alarm }
writeln(‘Set Alarm !’);
end
else
begin
outstr:=’DW1,0';
ieoutput(adS00,outstr); { Reset the alarm}
writeln(‘Reset Alarm !’);
end;
end;
end. { End of program }