Que tal foreros?
Espero que algunos estén pendiente de este tema aunque se que ha pasado algún tiempo.
Mi problema es similar al de muchos, solo leo en el bit de diagnostico, un desagradable FF, el montaje es similar al application data de Texas Instruments, al igual que el diseño de la antena, para hacerla utilizé el cable de 0.18 mm o lo que es lo mismo el AWG 33, la base tal cual la hizo nano en PVC, pero no se el diametro que el utilizó, yo implemente el del documento que mencioné antes, y la inductancia resultante fue de 434 uH, demás le puse la resistencia de 15K en paralelo que decian, al medir la resistencia en funcionamiento del circuito me dá una resistencia de 6 Ohmios que me parece muy bajita, el código está en picbasic pro, y con eso me deshize del problema de decidir si leer por el USART o por un puerto Hard, claro que solo tengo la parte del bit de diagnostico, y la palabra de activación es de la forma simple sin mandar un byte de control como la hace nano.
Creo que mi problema entre otros es la antena, y no encuentro documentación para rediseñarla, así que el que me pueda ayudar mil gracias, aquí les dejo el código hecho a las carreras pero funciona, nano si lees esto por favor dime donde encontraste la teoria para el circuito resonante (ya busqué en google)
lo que busco es info de la TI, pero no encuentro nada de las antenas para LF.
Gracias y me disculpan si me derramé en prosa.
[code]
'PIC 18F452
'Oscilador de 20Mhz
'Oscilador del TMS3705 de 4Mhz, Xtal, no resonador
DEFINE LOADER_USED 1
define OSC 20
'Definición Hyperterminal
' Set receive register to receiver enabled
DEFINE HSER_RCSTA 90h
' Set transmit register to transmitter enabled
DEFINE HSER_TXSTA 24h
' Set baud rate
DEFINE HSER_BAUD 9600
' Set SPBRG directly (normally set by HSER_BAUD)
'DEFINE HSER_SPBRG 19
ADCON1 = 7 ' Set PortA and E to digital operation
'Def. Puertos
'Comunicación micro RFID
txct var porte.1
scio var porte.0
'Led de aviso
led_wait var portb.7
led_accept var portb.6
'Variables
dato var byte[14]
diagnostico var BYTE
i var byte 'contador
'Constantes
config con %10000001 'Palabra de configuración TMS3705
input SCIO
pause 1000
'Limpia buffer de datos
'FOR I = 0 TO 14
' DATO[I]=1
'NEXT
I = 0
'diagnostico = 1
LOW led_wait
LOW led_accept
PAUSE 150
hserout ["INICIO PROGRAMA",13,10]
HIGH txct
INICIO:
hserout ["INICIO CONFIGURACION",13,10]
LOW TXCT
PAUSEUS 49
HIGH txct
PAUSEUS 2049
LOW TXCT
' pauseUS 2140 'Tiempo de espera del Bit de diagnostico
gosub rx
' DEBUGin 500,INICIO,[hex diagnostico]
hserout ["DIAGNOSTICO: ",HEX2 diagnostico,13,10]
GOTO INICIO
Rx:
while scio = 0
wend
IF SCIO = 1 THEN 'Bit de inicio
PAUSEUS 32
IF SCIO = 1 THEN 'AntiDebounce
PAUSEUS 64
if scio = 1 then
diagnostico.7 = 1
else
diagnostico.7 = 0
endif
PAUSEUS 64
if scio = 1 then
diagnostico.6 = 1
else
diagnostico.6 = 0
endif
PAUSEUS 64
if scio = 1 then
diagnostico.5 = 1
else
diagnostico.5 = 0
endif
PAUSEUS 64
if scio = 1 then
diagnostico.4 = 1
else
diagnostico.4 = 0
endif
PAUSEUS 64
if scio = 1 then
diagnostico.3 = 1
else
diagnostico.3 = 0
endif
PAUSEUS 64
if scio = 1 then
diagnostico.2 = 1
else
diagnostico.2 = 0
endif
PAUSEUS 64
if scio = 1 then
diagnostico.1 = 1
else
diagnostico.1 = 0
endif
PAUSEUS 64
if scio = 1 then
diagnostico.0 = 1
else
diagnostico.0 = 0
endif
endif 'Final antidebounce
endif 'Final If Bit de inicio
return [/code]
