Niya
С такого подхода начинал, отказался. В данном случае порт ICP1 постоянно стои на ожидании импульса(в вечном прерывании). Условие
Do
If Period1 = 0 Then
      Chastota = 0
не выполняется. По скольку на входе пусто.
Что выложил выше, принцип обычного частотомера. Порта Т0 привязан к TIMER0, T1 к TIMER1. Соответственно переполнение 256, 65536 импульсов.
Start Counter0 'Таймер привязывается к импульсам на входе Т0. Сколько импульсов, столько тиков.
Waitms 1 'Время измерения. Количество импульсов в сек. Гц, в мсек. кГц.
Stop Counter0 '
Timercounter = Counter0 'Готовая частота в кГц. С условием, что таймер не переполнялся. до 255 кГц.
прерывание:
Uphigh:     
  Incr Overcounter   'Считает количество переполнений таймера.
Return

Freq = Overcounter ' Конечное значение пока равно количеству переполнений
  Shift Freq , Left , 8 'Сдвигаем число влево на 8 бит. Тоже, что Freq * 256. Количество переполнений в число.
  Freq = Freq + Timercounter 'Добавляем, что насчитали без переполнения. Реальная частота.

Здесь не понимаю как это реализовать.

-NMi-
Для понять правду, надо понять неправду.
Если работаем с отрицательными числами, тогда есть одна тема. Ее понят дорогой NMi.
Количество отрицательных голосов против выбранного президента, приводит к переполнению счетчиков.
Получите положительный результат.

Собрал передачу по USART. Передатчик Tiny84, приемних хотел Tiny25, но Китайцы прислали дохлые МК. Пришлось переделовать тоже на Tiny84. Дальность на Китайских радиомодулях 30м. Вполне нормально. Скорость UART 2400бод. Бысрее начинают символы пропадать.
Решил продолжить тему с ШИМ.
$regfile = "attiny84.dat"
$crystal = 8000000
'------------------------------------------------------------------------------------------
Peredacha_bytov:
       Waitus Pausa
       Waitus Pausa
    For Байты = 0 To 5
      Select Case Байты                                     'Все байты Word,что бы не собирать в одно длинное слово
        Case 0 : Buf = Номер                                'Номер передающего устройства
        Case 1 : Buf = Tds1                                 'Температура DS18B20
        Case 2 : Buf = Tdht1                                'Температура DHT22
        Case 3 : Buf = Hdht1                                'Влажность DHT22
        Case 4 : Buf = L                                    'Напряжение батареи
        Case 5 : Buf = Crc                                  'Конторьная сумма
      End Select
          For Nomer_bita = 15 To 0 Step - 1                 'Старшим битом вперед
             If Buf.nomer_bita = 1 Then
                Data_ = 1                                   'Передний фронт импульса передачи
                Waitus Odin                                 'Длительность 1 1500мкС
                Data_ = 0                                   'Задний фронт импульса передачи
                Waitus Pausa                                'Пауза 500мкС. Общая длительность передачи 1 (1500+500=2000мкС)
              Else
                Data_ = 1
                Waitus Nol                                  'Длительность 0 500мкС
                Data_ = 0
                Waitus Pausa                                'Общая длительность передачи 0 (500+500=1000мкС)
            End If
          Next Nomer_bita
    Next Байты
                Data_ = 1                                   'Передний фронт для измерения последнего бита
                Waitus Nol                                  '------
                Data_ = 0                                   '------
Return
В начале передачи идет преамбула 8 импульсов ШИМ 1500/1500мкС, импульс опознавания ШИМ 4000/1000мкС, дальше данные, что в этом коде. В протеус по осциллографу как бы нормально. Но с приемом караул. Может протеус не успевает. Преамбула отсеивается. Импульс опознавания работает. Дальше каша. На дисплее остается последний бит. Всегда правильный.

$regfile = "m8adef.dat"
$crystal = 16000000

' указываем конфигурацию подключения дисплея к портам МК
Config Lcdpin = Pin , Rs = Portb.4 , E = Portb.3 , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = Portc.4
Config Lcd = 16 * 2                                         ' тип используемого дисплея
Cursor Off
Cls
'настраиваем таймер в режим захвата по восходящему фронту
Config Timer1 = Timer , Prescale = 256 , Capture Edge = Rising
'-------------------------------------------------------------------------------------------------
Dim Scan As Word
Dim Moi_signal As Bit : Moi_signal = 0
Dim Bi As Bit
'--------------------------------------------------------------------------------------------------
Dim Count As Byte : Count = 1
Dim Nomer As Word
Dim Tds As Integer
Dim Tdht As Integer
Dim Hdht As Integer
Dim L As Word
Dim Crc_rx As Word
Dim X As Byte
'------------------------------------------------------------------------------------------
On Capture1 Zaxvat

Scan = 0
Waitms 50
Enable Interrupts
Enable Capture1
'**************************************************************************************************
Do

Locate 1 , 1
Lcd Scan ; "     " ; Nomer
Locate 2 , 1
Lcd Moi_signal

Loop
'**************************************************************************************************
'--------------------------------------------------------------------------------------------------
Zaxvat:
 Scan = Timer1                                              ' копируем значение таймера в переменную
 Timer1 = 0                                                 ' обнуляем таймер
 Gosub Posilka
Return
'-------------------------------------------------------------------------------------------------
Posilka:

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

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

  If Moi_signal = 1 Then
    Select Case Count
      Case 1 To 16
        X = 16 - Count
        Nomer.count = Bi
      Case 17 To 32
        X = 32 - Count
        Tds.count = Bi
      Case 33 To 48
        X = 48 - Count
        Tdht.count = Bi
      Case 49 To 64
        X = 64 - Count
        Hdht.count = Bi
      Case 65 To 80
        X = 80 - Count
        L.count = Bi
      Case 81 To 96
        X = 96 - Count
        Crc_rx.count = Bi
    End Select
    If Count = 96 Then
     Count = 1
     Moi_signal = 0
  End If
 End If
Return
 End

Где ошибаюсь?
В железе набросаю. Но если ошибки в коде........

-NMi-
Здесь "0" ,  один. Перед Вами.

Nord
Вы меня не поняли.
В данный момент ни каких радиопередачь не произходит. Два МК на прямую по проводу передают. Напутал в приеме. Где, не пойму.

Какой USART. Его мне Sergik предложил пол года назад. Вопрос почитай!

Nord
Тема начато про, что?
Первый вопрос кто читал?

Это понятно.
Задал уже вопрос в другом месте. Сам понимаю, что МК не успевает отрабатывать таблицы. Это на баском пишеться черезь оверлей. Не хуже ассемблера. Скорость максимальная. Case тормозит. Но так делать, только учусь. Любое слово побитно, и наоборот. Это черезь оверлей.

Идет перадача битов. У меня их 96. Но это не важно. Прогамму скинул полную приема.
Не успевает МК отработать на приеме даже 3 бита. В своей пруге пробовал брать первые 4, и последние 4 БИТа.
Изчезают единицы. Вместо &b1111 получаю &b0011. Пробовал инверсно &b1111000000000000, получал &b1100000000000000.
Посылка, то идет непрерывным бинарным кодом. По осциллу передача нормуль. МК гдето ткнется на приеме.
Не успевает.
Почему это работает у людей? Реально, и четко. На PICах. Уже больше 10и лет.
Сколько не пытаюсь повторить, все тщетно. На форумах только сказки советуют. Или знаки минуса ставят.