Stereo FM Radio tuner, RDS-el, ATMegával

Hogyan programozzak AVR chipet? Programozók beállításai...
Bascom nyelvű programok...
Avatar
Hegemon
Biztosítékgyilkos
Hozzászólások: 58
Csatlakozott: 2009. március 13. péntek, 6:00
Tartózkodási hely: Klárafalva

HozzászólásSzerző: Hegemon » 2010. március 29. hétfő, 20:07

Sikerült :-)

Szóval sima FM1216 kompatibilis. A bibi ott volt hogy rettentő halk jelet ad ki az FM rész, a tv rész szép hallható hangos hangot, és ez kavart meg nyilván, ráfogtam hogy nem megy pedig de :-)

Ez a státusz tip nagyon hasznos volt, szépen mutatja a térerőt ha csatornát talál, ezzel még talán egy automata kereső is megoldható.

Keresek valami erősítő kapcsolást hozzá.
Mégegyszer köszi a tippet, bevált :-)

Avatar
nobody_hun
Bitfaragó
Hozzászólások: 425
Csatlakozott: 2005. november 14. hétfő, 7:00

HozzászólásSzerző: nobody_hun » 2010. március 29. hétfő, 20:10

A kettő közötti különbség, az ME rövidebb, és az 1. lába ~4,5mm-re van a burkolattól.
A sima 1216-nál ez ~15mm.
"Az IC-k füsttel működnek. Ha kijön belőlük a füst, nem működnek tovább." - ismeretlen szerző
"Az ID:FFFFFF egyenlő az Atmel még nem kiadott processzorával."

Avatar
nobody_hun
Bitfaragó
Hozzászólások: 425
Csatlakozott: 2005. november 14. hétfő, 7:00

HozzászólásSzerző: nobody_hun » 2010. március 29. hétfő, 20:11

Hegemon írta:Sikerült :-)

Szóval sima FM1216 kompatibilis. A bibi ott volt hogy rettentő halk jelet ad ki az FM rész, a tv rész szép hallható hangos hangot, és ez kavart meg nyilván, ráfogtam hogy nem megy pedig de :-)

Ez a státusz tip nagyon hasznos volt, szépen mutatja a térerőt ha csatornát talál, ezzel még talán egy automata kereső is megoldható.

Keresek valami erősítő kapcsolást hozzá.
Mégegyszer köszi a tippet, bevált :-)


Gratulálok!

Még szerezz egy RDS dekóder IC-t és kész a SOKOL rádió Reloaded... :)
"Az IC-k füsttel működnek. Ha kijön belőlük a füst, nem működnek tovább." - ismeretlen szerző

"Az ID:FFFFFF egyenlő az Atmel még nem kiadott processzorával."

Avatar
Hegemon
Biztosítékgyilkos
Hozzászólások: 58
Csatlakozott: 2009. március 13. péntek, 6:00
Tartózkodási hely: Klárafalva

HozzászólásSzerző: Hegemon » 2010. március 29. hétfő, 20:38

Őszintén szólva 1 hetem van hogy kész legyen mert szülinapi ajándék lesz. De ha tudsz ajánlani hihetetlenül olcsót, a nyákot még nem terveztem meg :-) Ugyhogy belefér . (rádiós óra lesz nokia 7710 kijelzővel hőmérővel, meg még nem tudom) De tényleg jól mutatna egy RDS benne :) (ha már az a topic neve, főleg)

Avatar
Hegemon
Biztosítékgyilkos
Hozzászólások: 58
Csatlakozott: 2009. március 13. péntek, 6:00
Tartózkodási hely: Klárafalva

HozzászólásSzerző: Hegemon » 2010. március 29. hétfő, 21:51

ja és amit lehet kapni, 3 bolt honlapján irtam be a keresőbe hogy RDS és nem volt találat. :-(

Avatar
tibi
DrótVégénSzéndarab
Hozzászólások: 33
Csatlakozott: 2006. augusztus 26. szombat, 6:00

HozzászólásSzerző: tibi » 2010. március 29. hétfő, 23:13

Szia!

TDA7330 -as IC tudtommal pont megfelne a céljaidnak! :)
Régi RDS-es Blaupunkt autórádióból lehetne ilyet bontani, valamint a HQvideo-nál kapható.

Üdv.

Avatar
tetye
Chipgyilok
Hozzászólások: 279
Csatlakozott: 2007. augusztus 29. szerda, 6:00
Tartózkodási hely: Perbál
Kapcsolat:

HozzászólásSzerző: tetye » 2010. április 2. péntek, 10:06

Hegemon, a státuszát hogy olvasod vissza?
Én hallom most hogy bizonyos frekiken súg de pl 103.3 vagy 89.5 aminek erre elég jo térereje van ott kussol. amugy süvit jó hangosan, hangolodik is szerintem de még nem jött ki elölle zene.:S
Rajta van egy előerősítő megy egy 200w os vég kb 1\4 hangon.
Csak hallanám ha szólna valamit is a sugások közt..
Nem tudom hol a baj. :S

