CHAPTER 2 INSTALLATION
63
{ Set the DVM and Multiplexer }
outstr:=’FlT3RAN5';
ieoutput(hp3478,outstr);
{ Send DVM setting string
}
iochk;
{ Error check
}
outstr:=’DWO,16;DW1,0';
ieoutput(adSOO,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
str(i:2 chstr);
outstr:=’DWO,’+chstr;
ieoutput(adSOO,outstr);
{ Close ch.I
}
iochk;
for k:=1 to 100 do k:=k;
{ Relay operation delay }
ietrig(hp3478);
{ Trigger the DVM. }
instr:=’
';
ieenter(hp3478,instr);
{ Enter DVM reading }
iochk;
{ Error check
}
if instr[1]=’+’ then delete(instr,1,1); { delete ‘+’}
val(instr,v[i],code);
writeln(‘CEIANNEL ‘,i:3,v[i]:10:6 ‘ VOLTS’);
if v[i] > v lmt then
begin
writeln(‘
ALARM !!’);
alarm:=1;
end;
end;
if alarm=l then
begin
outstr:=’DW1,1';
ieoutput(adSOO,outstr);
{ Set the alarm }
writeln(‘Set Alarm l’);
end
else
begin
outstr:=’DW1,0';
ieoutput(adSOO,outstr);
{ Reset the alarm}
writeln(‘Reset Alarm l’);
end;
end;
end.
{ End of program
}
Содержание PCLS-848-P
Страница 1: ...PCLS 848 P IEEE 488 INTERFACE CARD PASCA SUPPORT PACKAGE USER S MANUAL...
Страница 6: ...Figures Figuree 7 1 PCL 848A B Block Diagram 77...
Страница 10: ...4 PCLS 848 P User s Manual...
Страница 20: ...14 PCLS 848 P User s Manual...
Страница 32: ...26 PCLS 848 P User s Manual If addr 0 or addr 30 ATN is set false String is entered...
Страница 37: ...CHAPTER 2 INSTALLATION 31 ieinit ioport myaddr setting...
Страница 42: ...36 PCLS 848 P User s Manual If addr 0 or addr 30 ATN is set false Long string is sent...
Страница 56: ...50 PCLS 848 P User s Manual...
Страница 80: ...74 PCLS 848 P User s Manual...
Страница 83: ...CHAPTER 7 THEORY OF OPERATION 77 Figuree 7 1 PCL 848A B Block Diagram...
Страница 84: ...78 PCLS 848 P User s Manual...
Страница 95: ...CHAPTER 7 THEORY OF OPERATION 89...
Страница 97: ...CHAPTER 7 THEORY OF OPERATION 91 Handshake Timing Sequence...
Страница 102: ...96 PCLS 848 P User s Manual...