а пример кода так никто и не привел.
брутально, через софтварный уарт:
- Код: Выделить всё • Развернуть
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] первому, отправляющему их по хардварному уарту в неизвестные дали