Avatar
Hegemon
Biztosítékgyilkos
Hozzászólások: 58
Csatlakozott: 2009. március 13. péntek, 6:00
Tartózkodási hely: Klárafalva

HozzászólásSzerző: Hegemon » 2010. április 2. péntek, 10:22

Kód: Egész kijelölése

Dim Status As Byte

  I2cstart
  I2cwbyte &HC3
  I2crbyte Status , Nack
  If Err = 1 Then Print "Státusz hiba" Else Print Status
  I2cstop



Így decimálisban kapod meg, binárisban a legalsó 3 érték adja az analóg értéket, úgymond térerő gyanánt :-)

Amúgy elég gyenge a tunerje, vagy túl erős, hogy a fehér zajt is összeszedi. Nekem tető antennával szépen fogta a jeleket, rövid dróttal semmit. [/code]

Avatar
tetye
Chipgyilok
Hozzászólások: 279
Csatlakozott: 2007. augusztus 29. szerda, 6:00
Tartózkodási hely: Perbál
Kapcsolat:

HozzászólásSzerző: tetye » 2010. április 2. péntek, 10:40

113 állandóan amit kapok. De én kebel tvvel probáltam meg drottal.
121 még néha be be ugrik.

Avatar
Hegemon
Biztosítékgyilkos
Hozzászólások: 58
Csatlakozott: 2009. március 13. péntek, 6:00
Tartózkodási hely: Klárafalva

HozzászólásSzerző: Hegemon » 2010. április 2. péntek, 11:15

Sztem te nem FM elsz. nekem 63 - ~80 közt táncol.
[code]
I2cstart
I2cwbyte &HC2
I2cwbyte A
I2cwbyte B
I2cwbyte &B10001000
I2cwbyte &B10100101
If Err = 1 Then Print "Hiba FM mode"
I2cstop
[code]

nem mindegy az se hogy melyik lukba dugod az antennát, a felső csak a tévéfelé megy, az alsó RCA csatlakozó a rádiójé.
[/code]

Avatar
tetye
Chipgyilok
Hozzászólások: 279
Csatlakozott: 2007. augusztus 29. szerda, 6:00
Tartózkodási hely: Perbál
Kapcsolat:

HozzászólásSzerző: tetye » 2010. április 2. péntek, 17:47

De nekem ilyenem van, ez lehet baj?
FM1216ME/1
http://images.google.hu/imgres?imgurl=http://www.eschemainda.homepage.t-online.de/TV_FM_Tuner_FM1216ME/DIPSwitchInterface.GIF&imgrefurl=http://www.eschemainda.homepage.t-online.de/TV_FM_Tuner_FM1216ME/page1_TV_FM_Tuner_FM1216ME.htm&usg=__UHG8jek8QwEvlmomKPMmRykf5Uw=&h=577&w=507&sz=16&hl=hu&start=7&um=1&itbs=1&tbnid=OtYgjg1OkEiGXM:&tbnh=134&tbnw=118&prev=/images%3Fq%3Dfm1216me/1%26um%3D1%26hl%3Dhu%26sa%3DN%26tbs%3Disch:1
Így küldöm:

Kód: Egész kijelölése

$regfile = "m8def.dat"
$crystal = 7372800
$baud = 19200

$lib "i2c_extended.lib"

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

I2cstart
I2cwbyte &HC2
I2cwbyte &H09
I2cwbyte &H04
I2cwbyte &B10001000 'control byte
I2cwbyte &B10100101 'ports byte
Dim Nackolv As Byte
Dim Ackolv As Byte
I2cstop
'wait some time
Declare Sub Fm1216
Dim A As Integer
Dim B As Integer
Dim Frq As Integer
Dim Lcdfrq As Single
Dim Fm1216_setup As Byte
Dim Hifm As Integer
Dim Lowfm As Integer
Dim Tfrq As Integer
Waitms 10
Frq = 2280                                                  '103,3
Lcdfrq = Frq * 0.05
Lcdfrq = Lcdfrq - 10.7
Print Fusing(lcdfrq , "###.##") ; " Mhz " ; Frq
 Portd.4 = 1
 Portd.3 = 1
Hifm = 2374                                                 '108
Lowfm = 1964                                                '87.5


Do
If fm1216_setup = 1 Then
Call Fm1216
Fm1216_setup = 0
Lcdfrq = Frq * 0.05
Lcdfrq = Lcdfrq - 10.7
Print Fusing(lcdfrq , "###.##") ; " Mhz " ; Frq
End If


'Frequency up button step 0.05 mhz
If Pind.3 = 0 Then
Tfrq = Frq + 1
If Tfrq <= Hifm Then Frq = Tfrq 'max 108 mhz
Waitms 180 'Bitwait Pina.0 , Set
fm1216_setup = 1

End If

