Odczyt stanu kilku portów i zamiana na licz. dziesiętną

Question

Witam Mam pewien problem mianowicie chcem napisać program w Bascom AVR program, który odczytuje mi wartości z czterech portów mikrokontrolera i zamienia tą wartość na liczbę dziesiętną. Dopiero od niedawna zajmuję się Bascom AVR i próbowałem już różnych sztuczek z przesówaniem bitów itp. ale jak...

LordBlick · Accepted Answer

Dim Liczb as Byte
Dim Cyfra0 as Byte ' cyfra jednostek
Dim Cyfra1 as Byte ' cyfra dziesiatek
.
.
.
Liczb = PIND ' odczyt stanu pinów
Shift Liczb, Right, 2 ' przesunięcie bitów w prawo, tak aby PD2 znaczyło 2^0, PD3 = 2^1, itd...
Liczb = Liczb And & &B00001111 ' obcinamy wartość niepotrzebnych tutaj pinów PD6-PD7 (przesuwanie już obcieło PD0-PD2)
Cyfra0 = 0
Cyfra1 = 0
If Liczb < 10 Then
Cyfra0 = Liczb
Else
Cyfra1 = 1
Cyfra0 = Liczb - 10
End If

Zmienna "Liczb" nigdy w tym przykładzie nie bądzie wieksza od 15 (1111 binarnie)
Mam nadzieję, że pomogłem

Pozdrawiam, LightHouser

LordBlick · Accepted Answer

Ta maska może też wynosić &B00001111 (czyli 15 dziesietnie), jeżeli And będzie po Shift, jak jak w moich wcześniejszych przykładach. Pozdrawiam, LightHouser

GienekS · Answer

Generalnie polega to na przemnożeniu odpowiednich wartości portów przez potęgę liczby 256
Liczba = PD5 + 256 * PD4 + 256^2 * PD3 + 256^3 * PD2
Oczywiście przy założeniu że PD5 to najmłodszy bajt całej liczby.
Jedynie nie wiem czy BASIC potrafi działać na takich dużych liczbach.

zumek · Answer

A możesz napisać jakie to dane będziesz odczytywał z tych pinów Czy będzie to klawiatura , jakieś czujniki Napisz dokładnie co to będzie podpiete do tych pinów. Pozdrawiam Piotrek Sz.

LordBlick · Answer

No cóż, mamy tu pewne zamieszanie, chociaż Bascom obsłuży zmienną 4-bajtową jako typ Long, AT90S2313 nie ma na bank 4 portów... PD2, PD3, PD4 i PD5 to są piny na porcie PORTD. Jak rozumiem, wynikiem ma być liczba 0-15 ? Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaDim Liczb as Byte . . . Liczb = PIND ' odczyt stanu pinów Shift Liczb, Right, 2 ' przesunięcie bitów w prawo, tak aby PD2 znaczyło 2^0, PD3 = 2^1, itd... Liczb = Liczb And & &B00001111 ' obcinamy wartość niepotrzebnych tutaj pinów PD6-PD7 (przesuwanie już obcieło PD0-PD2) Pozdrawiam, LightHouser

liga · Answer

Ok dzięki za odpowiedzi coś pokombinuję i czekam na dalsze propozycje.
A jeśli chodzi o to jakie dane będe odczytywał z pinów to są to dane z dekodera DTMF MT8870. Dekoder na wyjściach podaje binarną reprezentację wciskanych klawiszy w telefonie (0-9 i znaki #, *) i kłopot w tym, że potrzebuję zamienić tę reprezentację binarną na liczbę dziesiętną, a potem zrobić jakieś warunki, które dla odpowiedniej liczby wysterują jakiś port ale z tym to sobie jakoś dam radę chodzi mi o tą zamianę na liczbę dziesiętną.
Jeszcze raz dziękuję za dotychczasowe odpowiedzi i czekam na kolejne wskazówki.

Pozdrawiam Liga

liga · Answer

Witam ponownie

Dzięki za pomoc !! Już za pierwszym razem sobie poradziłem, a oto mój symulacyjny program który działa poprawnie z mikrokontrolerem.

$regfile = "2313DEF.dat"

$crystal = 8000000
Dim A As Byte

Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.4 = Input
Config Pind.5 = Input
Config Pind.6 = Input

Set Portd.2
Set Portd.3
Set Portd.4
Set Portd.5
Set Portd.6
S1 Alias Portd.6
Do
A = Pind
A = A And &B11000011
Shift A , Right , 2
Cls
Lcd "A wynosi:"
Lcd A
Waitms 200
Loop
End

Dzięki za pomoc.
Pozdrawiam Liga

zumek · Answer

Chyba niebardzo sobie poradziłeś Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka ... A = A And &B11000011 ... Po operacji j/w bity 2,3,4,5 w zmiennej A zostaną ustawione na 0 , a nie o to Ci przecież chodziło.Maska dla operacji AND powinna w Twoim przypadku wyglądać &B00111100 . Pozdrawiam Piotrek Sz.

liga · Answer

Heh po prostu nie zakumałem dobrze chyba całej zasady działania tej komendy AND :-)

) przez jakiś przypadek urządzenie mi działało tak jak chciałem ale nie testowałem tego rozwiązania dokładnie bo to była już 4 nad ranem i dzisiaj okazało się że nie działa tak jak trzeba :-/. Zmieniłem wszystko zgodnie z ustawieniami jakie polecił mi LightHouser i teraz jest ok.
Jeszcze raz wielkie dzięki
Pozdrawiam, Liga

Odczyt stanu kilku portów i zamiana na licz. dziesiętną

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Podsumowanie tematu