Advantech PCLS-848-P, User Manual

Page: 70 / 106

6 4 PCLS-848-P User's Manual
4.5. Multiple Device Triggering
A. Example in Microsoft Pascal
{ FILE NAME : EX5 MS.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 HP3478A DMM. 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);
{SINCBUDE: ‘MSPGPIB.INC’}
Procedure iochk; {I/O error check routine}
var
errno [origin 16lD000:161201A] : integer;
begin
case errno of
0 : ;
1 : writeln(‘TIME OUTII’);
otherwise
writeln(‘INTERFACE ERRORII’);
end;
end; { End of iochk }
var
cmdstr,instrl,instr2: lstring(100);
i,dvml,dvm2; : integer;
begin { Begin of main }
ieseg(16#D000);
ieinit(l612B8,21,0);
ieabort;
for i:=1 to 24 do writeln; { Clear Screen }
dvml:=23;
dvm2:=24;
{ Set the DVM’s }
cmdstr:=’FlT3RAN5';
ieoutput(dvml,cmdstr); { Send DVM #1 setting string }
ioahk; { Error check }
ieoutput(dvm2,cmdstr); { Send DVM #2 setting string }
iochk; { Error check }
{ Measurement start }