% 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;
|
use STM32.GPIO.Ports;
|
||||||
|
|
||||||
procedure SPI_LCD is
|
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);
|
Period : constant Time_Span := Milliseconds(2000);
|
||||||
Now : Time := Clock;
|
Now : Time := Clock;
|
||||||
|
@ -29,7 +26,7 @@ begin
|
||||||
LED.Set_OSPEEDR (STM32.GPIO.Very_High_Speed);
|
LED.Set_OSPEEDR (STM32.GPIO.Very_High_Speed);
|
||||||
LED.Set_PUPDR (STM32.GPIO.No_Pull);
|
LED.Set_PUPDR (STM32.GPIO.No_Pull);
|
||||||
|
|
||||||
LED.Set (not LED_On);
|
LED.Set (False);
|
||||||
|
|
||||||
LED_2_RCC_EN := True;
|
LED_2_RCC_EN := True;
|
||||||
|
|
||||||
|
@ -38,7 +35,7 @@ begin
|
||||||
LED_2.Set_OSPEEDR (STM32.GPIO.Very_High_Speed);
|
LED_2.Set_OSPEEDR (STM32.GPIO.Very_High_Speed);
|
||||||
LED_2.Set_PUPDR (STM32.GPIO.No_Pull);
|
LED_2.Set_PUPDR (STM32.GPIO.No_Pull);
|
||||||
|
|
||||||
LED_2.Set (not LED_2_On);
|
LED_2.Set (False);
|
||||||
|
|
||||||
loop
|
loop
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue