AT90S2313: Programowanie przycisku z debounce i wyświetlaniem na LCD

Question

Wiatm mam mały problem. Może krótko. Chcę napisać program na at90s2313 który wyświetli mi jakis napis na lcd przy naciśniętym przycisku (pind.0 = 0) i wyświetli inny napis na lcd kiedy puszczę ten sam przycisk (pin.0 = 1) oczywiscie chcialbym wyelimionować drgania może za pomocą funkcji DEBOUNCE...

GienekS · Answer

Niektóre LCD w trakcie zapisu mają zakłócenia w wyświetlaniu. Żeby teki coś poprawnie działało musisz po pojawieniu się odpowiedniego zbocza (oczywiście tę kontrolę zbocza robisz programowo) raz tylko wykonujesz transmisją do LCD, wtedy wyświetlacz nie będzie ci mrugał.

Sław1980 · Answer

a może ktoś pomoże przerobić ten kawałek
Portd =&B0000011
Do
If Pind.0 = 0 Then
Cls
Lcd "Pierwszy napis"
Waitms 300
End If
If Pind.0 = 1 Then
Cls
End If
Loop
End

taki sobie napisałem i działa (po naciśnieciu przycisku i przytrzymaniu wyświetlany jest napis a po zwolnieniu czyszczony jest ekran) ale chciałbym zamiast czyszczeenia ekranu wstawić "drugi napis" niestety nie działa wtedy, może ma to związek z wait...

Promuję tematy:
23.01.2016 Timer, czasomierz kuchenny
07.01.2016 Mały zasilacz regulowany z ograniczeniem prądowym

Charly · Answer

Tak spróbuj: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaDo If Pind.0 = 0 Then Cls Lcd Pierwszy napis Else Cls LCD Drugi napis End If Loop End

Marczeli_P · Answer

Niedziala bo nic nie kazesz wyswietlic sprobuj tego.

cls
Do
If Pind.0 = 0 Then
Cls
Lcd "Pierwszy napis"
Waitms 300
End If
If Pind.0 = 1 Then
Cls
Lcd "Drugi napis"
Waitms 300
End If
Loop
End

mozna to bardziej zgrabnie napisac przy pomocy if else, druga sprawa ze napisany przez ciebie kod nie eliminuje drgan stykow. Uzyj lepiej wbudowanej funkcji Debounce.

Sław1980 · Answer

Ta procedura :

Do
If Pind.0 = 0 Then
Cls
Lcd "Pierwszy napis"
Else
Cls
LCD "Drugi napis"
End If

Loop
End

działa (napis 1 pojawia aię przy nacisnieciu a napis 2 po zwolnieniu) ale napisy nie wyświetlają się do końca
Po wstawieniu wait 200 wszystko działa ok

Portd =&B0000011
Do
If Pind.0 = 0 Then
Cls
Lcd "Pierwszy napis"
Waitms 200
Else
Cls
Lcd "Drugi napis"
Waitms 200
End If

Loop
End

tylko pytanie czemu i jak to bedzie wpływać na inne napisy?

Promuję tematy:
23.01.2016 Timer, czasomierz kuchenny
07.01.2016 Mały zasilacz regulowany z ograniczeniem prądowym

Charly · Answer

Nie wiedziałem że trzeba Ci aż tak dokładnie napisać:


Portd =&B0000011
Cursor Off Noblink
Do 
If Pind.0 = 0 Then 
Cls 
Lcd "Pierwszy napis" 
Wait 1
Else 
Cls 
Lcd "Drugi napis" 
Wait 1
End If 

Loop 
End

Działa bo musi.

Marczeli_P · Answer

Twój program też jest jak najbardziej poprawny ale po puszczeniu przycisku to następne if kasuje ci to co napisałeś dlatego też nie zabardzo możesz zobaczyć co napisał wcześniej. Nie jest to wina opóźnienia,ono utrzymuje tylko przez chwile twój napis na LCD a następnie przechodzi do następnego if które go kasuje (instrukcja cls).

M. S. · Answer

Możesz spróbować tak:

Cls
Do
  Locate 1 , 1
  If Pind.0 = 0 Then
      Lcd "Pierwszy napis"
  Else
      LCD "Drugi napis   "
  End If
Loop
End

Promuję tematy:
22.11.2020 Emulator czujników TPMS dla Opla.

Charly · Answer

Chłopy nie ma już co kombinować, można Locate, można Home itd..., itp... to co ja mu zapodałem działa wyśmienicie, a resztę gość musi sobie w helpie poczytać i samemu pokombinować żeby widział jak które instrukcje i na co wpływają.

Sław1980 · Answer

tak tak działa wyśmienicie i o to mi chodziło właśnie, czasem najprostrze rzeczy potrafią sprawić najwięcej trudności Dzięki chłopaki mam nadzieje że teraz już będzie z górki POZDR.

Sław1980 · Answer

Witam ponownie mam pytanie trochę z innej beczki czy ktoś nie wie czasem jak ustawić symulator AVR żeby działał mniej więcej z prędkością bliską procesora? Bo w tym momencie symulator działa bardzo powoli np zrealizowanie funkcji "waitms 100" zajmuje mu około 2 sekund....

Promuję tematy:
23.01.2016 Timer, czasomierz kuchenny
07.01.2016 Mały zasilacz regulowany z ograniczeniem prądowym

Bęben · Answer

W symulatorze Bascom AVR chyba takiej opcji nie ma, ja bynajmniej sie jej nie doszukałem. W Bascom 8051 natomiast jest.
Problem ten rozwiązałem po prostu nie włączając Play, lecz uruchamiając instrukcje po instrukcji (step).

Sław1980 · Answer

no to kibel.... ale spróbuje jak napisałeś dzięki

Balu · Answer

Dodawało się dyrektywę dla kompilatora.

Sław1980 · Answer

no wywala zupełnie WAIT chodziło mi raczej o to żeby odbywało się wszystko w czsie rzeczywistym ale to tez się przyda

Balu · Answer

Paaanie w czasie rzeczywistym to tylko w erze;) Ale serio, to w tak szybkim symulatorze nie byłbyś w stanie zaobserwować co się dzieje wewnątrz procesora.

Sław1980 · Answer

hehe dobre... chodziło mi o polecenie np wait 5 zebym powiedzmy obserwował na lcd symulatora napis przez 5 sekund a nie przez 5 minut ale trzeba będzie sobie radzić inaczej

AT90S2313: Programowanie przycisku z debounce i wyświetlaniem na LCD

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Post #13

Post #14

Post #15

Post #16

Post #17

Post #18

Podsumowanie tematu