Witam.
Uczę się (staram sie) programowania w BASCOM. Orłem nie jestem. Do nauki używam książkę "Marcina Wiązania - Programowanie mikrokontrolerow AVR w jezyku Bascom". Pierwsza lekcja opisuje prosty kod:
który ma symulować biegnące światełko, a przycisk ma zmieniać kierunek "lewo-prawo".
Początkowo myślałem że źle przepisałem z książki kod, więc znalazłem źródła na stronie wydawcy książki i problem jest identyczny!!
po skompilowaniu i wgraniu BIN-a do Atmega świecą się zawsze wszystkie LED-y.
Do testów używam ZL2AVR v.2. Płytka sprawna bo inne źródła po skompilowaniu działają OK.
proszę o pomoc boo już mi sił brakuje
Uczę się (staram sie) programowania w BASCOM. Orłem nie jestem. Do nauki używam książkę "Marcina Wiązania - Programowanie mikrokontrolerow AVR w jezyku Bascom". Pierwsza lekcja opisuje prosty kod:
$SIM 'dyrektywa opuszczenia instrukcji
'opóźnienia
$REGFILE = "m8def.dat" 'informuje kompilator o pliku
'dyrektyw mikrokontrolera
$CRYSTAL = 8000000 'informuje kompilator o częstotliwości
'oscylatora taktującego
'mikrokontroler
Config Portd = Output 'wszystkie linie portu D
'jako wyjściowe
Config Pinb.0 = Input 'linia PB0 jako wejściowa
Dim Kierunek As Bit 'pomocnicza zmienna bitowa
Przycisk Alias Pinb.0 'przypisanie zastępczej Przycisk
'nazwy dla Pinb.0
Set Portb.0 'włączenie rezystora podciągającego
'do linii PB0
Portd = &B11111110 'wpisanie wartości 254 do portu D
Reset Kierunek 'zerowanie zmiennej określającej
'kierunek zaświecania diod LED
Do 'początek pętli nieskończonej
If Przycisk = 0 Then 'jeśli przycisk naciśniety, to
Waitms 50 'odczekaj 50 ms
Toggle Kierunek 'zmień stan na przeciwny
'zmiennej bitowej Kierunek
Do 'pętla do wykonywana, aż
Loop Until Przycisk = 1 'do puszczenia przycisku
End If 'koniec instrukcji warunkowej
If Kierunek = 1 Then 'jeżeli zmienna Kierunek=1, to
Rotate Portd , Left 'przesuwaj wpisane wartości do
'portu D w lewo
Else 'w przeciwnym wypadku
Rotate Portd , Right 'przesuwaj wpisane wartości do
'portu D w prawo
End If 'koniec warunku
Waitms 100 'czekaj 100 ms
Loop 'koniec pętli głównej programu
End 'koniec programu
który ma symulować biegnące światełko, a przycisk ma zmieniać kierunek "lewo-prawo".
Początkowo myślałem że źle przepisałem z książki kod, więc znalazłem źródła na stronie wydawcy książki i problem jest identyczny!!
po skompilowaniu i wgraniu BIN-a do Atmega świecą się zawsze wszystkie LED-y.
Do testów używam ZL2AVR v.2. Płytka sprawna bo inne źródła po skompilowaniu działają OK.
proszę o pomoc boo już mi sił brakuje
