Чт сен 06, 2012 11:11:37
Чт сен 06, 2012 11:53:48
1wreset Pind , 0 ' ресетим первый датчик
1wwrite &HCC , 1 , Pind , 0 : 1wwrite &H44 , 1 , Pind , 0 ' start measure
1wreset Pind , 1 ' ресетим второй датчик
1wwrite &HCC , 1 , Pind , 1 : 1wwrite &H44 , 1 , Pind , 1 ' start measure
Waitms 95 'ждём окончания конвертации дачтиков
1wreset Pind , 0 ' ресетим первый датчик
1wreset Pind , 1 ' ресетим второй датчик
1wwrite &HCC , 1 , Pind , 0 ' read internal RAM
1wwrite &HCC , 1 , Pind , 1 ' read internal RAM
1wwrite &HBE , 1 , Pind , 0 ' read 9 data bytest
1wwrite &HBE , 1 , Pind , 1 ' read 9 data bytest
'=========
Bd(1) = 1wread(9 , Pind , 0 ) ' получаем 9-ти байтовый массив данных
Чт сен 06, 2012 12:05:58
Чт сен 06, 2012 12:17:23
Чт сен 06, 2012 12:22:07
Чт сен 06, 2012 12:41:34