Synteza PLL na TSA6057 [atmega8]

Question

Ello.Przymierzam się zrobić tuner radiowy na ukf i zrobiłem jak narazie syntezę z tej stronki http://www.easy-soft.net.pl/zasoby/pll-tsa6057.pdf . Za...

asembler · Answer

Tak podpowiem ze tam jest pośrednia chyba 10.7mhz

artursz · Answer

Witam.Popełniłem kiedyś syntezę do Tunera Diora AS642 (z odczytem częstotliwości).Dorobiłem syntezę na TSA6057 oraz głowicy Gloria (zasilanie 8V).Sterowanie up/down (gałka) za pomocą enkodera oraz wykorzystałem 7 przycisków programatora do wybierania stacji z pamięci.W załączniku okrojony (do obsługi tylko up/down) program w bascomie.Myślę, że zmiana pinów na Mega8 nie przysporzy trudności.Code:     $regfile = "m16def.dat"                                     $crystal = 4000000Config Sda = Portb.1Config Scl = Portb.0Config Porta = Input   Dim B As Byte                                            ' Zmienna   Dim Czest As Byte                                        ' Częstotliwość - zgrubna   Dim Czestf As Byte                                       ' Częstotliwość - dokładnaI2cinit          Czestf = &B10000000          Czest = &B00101111     Do         B = Encoder&#40;pina.7 , Pina.6 , Fup , Fdown , 0&#41;     Loop Tsa6057&#58;                                                    ' Zapis danych do TSA 6057         I2cstart         I2cwbyte &B11000100         I2cwbyte &B00000000         I2cwbyte Czestf         I2cwbyte Czest         I2cwbyte &B00100011         I2cwbyte &B00000000         I2cstop         ReturnFup&#58;                                                        ' Częstotliwość w górę         If Czestf < 250 Then            Czestf = Czestf + 10         Else            Czest = Czest + 1            Czestf = 0         End If         Gosub Tsa6057         ReturnFdown&#58;                                                      ' Częstotliwość w dół         If Czestf < 255 And Czestf > 15 Or Czestf = 0 Then            Czestf = Czestf - 10         Else            Czest = Czest - 1            Czestf = 0         End If         Gosub Tsa6057         ReturnEnd

mdm150 · Answer

>artursz
Dzięki za soft może z niego skorzystam. Zamiast enkodera można podstawić mikroswitche bez przeróbki softu? W tym przypadku zmuszony byłbym postawić zewnętrzny często¶ciomierz skoro niema obsługi lcd, a chciałbym tego unikn±ć.

Kto¶ wie jak zmusić ten syntezer aby prawidłowo przestrajał? Przydało by się ograniczyć zakres przestrajania do 87.5-108MHz z 30-150MHz.Testowałem go na zakresie 87.5-108MHz i wyżej. Z oryginalnej aplikacji (pin5-TSA6057)usun±łem rezystor 150Ω oraz kondensator 1nFi w jego miejsce wlutowałem rezystor 100Ω(zamiast kondensatora). Rzeczywista częstotliwo¶ć była niższa o 10.7MHz (76.8-97.3). Z kolei napięcie strojenia wyniosło dla wyzej wymienionego zakresu 0.27-3.0V.Wiem bo podpięty był często¶ciomierz wymontowany z radia samochodowego.
Fale odbieranych stacji radiowych pokrywały sie z częstotliwo¶ci± wy¶wietlan± przez owy często¶ciomierz.

See also:
14.03.2016 Lampa robocza na statywie.

artursz · Answer

