Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.



RC5 и tiny45

Сообщений 1 страница 5 из 5

1

Всем привет!
Решил попробовать их совместить. Накидал такой код:

Код:
$regfile = "ATtiny45.DAT"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "mcsbyte.lbx"

Config Rc5 = Pinb.3

Enable Interrupts

Config Pinb.1 = Output
Out_1 Alias Portb.1

Config Pinb.2 = Output
Out_2 Alias Portb.2

Dim Address As Byte
Dim Command As Byte

Do

Getrc5(address , Command)
If Address = 0 Then
Command = Command And &B01111111
End If

If Command = 6 Then
Waitms 200
Toggle Out_1
End If

If Command = 7 Then
Waitms 200
Toggle Out_2
End If

Loop

End

Fuse-биты:
http://s3.uploads.ru/b3Nwt.png
Команды принимаются не уверенно, с пропусками. Кто-нибудь сталкивался с таким?

0

2

Попробуй такие настройки -
Config Rc5 = Pinb.3 , Wait = 200 ' *Wait - подбирать по стабильному срабатыванию, в версиях начиная с 1.11.9.9
По умолчанию Wait = 100.
У меня на Меге8 работало с Wait = 110.

0

3

Спасибо.
Вечером попробую.

0

4

Сделал так: Wait = 2000 и стало как надо.

Если вы хотите старого поведения необходимо указать значение 2000, которое составляет ок. 131 мс.

0

5

radan написал(а):

Попробуй такие настройки -
Config Rc5 = Pinb.3 , Wait = 200 ' *Wait - подбирать по стабильному срабатыванию, в версиях начиная с 1.11.9.9
По умолчанию Wait = 100.
У меня на Меге8 работало с Wait = 110.


Да ,так и есть с мегой8  Config Rc5 = Pinb.3 , Wait = 110 , теперь пульт работает стабильно, версия васика 2.0.7.1.

0