Andree-HB
05.02.2012, 14:12
Folgendes Problem - Ich habe mir ein RFID-Modul an einen Atmega8 angeschlossen.
Der Atmega kommuniziert über Hardware UART, (MCS)Bootloader ist onboard, Übetragung funktioniert
Nun möchte ich das Modul/einen RFID-Tag softwaremässig an einem Pin(D.2) einlesen und den Inhalt über Hardware-UART wieder ausgeben, das klappt aber nicht
Modul :
http://www.seeedstudio.com/wiki/index.php?title=Electronic_brick_-_125Khz_RFID_Card_Reader
Output Data Format
0x02
10ASCII Data Characters
Checksum
0x03
0x02 - 1 byte start flag
10 ASCII Data Characters – Card number info
Checksum - 2 bytes
0x03 - 1 byte end flag
...also 14 Bytes, werden so auch als String definiert
com #2 liegt als input an Pind.2
Der zu Testzwecken vorgegebene Inhalt I wird auch ausgegeben, aber nach dem "Input" zum aktualisieren passiert nix mehr und das Programm hängt sich auf.
....wo liegt evtl. nur mein Denkfehler ?
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Enable Interrupts
Print "Waiting for action..."
Waitms 500
Dim I As String * 14
Open "comd.2:9600,8,n,1" For Input As #2
I = "12345678910234"
Do
Print I
Input #2 , I
Print I
Loop
End
Der Atmega kommuniziert über Hardware UART, (MCS)Bootloader ist onboard, Übetragung funktioniert
Nun möchte ich das Modul/einen RFID-Tag softwaremässig an einem Pin(D.2) einlesen und den Inhalt über Hardware-UART wieder ausgeben, das klappt aber nicht
Modul :
http://www.seeedstudio.com/wiki/index.php?title=Electronic_brick_-_125Khz_RFID_Card_Reader
Output Data Format
0x02
10ASCII Data Characters
Checksum
0x03
0x02 - 1 byte start flag
10 ASCII Data Characters – Card number info
Checksum - 2 bytes
0x03 - 1 byte end flag
...also 14 Bytes, werden so auch als String definiert
com #2 liegt als input an Pind.2
Der zu Testzwecken vorgegebene Inhalt I wird auch ausgegeben, aber nach dem "Input" zum aktualisieren passiert nix mehr und das Programm hängt sich auf.
....wo liegt evtl. nur mein Denkfehler ?
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Enable Interrupts
Print "Waiting for action..."
Waitms 500
Dim I As String * 14
Open "comd.2:9600,8,n,1" For Input As #2
I = "12345678910234"
Do
Print I
Input #2 , I
Print I
Loop
End