Tea5767 Radio Modul
Hallo
für die welche es nicht wissen, das Tea5767 ist ein digitales Radiomodul.
Ich habe diese Frage auch schon in einem anderen Forum gestellt, sie konnten mir aber nicht weiterhelfen.
Das Modul Tea5767 habe ich vor kurzem gekauft und habe auch schon den Code geschrieben.
Auf dieser Seite gibt es ein beispiel allerdings in C: http://www.electronicsblog.net/arduino-fm-receiver-with-tea5767/
passendes PDF dazu: http://www.sparkfun.com/datasheets/Wireless/General/TEA5767.pdf und http://www.rockbox.org/wiki/pub/Main/DataSheets/application_note_tea5767-8.pdf
gekauft habe ich das Modul hier: http://www.mikroshop.ch/Zubehoer.html?gruppe=10&artikel=218
Mein bisheriger Code:
Ich habe bisher einfach einen Kopfhörer an die Ausgänge gehalten, aber man kann nicht viel hören.
Die Pull-Up Widerstände habe ich eingesetzt. Als Antene verwende ich ein 50cm langes isoliertes Drahtstück.
Woran könnte es noch liegen, dass es nicht funktioniert?
Danke für eure Hilfe!!
Hallo
für die welche es nicht wissen, das Tea5767 ist ein digitales Radiomodul.
Ich habe diese Frage auch schon in einem anderen Forum gestellt, sie konnten mir aber nicht weiterhelfen.
Das Modul Tea5767 habe ich vor kurzem gekauft und habe auch schon den Code geschrieben.
Auf dieser Seite gibt es ein beispiel allerdings in C: http://www.electronicsblog.net/arduino-fm-receiver-with-tea5767/
passendes PDF dazu: http://www.sparkfun.com/datasheets/Wireless/General/TEA5767.pdf und http://www.rockbox.org/wiki/pub/Main/DataSheets/application_note_tea5767-8.pdf
gekauft habe ich das Modul hier: http://www.mikroshop.ch/Zubehoer.html?gruppe=10&artikel=218
Mein bisheriger Code:
Code:
$crystal = 8000000
$regfile = "m8def.dat"
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portd.0 , Db6 = Portc.1 , Db5 = Portc.2 , Db4 = Portc.3 , E = Portb.4 , Rs = Portb.5
Cursor Off
Cls
Config Sda = Portc.4
Config Scl = Portc.5
I2cinit
Taster1 Alias Pinb.1
Config Taster1 = Input
Taster2 Alias Pinb.2
Config Taster2 = Input
Dim Frequenz As Single
Dim Pll As Single
Dim Pllfrequenz As Word
Dim 1st As Byte
Dim 2nd As Byte
Dim 3rd As Byte
Dim 4th As Byte
Dim 5th As Byte
Const Modulfrequenz = 32768
Const Frequenzi = 225000
Const Adresse_schreiben = &B11000000
Const Adresse_lesen = &B11000001
Frequenz = 103
Do
Pll = Frequenz * 1000000
Pll = Pll + Frequenzi
Pll = Pll * 4
Pll = Pll / Modulfrequenz
Pllfrequenz = 12234 'Int(pll)
1st = High(pllfrequenz)
Reset 1st.6 'Kein Suchen
Reset 1st.7 'Kein Mute
2nd = Low(pllfrequenz)
3rd = &B00010000
4th = &B00010010
5th = &B00000000
I2cstart
I2cwbyte Adresse_schreiben
I2cwbyte 1st
I2cwbyte 2nd
I2cwbyte 3rd
I2cwbyte 4th
I2cwbyte 5th
I2cstop
Locate 1 , 1
Lcd "Radio"
Locate 2 , 1
Lcd Frequenz ; " mhz"
Wait 3
Loop
End
Ich habe bisher einfach einen Kopfhörer an die Ausgänge gehalten, aber man kann nicht viel hören.
Die Pull-Up Widerstände habe ich eingesetzt. Als Antene verwende ich ein 50cm langes isoliertes Drahtstück.
Woran könnte es noch liegen, dass es nicht funktioniert?
Danke für eure Hilfe!!