Advantech PCLS-848-P, User Manual

Page: 71 / 106

CHAPTER 2 INSTALLATION 65
cmdstr=’UNL UNT MTA LISTEN 23 24 GET’;
for i:=1 to 10 do
begin
iesend(cmdstr); { Trigger the DVN’s. }
ieenter(dvml,instrl); { Enter DVN #1 reading }
iochk; { Error check }
ieenter(dvm2,instr2); { Enter DVN #2 reading }
iochk;
writeln(i:4 ‘ V1 : ‘,instrl,’ V2 : ‘,instr2);
end;
end. { End of Program }
B. Example in Turbo Pascal
{ FILE NANE : EX5 TB.PAS }
{ MULTIPLE DEVICE TRIGGERING }
{ Purpose : This program triggers 2 voltmeters at the same }
{ time to make the measurement simultaneously. }
{ Remark : This program is written for the DP3478A DMN. If }
{ another model of voltmeter is used, please check }
{ the operating manual and make necessary modifi- }
{ cation to this program. }
{ Language : Microsoft Pascal }
Program exampleS(input,output);
{$I TBPGPIB.INC}
Procedure iochk; {I/O error check routine}
var
errno : integer absolute $D000:$201A;
begin
case errno of
0 : ;
1 : writeln(‘TIME OUT!t’);
else
writeln(‘INTERFACE ERROR!!’);
end;
end; { End of iochk }
var
cmdstr,instrl,instr2 : lstring;
i,dvml,dvm2; : integer;
begin { Begin of main }
clrscr;
ieinit($2B8,21,0);
ieabort;
dvml:=23;
dvm2:=24;
{ Set the DVM’s }