SC PASCAL: PROGRAMACIÓN DE UN TEMPORIZADOR

Vamos a hacer un script en el que después de pulsar un botón, se encienda un led y se mantenga encendido un tiempo determinado.

Para ello vamos a utilizar el mando de freno de aparcamiento, conectado a la entrada número 6, y su led conectado a la salida número 5.

El código es el siguiente:

PROGRAM Timer;

var
Main1:string;

procedure OnInputChange(sn:string;input,value:byte);
begin
if (sn=Main1) then begin
if ((input=6) and (value=1)) then begin
SetTimer(1, true);
WriteOut(main1,5,1);
end;
end;
end;

procedure OnTimer1();
begin
WriteOut(Main1, 5,0);
SetTimer(1, false);
end;

//MAIN
Begin
Main1:='SIMIO000228';
CreateTimer(1, 10000);
End.

En este vídeo se explica con más detalle:

 

Ultima edición: 10.04.2020