'Frequency down button step 0.05 mhz
If Pind.4 = 0 Then
Tfrq = Frq - 1
If Tfrq >= Lowfm Then Frq = Tfrq 'min 87.5 mhz
Waitms 180 ' Bitwait Pina.1 , Set
fm1216_setup = 1
End If
Loop
End

'tuning into a new frq (87.5 to 108 Mhz)
Sub Fm1216
A = High(frq)
B = Low(frq)

I2cstart
I2cwbyte &HC2
I2cwbyte A
I2cwbyte B
I2cwbyte &B10001000 'control byte
I2cwbyte &B10100101 'ports byte
If Err = 1 Then Print " Hiba FM mode"
I2cstop
Waitms 10
Dim Status As Byte

  I2cstart
  I2cwbyte &HC3
  I2crbyte Status , Nack
  If Err = 1 Then Print "Státusz hiba" Else Print Status
  I2cstop
Print Status

  End Sub
End

Avatar
Hegemon
Biztosítékgyilkos
Hozzászólások: 58
Csatlakozott: 2009. március 13. péntek, 6:00
Tartózkodási hely: Klárafalva

HozzászólásSzerző: Hegemon » 2010. április 2. péntek, 18:46

Igen a tied kicsit több paramétert fogad. Itt találtam egy kódot, ez pont a tiedhez jó elvileg http://bascom-forum.de/index.php?action ... pic=3420.0 én ezt a kódot írtam át adatlap szerint hogy nekem jó legyen .

ezt nem értettem hogy ugyanaz az I2C címzés, mégis teljesen más a beállítás
pl nálad adatlap szerint
10001000 - Control
10011x10 - Port
nálam meg
10001000 - Control
10100110 - port :)

A Tied még al funkciókat is tartalmaz ha jól értettem az adatlapot B, C, és az E regiszterek státuszát kell bebillentened, azzal állítod be hogy rádió legyen meg milyen rádió :-) Mivel idpközben rájöttem hogy az enyém sima és nem M es így nem bujtam az ő adatlapját tovább.

Avatar
tetye
Chipgyilok
Hozzászólások: 279
Csatlakozott: 2007. augusztus 29. szerda, 6:00
Tartózkodási hely: Perbál
Kapcsolat:

HozzászólásSzerző: tetye » 2010. április 2. péntek, 19:29

Wowwwww!!!!
1 tekercs gyantás ón antenna és nagyon szól:)
Köszi az infót!

Avatar
tetye
Chipgyilok
Hozzászólások: 279
Csatlakozott: 2007. augusztus 29. szerda, 6:00
Tartózkodási hely: Perbál
Kapcsolat:

HozzászólásSzerző: tetye » 2010. április 3. szombat, 16:13

a státuszra valamiért még mindig 113 at ir. lehet hogy nem itt lakik a státusz regiszter?

Kód: Egész kijelölése

  I2cwbyte &HC3
  I2crbyte Status , Nack

De itt azt irja hogy az a 3 érték nem a térerőt adja hanem azt hogy szereto vagy mono. A0,A1,A2
Tuner Part Programming (Read Mode)
BIT ALLOCATION (READ MODE R/W = 1)
MSB bit6 bit5 bit4 bit3 bit2 bit1 LSB ACK
Address Byte ADB 1 1 0 0 0 MA1 MA0 R/W=1 A
Status Byte SB POR FL 1 1 AGC A2 A1 A0 A
The following data can be read from the device through the status byte:
POR (power on reset): POR is internally set to 1 in case Vcc drops below 3V. The POR bit is reset when an
end of data is detected by the PLL-IC.
FL: in lock flag (FL = 1 when the phase lock loop is in lock).
The loop must be phase-locked during at least 8 periods of the internal 7.8125 kHz reference-frequency (i.e.
1 msec) before the FL flag is internally set to 1.
AGC : internal AGC flag. AGC=1 when internal AGC is active (level below 3V)
A2, A1, A0 : Used for indicating if the FM signal received is transmitted in stereo or mono.
If A2 =1and A1=A0=0, then the signal is in stereo, otherwise, it is mono.

Avatar
Hegemon
Biztosítékgyilkos
Hozzászólások: 58
Csatlakozott: 2009. március 13. péntek, 6:00
Tartózkodási hely: Klárafalva

HozzászólásSzerző: Hegemon » 2010. április 4. vasárnap, 8:55

0 - POV
1 - FL
11 - Fix
0 - AGC kikapcsolva
001 - ez sztereó VÉTEL esetén 110

Ezek alapján automata keresésnél 118 at kell hogy kapj ha sztereó adót talál. (01110110).

Aztán vagy műkszik vagy nem, de ettől szép az élet :-D
Ebben is különbözik a mi tunerünk . nálam az A2,A1,A0 az AGC értékét adja visza.


Vissza: “Bascom-AVR nyelvű programozás (AVR programozásának lehetőségei)”

Ki van itt

Jelenlévő fórumozók: Bing [Bot] valamint 1 vendég