Informática Industrial - Examen ... - PoliformaT - UPV
Informática Industrial - Examen ... - PoliformaT - UPV
Informática Industrial - Examen ... - PoliformaT - UPV
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
salida = 1;<br />
// valor inicial de la salida<br />
// esparar pulso<br />
while(entrada) {} // espera mientras la entrada sea un<br />
nivel alto (=1)<br />
while(entrada==0) {} // espera termacion pulso<br />
nuevo<br />
entrada_activada = 0;<br />
// supones que no ha llega pulso<br />
// temporizar 10 s<br />
salida = 0;<br />
desbordes = desbordes_retardo_10_s;<br />
while ((entrada_activada == 0) && (desbordes > 0)) {<br />
TR0 = 0; TF0 = 0;<br />
TH0 = recarga_TH0; // Inicialización del registro<br />
TH0 del C/T0<br />
TL0 = recarga_TL0; // Inicialización del registro<br />
TL0 del C/T0<br />
TR0 = 1;<br />
while ((entrada_activada == 0) && (TF0 == 0)) {<br />
if (entrada == 0) {<br />
entrada_activada =1; // se ha<br />
detectado pulso<br />
};<br />
}<br />
desbordes--;<br />
}<br />
// temporizar 1 s a nivel alto<br />
salida = 1;<br />
desbordes = desbordes_semiperiodo_1_s;<br />
while ((entrada_activada == 0) && (desbordes > 0)) {<br />
TR0 = 0; TF0 = 0;<br />
TH0 = recarga_TH0; // Inicialización del registro<br />
TH0 del C/T0<br />
TL0 = recarga_TL0; // Inicialización del registro<br />
TL0 del C/T0<br />
TR0 = 1;<br />
while ((entrada_activada == 0) && (TF0 == 0)) {<br />
if (entrada == 0) {<br />
entrada_activada =1; // se ha<br />
detectado pulso<br />
};<br />
}<br />
desbordes--;<br />
}<br />
// temporizar 1 s a nivel alto