[AtMega16][BASCOM]Odczyt danych z RS232 i wyświetlenie LCD

Question

[AtMega16][BASCOM]Odczyt danych z RS232 i wyświetlenie LCD

06 Sie 2008 23:08 4733 12

Odpowiedz Nowy temat

#1 06 Sie 2008 23:08

323493 323493

Użytkownik usunął konto
#1 06 Sie 2008 23:08

Witam,kupiłem niedawno moduł czytnika kart RFID ,po podłączeniu do komputera wyświetlał mi dziwne dane(tak jakby zła prędkość...),postanowiłem więc podłączyć go do M16 i wyświetlenie na LCD w celu odczytania kodu z karty .Na ekranie nic się nie pojawia ,próbowałem z różnymi poleceniami odczytu z rs'a ale nic mi nie wyszło(niby coś odczytuje ale w niezrozumiałym języku).Proszę o pomoc gdyż czytnik RFID będzie głównym elementem mojego urządzenia.

Code:
$regfile = "m16def.dat"
$crystal = 16000000
$baud = 9600
Config Timer2 = Pwm , Pwm = On , Prescale = 1 , Compare Pwm = Clear Up
Config Lcdpin = Pin , Db4 = Portc.6 , Db5 = Portc.5 , Db6 = Portc.4 , Db7 = Portc.3 , E = Porta.6 , Rs = Portc.7
Config Lcd = 20 * 4
config portd.6 = output
portd.6 = 1 'BEEPER
waitms 10 '
portd.6 = 0 '
cursor off
dim a as string * 20 'Kod karty ok 20 zn.
cls
Do
cls
ocr2 = 255 'podswietlenie lcd
input a
Locate 1 , 1
Lcd a
Waitms 1000
loop

Cytat:

Parametry układu :

Zasilanie : 5 V max. stabilizowane
Zasięg odczytu : ~8 cm max.
Format danych : RS232 TTL (ramka danych 0xff,x,x,x,x,x,crc8 ), x-dane karty
Antena : W zestawie z czytnikiem
Wymiary : 25x20x5mm

Ps.LCD podłączony dobrze bo inne dane wyświetla,moduł coś "wypluwa",ale chyba z ta zmienna string coś mu nie pasuje...
0 12
#2 09 Sie 2008 13:16

Stepel Stepel

Poziom 20

Pomocny post? (0)

#2 09 Sie 2008 13:16

moze powinieneś skorzystać z instrukcji inkey() , zobacz w helpie jej zastosowanie.
0
#3 09 Sie 2008 15:15

323493 323493

Użytkownik usunął konto

Pomocny post? (0)

#3 09 Sie 2008 15:15

