roboforum.ru

Технический форум по робототехнике.

 

в усарте какието непонятки с передачей

В разделе рассматриваются вопросы информационного обмена в робототехнике.
Аппаратный уровень, протоколы.

в усарте какието непонятки с передачей

Сообщение Myp » 16 май 2010, 16:25

вот код в васике

Код: Выделить всёРазвернуть
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 и всё стало номано
выше чото не ставится, походу чип неумеет быстрее
<telepathmode>На вопросы отвечает Бригадир Телепатов!</telepathmode>
Всё уже придумано до нас!
Аватара пользователя
Myp
скрытый хозяин вселенной :)
 
Сообщения: 15896
Зарегистрирован: 18 сен 2006, 12:26
Откуда: Тверь по прозвищу Дверь
прог. языки: псевдокод =) сила в алгоритме!
ФИО: глубокоуважаемый Фёдор Анатольевич

Вернуться в Коммуникации

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Mail.ru counter