Bez zmiany w programie zastąpienie enkodera przyciskami nic nie da.Dopisane obsługi wyświetlacza jest bardzo proste.Co do przestrajania to jeśli podasz zasilanie odpowiednie dla danej głowicy to TSA6057 poda na strojenie odpowiednie napięcie aby pokryć cały zakres 88-108MHz. Nie może to być jednak napięcie wyższe niż podane w karcie katalogowej układu TSA (nie zadziała przy głowicach przestrajanych napięciem 33V).Jak zmontujesz układ syntezy zgodnie z kartą katalogową (wartości elementów RC) to będzie działać na tym programie co wcześniej podałem bez problemu.Częstotliwość była niższa o 10.7 dlatego, że do uzyskania właściwej częstotliwości trzeba wysłać do TSA6057 właśnie częstotliwość jaką się chce odebrać + 10.7MHz (gdzieś w karcie katalogowej o tym jest napisane).

mdm150 · Answer

Wypowiedź pochodzi z tematu: https://www.elektroda.pl/rtvforum/topic884729.htmlMa szanse działać ta podmiana w sofcie zapodanym przeze mnie wcześniej? W której pozycji powinienem zarzucić tą zmiane bo jak podstawiłem w kilku powtarzających sie fragmentach to nie szło stroić.

sp3ots · Answer

Witam !Jaki ma być krok tej syntezy ? Ile KHz ?Pozdrawiam. Stefan GG6293398

mdm150 · Answer

W sumie zakres strojenia mógłby się mieścic w zakresie 87.5-108MHz . Krok strojenia najlepiej jak by wynosił 50KHz, a nie10 lub 25KHz jak ma to miejsce w sofcie który zarzuciłem w pierwszym poście.

sp3ots · Answer

Witam !
Poniżej kod sterownika do PLL na TSA6057.
Skaner działa, nie jestem w stanie sprawdzić działania I2C bo nie posiadam
odpowiedniego VFO.
Sterownik na TSA6057 już robiłem do TRXa DT3000. Radio pracuje na dwóch metrach, z krokiem 12,5KHz
Proszę o sprawdzenie działania I2C i odpowiedĽ czy działa.
Uwaga ! w kodzie s± dwie ważne linie zaremowane :
'Gosub I2c
Należy je odremować po próbie skanera bez obecno¶ci TSA6057.
Z do¶wiadczenia z I2C wiem że program bez obecno¶ci TSA6057 zatrzyma się.
My¶lę że każdy domy¶li się gdzie podł±czyć dwa przyciski skanera, LCD i I2C.

Code:


'PLL do FM 88-108MHz

'Fusy fabryczne

$regfile = "attiny2313.dat"

$crystal = 1000000



Config Pinb.0 = Input

Portb.0 = 1

X_gora Alias Pinb.0



Config Pinb.1 = Input

Portb.1 = 1

X_dol Alias Pinb.1



Config Sda = Portd.4

Config Scl = Portd.5



Dim Temp As Long

Dim Freq As Long

Dim Freq_temp As Long

Dim Db0 As Byte

Dim Db1 As Byte



Dim Pokazanafstr As String * 10

Dim Pokazanaff As String * 10

Dim Pokazanaf As Long



Config Lcd = 16 * 2

Config Lcdpin = Pin , Db7 = Pb.2 , Db6 = Pb.3 , Db5 = Pb.4 , Db4 = Pb.5 , E = Pb.6 , Rs = Pb.7



Const Freq_pcz = 1070       'x10 czestotliwosc posrednia

Const Krok = 5       'x10 KHz krok przestrajania PLL

Const Scan_up = 10800       'x10 gorna czestotliwosc skanera

Const Scan_dn = 8800       'x10 dolna czestotliwosc skanera

         Freq = 8800       'x10 po wlaczeniu

Cls

Lcd "  FM 88-108MHz  "

Cursor Off

Wait 1



Do

Gosub Licz

Loop

End

'--------podprogramy---------

Licz:



If Freq > Scan_up Then Freq = Scan_dn       'Dol Przestrajania

If Freq < Scan_dn Then Freq = Scan_up       'gora Przestrajania

'--------------------------------

 If X_dol = 0 Then Gosub W_dol

If X_gora = 0 Then Gosub W_gore



Freq_temp = Freq + Freq_pcz



Pokazanaf = Freq

Pokazanaff = Str(pokazanaf)

