add both paths when button A is pressed

devel_freefall^2
Simon Frei 3 years ago
parent 13d02a42ee
commit 5e182838ca
  1. 6
      ASYD_Safety/Ada_Microbit/examples/MicroBit/jumper/src/main.adb

@ -66,10 +66,12 @@ begin
loop
if Buttons.State (Button_A) = Pressed then
DO_1_Pt.Set_Pull_Resistor(Pull => HAL.GPIO.Pull_Up);
DO_2_Pt.Set_Pull_Resistor(Pull => HAL.GPIO.Pull_Up);
DO_3_Pt.Set_Pull_Resistor(Pull => HAL.GPIO.Pull_Up);
DO_4_Pt.Set_Pull_Resistor(Pull => HAL.GPIO.Pull_Up);
Display.Clear;
Display.Display ('0');
Display.Display ('X');
end if;
if Buttons.State (Button_B) = Pressed then
DO_1_Pt.Set_Pull_Resistor(Pull => HAL.GPIO.Pull_Down);
@ -77,7 +79,7 @@ begin
DO_3_Pt.Set_Pull_Resistor(Pull => HAL.GPIO.Pull_Down);
DO_4_Pt.Set_Pull_Resistor(Pull => HAL.GPIO.Pull_Down);
Display.Clear;
Display.Display ('X');
Display.Display ('0');
end if;

Loading…
Cancel
Save