roboforum.ru

Тест работы бампера. Проверь.
Куда подключены Led1 и Led2 поправь на твои данные.

Код: Выделить всё • Развернуть

$regfile = "m16def.dat"
$crystal = 16000000

Config Pina.4 = Input : B1 Alias Porta. 4
Config Pina.5 = Input : B2 Alias Porta.5

Config Pinb.1 = Output : Led1 Alias Portb.1
Config Pinb.2 = Output : Led2 Alias Portb.2

'Constants
Const Switch_on = 1
Const Switch_off = 0

Do

Led1 = Switch_off
Led2 = Switch_off
Waitms 50
Led1 = B1
Led2 = B2
Waitms 50

Loop

А как проверил, что работает?

Подключил на выходы светодиоды и как только препятствие появляется светодиод гаснет, оба канала работают правильно.

Вообщем как-то так:

Код: Выделить всё • Развернуть

$regfile = "m16def.dat"
$crystal = 16000000

Config Pina.0 = Output : M1f Alias Porta.0
Config Pina.1 = Output : M1b Alias Porta.1
Config Pina.2 = Output : M2f Alias Porta.2
Config Pina.3 = Output : M2b Alias Porta.3
Config Pina.4 = Input : B1 Alias Porta.4
Config Pina.5 = Input : B2 Alias Porta.5

Do
If B1 = 1
Then
Goto M1
M1 : If B2 = 1
Gosub Вперёд
Else
Gosub Назад_вправо
End If
Else
Goto M2
M2 : If B2 = 0
Then
Gosub Назад
Else
Gosub Назад_влево
End If
End If
Loop

Вперёд:
M1f = 1 : M1b = 0
M2f = 1 : M2b = 0
Return
Вперёд_вправо:
M1f = 1 : M1b = 0
M2f = 0 : M2b = 0
Return
Вперёд_влево:
M1f = 0 : M1b = 0
M2f = 1 : M2b = 0
Return
Назад:
M1f = 0 : M1b = 1
M2f = 0 : M2b = 1
Return
Назад_вправо:
M1f = 0 : M1b = 1
M2f = 1 : M2b = 0
Return
Назад_влево:
M1f = 0 : M1b = 0
M2f = 0 : M2b = 1
Return
Разворот_вправо:
M1f = 1 : M1b = 0
M2f = 0 : M2b = 1
Return
Разворот_влево:
M1f = 0 : M1b = 1
M2f = 1 : M2b = 0
Return

End

Если резистор на + питания ( обычно 4-10 кОм ) то это "подтяжка" - тюею создание определенного напряжения на ножке - четкой лог "1" - когда кнопка не нажата.

Я еще рекомендую резистор между кнопкой и ножкой - 200-500 Ом а подтяжку к кнопке подключать.

Более мене. Выдержка из текста "короткий полюс не гарантирует генерацию ресета"
Са схеме forum73/topic5677.html
Вход на ресете инвертированый - для это и нужен резистор?

Shorter pulses - из текста на картинке , всем спасибо разобрался

Здравствуйте! Появилась новая проблемка с BASCOM-AVR. В окне программирования нажал на "Clear buffer". Значек программирования стал красным, некоторые фьюзы слетели, в том числе фьюз установки кварца. Вроде фьюзы поставил, начал прошивать, в конце прошивки вылезло окошко "Difference at 00000". Прога в МК зашивается, но не работает. Через не которое время в проге появилось вот это:

Код: Выделить всё • Развернуть

$prog &H00 , &H00 , &H00 , &H00  ' generated. Take care that the chip supports all fuse bytes 

Щас вообще, то видит МК, то нет. Собственно как от этого можно избавиться и решить эту проблему?

Так стирание чипа же автоматически происходит при перепрошивке?