Здесь проблема в слове "простаивать"...
Если проц простаивает, то, конечно, никакого пентиума не хватит, не то что двух мег

В юмор:
"Японские ученые создали суперкомпьютер способный выполнить бесконечный цикл за три микросекунды!"
![]() |
roboforum.ruТехнический форум по робототехнике. |
|
Левый верхний:
Config Portd.4 = Output : Set Portd.4 : Waitms 3
Config Portd.4 = Input : Reset Portd.4 : Waitms 3
If Pind.4 = 1 Then : Lv = 0 : Else : Lv = 1 : End If
Return
Левый нижний:
Config Portd.6 = Output : Set Portd.6 : Waitms 3
Config Portd.6 = Input : Reset Portd.6 : Waitms 3
If Pind.6 = 1 Then : Ln = 0 : Else : Ln = 1 : End If
Return
Правый верхний:
Config Portd.5 = Output : Set Portd.5 : Waitms 3
Config Portd.5 = Input : Reset Portd.5 : Waitms 3
If Pind.5 = 1 Then : Pv = 0 : Else : Pv = 1 : End If
Return
Правый нижний:
Config Portd.7 = Output : Set Portd.7 : Waitms 3
Config Portd.7 = Input : Reset Portd.7 : Waitms 3
If Pind.7 = 1 Then : Pn = 0 : Else : Pn = 1 : End If
Return
Config Portd.4 = Output : Set Portd.4
Config Portd.6 = Output : Set Portd.6
Config Portd.5 = Output : Set Portd.5
Config Portd.7 = Output : Set Portd.7
Waitms 3
Config Portd.4 = Input : Reset Portd.4
Config Portd.6 = Input : Reset Portd.6
Config Portd.5 = Input : Reset Portd.5
Config Portd.7 = Input : Reset Portd.7
Waitms 3
If Pind.4 = 1 Then : Lv = 0 : Else : Lv = 1 : End If
If Pind.6 = 1 Then : Ln = 0 : Else : Ln = 1 : End If
If Pind.5 = 1 Then : Pv = 0 : Else : Pv = 1 : End If
If Pind.7 = 1 Then : Pn = 0 : Else : Pn = 1 : End If
ALHIMIK писал(а):2паштет а чего там опрашивать?
выставить флажок (в прерывании по таймеру) - опроси датчики
в бесконечном цикле проверяй флажжки
=DeaD= писал(а):+1
Используй прерывания по таймеру и всё.
Вернуться в Разработка модулей
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2