% spi_lcd example (port)
This commit is contained in:
parent
d34789c66a
commit
2d4e0c6192
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue