Programowanie mikrokontrolerów AVR cz. 1

Niniejszym rozpoczynam serię artykułów, których celem będzie zgromadzenie i udostępnienie programów ilustrujących różne aspekty programowania mikrokontrolerów AVR. Nie ukrywam, że będzie to seria przeznaczona przede wszystkim dla uczniów technikum, dla których prowadzę zajęcia z układów mikroprocesorowych i z programowania mikroprocesorów. Zaczniemy oczywiście od podstaw i od prostych mikrokontrolerów (posiadamy platformy testowo-uruchomieniowe dla ATtiny2313, w planach na "powakacje" są również ATmegi); oczywiście programy będą dotyczyły na początku elementarnej problematyki działania układów mikroprocesorowych, komunikacji ze "światem zewnętrznym" i użytkownikiem.
A dziś jeden prosty program (na zachętę), który napisaliśmy z uczniami w środę, 25 kwietnia, na sucho, na tablicy - latająca małpka ("@" przemieszcza się dookoła ekranu). Jednak na zajęciach program był przedstawiony łopatologicznie, napisany "metodą inżyniera Nachamowa". Tutaj zaś pojawiają się nowe elementy, poprawiające odrobinę m. in. stronę wizualną kodu źródłowego.
Zapraszam do śledzenia artykułów wszystkich początkujących. No i moich uczniów oczywiście, którzy za tydzień zaczynają miesięczną praktykę zawodową, więc będą mieli trochę czasu, żeby poćwiczyć programowanie.

	' Latająca małpa - demo
	' Program prezentujący podstawowe operacje związane z wyświetlaniem
	' znaków na standardowym alfanumerycznym wyświetlaczu LCD (16 znaków, 2 wiersze).
	' Przeróbka programu z zajęć 25 kwietnia 2012 r.
	$regfile = "attiny2313.dat"
	$Crystal=4000000
	$hwstack=40
	$swstack=16
	$framesize=32
	Config Lcd = 16 * 2
	' Zmienna I
	' - licznik pętli
	Dim I As Byte
	' Podprogram (procedura) Showmonkey
	' - funkcja wyświetla znak "@" przez [Wtime] milisekund, w wierszu
	' [Row] i kolumnie [Col] LCD
	Declare Sub Showmonkey(byval Col As Byte , Byval Row As Byte , Byval Wtime As Byte)
	' Wygaszenie kursora i czyszczenie ekranu
	Cursor Off
	Cls
	' Pętle animacji - osobno dla wiersza 1 i 2
	Do
	For I = 1 To 16
	Showmonkey I , 1 , 150
	Next I
	For I = 16 To 1 Step -1
	Showmonkey I , 2 , 150
	Next I
	Loop
	' Definicja zadeklarowanego wcześniej podprogramu Showmonkey
	Sub Showmonkey(byval Col As Byte , Byval Row As Byte , Byval Wtime As Byte)
	Locate Row , Col
	Lcd "@"
	Waitms Wtime
	Locate Row , Col
	Lcd Chr(32)
	End Sub
	End

view raw malpa.bas hosted with ❤ by GitHub

Na koniec pytanie: dlaczego BASCOM?
Już odpowiadam: ze względu na popularność w środowiskach elektroników, dostępność materiałów, kursów, literatury (w skład zestawów kursowych, które zakupiliśmy, wchodzi świetna książka Piotra Góreckiego), dedykowanych kursom zestawów uruchomieniowych itd. Język C też wprowadzę, ale jeszcze nie teraz.