$regfile = "4433def.dat" $crystal = 4000000 $baud = 9600 'Definition der Konstanten Const Read_rom = &H33 ' DS1820 Commands Const Skip_rom = &HCC Const Convertt = &H44 Const Read_ram = &HBE Const Write_ram = &H4E Const Copy_ram = &H48 Const Recall_ee = &HB8 Const Read_power = &HB4 Config 1wire = Portd.2 'use this pin Dim Ar(9) As Byte Dim A As Byte Dim I As Byte Dim Temperatur As Integer Dim Halb As Byte Dim Vorzeichen As Byte Dim Busy As Byte Cls Do Wait 1 Disable Interrupts 1wreset ' 1wire Reset 1wwrite Skip_rom ' Read ROM command 1wwrite Convertt ' Measure Temperature Do Busy = 1wread() Loop Until Busy = &HFF ' Wait for end of conversion 1wreset ' 1wire Reset 1wwrite Skip_rom ' Skip ROM command 1wwrite Read_ram ' Read Scratch command Ar(1) = 1wread() Ar(2) = 1wread() 1wreset ' 1wire Reset Enable Interrupts 'positiv oder negativ 0 = positiv 1 = negativ Print Ar(1) Print Ar(2) Loop End