Есть желание использовать радиоканал для управления,например,светом,или насосом.Сделал радиомодули на 433.92. На этой частоте,конечно,шумно,но модули работают устойчиво. Использовал железный и софтовый уарт,работает нормально.Хотел приспособить для передачи команды манчестерский код,только модулировать им свою несущую(433.92). Сделал передатчик,при нажатии кнопки с порта B.0 код уходит в модулятор, приемник его видит: две единицы и число 17 младшим вперёд,а вот как приемнику этот код обработать я не знаю. Читал,что нужно использовать прерывания и таймер,считать длительность нуля/единицы,а вот как это выглядит в коде не представляю.Прошу помощи.
Передатчик:
Код:
$regfile = "m8adef.dat"
$crystal = 8000000
$hwstack = 18
$swstack = 18
$framesize = 24
Dim A As Byte
Dim B As Byte
Kn Alias Pinc.2
Config Portb.0 = Output
Tt Alias Portb.0
Declare Sub Log0
Declare Sub Log1
B = 17
Do
If Kn = 0 Then
Waitms 100
Log1
Log1
For A = 0 To 7
If B.a = 0 Then Log0 Else Log1
Next
End If
Loop
End
Sub Log1
Tt = 1
Waitus 883
Tt = 0
Waitus 884
End Sub
Sub Log0
Tt = 0
Waitus 883
Tt = 1
Waitus 884
End Sub