Saludos.
También he subido ejemplos en C y ensamblador.
Y por supuesto que de PICBasic con MCS se puede migrar fácilmente a PICBasic de Proton IDE.
Saludos.
4520 !!!!! Se ve que meti mal el dedo... Ya lo cambie... Declare Onboard_USB No
Config_Start
FOSC = INTOSC_EC, PBADEN = OFF, ICPRT = On
MCLRE = OFF, FCMEN = OFF, IESO = On, PWRT = On, WDT = OFF, LVP = OFF
Config_End
;*******************************************************************************
OSCTUNE = %100000
OSCCON = %01000111 ; Frecuencia 1MHz del reloj interno.
;*******************************************************************************
All_Digital = On
ADCON1 = 0x0F
Declare LCD_Type 0
Declare LCD_DTPin PORTB.4
Declare LCD_DTPort PORTB
Declare LCD_ENPin PORTB.2
Declare LCD_RSPin PORTB.1
Declare LCD_Interface 4
Declare LCD_Lines 2
; Declaración de variables
Dim Ocupado As Byte
Dim TempX As Word
Dim Temp1 As Word
Dim Temp2 As Word
Symbol DQ = PORTE.2 ; Pin del DS18B20 DQ One-Wire
Symbol DQ_DIR = TRISE.2 ; Puerto E2 ds 18B20
Inicio:
Cls ; Inicializar el LCD (También lo borra)
Print At 1,1,"Inicializando..."
DelayMS 1000
Print At 1,1," Temperatura "
Print At 2,5,"000.0",0xDF," C"
; Enviar ceros para estabilizar el puerto
;HSerOut [0]
DelayMS 100
Programa:
GoSub Leer_DS18B20
Print At 1,1," Temperatura "
If TempX.11 = 1 Then ; Si el bit 11 de "TempX" está en 1, entonces la temperatura es negativa.
Temp1 = (~TempX >> 4)
Temp2 = (16-(TempX.LowByte & 0x0F)) * 625
Temp2 = Temp2 / 20
Print At 2,1," -",Dec Temp1,".",Dec2 Temp2, " ",0xDF,"C "
; Enviar la lectura por el módulo USART
;HSerOut ["-",Dec Temp1,".",Dec2 Temp2]
Else 'Si el bit11 es 0 la temperatura es positiva
Temp1 = (TempX >> 4)
Temp2 = (TempX.LowByte & 0x0F) * 625
Temp2 = Temp2 / 20
Print At 2,1," ",Dec Temp1,".",Dec2 Temp2, " ",0xDF,"C "
;HSerOut [Dec Temp1,".",Dec2 Temp2]
End If
DelayMS 500
GoTo Programa
; Rutina para leer el DS18B20
Leer_DS18B20:
DQ_DIR = 0
DQ = 0
DelayUS 500
DQ_DIR = 1
DelayUS 100
; Verificar si el sensor está conectado.
If DQ = 1 Then
Print At 1,2,"SENSOR DS18B20"
Print At 2,3,"NO CONECTADO "
DelayMS 1000
GoTo Leer_DS18B20
End If
OWrite DQ,1,[0xCC,0x44] ; Indicar conversión.
No_Listo:
ORead DQ,4,[Ocupado] ; Verificar si el sensor está ocupado.
If Ocupado = 0 Then No_Listo ; Si está ocupado, regresar a "No_Listo"
OWrite DQ,1,[0xCC,0xBE] ; Indicar leer la temperatura.
; Guardar los datos de la lectura.
ORead DQ,2,[TempX.LowByte,TempX.HighByte]
Return
EndEso es debido a una mala configuración del registro OSCCON.
Nuevamente adjunto el programa con los cambios necesarios y para Fosc = 4 MHz.
char timeout; // counter
void main(void) {
CMCON = 7; // disable comparators (all digital)
// PORTA: all outputs except RA5,6,7 (_MCLR and ext_osc pins)
PORTA = 0; // leds off
TRISA = 0b11100000;
// Rx_Led0..3 = RA0..RA3 (1 lit, LED anodes)
// PORTB default: all inputs (internal pullups), nor used
//TRISB = 0xFF;
NOT_RBPU_bit = 0; // pullups on to avoid floating inputs
Delay_100ms(); // library function
UART1_Init(1200); //
Delay_100ms();
while(1) { // infinite loop
do { // wait for a char received via RF (TTL level RS232)
Delay_1ms(); // library function
} while (!UART1_Data_Ready());
if (UART1_Read() != 0xAA) // read the received data (ident char?)
continue;
// wait with appr 20 ms timeout for the next (LED control) char:
timeout = 20;
do {
if (UART1_Data_Ready()) {
PORTA = UART1_Read(); // set LED port
break;
}
Delay_1ms();
} while (--timeout, !Z_bit); // until !timeout
} // infinite loop
} // end of main()
// ----- end of RX program (4 ram, 101 code)
Eso no es un proyecto, ese es el código.
Tiene que ser problema de hardware.
Nos hace falta ver la palabra de configuración.
Con un solo adaptador de USB a TTL RS-232 es suficiente.
Por eso insisto que necesitamos ver la palabra de configuración.
PORTA = UART1_Read(); // set LED port
