1Wire Temperatur

$regfile = "m8def.dat"

$crystal = 7372800

' LCD konfigurieren Port auf Ausgabe setzten und Pin's entsprechend zuordnen

Ddrd = &HFF

Config Lcd = 16 * 2

 Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4

 Config Lcdbus = 4

' Pin für 1wire Schnittstelle festlegen, Schnittstelle wird von BASCOM durch Software realisiert

Config 1wire = Portc.5

Dim Ar(2) As Byte

Cls

Do

 1wreset

 1wwrite &HCC

 1wwrite &H44

 1wreset

 1wwrite &HCC

 1wwrite &HBE

 Ar(1) = 1wread(2)

 Waitms 500

 Locate 1 , 1

 Lcd Hex(ar(2)) ; Hex(ar(1))

 Locate 2 , 1

 Shift Ar(1) , Right , 1

 Lcd Ar(1)

Loop

End