Elektrod-serv.ru

Передача данных по радиоканалу

Программа для работы с DS18B20

К линии P1.0(90h) контроллера MCU4-X подключены два термодатчика new 0 dim $(5),7 :SA=0AE06h ;ЖКИ подключен к MCU4-X 1 ADDR=90h :AT0=loc($(0)):AT1=loc($(1)) :AT2=loc($(2)) 2 xreg(36h)=81h ;конфигурация PIC-контроллера ;Используем операцию поиска для определения идентификационных кодов ;1-й датчик 20 lan Z(90h,120),T#0F0h,S(AT0,22) ;2-й датчик 21 lan Z,T#0F0h,S 22 clear S ;обнулить стек ; запуск обоих датчиков на преобразование 50 lan Z(ADDR,120),T#0CCh,T#44h ; задержка 1 сек 51 time=0 :do :while time<1 ; запрос 1, чтение блокнота, проверка CRC8 52 lan Z,C#0,T#55h,T(AT1,7),C,C#0,T#0BEh,R(AT0,8),C(100) 53 T1=rot8(memw(AT0)) ;меняем расположение байт 54 SN=T1.and.8000h:if SN=0 then goto 56 ;значение измеренной температуры представлено в дополнительном коде ;т.е. знак температуры - минус ;преобразуем в прямой код со знаком 55 T1=T1.and.0FFFEh :T1=T1-65536 ;расчет значения температуры по установленному по умолчанию ;разрешению в 0.0625 градуса Цельсия 56 T1=T1*0.0625:? "T1= ",using(###.##),T1 ; запрос 2, чтение блокнота, проверка CRC8 60 lan Z,T#55h,T(AT2,7),C,C#0,T#0BEh,R(AT0,8),C(110) 61 T2=rot8(memw(AT0)) ;меняем расположение байт 62 SN=T2.and.8000h:if SN=0 then goto 64 ;значение измеренной температуры представлено в дополнительном коде ;т.е. знак температуры - минус ;преобразуем в прямой код со знаком 63 T2=T2.and.0FFFEh :T2=T2-65536 ;расчет значения температуры по установленному по умолчанию ;разрешению в 0.0625 градуса Цельсия 64 T2=T2*0.0625 :? "T2= ",using(###.##),T2 ; вывод значения на индикатор 65print#SA,chr(18h),using(###.##),"T1=",T1,chr(1bh),chr(0c0h),"T2=",T2 67 goto 50 ;бесконечный цикл измерения температуры 100 T1=0:SB=SB+1:goto 65 ;Т1-счетчик сбоев обмена 110 T2=0:SB=SB+1:goto 65 ;Т2-счетчик сбоев обмена ; 120 clear S:print#SA,chr(18h),"Нет подключенных",chr(1bh),chr(0c2h) 121 print#SA,chr(1bh),chr(0c2h),"датчиков" 122 ? "Нет подкюченных датчиков"

Советуем почитать:

Проект внедрения волоконно-оптической линии связи между УТС Югорскгазтелеком и 5 городскими АТС Последние десятилетия двадцатого века характеризовались бурным ростом спроса на услуги связи и передачи информации. Согласно статистике объем передаваемой в мире информации и оказываемых ...

Кривые линии и поверхности, их применение в радиоэлектронике и автоматике Кривые линии и поверхности их применение в радиоэлектронике и автоматике. Этот раздел курса имеет особое значение для графической подготовки инженера. Внешняя и внутренняя форма дета ...

Основные положения регламента любительской радиосвязи Украины Регламент любительской радиосвязи Украины разработан в соответствии с Регламентом Радиосвязи Международного Союза Электросвязи, законом Украины "Про связь", рекомендациями Межд ...