Помогите с TMR1 на PIC16F873

[vavan1983]

jump, МЭК61131 структура написания как у ASM?

[ptrots]

для большего кол-ва кнопок нужно в Task_Button: отвязать биты переменных от конкретных битов портаБ , ну и увеличить их разрядность с 8ми до 16 бит.

Простите опять за тупой вопрос. А как это сделать?
Кажется я взялся за непосильную задачу. Наверное придется придумывать что то другое.

[OakRidge]

Pic16F1xxx
Ядро новое сохраняет автоматом важные регистры в прерывании
Цена доллар за 14 ног
Пока идет выпуск так себе По 200 штук PIC10F200
PIc 18 на очерди. заказчик любит смотетрь в потолок желаний
Копейки считает,
Нормально, не в первый раз
Пройдет

[jump]

МЭК61131 структура написания как у ASM?

ознакомьтесь, можно обсудить в другой теме

[DmitriyVDN]

А как это сделать?

в дефайнах

;Биты реальных кнопок   PORTB,PORTA
#define  PORT_BUTTON1  PORTB,0
#define  PORT_BUTTON2  PORTB,1
#define  PORT_BUTTON3  PORTB,2
#define  PORT_BUTTON4  PORTB,3
#define  PORT_BUTTON5  PORTB,4
;.....
;.....
;.....
#define  PORT_BUTTON9   PORTA,0
#define  PORT_BUTTON10  PORTA,2
;.....
;.....
#define  PORT_BUTTON16  PORTA,5

;Биты виртуальных кнопок  PortButton, PortButtonOld, 
; ButtonJastPressed,ButtonJastRelased
#define  BUTT1   0
#define  BUTT2   1
#define  BUTT3   2
#define  BUTT4   3
#define  BUTT5   4 
#define  BUTT6   5
#define  BUTT7   6
#define  BUTT8   7

#define  BUTT9   0 
#define  BUTT10  1
#define  BUTT11  2
#define  BUTT12  3
#define  BUTT13  4 
#define  BUTT14  5
#define  BUTT15  6
#define  BUTT16  7

в описании переменных делаем размерность 16бит
[SPOILER]

Button      :2    ; регистр текущие состояние кнопок 
ButtonOld   :2    ; регистр предыдущие состояние кнопок 
ButtonJastPressed :2 ; только что нажатые кнопки
ButtonJastRelased :2 ; только что отпущеные кнопки

в коде

;************************************************
;
;************************************************
;Button          ; регистр текущие состояние кнопок 
;ButtonOld       ; регистр предыдущие состояние кнопок 
;ButtonJastPressed ; только что нажатые кнопки
;ButtonJastRelased ; только что отпущеные кнопки
Task_Button:
    banksel PORTB
	    clrf Button
		clrf Button+1
        btfss PORT_BUTTON1
          bsf Button,BUTT1	
        btfss PORT_BUTTON2
          bsf Button,BUTT2
        btfss PORT_BUTTON3
          bsf Button,BUTT3
        btfss PORT_BUTTON4
          bsf Button,BUTT4
        btfss PORT_BUTTON5
          bsf Button,BUTT5
        btfss PORT_BUTTON6
          bsf Button,BUTT6	
        btfss PORT_BUTTON7
          bsf Button,BUTT7
        btfss PORT_BUTTON8
          bsf Button+1,BUTT8
        btfss PORT_BUTTON9
          bsf Button+1,BUTT9
        btfss PORT_BUTTON10
          bsf Button+1,BUTT10
        btfss PORT_BUTTON11
          bsf Button+1,BUTT11	
        btfss PORT_BUTTON12
          bsf Button+1,BUTT12
        btfss PORT_BUTTON13
          bsf Button+1,BUTT13
        btfss PORT_BUTTON14
          bsf Button+1,BUTT14
        btfss PORT_BUTTON15
          bsf Button+1,BUTT15		  
        ; определяем только что нажатые кнопки
        movfw Button            ; W = Button
        xorwf ButtonOld,w       ; W ^= ButtonOld
        andwf Button,w          ; W &= Button
        iorwf ButtonJastPressed,f ; ButtonJastPressed = W
		
        movfw Button+1            ; W = ButtonH
        xorwf ButtonOld+1,w       ; W ^= ButtonOldH
        andwf Button+1,w          ; W &= ButtonH
        iorwf ButtonJastPressed+1,f ; ButtonJastPressedH = W		
		
        ; определяем только что отпущеные кнопки
        movfw Button            ; W = Button
        xorwf ButtonOld,w       ; W ^= ButtonOld
        andwf ButtonOld,w       ; W &= ButtonOld
        iorwf ButtonJastReleased,f ; ButtonJastPressed = W

        movfw Button+1            ; W = ButtonH
        xorwf ButtonOld+1,w       ; W ^= ButtonOldH
        andwf ButtonOld+1,w       ; W &= ButtonOldH
        iorwf ButtonJastReleased+1,f ; ButtonJastPressedH = W		
        ; обновляем станоезначение кнопок
        movfw Button
        movwf ButtonOld
        movfw Button+1
        movwf ButtonOld+1

[OakRidge]

btfss PORT_BUTTON14
bsf Button+1,BUTT14
btfss PORT_BUTTON15
bsf Button+1,BUTT15
; определяем только что нажатые кнопки
movfw Button ; W = Button
xorwf ButtonOld,w ; W ^= ButtonOld
andwf Button,w ; W &= Button
iorwf ButtonJastPressed,f ; ButtonJastPressed = W

movfw Button+1 ; W = ButtonH
xorwf ButtonOld+1,w ; W ^= ButtonOldH
andwf Button+1,w ; W &= ButtonH
iorwf ButtonJastPressed+1,f ; ButtonJastPressedH = W

; определяем только что отпущеные кнопки
movfw Button ; W = Button
xorwf ButtonOld,w ; W ^= ButtonOld
andwf ButtonOld,w ; W &= ButtonOld
iorwf ButtonJastReleased,f ; ButtonJastPressed = W


Я в ужасе

[DmitriyVDN]

от чего?, что не так?

[NewWriter]

Вероятно потому, что в реальности там нет кнопок - там оптические датчики, автор же об этом писал в начале.
Ну и да, повторный вход по факту срабатывания отсекается установленным флагом (битом) при первом входе. Этот бит сбрасывается только при распознавании исходного состояния.
В оптических датчиках дребезга, подобного механическим кнопкам, нет из-за гистерезиса триггера Шмита на входе в МК.

В этой конкретной задаче не надо вычислять нажатые или отпущенные кнопки. Нужно просто определить, перекрыт ли оптический датчик или нет.

[DmitriyVDN]

В этой конкретной задаче не надо вычислять нажатые или отпущенные кнопки. Нужно просто определить, перекрыт ли оптический датчик или нет.

а таймер как запускать будите?...

[NewWriter]

Так, как описал.
if ((ReadInput(IN1) == TRUE) && (blocked_in1 == FALSE)) { blocked_in1 = TRUE; StartTimer(TIMER1); }
else blocked_in1 = FALSE;