Device = 18F4520
Clock = 8
Config OSC = INTIO67
// import modules...
#option LCD_DATA = PORTD.4
#option LCD_RS = PORTD.2
#option LCD_EN = PORTD.3
#option LCD_INIT_DELAY =100
// import modules...
#option OW_PIN = PORTb.3
Include "DS18B20.bas"
Include "convert.bas"
Include "usart.bas"
include "lcd.bas"
// FAMILY $28 ($1D) ($0000002CDBAE) <- DS18B20
// FAMILY $28 ($3F) ($0000002CD16E) <- DS18B20
Const Sensor_A(8) As Byte = ($28, $AE, $DB, $2C, $00, $00, $00, $1D)
Const Sensor_B(8) As Byte = ($28, $6E, $D1, $2C, $00, $00, $00, $3F)
// display a sensor value...
Sub DisplaySensor(ByRefConst pID() As Byte)
Dim TempA As ShortInt
Dim TempB As Word
RomID = pID
Convert
GetTemp(TempA, TempB)
//USART.Write(DecToStr(TempA),".",DecToStr(TempB,2), $BA, "C",13,10)
LCD.Cls
lcd.writeat(1,1,DecToStr(TempA),(TempB))
End Sub
// program start...
//SetBaudrate(br115200)
While true
DisplaySensor(Sensor_A)
DisplaySensor(Sensor_B)
DelayMS(1000)
Wend