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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 27