Pokazanafstr = Format(pokazanaff , "00.00")

Pokazanaff = Pokazanafstr





If Pokazanaf < 10000 Then

Locate 2 , 2

Lcd " "

Locate 2 , 3

Else

Locate 2 , 2

End If

Lcd Pokazanaff : Lcd " MHz"



Return



W_gore:

Freq = Freq + Krok

'Gosub I2c       'po próbach skanera odremuj t± linię

Waitms 200

Return



W_dol:

Freq = Freq - Krok

'Gosub I2c       'po próbach skanera odremuj t± linię

Waitms 200

Return



I2c:

Temp = Freq_temp / Krok

Shift Temp , Left , 1

Db0 = Inp(&H60)

Db1 = Inp(&H61)

I2cstart

I2cwbyte 196       'dla adresu C4H

I2cwbyte 3

I2cwbyte 0

I2cwbyte Db0

I2cwbyte Db1

I2cwbyte 96

I2cstop

Return

Osobę która sprawdzi działanie I2C proszę o opinie tutaj lub na GG6293398
albo sp3ots(malpa)o2.pl
Pozdrawiam. Stefan

mdm150 · Answer

Ello.
Skorzystałem z twojego programu i dostosowałem do mojej syntezy na atmega8. Progs wystartował (proc reaguje na przypisane klawisze)ale nie przestraja głowicy.
[code]
'PLL do FM 87.5-108MHz
'Fusy fabryczne
$regfile = "m8def.dat"
$crystal = 4000000

Config Pind.0 = Input
Portd.0 = 1
X_gora Alias Pind.0

Config Pind.1 = Input
Portd.1 = 1
X_dol Alias Pind.1

Config Sda = Portc.5
Config Scl = Portc.4

Dim Temp As Long
Dim Freq As Long
Dim Freq_temp As Long
Dim Db0 As Byte
Dim Db1 As Byte

Dim Pokazanafstr As String * 10
Dim Pokazanaff As String * 10
Dim Pokazanaf As Long

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.0 , Rs = Portd.7

Const Freq_pcz = 1070 'x10 czestotliwosc posrednia
Const Krok = 5 'x10 KHz krok przestrajania PLL
Const Scan_up = 10800 'x10 gorna czestotliwosc skanera
Const Scan_dn = 8750 'x10 dolna czestotliwosc skanera
Freq = 8750 'x10 po wlaczeniu
Cls
Lcd " FM 87.5-108MHz "
Cursor Off
Wait 1

Do
Gosub Licz
Loop
End
'--------podprogramy---------
Licz:

If Freq > Scan_up Then Freq = Scan_dn 'Dol Przestrajania
If Freq < Scan_dn Then Freq = Scan_up 'gora Przestrajania
'--------------------------------
If X_dol = 0 Then Gosub W_dol
If X_gora = 0 Then Gosub W_gore

Freq_temp = Freq + Freq_pcz

Pokazanaf = Freq
Pokazanaff = Str(pokazanaf)
Pokazanafstr = Format(pokazanaff , "00.00")
Pokazanaff = Pokazanafstr

If Pokazanaf < 10000 Then
Locate 2 , 2
Lcd " "
Locate 2 , 3
Else
Locate 2 , 2
End If
Lcd Pokazanaff : Lcd " MHz"

Return

W_gore:
Freq = Freq + Krok
'Gosub I2c 'po próbach skanera odremuj t± linię
Waitms 200
Return

W_dol:
Freq = Freq - Krok
'Gosub I2c 'po próbach skanera odremuj t± linię
Waitms 200
Return

I2c:
Temp = Freq_temp / Krok
Shift Temp , Left , 1
Db0 = Inp(&H60)
Db1 = Inp(&H61)
I2cstart
I2cwbyte 196 'dla adresu C4H
I2cwbyte 3
I2cwbyte 0
I2cwbyte Db0
I2cwbyte Db1
I2cwbyte 96
I2cstop
Return

