

var
bToggle, bPushed: boolean;
In_Cmd: sbit at GP1_bit;
Out_1: sbit at GP0_bit;
Out_2: sbit at GP2_bit;
Out_3: sbit at GP4_bit;
Out_4: sbit at GP5_bit;begin
{ Main program }
while true do
begin
if Button(GPIO, 1, 100, 0) and (bPushed = false) then
begin
bPushed := true;
if bToggle then
begin
Out_1 := 0; // désactivation sortie Out1
Out_2 := 1; // activation sortie Out2
Out_4 := 1; // début impulsion sur sortie Out4
Delay_ms(200);
Out_4 := 0; // fin impulsion sur sortie Out4
bToggle := false;
end
else
begin
Out_1 := 1; // activation sortie Out1
Out_2 := 0; // désactivation sortie Out2
Out_3 := 1; // début impulsion sur sortie Out3
Delay_ms(200);
Out_3 := 0; // fin impulsion sur sortie Out3
bToggle := true;
end;
end;
if In_Cmd = 1 then
bPushed := false;
end;
end;
if Button(GPIO, 1, 100, 0) and (bPushed = false) then