Advantech PCLS-848-P, User Manual

Page: 72 / 106

6 6 PCLS-848-P User's Manual
cmdstr:=’FlT3RAN5';
ieoutput(dvml,cmdstr); { Send DVM 11 setting string }
iochk; { Error check }
ieoutput(dvm2,cmdstr); { Send DVM 12 setting string }
iochk; { Error check }
{ Measurement start }
cmdstr=’UNL UNT MTA LISTEN 23 24 GET’;
for i:=1 to 10 do
begin
iesend(cmdstr); { Trigger the DVM’s. }
instrl:=’ ‘.
ieenter(dvml,instrl); { Enter DVM #1 reading }
iochk; { Error check }
instr2:=’ ‘.
ieenter(dvm2,instr2); { Enter DVM #2 reading }
iochk;
writeln(i:4,’ V1 : ‘,instrl,’ V2 : ‘,instr2);
end;
end. { End of Program }