Schemat syntezy po dostosowaniu programu.

See also:
14.03.2016 Lampa robocza na statywie.

sp3ots · Answer

Witam !Nie na pisałeś nic na temat I2C, z kodu wynika że nie odremowałeś dwóch linii:tą linię: Code: 'Gosub I2c 'po próbach skanera odremuj tą linię zmień na:Code: Gosub I2c 'po próbach skanera odremuj tą linię Czy odremowałeś te dwie linie ?Pozdrawiam. StefanWitam ponownie !Po ponowny przemyśleniu sprawy doszedłem do wniosku ( matematyka się kłania )że:TSA6057 z rezonatorem 4MHz pracuje na FMie z krokiem 10KHzNapisanie programu na krok 50KHz spowodowało złe przeliczenia, np.obliczenie dla 88,00MHz88MHz / 10KHz = 880a88MHz / 50KHz = 176880 / 176 = 5dla tego Freq_temp trzeba pomnożyć 5 razydla tego dodatkowa linia w podprogramie I2CCode: I2c&#58;Freq_temp = Freq_temp * 5Temp = Freq_temp / KrokShift Temp , Left , 1Db0 = Inp&#40;&H60&#41;Db1 = Inp&#40;&H61&#41;I2cstartI2cwbyte 196       'dla adresu C4HI2cwbyte 3I2cwbyte 0I2cwbyte Db0I2cwbyte Db1I2cwbyte 96I2cstopReturnMam nadzieję że teraz TSA6057 zacznie działać.Jeszcze jedno, pod program I2C: wyśle sterowanie do TSA6057 dopiero po pierwszej zmianie częstotliwości.Proszę o wiadomość o działaniu programu.Pozdrawiam. Stefan GG6293398

mdm150 · Answer

Ello.
Po dłuższym czasie powróciłem do tematu zwi±zanego z t± syntez±. Dotychczas syntezer wykazywał rozbieżno¶ć w nastawach o 20kHz- w jedn± jak i w drug± stronę. Wlutowałem w miejsce kondka 27pF-trymer 30pF. Czę¶ciowo problem się rozwi±zał ale nie do końca. Gdy stroję częstotliwo¶ć w górę to bł±d na całej długo¶ci zakresu(87,50-1008MHz) wynosi 0-3kHz(o tyle zawyżona warto¶c rzeczywista). niestety w dół jest już dużo gorzej-bo aż 40kHz- o tyle rzeczywista częstotliwo¶ć jest wyższa od ustawionej warto¶ci w syntezie. Jak to zgrać aby nie było takich odchyleń? Bym zapomniał w mojej syntezie krok strojenia wynosi 0,02MHz.

Code:

'PLL do FM 87.5-108MHz

'Fusy fabryczne

$regfile = "m8def.dat"

$crystal = 4000000



Config Pind.0 = Input

Portd.0 = 1

X_gora Alias Pind.0



Config Pind.1 = Input

Portd.1 = 1

X_dol Alias Pind.1



Config Sda = Portc.5

Config Scl = Portc.4



Dim Temp As Long

Dim Freq As Long

Dim Freq_temp As Long

Dim Db0 As Byte

Dim Db1 As Byte



Dim Pokazanafstr As String * 10

Dim Pokazanaff As String * 10

Dim Pokazanaf As Long



Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.0 , Rs = Portd.7



Const Freq_pcz = 1070                                       'x10 czestotliwosc posrednia

Const Krok = 2.5                                            'x10 KHz krok przestrajania PLL

Const Scan_up = 10800                                       'x10 gorna czestotliwosc skanera

Const Scan_dn = 8750                                        'x10 dolna czestotliwosc skanera

         Freq = 8750                                        'x10 po wlaczeniu





Do

Gosub Licz

Loop

End

'--------podprogramy---------

Licz:



If Freq > Scan_up Then Freq = Scan_dn                       'Dol Przestrajania

If Freq < Scan_dn Then Freq = Scan_up                       'gora Przestrajania

