Генерация частоты в PSK31 кодировке (прога генерирует радиомолчание 0000000...) о самой кодировке
Оригинал статьи про PSK31 http://www.ra3doa.qrz.ru/psk31.html
https://vk.com/doc191426545_509122013
Оригинал статьи про PSK31 http://www.ra3doa.qrz.ru/psk31.html
https://vk.com/doc191426545_509122013
Код:
$regfile = "m8def.dat"
$crystal = 16000000
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 1
Dim Y As Single , Temp As Single , Alfa As Single , Beta As Single , I As Integer , Shim As Byte , Sdvig As Byte , Ii As Byte
Do
Alfa = 0
For I = 0 To 804 ' 0
Alfa = Alfa + 0.5
Temp = Alfa / 64 : Temp = Sin(temp)
Y = Sin(alfa) : Y = Y * Temp : Y = Y + 1
Shim = Y * 126
If Shim = 0 Then Shim = 1
Pwm1a = Shim
Next
Loop
End