// device and clock speed...
Device = 18F452
Clock = 4
// import modules...
#option OW_PIN = PORTC.0
Include "DS18B20.bas"
Include "convert.bas"
Include "usart.bas"
//FAMILY $28 ($8E) ($000000B8C530) <- ISIS DS18B20
Const Sensor_A(8) As Byte = ($28, $30, $C5, $B8, $00, $00, $00, $8E)
// 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)
End Sub
// program start...
SetBaudrate(br9600)
While true
DisplaySensor(Sensor_A)
DelayMS(1000)
Wend