Advantech PCLS-848-P, User Manual

Page: 66 / 106

6 0 PCLS-848-P User's Manual
4.4. ADSOO PMU Programming
A. Example in Microsoft Pascal
{ FILE NAME : EX4_MS.PAS }
{ ADS00 PMU PROGRAMMING }
{ Purpose : This program measures 16 channel of voltages }
{ and displays them. If the voltage of any channel }
{ is greater than a certain level then it close a }
{ relay to drive an alarm. }
{ Remark : The ADS00 has a 16 channel multiplexer in slot }
{ 0 and 16 channel relay actuator in slot 1. The }
{ voltage measurement is done by an HP3478A DMM. }
{ The ADS00 has an address of 9 and HP3478A has an }
{ address of 23. }
{ Language : Microsoft Pascal }
Program example4(input,output);
{$INCLUDE : ‘MSPGPIB.INC’}
Procedure iochk; {I/O error check routine}
var
errno [origin 16#DOoo:l6#2olA] : integer;
begin
case errno of
O : ;
1 : writeln(‘TIME OUTIl’);
otherwise
writeln(‘INTERFACE ERRORt1’);
end;
end;
var
oeolstr : lstring(8);
instr,outstr,chstr : lstring(255);
v : array[0..15] of real;
v_lmt : real;
i,k,hp3478,adS00 : integer;
alarm,dum,meas : integer;
dumflag : boolean;
begin { main }
hp3478:=23;
adS00:=9;
v_lmt:=3; { Voltage limit }
oeolstr:=chr(13);
ieseg(16#D000);
ieinit(l6X2B8~2l~o)
for i:=1 to 24 do writeln; { Clear screen }
ieabort;
for i:=1 to 10000 do dum:=dum+1-1; { Delay for ADS00 reset }