jestem poczatkujacy i mam taki problem. potrzebuję zbudowac taki uklad:
1. sczyta kod karty poprzez czytnik rfid na htrc110
2. przekaże do atmegi8 która wypisze to na lcd
3. przez max232 przesle do komputera
jak na razie nie mam pojecia jak ze sobą połączyć htrc110 i atmege8 aby wspolpracowaly
oraz jak to zakodować w BASCOM
kod na ktorym sie wzoruje wyglada tak:
Kod: Zaznacz cały
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portd.4 , E = Portd.3 , Rs = Portd.2
Cursor Off
Cursor Off Noblink
Dim Bufor(7) As Byte
Dim I As Byte
Dim A As Byte
Dim B As Long
Dim C As Byte
Config Portb = Output
Portb = &B00000000
B = 0
P0:
Cls
Lcd "Czekam na Karte"
For A = 0 To 99 Step 6
For I = 1 To 7
Bufor(i) = Waitkey()
Next I
Locate 1 , 1
Lcd "CZYTAM KARTE..."
Locate 2 , B
B = B + 1
Lcd "{219}"
Next A
B = 1
C = 0
'Locate 1 , 1
'Lcd Bufor(1) ; "." ; Bufor(2) ; "." ; Bufor(3) ; "." ; Bufor(4) ; " " ' Wyświetla nr Karty RFID
'Locate 2 , 1
'Lcd Bufor(4) ;Bufor(5) ; "." ; Bufor(6) ; "." ; Bufor(7)
'Wait 20
Cls
Lcd " Odczytane"
If Bufor(1) = 137 And Bufor(2) = 160 And Bufor(3) = 192 Then C = 1
If Bufor(1) = 104 And Bufor(2) = 80 And Bufor(3) = 5 Then C = 2
If Bufor(1) = 103 And Bufor(2) = 74 And Bufor(3) = 230 Then C = 3
If Bufor(1) = 104 And Bufor(2) = 253 And Bufor(3) = 87 Then C = 4
If Bufor(1) = 119 And Bufor(2) = 4 And Bufor(3) = 75 Then C = 5
If C = 0 Then Goto P2:
Locate 2 , 4
Lcd "KARTA Nr" ; C
Portb = &B00000100
Wait 5
Portb = &B00000000
Goto P0
P2:
Locate 2 , 1
Lcd " NIEZNANA KARTA "
Portb = &B00000000
Wait 3
Goto P0
End
:
i prosze kogos zeby powiedzial jak polaczyc czytnik do atmegi i czy to zadziala i ew. jakie poprawki.
z góry dziękuję
----
pozdrawiam
