http://www.mikroe.com/eng/products/view/753/mikrobas
ic-pro-for-arm/

Za Basicem nie przepadam. Specjalnie dla Tibbo trochę musiałem grzebnąć
w tym języku. Za to Bascomowcom przesiadkę na 32 bity pewnie ułatwi,
szczególnie że już wspiera popularne i tanie u nas układy STM32.
Przykład chyba dobrze wygląda, a zapis typu @nazwa nie odstraszy aż tak
bardzo...

' Project name:
' Button_Test (Sample usage of Button() function)
[...]

program Button_Test
dim oldstate as byte
main:
GPIO_Digital_Input(@GPIOA_BASE, _GPIO_PINMASK_0) ' Set PA0 as
digital input
GPIO_Digital_Output(@GPIOD_BASE, _GPIO_PINMASK_ALL) ' Set PORTD as
digital output
oldstate = 0

while TRUE
if (Button(GPIOA_IDR, 0, 1, 1) <> 0) then ' detect
logical one on PA0 pin
oldstate = 1 ' update flag
end if
if (oldstate and Button(GPIOA_IDR, 0, 1, 0)) then ' detect
one-to-zero transition on PA0 pin
GPIOD_ODR = not GPIOD_ODR ' invert
PORTD value
oldstate = 0 ' update flag
end if
wend ' endless loop
end.



--
Michał

do góry