Всем привет! Нащёл интересную статью, может для кого то это и не новость, но я был приятно удивлён. (ОС реального времени AQUA RTOS для МК AVR в среде BASCOM AVR) https://habr.com/ru/post/453708/ Думаю многим пригодится
Такая проблемка.Никак не могу победить концевики. Суть в
следующем. Есть аппарат, в нем ходит каретка влево-вправо.С обоих
сторон - концевики. Время движения от края до края примерно 15
сек. Вместе с включением мотора привода каретки включается мотор
вентилятора, и работает ( в режиме отладки) 1 мин. Потом -
длинная пауза (в режиме отладки - 3 мин, а реально будет 2 часа).
За второй и третий временные интервалы отвечает Timer1- с этим
проблем нет. Вся загвоздка в первом интервале. Пробовал тоже
посадить его на таймер - нестабильно работает. То недокрутит, то
перекрутит. Решил установить концевики, и бьюсь с ними целый день.
Прога работает так: на Int0 висит геркон, на стрелке часов -
магнит. По прерыванию запускается таймер и моторы с индикаторами.
А в основном цикле концевики выключают мотор привода каретки. Все
работает до срабатывания первого концевика. И все.
Вот с этим бьюсь целый день.
Может, у кого-то есть опыт общения с концевиками? Подскажите, как
с ними бороться.
На всякий случай прикладываю схему и код, конечно.
Код: Выделить всё
$regfile = "2313def.dat"
$crystal = 4000000
$hwstack = 32
$swstack = 8
$framesize = 16
Dim V As Word
Dim M As Bit
Dim L As Bit
Config Pind.2 = Input
Config Pind.0 = Input
Config Pind.1 = Input
Config Portd.6 = Output
Config Portb.0 = Output
Config Portd.5 = Output
Config Portd.4 = Output
Config Debounce = 30
Config Timer1 = Timer , Prescale = 64 , Clear Timer = 1
Compare1a = 62500
On Oc1a Timecount
Config Int0 = Falling
On Int0 Count
Red Alias Portb.0
Blue Alias Portd.6
Motor1 Alias Portd.4
Motor2 Alias Portd.5
L_end Alias Pind.0
R_end Alias Pind.1
Enable Interrupts
Enable Timer1
Enable Oc1a
Stop Timer1
Enable Int0
V = 0 : M = 0
Do
If L_end = 0 Or R_end = 0 Then 'сработал концевик
Reset Red
Reset Motor1
End If
If V = 60 Then
Reset Blue
Reset Motor2
End If
If V = 180 Then
Stop Timer1
Timer1 = 0
V = 0 : M = 0
End If
Loop
Count:
If M = 0 Then
Start Timer1
Set Motor1
Set Motor2
Set Red
Set Blue
End If
M = 1
Return
Timecount:
Incr V
Return
End
