hola,quisiera saber si alguieen encuentra xq no me funciona la lectura de temperatura
este es el codigo
#define CONFIG = 0x3f50
AllDigital
TRISA = 0
TRISB = 0
TRISB.3 = 1
Define SPI_CS_REG = PORTB
Define SPI_CS_BIT = 5
Define SPI_SCK_REG = PORTB
Define SPI_SCK_BIT = 4
Define SPI_SDI_REG = PORTB
Define SPI_SDI_BIT = 3
Define SPI_SDO_REG = PORTB
Define SPI_SDO_BIT = 2
'Define SPICS_INVERT = 1
Define SPICLOCK_STRETCH = 0 '0 es maxima velocidad asi son menos de 25us cada byte enviado a 4mhz
SPIPrepare
Dim mostrar As Word
Dim salida As Byte
Dim salidabaja As Byte
Define LCD_BITS = 4
Define LCD_DREG = RA
Define LCD_DBIT = 0
Define LCD_RSREG = RA
Define LCD_RSBIT = 6
Define LCD_EREG = RA
Define LCD_EBIT = 7
Define LCD_DATAUS = 100
Define LCD_COMMANDUS = 500
Define LCD_INITMS = 100
Lcdinit 0
'WaitMs 500
inicio:
Lcdcmdout LcdLine1Home
Lcdout " ", #mostrar, " "
Lcdcmdout LcdLine2Home
Lcdout " ", #salidabaja, " ", #salida
WaitMs 250
Lcdcmdout LcdClear
SPICSOn
SPIReceive salidabaja 'gurardo primero los 8 de la parte baja
SPIReceive salida 'ysigo con lla parte alta
SPICSOff
salida.7 = 0 'salida.7 es el bit 15 de la palabra transmitida
salidabaja.0 = 0 'son los primeros dos bits que son ceros
salidabaja.1 = 0
salidabaja.2 = 0 'este indica si la termocupla esta abierta, 1 mal, 0 bien
mostrar.LB = salidabaja
mostrar.HB = salida
mostrar = ShiftRight(mostrar, 3)'roto tres posiciones para usar solo los 12 bits de la conversion
Goto inicio
End
desde ya muchas gracias