23
FESTO IPC
•Exemple IO40
–Algorithme de lecture du canal1:
Lire Control
TantQue Control=busy faire
Lire Control
Ftq
Control ¬ 0 (Index ¬ 0)
Temporisation
Lire Data
Tension ¬ Data
Temporisation
Lire Data
Tension ¬ Tension + 256*Data
–Programme Pascal:
Var Tension,TensionVolt:Integer;
Repeat
While (Port[$1A4] and $01)= $01 do ;
Port[$1A4] :=0;
Delay(5);
Tension:= Port[$1A5] ;
Delay(5);
Tension:= Port[$1A5]+Tension*256;
TensionVolt:=Tension*Vref/4096 ; {Vref=10}
{Conversion sur 12 bits}
Writeln(‘Tension=’,TensionVolt,’ Volts’);
Until false;