'--------------------------------

 If X_dol = 0 Then Gosub W_dol

If X_gora = 0 Then Gosub W_gore



Freq_temp = Freq + Freq_pcz



Pokazanaf = Freq

Pokazanaff = Str(pokazanaf)

Pokazanafstr = Format(pokazanaff , "00.00")

Pokazanaff = Pokazanafstr





If Pokazanaf < 10000 Then

Locate 2 , 2

Lcd " "

Locate 2 , 3

Else

Locate 2 , 2

End If

Lcd Pokazanaff : Lcd " MHz"



Return



W_gore:

Freq = Freq + Krok

Gosub I2c                                                   'po próbach skanera odremuj t± linię

Waitms 200

Return



W_dol:

Freq = Freq - Krok

Gosub I2c

Waitms 200

Return



I2c:

Freq_temp = Freq_temp * 2.5

Temp = Freq_temp / Krok

Shift Temp , Left , 1

Db0 = Inp(&H60)

Db1 = Inp(&H61)

I2cstart

I2cwbyte 196                                                'dla adresu C4H

I2cwbyte 3

I2cwbyte 0

I2cwbyte Db0

I2cwbyte Db1

I2cwbyte 96

I2cstop

Return

See also:
14.03.2016 Lampa robocza na statywie.

SQ9MYX · Answer

A ma może ktoś prosty program w Bascomie na ATmega8 i tsa6057 który zaraz po załaczeniu zasilania wyśle do syntezy rozkaz ustawienia np 88,4MHz bez zabawy z przyciskami i LCD... ewentualnie jeszcze kontrola diodą Led o prawidłowym przesłaniu danych

DJ_DOGGY · Answer

i don`t know Polish language ..
Please post a working Source coupled with HEX for this PLL with AT90S2313 and ATmega8 ... Please

I test the Codes for the post with schematic and source for 2313 in Proteus but don`t see I2C to work ?!!? Help me if i`m wrong ?!

sp7wqv · Answer

Bawiłem się tym programem z pierwszego postu na lcd ładnie wygl±da lecz
nie programuje Tsa6057 wstawiam program który działa lecz ma wady po wł±czeniu
pętla nie synchronizuje ale po pierwszej zmianie częstotliwo¶ci wszystko jest ok
mam nadzieje że kto¶ to ulepszy.
'PLL do FM 110-174MHz
'Fusy fabryczne

Log in, to see the code

See also:
27.10.2019 NanoPi NEO2 Black - jednopłytkowy komputer z Allwinner H5

sp3ots · Answer

Witam !Masz problem że po włączeniu I2C nie steruje TSA6057 na własne życzenie, ponieważ Gosub I2C umieściłeś w podprogramach:W_gOrę, w_dół gdzie program po starcie nie wchodzi !Przykładowe rozwiązanie:Przed pętlą Do loop dodaj parametry początkowe PLL np.145000 a potem dodaj Gosub I2C, Pozdrawiam. Stefan

sp7wqv · Answer

Dzienki za zainteresowanie intencja moja była taka żeby nie mieszać szyną bezpotrzeby po to by było jak najmniej zakłóceń w odbiorniku może jakiś inny pomysł.

sp3ots · Answer

Witam !
Wiem o co Tobie chodzi, ja to nazywam "traktorkiem" wiem że I2C robi zakłócenia w czasie pracy PLL gdy I2C nie jest w spoczynku, dlatego
PLL na pocz±tku programu ma dostać sygnał tylko 1 raz i wej¶ć do pętli Do...Loop

sp7wqv · Answer

Wstawiłem tak jak napisałeś i lipa dalej to samo:cry:

sp7wqv · Answer

Działa i nie ma traktorka sprawdzony jest ok 'PLL do FM 110-174MHz'kwarc tsa6057 5 Mhz co daje 12,5 khz krok przy powieleniu x2 daje 25 khz''Fusy fabryczneCode: basic4glLog in, to see the code