Как по флагу, если здесь будет бесконечная помеха? Предложи.
If Scan < 30 Then Return       'Сильно короткий, значит помеха выходим

Отредактировано rom-i (2019-01-09 21:22:30)

От этого нет спасения. USB, LAN по проводам с ума сходят. Не говорю про радиопередачу.
В цеху проверял HC-12. Дальность тоже падает на порядки. От частотников очень сильная помеха.
Здесь все, и рассчитано на подавлении помехи несущей. Количество повторов передачи. Контрольная сумма наконец. С этим кодом уже 3 года работают часы. Небыло нареканий. Единственно его сам хотел написать.

Последний подход к побитному приему.
Все проще некуда.
'-------------------------------------------------------------------------------------------------
Dim Accept_data(6) As Integer                               'весь блок подлежащий приему
Dim Moi_signal As Bit : Moi_signal = 0
Dim Bi As Bit
'--------------------------------------------------------------------------------------------------
Dim Count As Byte : Count = 0
Dim Nomer As Integer At Accept_data(6) Overlay              '1 байт
Dim Tds As Integer At Accept_data(5) Overlay                '2 байт
Dim Tdht As Integer At Accept_data(4) Overlay               '3 байт
Dim Hdht As Integer At Accept_data(3) Overlay               '4 байт
Dim L As Integer At Accept_data(2) Overlay                  '5 байт
Dim Crc_rx As Integer At Accept_data(1) Overlay             '6 байт 
'--------------------------------------------------------------------------------------------------
Zaxvat:
Scan = Timer1                                              ' копируем значение таймера в переменную
Timer1 = 0                                                 ' обнуляем таймер
Gosub Posilka
Return
'-------------------------------------------------------------------------------------------------
Posilka:

If Scan < 30 Then Return                                   'Сильно короткий, значит помеха выходим
If Scan > 500 Then                                         'Слижком длинный, значит пауза между посылками
   Moi_signal = 0
   Scan = 0
   Count = 0
   Return
End If

Select Case Scan
  Case 40 To 70                                             '62.5МС (1000мкС) значит 0
    Incr Count
    Bi = 0
    Goto Zapis
  Case 100 To 150                                           '125МС (2000мкС) значит 1
    Incr Count
    Bi = 1
    Goto Zapis
  Case 250 To 350                                           '312.5МС (5000мкС) значит сигнал опознования
    Count = 0
    Moi_signal = 1
End Select
Return
'-----------------------------------------------------------------------------------------------------------
Zapis:
   If Moi_signal = 1 Then
        X = 96 - Count
        Accept_data(1).x = Bi
      If Count = 96 Then
        Count = 0
        Moi_signal = 0
      End If
   End If
Return
End