Kod: |
Freq = 5394 ' fodb=(145550-10700)/25=5394
Pcz = 428 ' dodanie pcz do freq nadawczej Zmiana = 0 ' nie było zmiany od encodera S_roger = 0 ' roger nie bedzie wykonywany |
Kod: |
If Freq >= 5396 And Freq <= 5403 Then
Rpt = 1 ' przestrzeń kanalowa dla przemienników Else Rpt = 0 End If If Portb.2 = 1 Then Fpom = Freq + Pcz ' nadajesz, zatem f nad =f odb +10.7MHz If Rpt = 1 Then ' jeżeli to przemiennik to fnad=fodb-600kHz Fpom = Fpom - 24 End If Else Fpom = Freq End If |
Kod: |
Wynik = Wynik * 25 ' 25kHz - krok syntezy |