Witam,
jakiś czas temu zakupiłem czytnik MP01610 i transpondery UNIQUE, układ zamontowałem na atmedze 8 jak i próbowałem na 32, kwarc 8 i 16MHz lecz po podłączeniu nic się nie dzieje, połączenia są ok, sprawdzałem wielokrotnie i zasilanie jest z jednego zasilacza 5V 620mA, kod jaki użyłem był juz na forum elektrody. Poniżej przedstawiam:
Czy jest inny sposób na przetestowanie czytnika czy działa?
Czy ktoś wie może dlaczego nic się nie dzieje?
jakiś czas temu zakupiłem czytnik MP01610 i transpondery UNIQUE, układ zamontowałem na atmedze 8 jak i próbowałem na 32, kwarc 8 i 16MHz lecz po podłączeniu nic się nie dzieje, połączenia są ok, sprawdzałem wielokrotnie i zasilanie jest z jednego zasilacza 5V 620mA, kod jaki użyłem był juz na forum elektrody. Poniżej przedstawiam:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 1200
$hwstack = 64
$swstack = 64
$framesize = 64
Dim Tags(5) As Byte
Dim J As Byte
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
Config Hitag = 64 , Type = Em4095 , Demod = Pind.3 , Int = @int1
Config Portd.0 = Output
Portd.0 = 0
Config Portd.1 = Output
Portd.1 = 0
Cls
Lcd "Test EM4095"
Wait 5
On Int1 Checkints Nosave
Config Int1 = Change
Enable Interrupts
Cls
Do
Upperline
Lcd "Check..."
If Readhitag(tags(1)) = 1 Then
For J = 1 To 5
Cls
Lcd Hex(tags(j)) ; ",";
Wait 2
Next
Else
Lowerline
Lcd "Nothing"
End If
Waitms 500
Loop
Checkints:
Call _checkhitag
Return
Czy jest inny sposób na przetestowanie czytnika czy działa?
Czy ktoś wie może dlaczego nic się nie dzieje?