Длина запроса и ответа постоянная?

принимаем ответ:

      N = 21      ' длина ответа
      For S = 1 To N
         Inputbin D Timeout = T   '
         ------   ' обрабатываем D
      Next

Скорее всего то, что я написал в предыдущих постах, работать у вас не будет
(Сразу не насторожился по поводу 05 и 15 в начале запроса и ответа!)
Если я правильно понял - этот протокол работает следующим образом:
1. В исходном состоянии датчик должен ждать запрос <ENQ> (&H05),
на который, если все нормально, должен ответить <NAK> (&H15)
После этого ХОСТ посылает команду.
2. Если команда принята, датчик отвечает <ASK> (&H06), готовит и посылает ответ.
<ASK> должет перевести ХОСТ на прием ответа.
После приема Хост посылает подтверждение приема <ASK> (если совпадает  контрольная сумма)
Если не выполняются эти условия, то все заново.

У меня это работает так (Меня интересует в ответе только длина сообщения и код ошибки):
$regfile = "89c4051.DAT"
$baud = 4800                             
$crystal = 11059000                     
$timeout
'$large

' ---------Всякие переменные
Dim Enq As Const &H05
Dim Ask As Const &H06
Dim Nak As Const &H15
Dim Alarm As Bit                          ' авария
Dim S As Byte
Dim D As Byte                             ' временая  переменная
Dim N As Byte                             ' кол-во байт в команде
Dim Er As Byte                            ' ошибка в принимаемом ответе
Dim T As Word                             ' таймаут

Dim I As Byte                             ' временая  переменная
'                  Н А Ч А Л О
   Do
Gosub Send_enq            '
             Printbin &H02 ; &H05 ; &H40 ; &H1E ; &H00 ; &H00 ; &H00 ; &H5B
Gosub Comport
Gosub Check_er                      ' Проверка кода ошибки
   Loop
End
Send_enq:                '    запрос состояния 
      Printbin Enq
      Gosub Comport                       ' принимаем ответ
      Gosub Check_er
      Wait 1
Return
Comport:
Inputbin D Timeout = T                    ' принимаем 1 й байт (06)
   If D = Nak Then
      Exit Sub
   End If
   If D = Ask Then
      Inputbin D Timeout = T              ' принимаем 2 й байт (02)  Эти данные не интересуют
      Inputbin N Timeout = T              ' принимаем 3 й байт (длина команды)
      Inputbin D Timeout = T              ' код команды    Эти данные не интересуют
      Inputbin Er Timeout = T             ' ошибка
      N = N - 1
      For S = 1 To N
         Inputbin D Timeout = T    ' Эти данные не интересуют
      Next
      Waitms 50
      Printbin Ask                        ' ответ ASK

   Else
      P1 = &B01100010                     'HA6                          ' Нет связи
      Wait 3
      Exit Sub
   End If

Return

Обычно китайцы автоматом эти сигналы коротят на плате.

скорость не совпадает
Настройки фузов на кварц верные?
начните с 9600

чтото я не сильно понял что вы делаете..
вы посылаете данные с  Usart0 сразу на USB-RS485 переходник  ?

тоесть схема такая : Usart0  > линия связи > RS485 > USB >ПК ?
или  схема такая : Usart0  > RS485(MAX485) > линия связи > RS485 > USB >ПК ?

открою страшную тайну: данный модуль надо допилить напильником!
Чтобы избежать выдачи ошибочных сигналов на приемник UART, необходимо на входах A-B гарантировать разность потенциалов Uab > +200мВ. Это смещение при отсутствии входных сигналов обеспечивает на выходе приемника логическую "1", поддерживая, таким образом, уровень стопового бита. Резисторы R5 и R6  ( подтяжка  ) надо заменить на резисторы номиналом от 0.56к  до  4.7кОм  ( у меня китайцЫ впихнули по 200кОм ! ) .
При напряжение питания - 5В R5 и R6 выходят примерно по 650 Ом. Для смещения с запасом - сопротивление обычно ставят 560 Ом.

желательно  2й и 3й вывод микросхемы  (RE  DE)  обьединить и через резистор 4.7кОм  подтянуть к земле

Отредактировано Penumbra (2017-11-19 16:25:51)

, у меня  до перепайки резисторов , из  8 модулей работало только 3, после допиливания - заработали все

Не, проблемы точно были в модулях и в переходнике USB-RS485
Один модуль только передавал, другой только шум показывал, третий вообще ничего не делал, а в USB-RS485 отсутствовало сопротивление 220 Ом.