Witam
Jak wyliczyć (ustawić bity) w tej syntezie dla kwarcu 10.350 MHz ?
Siedzę już nad tym od przeszło godziny i nic nie wymyśliłem
Zakres częstotliwości w jakich chcę ją przestrajać to 98 - 120 MHz (głowica UKF)
Link do karty katalogowej: http://www.datasheetarchive.com/dl/Datasheets-21/DSA-409262.pdf
Na chwilę obecna mam taką procedurkę (zaadaptowana z mojego starego programu sterującego innym podobnym scalakiem)
Częstotliwość i opcje będą zmieniane przez Rs232 (komunikacje już odpaliłem)
Poprawki i ulepszenia zaprezentowanego kodu też mile widziane
Jak wyliczyć (ustawić bity) w tej syntezie dla kwarcu 10.350 MHz ?
Siedzę już nad tym od przeszło godziny i nic nie wymyśliłem
Zakres częstotliwości w jakich chcę ją przestrajać to 98 - 120 MHz (głowica UKF)
Link do karty katalogowej: http://www.datasheetarchive.com/dl/Datasheets-21/DSA-409262.pdf
Na chwilę obecna mam taką procedurkę (zaadaptowana z mojego starego programu sterującego innym podobnym scalakiem)
Częstotliwość i opcje będą zmieniane przez Rs232 (komunikacje już odpaliłem)
Poprawki i ulepszenia zaprezentowanego kodu też mile widziane
Code:
Sub Synteza
Sterowanie = &B00000000 'pre config układu
Reset Portd.3 ' CLK
Set Portd.4 ' Enable
For A = 0 To 13 ' wysyłanie bitów częstotliwości D0 - D13
If Fpom.a = 1 Then ' bit po bicie
Set Portd.2
Else
Reset Portd.2
End If
Call Zegarek ' po każdym bicie takt zegara
Next A '
Reset Portd.2 ' wysłanie T0=0
Call Zegarek ' takt zegara
Reset Portd.2 ' wysłanie T1=0
Call Zegarek ' takt zegara
For A = 0 To 7 ' wysyłanie bitów sterujących LM7001
If Sterowanie.a = 1 Then ' B0,B1,B2,TB,R0,R1,R2,S
Set Portd.2
Else
Reset Portd.2
End If
Call Zegarek ' po każdym bicie takt zegara
Next A '
Reset Portd.4 ' koniec transmisji CE=0
End Sub
'-------------------------------------------------------------------------------
Sub Zegarek
Waitus 10
Set Portd.3
Waitus 10
Reset Portd.3
Waitus 10
End Sub