-
Path: news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
From: Michał Lankosz <m...@t...pl>
Newsgroups: pl.misc.elektronika
Subject: 32-bity dla Bascomowców
Date: Thu, 19 Jul 2012 14:25:34 +0200
Organization: "Portal Gazeta.pl -> http://www.gazeta.pl"
Lines: 40
Message-ID: <ju8uc5$akm$1@inews.gazeta.pl>
NNTP-Posting-Host: 91.232.62.46
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
X-Trace: inews.gazeta.pl 1342700742 10902 91.232.62.46 (19 Jul 2012 12:25:42 GMT)
X-Complaints-To: u...@a...pl
NNTP-Posting-Date: Thu, 19 Jul 2012 12:25:42 +0000 (UTC)
X-User: dxfm
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:14.0) Gecko/20120713 Thunderbird/14.0
Xref: news-archive.icm.edu.pl pl.misc.elektronika:634118
[ ukryj nagłówki ]
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ł
Najnowsze wątki z tej grupy
- Thunderbird i dysk...
- opornosc falowa
- Bateria 9V 6F22, alkaliczna v cynkowa, samorozładowanie, bateria wysokiej trwałości do miernika
- Tani zakup z ali?
- w czasach LED komary mają ciężko
- walizka z kodami
- Rejestrator temperatur - termopara, siec
- Router LTE z możliwością zmian MTU
- Fajny film widziałem...
- Jaka ładowarka sieciowa do Iphona?
- Taśma izolacyjna do prac elektrycznych
- Recenzja 3.1A ;) w 6 gniazdach...
- Re: Recenzja 3.1A ;) w 6 gniazdach...
- Re: Recenzja 3.1A ;) w 6 gniazdach...
- Re: Recenzja 3.1A ;) w 6 gniazdach...
Najnowsze wątki
- 2025-07-23 Gdańsk => Programista Delphi <=
- 2025-07-23 Gdańsk => Programista Mainframe (z/OS, Assembler) <=
- 2025-07-23 Warszawa => Starszy inżynier DevOps (AWS) <=
- 2025-07-23 Gdańsk => Mainframe (z/OS, Assembler) Developer <=
- 2025-07-23 Kraków => Senior Fullstack Engineer (Low-Code Platform) <=
- 2025-07-23 Wrocław => Senior Key Account Manager IT <=
- 2025-07-23 Trójmiasto => Head of Social Media <=
- 2025-07-23 Rzeszów => Spedytor Międzynarodowy <=
- 2025-07-23 Lublin => ERP Implementation Consultant (AP Module) <=
- 2025-07-23 Środa Wielkopolska => SAP FI/CO Internal Consultant <=
- 2025-07-23 Warszawa => Inżynier oprogramowania .Net <=
- 2025-07-23 Kraków => Kotlin Developer <=
- 2025-07-23 Żerniki => Dyspozytor Międzynarodowy <=
- 2025-07-23 Warszawa => Java Developer <=
- 2025-07-23 Wrocław => Konsultant wdrożeniowy (systemy controlingowe) <=