Niestety tez próbowałem jej używać,bez większych efektów : (
0
#4 09 Sie 2008 16:09

ZbeeGin ZbeeGin

Poziom 38

Pomocny post? (0)

#4 09 Sie 2008 16:09

Tam nic nie ma o znakach CR/LF które to zakończą INPUT. Jeśli liczba bajtów jest stała (7 bajtów) skorzystaj z INPUTBIN.
0
#5 09 Sie 2008 17:39

323493 323493

Użytkownik usunął konto

Pomocny post? (0)

#5 09 Sie 2008 17:39

Ok zastosowałem instrukcje PRINTBIN,ale co dalej ?Co należy zrobić żeby zamienić to na jakieś strawne dane?:
0
#6 09 Sie 2008 20:05

dawid512 dawid512

Poziom 32

Pomocny post? (0)

#6 09 Sie 2008 20:05

Próbuj z innym baudem. Widocznie jest zła prędkość transmisji.
0
#7 09 Sie 2008 20:17

323493 323493

Użytkownik usunął konto

Pomocny post? (0)

#7 09 Sie 2008 20:17

Ehh jak moglem o tym zapomnieć ,popróbuje narazie dzięki.

Co może być jeszce źle?ustawiałem ze 15 prędkości transmisji i nie działa, ciągle jakieś bzdety: / Pamiętam jak podłączyłem moduł przez konwerter 232 do PC tez miałem podobny problem,jak dobrać ta prędkość?Moduł ma w sobie kwarc 4mhz,i pracuje najprawdopodobniej z prędkością 4800...

_________________________________
Parametry ukladu
Zasilanie : 5 V max. stabilizowane
Pobór pr¹du : ~5mA œrednio (50mA w momencie zbli¿enia karty)
Zasiêg odczytu : ~8 cm
Format danych : RS232 TTL prêdkoœæ 9600, bit stopu, bez parzystoœci
dane : ramka 7 bajtów
0xFF , x , x ,x , x , x , crc8 , gdzie x to numer karty
Antena : oko³o 70 zwoi drutu DNE0,2 na œrednicy 50mm
0
#8 10 Sie 2008 08:38

ZbeeGin ZbeeGin

Poziom 38

Pomocny post? (0)

#8 10 Sie 2008 08:38

Mictronic napisał:
Ok zastosowałem instrukcje PRINTBIN,ale co dalej ?Co należy zrobić żeby zamienić to na jakieś strawne dane?:

Co masz na myśli pisząc "strawne dane"? Przecież układ RFID wysyła nie ciąg znaków ASCII tylko bajty. A jak widać na zdjęciu karta się przedstawia zawsze tak samo - komunikacja jest poprawna.
0

Pomocny post

#9 10 Sie 2008 11:38

JmL(TM) JmL(TM)

Poziom 24

Pomocny post #9 10 Sie 2008 11:38

#10 11 Wrz 2008 21:36

suchy_p suchy_p

Poziom 1

Pomocny post? (0)

#10 11 Wrz 2008 21:36

Witam!!!

Miałem identyczny problem. Czytniki działały ale nie wysyłały danych w standardzie opisanym w dokumentacji. I wyglądało to tak jak by działały na innej prędkości. Odesłałem je do sprzedawcy i po przeprogramowaniu chodzą jak trzeba. Prawdopodobnie jakaś felerna partia. Proponuję odesłać sprzedawcy do sprawdzenia. U mnie pomogło. Powodzenia!!!
0
#11 11 Wrz 2008 21:59

323493 323493

Użytkownik usunął konto

Pomocny post? (0)

#11 11 Wrz 2008 21:59

Możliwe ,ale napisanie odpowiedniego softu z pomocą kolegi JmL(TM) tez pomogło
0
#12 29 Cze 2015 22:49

tknefel - GORKY tknefel - GORKY

Poziom 13

Pomocny post? (0)

#12 29 Cze 2015 22:49

Witam
Chciałbym odnowić temat ze zbliżonym problemem.
O tuż mam Atmegę32 oraz czujnik z RS232 BAUD 38400. Na chwilę obecną próby przeprowadzane są na PC.
Aby dokonać pojedynczego pomiaru wysyłam następującą komendę do czujnika /020D0059. po czym czujnik odpowiada np:

/0B0D00+020000um18.
/0B0D00+020001um19.
/0B0D00+019999um1B.
/0B0D00+020002um1A.
/0B0D00+020003um1B.

gdzie 020003um jest wynikiem pomiaru i wynosi 20003 mikrometra.
Pytanie brzmi: W jaki sposób w BASCOM z tej odpowiedzi "wyłuskać" sam wynik w postaci zmiennej np WORD?
Potem chce sam wynik wyświetlić na LCD np 20x4 i dokonać średniej arytmetycznej np z 10 pomiarów.
0
#13 30 Cze 2015 07:15

namok namok

Poziom 25

Pomocny post? (+1)

#13 30 Cze 2015 07:15

Za pomocą funkcji Mid wycinasz znaki a za pomocą funkcji Val zamieniasz na wartość.
1

Odpowiedz Nowy temat

score 0 · Accepted Answer

:arrow: Mictronic: Predkosc transmisji to 9600!

Ponizej wklejam wycinki mojego programu do obslugi tego modulu:

Code:

'-------------------------------

' modul RFiD

'

' 9600.1.0

' dane 0xff,x,x,x,x,x,crc8

'-------------------------------



{...}



$baud = 9600                                                ' predkosc transmisji

Config Serialin = Buffered , Size = 100                     ' rozmiar bufora



{...}



Dim Uart_buffer As Byte



Dim I As Byte , Crc As Byte

Dim Card_id(8) As Byte



Declare Sub Uart_clear_buffer()



{...}



Enable Interrupts                                           ' wlacz globalne przerwania



   Do

      Card_id(i) = Inkey()

      Uart_buffer = Ischarwaiting()



      Incr I                                                ' zwieksz "I" o 1



      If I > 7 Then

         Crc = Crc8(card_id(2) , 5)                         ' oblicz check-sume CRC8



         If Card_id(1) = &HFF And Crc = Card_id(7) Then     ' jesli pierwszy bajt = 0xff i CRC8 = OK

            Locate 1 , 1                                    ' pozycja 1,1 na LCD

            'Lcd " ID: "



            'For I = 2 To 6

            '   Lcd Hex(card_id(i))                          ' wyswietl ID karty na LCD

            'Next I



            {...}



            Waitms 1500                                  ' czekaj 1,5s

         End If



      End If

   Loop Until Uart_buffer = 0



Call Uart_clear_buffer()                     ' czysc bufor UART'a



{...}



Sub Uart_clear_buffer()

   Do

      Card_id(1) = Inkey()

      Uart_buffer = Ischarwaiting()

   Loop Until Uart_buffer = 0



   Uart_buffer = 0

   Waitms 100

End Sub

Mam nadzieje, ze to rozwiaze twoj problem...