Термостат на PIC 16f84a и термодатчике DS18b20 с выводом на семисегментный динамический индикатор.

Форум » Программирование микроконтроллеров. » Термостат на PIC 16f84a и термодатчике DS18b20 с выводом на семисегментный динамический индикатор. » Ответить

Термостат на PIC 16f84a и термодатчике DS18b20 с выводом на семисегментный динамический индикатор.

Дионис: Запрограммировал pic светятся только пигменты J, термодатчик опрашивается PIC, подскажите почему так происходит и где нужно искать праблему?(вот текст исходной программ [more][pre2]LIST P=16F84A ;Описание встроенных в контроллер ресурсов __CONFIG _XT_OSC & _PWRTE_ON & _CP_OFF &_WDT_ON #include <P16F84A.INC> F0 EQU 0 RTIF equ 2 ;Переменные и константы,используемые в программе NumL EQU 0x0C NumH EQU 0x0D Thou EQU 0x0E Hund EQU 0x0F Tens EQU 0x10 Ones EQU 0x11 I EQU 0x13 A EQU 0x14 BACKUPW EQU 0x15 BACKUPS EQU 0x16 RAZR0 EQU 0x17 ;Три ячейки, содержат семисегментный код для вывода на индикатор RAZR1 EQU 0x18 RAZR2 EQU 0x19 ;В переменной FLAGS каждый бит сигнализирует о: ;0 - нажата кнопка вызова таймера ;1 - нажата кнопка установки таймера ;2 - необходимости обновления в экранном буфере оставшегося времени в таймере ;3 - произошло нажатие кнопки вызова таймера, необходимо подать короткий звуковой сигнал ;4 - закончилась выдержка времени таймера, необходимо подать условный звуковой сигнал ;5 - раз в секунду сигнализирует о необходимости считывания показаний DS1820 ;6 - необходимости вывода десятичной точки FLAGS EQU 0x1A J EQU 0x1B K EQU 0x1C TIME0 EQU 0x1D TIME1 EQU 0x1E PA EQU 0x1F T7SEG0 EQU 0x20 T7SEG1 EQU 0x21 T7SEG2 EQU 0x22 T_IND EQU 0x23 TEMP_READH EQU 0x24 TEMP_READL EQU 0x25 TL EQU 0x26 TH EQU 0x27 TIME2 EQU 0x28 I_BYTE EQU 0x29 _N EQU 0x2A TEMP EQU 0x2B O_BYTE EQU 0x2C LOOP1 EQU 0x2D LOOP2 EQU 0x2E T_ALARM EQU 0x2F DT_ALARM EQU 0x30 CONSTANT DATA_PIN=7 ;****** Начальная инициализация контроллера и программы ******* BCF STATUS, RP0 BSF STATUS, RP0 ;Устанавливаем страницу памяти 1 CLRF TRISA ;Настраиваем все линии порта А и В на вывод CLRF TRISB GOTO BEGIN_PROG ;***** Точка входа в процедуру обработки прерываний от таймера************* BCF INTCON, GIE ;Запрещаем прерывания MOVWF BACKUPW ;Сохраняем содержимое рабочего регистра MOVF STATUS, 0 ;и регистра STATUS MOVWF BACKUPS ;Програмные таймеры INCF TIME0, 1 MOVF TIME0, 0 SUBLW .81 ;122 BTFSC STATUS, C GOTO L22 CLRF TIME0 INCF TIME2, 1 L18 MOVF TIME2, 0 SUBLW .2 ;Устанавливаем период измерения температуры равным 1 сек. BTFSC STATUS, C GOTO L26 CLRF TIME2 BSF FLAGS, 5 L26 BTFSS FLAGS, 0 ;Корректировка таймера возможна только при нажатии кнопки GOTO L22 ;вызова таймера BTFSS FLAGS, 1 ;Если нажата кнопка установки таймера GOTO L22 BCF FLAGS, 2 BSF FLAGS, 7 INCF T_ALARM, 1 MOVF T_ALARM, 0 SUBLW 0x7D ;Если достиг 125 градусов, сбрасываем до -55 градусов BTFSS STATUS, Z GOTO L22 MOVLW 0xC9 MOVWF T_ALARM ;Опрос состояния кнопок управления L22 BSF PA, 0 ;Флаги, показывающие BCF FLAGS, 1 ;состояние кнопок. BSF PA, 1 ;Выключаем индикаторы BSF PA, 2 BCF PA, 4 MOVF PA, 0 MOVWF PORTA BSF STATUS, RP0 ;Устанавливаем страницу памяти 1 BSF TRISB, 5 ;Разряды порта В, подключенные к кнопкам настраиваем на ввод BSF TRISB, 6 BCF STATUS, RP0 ;Устанавливаем страницу памяти 0 BTFSC PORTB, 6 ;Устанавливаем флаги в зависимости от состояния кнопок GOTO L23 BSF FLAGS, 0 MOVLW .255 MOVWF T_IND L23 DECFSZ T_IND GOTO L24 BCF FLAGS, 0 BTFSC FLAGS, 7 CALL SEEPROM BCF FLAGS, 7 L24 BTFSS PORTB, 5 BSF FLAGS, 1 BSF STATUS, RP0 ;Устанавливаем страницу памяти 1 BCF TRISB, 5 ;Разряды порта В, подключенные к кнопкам настраиваем на вывод BCF TRISB, 6 BCF STATUS, RP0 ;Устанавливаем страницу памяти 1 BTFSC FLAGS, 6 BSF PA, 4 BTFSS FLAGS, 6 BCF PA, 4 MOVF PA, 0 MOVWF PORTA ;Динамическая индикация содержимого RAZR0, RAZR1, RAZR2 L1 MOVLW .0 ;Отображаем разряд 0 SUBWF I, 0 BTFSS STATUS, Z GOTO L2 MOVLW B'10000000' ANDWF PORTB, 1 ;Очищаем разряды порта, подключенные к индикатору MOVF RAZR0, 0 IORWF PORTB, 1 ;Выводим отображаемую цифру BCF PA, 0 ;Включаем соответствующий разряд индикатора MOVF PA, 0 MOVWF PORTA GOTO L4 L2 MOVLW .1 ;Отображаем разряд 1 SUBWF I, 0 BTFSS STATUS, Z GOTO L3 MOVLW B'10000000' ANDWF PORTB, 1 ;Очищаем разряды порта, подключенные к индикатору MOVF RAZR1, 0 IORWF PORTB, 1 ;Выводим отображаемую цифру BCF PA, 1 MOVF PA, 0 MOVWF PORTA GOTO L4 L3 MOVLW B'10000000' ANDWF PORTB, 1 ;Очищаем разряды порта, подключенные к индикатору MOVF RAZR2, 0 IORWF PORTB, 1 ;Выводим отображаемую цифру BCF PA, 2 MOVF PA, 0 MOVWF PORTA L4 INCF I, 1 MOVLW .3 ;Обнулить счетчик разрядов, если достиг 3 SUBWF I, 0 BTFSC STATUS, Z CLRF I ;Завершение обработки прерывания от таймера IRET BCF INTCON, RTIF ;Сброс флага прерывания от таймера MOVF BACKUPS, 0 MOVWF STATUS MOVF BACKUPW, 0 ;Востановление рабочего регистра BSF INTCON, GIE ;Разрешение прерываний RETFIE ;Возврат из обработки прерывания ;****** Продолжение начальной инициализации ***************************** BEGIN_PROG MOVLW B'01000011' ;Подключаем пределитель к таймеру и устанавливаем коэффициент MOVWF OPTION_REG ;деления 1:16, сигнал на таймер от внутреннего генератора BCF STATUS, RP0 ;Устанавливаем страницу памяти 0 CLRF PORTB MOVLW B'00000111' MOVWF PA MOVF PA, 0 MOVWF PORTA CLRF I ;Инициализируем используемые в программе CLRF FLAGS ;переменные CALL START_DS CLRF TMR0 CLRF TEMP_READL CLRF TEMP_READH CALL LEEPROM MOVLW 0x02 MOVWF DT_ALARM CLRF TIME0 CLRF TIME2 CLRF TMR0 MOVLW B'10100000' ;Разрешаем прерывание от переполнения таймера MOVWF INTCON BCF FLAGS, 5 BCF FLAGS, 3 MOVLW B'00000001' MOVWF RAZR0 MOVWF RAZR1 MOVWF RAZR2 CALL START_DS ;Пауза до получения первого достоверного результата измерения температуры L0 BTFSS FLAGS, 5 GOTO L0 CALL START_DS BCF FLAGS, 5 L00 BTFSS FLAGS, 5 GOTO L00 ;****** Основной цикл программы ****** L10 CLRWDT L25 BTFSS FLAGS, 0 GOTO L12 ;Необходимо отображение температуры BTFSC FLAGS, 2 GOTO L10 BSF FLAGS, 2 BCF FLAGS, 6 ;Отключение запятой BTFSC T_ALARM, 7 ;Вычисление целой части GOTO L70 ;Температура ниже нуля MOVF T_ALARM, 0 MOVWF NumL GOTO L71 L70 MOVLW 0xFF MOVWF NumL MOVF T_ALARM, 0 SUBWF NumL, 1 L71 CLRF NumH CALL Convert MOVF Ones, 0 CALL DS7SEG MOVWF RAZR0 MOVF Tens, 0 CALL DS7SEG MOVWF RAZR1 MOVF Hund, 0 CALL DS7SEG MOVWF RAZR2 BTFSC T_ALARM, 7 BSF RAZR2, 0 ;Включение знака минус при отрицательной температуре GOTO L10 L12 BCF FLAGS, 2 ;Отображение температуры BTFSC FLAGS, 3 CALL CONV_T BCF FLAGS, 3 BTFSS FLAGS, 5 GOTO L10 ;Передается управление каждую секунду BCF FLAGS, 5 BSF FLAGS, 3 CALL READ_T CALL START_DS ANDLW 0xFF BTFSS STATUS, Z GOTO L10 MOVLW B'00000001' MOVWF RAZR0 MOVWF RAZR1 MOVWF RAZR2 BCF FLAGS, 3 GOTO L10 ;Возвращаемся на начало цикла ;**************************************************************************** ;Процедура преобразования десятичной цифры из WREG в код 7-ми сегментного индикатора DS7SEG ADDWF PCL, 1 RETLW B'01111110' ;0 RETLW B'00100100' ;1 RETLW B'01010111' ;2 RETLW B'01100111' ;3 RETLW B'00101101' ;4 RETLW B'01101011' ;5 RETLW B'01111011' ;6 RETLW B'00100110' ;7 RETLW B'01111111' ;8 RETLW B'01101111' ;9 RETLW B'00000000' ;Пробел RETLW B'00000001' ;Минус ;***************************************************************************** ;Процедура перевода числа формата HEX16 (переменые NumL, NumH) в формат BSD ;(переменные Thou, Hund, Tens, Ones) Convert swapf NumH,w IORLW B'11110000' movwf Thou addwf Thou, 1 addlw 0xE2 movwf Hund addlw 0x32 movwf Ones movf NumH, 0 andlw 0x0F addwf Hund, 1 addwf Hund, 1 addwf Ones, 1 addlw 0xE9 movwf Tens addwf Tens, 1 addwf Tens, 1 swapf NumL, 0 andlw 0x0F addwf Tens, 1 addwf Ones, 1 rlf Tens, 1 rlf Ones, 1 comf Ones, 1 rlf Ones, 1 movf NumL, 0 andlw 0x0F addwf Ones, 1 rlf Thou, 1 movlw 0x0A Lb1: addwf Ones, 1 decf Tens, 1 btfss 3, 0 goto Lb1 Lb2: addwf Tens, 1 decf Hund, 1 btfss 3, 0 goto Lb2 Lb3: addwf Hund, 1 decf Thou, 1 btfss 3, 0 goto Lb3 Lb4: addwf Thou, 1 btfss 3, 0 goto Lb4 MOVLW Thou ;Удаление незначащих нулей MOVWF FSR MOVLW 3 MOVWF I L54 MOVF F0, 0 ANDLW 0x0F BTFSS STATUS, Z RETURN ;Разряд не равен 0 MOVLW 0x0A MOVWF F0 INCF FSR DECFSZ I GOTO L54 RETURN ;Процедура вычисления температуры с точностью до 0.1 по данным полученным от DS1820 ;Входные параметры: TEMP_READH, TEMP_READL,результат помещается в экранный буфер CONV_T MOVF TEMP_READL, 0 MOVWF NumL MOVF TEMP_READH, 0 MOVWF NumH BTFSC TEMP_READH, 7 ;Вычисление целой части GOTO L30 ;Температура ниже нуля MOVLW .4 ;Выделяем целую часть значения температуры делением на .16d MOVWF A L61 BCF STATUS, C RRF NumH, 1 RRF NumL, 1 DECFSZ A, 1 GOTO L61 MOVF NumL, 0 MOVWF TH MOVF TEMP_READL, 0 ;Вычисляем десятичную часть ANDLW B'00001111' GOTO L50 L30 MOVLW .4 ;Выделяем целую часть значения температуры делением на .16d MOVWF A L62 BCF STATUS, C RRF NumH, 1 RRF NumL, 1 DECFSZ A, 1 GOTO L62 MOVLW 0xFF MOVWF TH MOVF NumL, 0 SUBWF TH, 1 movlw 0xFF movwf NumH MOVF TEMP_READL, 0 ;Вычисляем десятичную часть ANDLW B'00001111' SUBWF NumH, 0 ANDLW B'00001111' L50 MOVWF NumL CLRF NumH MOVLW .6 MOVWF A L63 MOVF NumL, 0 ADDWF NumH, 1 DECFSZ A, 1 GOTO L63 MOVF NumH, 0 MOVWF NumL CLRF NumH CALL Convert MOVLW 0x0A SUBWF Tens, 0 BTFSC STATUS, Z CLRF Tens MOVLW .5 ;Округление SUBWF Ones, 0 BTFSC STATUS, C INCF Tens, 1 MOVF Tens, 0 MOVWF TL ;Сравнение температур ;Перевод сравниваемых температур в абсолютное значение BTFSC T_ALARM, 7 GOTO L72 ;Температура ниже нуля MOVF T_ALARM, 0 MOVWF NumL MOVLW .54 ADDWF NumL, 1 GOTO L73 L72 MOVLW 0xFF MOVWF NumL MOVF T_ALARM, 0 SUBWF NumL, 1 L73 BTFSC TEMP_READH, 7 GOTO L74 ;Температура ниже нуля MOVF TH, 0 MOVWF NumH MOVLW .54 ADDWF NumH, 1 GOTO L75 L74 MOVLW 0xFF MOVWF NumH MOVF TH, 0 SUBWF NumH, 1 L75 BTFSS PA, 3 GOTO L76 ;Переход на условие отключения нагревателя MOVF NumH, 0 ;Заданная температура SUBWF NumL, 0 BTFSC STATUS, C ;Если измеренная температура ниже заданной GOTO L31 BCF PA, 3 ;включение нагревателя MOVF PA, 0 MOVWF PORTA GOTO L31 L76 MOVF DT_ALARM, 0 ADDWF NumH, 0 SUBWF NumL, 0 BTFSS STATUS, C ;Если измеренная температура ниже заданной GOTO L31 BSF PA, 3 ;выключение нагревателя MOVF PA, 0 MOVWF PORTA ;Запись полученного значения температуры в экранный буфер L31 BTFSS TEMP_READH, 7 GOTO L36 ;Температура выше нуля MOVF TH, 0 SUBLW .19 BTFSC STATUS, C GOTO L36 ;Температура выше минус 19 градусов ;при температуре меньше -19.9 MOVF TH, 0 ;Занесение значения температуры в экранный буфер MOVWF NumL CLRF NumH CALL Convert MOVF Ones, 0 CALL DS7SEG MOVWF RAZR0 MOVF Tens, 0 CALL DS7SEG MOVWF RAZR1 MOVLW 0x0A CALL DS7SEG MOVWF RAZR2 BSF RAZR2, 0 ;Включение знака минус при отрицательной температуре BCF FLAGS, 6 ;Отключить вывод десятичной точки RETURN L36 MOVF TH, 0 SUBLW .99 BTFSC STATUS, C GOTO L37 ;Температура выше плюс 99 градусов MOVF TH, 0 ;Занесение значения температуры в экранный буфер MOVWF NumL CLRF NumH CALL Convert MOVF Ones, 0 CALL DS7SEG MOVWF RAZR0 MOVF Tens, 0 CALL DS7SEG MOVWF RAZR1 MOVF Hund, 0 CALL DS7SEG MOVWF RAZR2 BCF FLAGS, 6 ;Отключить вывод десятичной точки RETURN ;при температуре от -19.9 до 99.9 L37 MOVF TL, 0 ;Занесение значения температуры в экранный буфер MOVWF NumL CLRF NumH CALL Convert MOVF Ones, 0 CALL DS7SEG MOVWF RAZR0 MOVF TH, 0 ;Занесение значения температуры в экранный буфер MOVWF NumL CLRF NumH CALL Convert MOVF Ones, 0 CALL DS7SEG MOVWF RAZR1 MOVF Tens, 0 CALL DS7SEG MOVWF RAZR2 BTFSC TEMP_READH, 7 ;Включение знака минус при отрицательной температуре BSF RAZR2, 0 BSF FLAGS, 6 ;Включить вывод десятичной точки RETURN ;Процедура считывает данные об измеренной температуре из DS1820 READ_T CALL INIT MOVLW 0xCC ;Skip ROM MOVWF O_BYTE CALL OUT_BYTE MOVLW 0xBE ;Read Scratchpad MOVWF O_BYTE CALL OUT_BYTE ;Прием данных CALL IN_BYTE MOVWF TEMP_READL ;0 CALL IN_BYTE MOVWF TEMP_READH ;1 CALL IN_BYTE ;2 CALL IN_BYTE ;3 CALL IN_BYTE ;4 CALL IN_BYTE ;5 CALL IN_BYTE ;6 CALL IN_BYTE ;7 CALL IN_BYTE ;8 ;Подсчет и сравнение контрольной суммы пропущено RETLW 0xFF ;Процедура выдает команду на старт измерения температуры для датчика DS1820 START_DS CALL INIT MOVLW 0xCC ;Skip ROM MOVWF O_BYTE CALL OUT_BYTE MOVLW 0x44 ;Convert T MOVWF O_BYTE CALL OUT_BYTE RETLW 0xFF ; The following are common 1-Wire routines used in all applications INIT: CALL PIN_HI CALL PIN_LO MOVLW .50 ; 500 us delay CALL DELAY_10USEC CALL PIN_HI MOVLW .50 ; 500 usec delay CALL DELAY_10USEC RETURN IN_BYTE: ; returns byte in W MOVLW .8 MOVWF _N CLRF I_BYTE IN_BYTE_1: CALL PIN_LO ; momentary low on DATA_PIN NOP CALL PIN_HI NOP NOP NOP NOP NOP NOP MOVF PORTB, W ; 7 usecs later, fetch from DATA_PIN MOVWF TEMP BTFSS TEMP, DATA_PIN BCF STATUS, C ; its a zero BTFSC TEMP, DATA_PIN BSF STATUS, C ; its a one RRF I_BYTE, F MOVLW .6 ; now delay 60 usecs CALL DELAY_10USEC DECFSZ _N, F GOTO IN_BYTE_1 MOVF I_BYTE, 0 ; return the result in W RETURN OUT_BYTE: MOVLW .8 MOVWF _N OUT_BYTE_1: RRF O_BYTE, F BTFSS STATUS, C GOTO OUT_0 GOTO OUT_1 OUT_BYTE_2: DECFSZ _N, F GOTO OUT_BYTE_1 RETURN OUT_0: CALL PIN_LO ; bring DATA_PIN low MOVLW .6 ; for 60 usecs CALL DELAY_10USEC CALL PIN_HI GOTO OUT_BYTE_2 OUT_1: CALL PIN_LO ; momentary low CALL PIN_HI MOVLW .6 CALL DELAY_10USEC GOTO OUT_BYTE_2 PIN_HI: BCF INTCON, GIE BSF STATUS, RP0 BSF TRISB, DATA_PIN ; high impedance BCF STATUS, RP0 BSF INTCON, GIE RETURN PIN_LO: BCF INTCON, GIE BCF PORTB, DATA_PIN BSF STATUS, RP0 BCF TRISB, DATA_PIN ; low impedance zero BCF STATUS, RP0 BSF INTCON, GIE RETURN DELAY_LONG MOVLW .250 ; задержка в 250 msec MOVWF LOOP1 DELAY_N_MS: OUTTER MOVLW .110 ; close to 1.0 msec delay when set to .110 MOVWF LOOP2 INNER NOP NOP NOP NOP NOP NOP DECFSZ LOOP2, F ; decrement and leave result in LOOP2 GOTO INNER ; skip next statement if zero DECFSZ LOOP1, F GOTO OUTTER RETURN DELAY_10USEC: ; provides a delay equal to W * 10 usecs MOVWF LOOP1 DELAY_100USEC_1: NOP NOP NOP NOP NOP NOP NOP DECFSZ LOOP1, F GOTO DELAY_100USEC_1 RETURN ;***************************************************************************** ;Процедура сохраняет значение переменной T_ALARM ;в энергонезависимой памяти данных SEEPROM MOVLW .50 MOVWF EEADR MOVF T_ALARM, 0 CALL L21 RETURN L21 MOVWF EEDATA ;Подпрограмма записи EEROM BCF INTCON, GIE ;Запрещение всех прерываний BSF STATUS, RP0 ;Устанавливаем страницу памяти 1 BSF EECON1, WREN ;Разрешаем запись в EEROM MOVLW 0x55 ;Даем набор команд для записи MOVWF EECON2 MOVLW 0xAA MOVWF EECON2 BSF EECON1, WR L20 NOP ;Ожидаем завершения записи BTFSC EECON1, WR GOTO L20 BCF EECON1, WREN ;Запрещаем запись в EEROM BCF STATUS, RP0 ;Устанавливаем страницу памяти 0 BSF INTCON, GIE ;Разрешение всех прерываний INCF EEADR, 1 RETURN ;Процедура загружает значение переменной T_ALARM ;из энергонезависимой памяти данных LEEPROM MOVLW .50 MOVWF EEADR CALL RROM MOVWF T_ALARM RETURN ;Подпрограмма считывания данных из EEROM RROM BSF STATUS, RP0 ;Устанавливаем страницу памяти 1 BSF EECON1, RD ;Команда на чтение EEROM BCF STATUS, RP0 ;Устанавливаем страницу памяти 0 INCF EEADR, 1 MOVF EEDATA, 0 RETURN END ;Конец программы.[/pre2][/more]

Ответов - 12

igor: Программа Ваша или чужая? Думаю, что чужая. Надо бы самому попытаться написать. Тогда и вопросы будут более конкретные.

Дионис: я просто попросил помощи,программа не моя,но я хочу понять,а после научиться писать самому,поэтому очень прошу вашей помощи!!!!!!

igor: Чтобы научится писать самому нужно сначала зайти сюда http://ikarab.narod.ru/ А разбираться в чужих программах - это уже привилегия человека, хорошо пишущего свои собственные программы. Анализ чужих программ дело кропотливое и долговременное. Вряд ли кто согласится терять своё время на эту процедуру. Легче и быстрее написать свою собственную.

igor: Чтобы научится писать самому нужно сначала зайти сюда http://ikarab.narod.ru/ А разбираться в чужих программах - это уже привилегия человека, хорошо пишущего свои собственные программы. Анализ чужих программ дело кропотливое и долговременное. Вряд ли кто согласится терять своё время на эту процедуру. Легче и быстрее написать свою собственную.

MAZ: Все тоже самое хотел сказать. Но подумал, опять скажут, что вредный. Ни у кого не возникает сомнения. Пришел, например, к автомеханику, посмотри у меня что-то машина " чихает", помоги. При чем не сват, не брат и даже вместе не пили. Он что, ради спортивного интереса будет голову ломать? А здесь выложил портянку, даже не оформленную, посмотрите почему не работает. Или человек очень наивен, или он вообще не представляет что такое программа. Или других считает дураками. Т.е. мне надо дооформить, загнать в симулятор, понять алгоритм программы, найти ошибку. Пожалуйсто? Странно, как-то.

Дионис: В любом случае спасибо за искренность.....

MAZ: Наш человек. Приходите в постоянные.

Dmitry Dubrovenko: Дионис пишет: программа не мояСлучайно не из журнала "Радио"?

Дионис: именно оттуда!!!

Дионис: Спасибо,буду разбираться!!!:)

Dmitry Dubrovenko: Дионис пишет: именно оттуда!!!Если "Двухканальный термометр-термостат", Радио №5, 2006г., то автор говорит, что на схеме неправильно датчик указали. Вместо DS18S20 - DS18B20 (или наоборот).

Дионис: спасибо большое,вы так мне помогаете!

полная версия страницы