Vovanium
/
stm32-ada
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

% spi_lcd example (port)

This commit is contained in:
Vovanium 2024-03-28 22:26:18 +03:00
parent d34789c66a
commit 2d4e0c6192
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/spi_lcd/spi_lcd.adb
View File

@ -6,9 +6,6 @@ with STM32.GPIO.Ports;
use STM32.GPIO.Ports;
procedure SPI_LCD is
package LED is new GPIO_Port_Boolean(LED_Port, LED_Bit);
package LED_2 is new GPIO_Port_Boolean(LED_2_Port, LED_2_Bit);
Period : constant Time_Span := Milliseconds(2000);
Now : Time := Clock;
@ -29,7 +26,7 @@ begin
LED.Set_OSPEEDR (STM32.GPIO.Very_High_Speed);
LED.Set_PUPDR (STM32.GPIO.No_Pull);
LED.Set (not LED_On);
LED.Set (False);
LED_2_RCC_EN := True;
@ -38,7 +35,7 @@ begin
LED_2.Set_OSPEEDR (STM32.GPIO.Very_High_Speed);
LED_2.Set_PUPDR (STM32.GPIO.No_Pull);
LED_2.Set (not LED_2_On);
LED_2.Set (False);
loop