Bascom Atmega16 - dioda nie gaśnie po wciśnięciu klawisza, co poprawić?

Question

Witam. Stworzyłem w bascomie program. Ma działać tak, że po wciśnięciu klawisza zgaśnie dioda. Ale nie działa. Czy ktoś by mógł podpowiedzieć dlaczego? Dioda podpięta do pinu 7 świeci cały czas. Pin 2 jest podpięty do +5v przez rezystor 1k. Wciśnięcie wyłącznika powoduje zwarcie tego pinu do...

ducker1 · Answer

Polecenie pin x.x używamy gdy opisujemy wejście (gdy sprawdzamy jego stan) a portx.x gdy jest wyjściem (wystawiamy na nim określony stan. popraw to i bedzie dobrze. pozdrawiam Damian

gufiak · Answer

Nie znam się na bascomie, ale nie widzę żebyś gdzieś użył metodę debounce. A, i jeśli się nie mylę, to odczytywać powinieneś z Pina, a nie z Porta. A w linii z If wykonujesz odczyt z portu, a nie zapis do niego.

ducker1 · Answer

Takie proste odczytywanie klawisza można zrobić na pętli if, Jest to wprawdzie zawodne i nie dokładne ale jak sie nie klika szybko klawiszem to działa. Fakt ze debounce jest komendą stworzoną właśnie do obsługi klawiatury ale wydaje mi sie ze pawelj dopiero się uczy bascoma bo raczej nie kupował by Atmegi16 po to żeby sobie diodę zaświecić

Pozdrawiam Damian

Promuję tematy:
08.11.2016 Vaillant ecotec 156-5-5, 470F, VR61 Sterowanie instalacją, regulacja.

gufiak · Answer

Nieraz przekonałem się, że bez debounca na zwykłym dip-switchu efekt może być taki, że wygląda jakby nic się nie działo. Oczywiście za którymś przyciśnięciem musi zgasnąć czy zaświecić się dioda, ale żeby działało to jak należy trzeba użyć tej metody. A to że uczy się to oczywiste. I myślę, że to jest najlepsza okazja, żeby powiedzieć o tej metodzie.

pph · Answer

Przy takim napisaniu programu funkcja debounce nie jest potrzebna bo jest wait 1 i to ona przytrzyma informacje o stanie przycisku.

Wyrzuć " Set Porta.2" bo w tym przypadku nie jest potrzebne, jeśli definiujesz porty jako wejścia to będą podciągane do góry wewnątrz procka.

Poza tym ducker1 dobrze napisał. W Bascomie aby zobaczyć stan rejestru odpowiadajacego za stany na danym porcie trzeba w Twoim przypadku napisać :

if pina.2 = 0 then...

a jeśli będziesz chciał sterować zapisem do rejestru portu to piszesz

portb="liczba"
lub
portb.1=0/1

A, i jeszcze jedno. Zastosuj sobie do nauki komendę Toggle - wtedy będziesz miał zmianę stanu na porcie z 1 na 0 i odwrotnie bez konieczności pisania ..=0 i później ..=1
pzdr

pawelj · Answer

No i oczywiście zadziałało z waszą pomocą.
Faktycznie jestem dość początkujący w bascomie i wogóle w programowaniu więc stąd takie błędy

Oczywiście mój układ będzie robił troszkę więcej niż gaszenie led, ale żeby sobie programu nie komplikować to na razie próbuje "z boku"
wklejam działający kod


$regfile = "m16def.dat"
$crystal = 16000000
Config Pina.7 = Output
Config Pina.1 = Input
Do
   Porta.7 = 0
      If Pina.1 = 0 Then
      Porta.7 = 1
      Wait 1
   End If

Loop

Co do komendy DEBOUNCE to mam pytanie. Czy użycie tej komendy powoduje to, że program w na niej staje i czeka na zmianę stanu? Czy sprawdzi co jest i leci dalej?

Dodano po 1 [godziny] 13 [minuty]:

OK. Już rozszyfrowałem debounce. Śmiga program cały czas a reaguje tylko na wciśnięcie klawisza. Czyli idealnie się nadaje do mojego zastosowania

Toggle też wypróbowane.


$regfile = "m16def.dat"
$crystal = 16000000
Config Pina.7 = Output
Config Pina.6 = Output

Config Pina.2 = Input
Config Pina.3 = Input

Porta.6 = 0
Do
  Porta.7 = 0
 Debounce Pina.2 , 0 , Skok , Sub

   Toggle Porta.6

    Wait 1

Loop

Skok:
Porta.7 = 1
  Wait 1
Return

End

Powyższe stworzyłem w celu rozpoznania komend toggle i debounce

Pozdrawiam i dzięki za pomoc

Bascom Atmega16 - dioda nie gaśnie po wciśnięciu klawisza, co poprawić?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Podsumowanie tematu