- Код: Выделить всё
Dim Etalon(6) As Byte
Dim Sens(6) As Byte
Do
Waitms 10
Sens(1) = L1
Sens(2) = L2
Sens(3) = L3
Sens(4) = R3
Sens(5) = R2
Sens(6) = R1
If Etalon(1) = Sens(1) And Etalon(2) = Sens(2) And Etalon(3) = Sens(3) And Etalon(4) = Sens(4) And Etalon(5) = Sens(5) And Etalon(6) = Sens(6) Then
Else
Print Sens(1) ; " " ; Sens(2) ; " " ; Sens(3) ; " " ; Sens(4) ; " " ; Sens(5) ; " " ; Sens(6)
Etalon(1) = Sens(1)
Etalon(2) = Sens(2)
Etalon(3) = Sens(3)
Etalon(4) = Sens(4)
Etalon(5) = Sens(5)
Etalon(6) = Sens(6)
'спустя паузу читаем состояние входов в массив и сравниваем с эталоном
'если есть отличие то сохраняем новый эталон и отсылаем новую строку в усарт
End If
Loop
в терминале получаю чтото например такое
0 0 0 0 0 0
0 0 0 1 0 0
0 0 0 1 1 0
0 0 0 1 1 1
0
0
1
0 0
0 0 0 1 1
тоесть кагбы работает, но иногда доходят отрывки от строки
если просто слать длинную строку то всё стабильно доходит
я чото нетак делаю?
Добавлено спустя 1 час 14 минут 25 секунд:
вобщем походу были проблемы в том что скорость маленькая и много времени тратилось на передачу
поставил 230400 и всё стало номано
выше чото не ставится, походу чип неумеет быстрее
