Kulpina pisze:Aha właśnie co daje polecenie select case?

Wszystkie polecenia Bascoma są dokładnie opisane w helpie, który jest dostępny zarówno w wersji angielskiej, jak i polskiej.

If Zdarzenie = 1 Then licznik = 4 timer1 = 65535 enable timer1 enable interrupts config timer1 = timer, prescale = 64 End If T1_Int: select case licznik 1: portb = sekwencja1 2: portb = sekwencja2 3: portb = sekwencja3 4: portb = sekwencja4 end case If licznik > 0 Then timer1 = 100 ms Else timer of...

To jest oczywiście asembler. Jak wkleisz go do bascoma, to nie powinno być żadnych problemów z odpaleniem tego.
Gdybym napisał to w basicu, to z pewnością zajęłoby ci to 2x więcej miejsca.

Zadeklaruj jakąś zmienną bajtową, np.: Dim FlashIdx As Byte On Timer1 T1_Int NoSave Jak przyjdzie czas animacji diod, to ustaw licznik kroków - w tym przypadku 4 (01111110, 10111101, 11011011, 11100111). Następnie skonfiguruj Timer1 i włącz przerwania. Poniższą procedurę musisz wykonać za każdym raz...

Jak zrobisz na przerwaniach, to będzie "profesjonalniej" wyglądać, no i wyrobisz się bardziej w pracy z obsługą przerwań.

U mnie w Bascom AVR 1.11.8.1 kompiluje się bez problemu.

Wszystko zależy od tego jak mocno jest zajety procesor. Jeżeli poza zmianą stanu portu ma jeszcze wiele innych zadań, to najlepiej użyć przerwań. W przeciwnym wypadku Waitms z powodzeniem wystarczy.

Bardzo prosty przykład z helpa Dim A As Byte A = 1 'assign a var Do 'begin a do..loop Print A 'print var Incr A 'increase by one Loop Until A = 10 'do until a=10