Звоните! 
 (926)274-88-54 
 Бесплатная доставка. 
 Бесплатная сборка. 
Ассортимент тканей

График работы:
Ежедневно. С 8-00 до 20-00.
Почта: soft_hous@mail.ru
Читальный зал -->  Устройства ультрафиолетового стирания 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 [ 74 ] 75 76 77 78 79 80 81 82 83 84

TEMPB, F;

STATUS, С

ТЕМРА, F;

TEMPB, F;

Into

movf TEMPA, W

addwf

INT, F

btfsc

STATUS, С

incf

INTH, F

movf

TEMPB, W

addwf

INTH, F

; Интегрирование ошибки.

* Суммирование пропорциональной

* составляющих ошибки: PWMH:PWM

* Если результат отрицательный,

* Входные переменные : INTH:INT,

* Выходные переменные: PWMH:PWM.

интегральной и дифференциальной --- INTH:INT + PROH:PRO + DIFH:DIF. результат очищается.

PROH:PRO, DIFH:DIF.

*************

Total

PCOM

movf

PROH, W

; Загрузить пропорциональное значение

movwf

PWMH

movf

PRO, W

movwf

I COM

movf

INTH, W

; Добавить интегральное значение.

addwf

PWMH, F

movf

INT, W

addwf

PWM, F

btfsc

STATUS, С

incf

PWMH, F

DCOM

movf

DIFH, W

; Добавить дифференциальное значение.

addwf

PWMH, F ,

movf

DIF, W

addwf

PWM, F

btfsc

STATUS, С

incf

PWMH, F

Ovrld

btfsc

PWMH, 7

; Сумма отрицательная?

goto

NegPwm

; Да.

PORTB, 6

; Нет, отключить индикатор перегрузки

goto

PwmGen

NegPwm

PORTB, 6

; Включить индикатор перегрузки.

clrf

PWMH

; Обнулить сумму.

clrf

* Выделение значения ширины импульса и загрузка его в ССР1,

* пуск А/О преобразование входного напряжения жтксо*

Входные переменные: PWMH:PWM. PwmGen

PWMH, F

; Отбросить 3 младших разряда

PWM, F

; {PWHM:PWM/8) .

PWMH, F

PWM, F

PWMH, F

; PWMH дальше не имеет значения.

PWM, F

CCPICON,

; Очистить младшие разряды регистра

CCPICON,

; ширины импульса.

PWM, F

; Переслать 2 младших разряда

btfsc

STATUS,

; в регистр ширины импульса.

CCPICON,

PWM, F



btfsc

STATUS, С

CCPICON, 5

movf

PWM, W

andlw

Ox3f

movwf

CCPRIL

ADCONO,2

; Выделить 6 оставшихся разрядов.

; Переслать в регистр ширины импульса.

; Пуск A/D преобразования Vhkrzg.

Обработка нажатия кнопок, вывод на индикацию установленного напряжения и загрузка нового значения SETPOINT.

Входные переменные: PORTB, DNCH:DNCL, UPCH:UPCL.

Выходные переменные: PORTB, DNCH:DNCL, UPCH:UPCL, SETPOINT.

; Загрузить текущее состояние

индикатора выходного напряжения.

Dunb

NewSet

movf andlw movwf

PORTB, W Ox3f TEMPA

btfss

goto

incfsz

goto

incfsz

goto

btfsc

goto

PORTA, 5 Upb

DNCL, f Wc3

DNCH, f Wc3

STATUS, С TEMPA, F STATUS, С TEMPA, 0 Dunb

btfss PORTA, 2 goto Nob incfsz UPCL, f goto Wc3 incfsz UPCH, F goto Wc3

btfsc

movf movwf

clrf decf

incf

btfss

goto

movf

CALL

movwf

clrf

clrf

movlw

movwf

movwf

STATUS, С TEMPA, F TEMPA, 6 TEMPA, 5 TEMPA, 6

TEMPA, W PORTB

TEMPB TEMPB, F

TEMPB, F TEMPA, F STATUS, С NewSet TEMPB, W Tbl

SETPOINT

DNCL UPCL DELI DNCH UPCH

; Кнопка уменьшения напряжения нажата?

; Нет.

; Да, увеличить счетчик антидребезга.

; Нет переполнения счетчика.

; Нет переполнения счетчика.

; Установить значение индикатора

уменьшенного на 1 шаг напряжения.

; Было минимальное напряжение?

; Да, установить его снова.

; Кнопка увеличения напряжения нажата?

; Нет.

; Да, увеличить счетчик антидребезга.

; Нет переполнения счетчика.

; Нет переполнения счетчика.

; Установить значение индикатора ; увеличенного на 1 шаг напряжения.

; Было максимальное напряжение?

; Да, установить его снова.

; Переслать состояние индикатора в PORTB.

; Установить в ТЕМРВ -1.

/Подсчитать число светящихся светодиодов.

; Конец счета?

; Нет.

; Да, загрузить число в w.

; Получить значение нового напряжения.

; Очистить счетчики устранения дребезга.

8 Зак.1092



. л*********************************************

; * Контроль входного напряжения Vukreg/

; * отключение системы, если напряжение низкое.

********

* Входные переменные: VUNREG. ***********************************

btfsc ADCONO, GO DONE; Преобразование закончено,

goto Wc3 ; Нет, ожидание конца,

movf ADRES, W ; Да, сохранить результат.

movMf VUNREG

movlw movwf

AVOUT ADCONO

; Установить канал для следующего ; преобразования.

movf VUNREG, W sublw 0x50 btfsc STATUS, С goto ShutDn

******************************************************************** * Сдвиг ошибки (E1H:E1 = EOH:EO), возврат к началу основного цикла.

; 10V-VUNREG =? ; С 1, если VUNREG < 10V. ; Отключить регулятор.

Входные переменные : ЕОН:ЕО. * Выходные переменные: Е1Н:Е1. ********************************

*****************

Shift

movf movwf movf movwf

EO, W El

EOH, W EIH

Again ******************

goto ************

* Таблица значений выходного напряжения.

********

*********

Входные переменные : W - Смещение в таблице. Выходные переменные: W - Значение из таблицы.

addwf dt

; Напряжение вывода:

PCL, F

; Вызывается с индексом в W. ; Индекс прибавить к PC.

Ox4d, 0x74, 3.0 4.5

0x82, 5.0

0x9b, 0хс2, 6.0 7.5

Oxea 9.0

***************************************************************

Защитное отключение системы, включение индикатора аварии,

* останов программы.

Единственный выход из подпрограммы - сброс микроконтроллера.

ShutDn

Dead

********

bcf bcf clrf

bsf goto

**********

CCPICON, 4 CCPICON, 5 CCPRIL

PORTB, 7

Dead

; Отключить выход ШИМ.

; Включить индикатор аварии. ; Зацикливание программы.

*************

********



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 [ 74 ] 75 76 77 78 79 80 81 82 83 84



ООО «Мягкий Дом» - это Отечественный производитель мебели. Наша профильная продукция - это диваны еврокнижка. Каждый диван можем изготовить в соответствии с Вашими пожеланияи (размер, ткань и материал). Осуществляем бесплатную доставку и сборку.



Звоните! Ежедневно!
 (926)274-88-54 
Продажа и изготовление мебели.


Копирование контента сайта запрещено.
Авторские права защищаются адвокатской коллегией г. Москвы
.