Как соединить две АТмеги на одном роботе?

galex1981

Я спутал SS с неинверным - обычным сигналом

MiBBiM

а пример кода так никто и не привел.
брутально, через софтварный уарт:

Код:

Open "comc.1:9600,8,n,1" For Input As #10   'comc.1 выбрано произвольно
Dim S As String * 20
Do
   Input #10 , S , Noecho
   Print S
Loop

для второго:

Код:

Open "comc.4:9600,8,n,1" For Output As #10 'comc.4 соединен с comc.1 первого
Dim Count As Byte
Do
   For Count = 0 To 100
      Print #10 , Count
      Waitms 500
   Next
   Waitms 500
Loop

второй непрерывно шлет числа [0..100] первому, отправляющему их по хардварному уарту в неизвестные дали

Сергей

Пример КОДА с комментариями есть в даташите.

ALHIMIK

пример есть в АН

roboforum.ru

Как соединить две АТмеги на одном роботе?

Кто сейчас на конференции