woensdag 31 augustus 2011

Vervolg radio met tea5767

De radio werkt met een lcd, Het adres was fout, overkomt me wel vaker met i2c, het moet zijn %11000000, Verder is het beter om niet continu de freq in de tea te zetten en dat 1 keer te doen in plaats van een loop. Dit geeft veel minder storing.  Nu nog de signaalsterkte en een stereo indicator.  Maar ik laat het hierbij het audio is namelijk nogal vervormd, er heeft 5v over de de mpx uitgang gestaan ik vermoed dat het ic niet niet kon waarderen.

    Device 18F2620
    Declare Xtal = 20  
   
     ' i2c
   
    SCL_Pin    = PORTB.0  
    SDA_Pin    = PORTB.1
   
    ' aansluitingen lcd
   
    LCD_DTPin PORTB.4
    LCD_ENPin PORTB.3
    LCD_RSPin PORTB.2   
   
    ' adres  tea5767
   
    Symbol tea5767 = %11000000
   
    ' up en down toets

    Symbol Toetsup   = PORTA.0
    Symbol Toetsdown = PORTA.1
   
    ' Variabelen
   
    Dim Frequentie As Word 
    Dim Pll As Dword
   
    TRISA= %00000011
   
    Declare All_Digital = True
   
    Clear

    ' Init lcd  
   
    Cls
   
    DelayMS 100
                      
   ' init opstart freq (waterstad fm)
        
    Frequentie = 932
    GoSub displayfreq
    GoSub progtea
   
main:
    If Toetsup = 0 Then GoSub frequp
    If Toetsdown = 0 Then GoSub freqdown
    GoTo main

frequp:
    DelayMS 100
    Frequentie = Frequentie + 1
    If Frequentie > 1080 Then Frequentie = 1080
    GoSub displayfreq
    GoSub progtea
    Return

freqdown:
    DelayMS 100
    Frequentie = Frequentie - 1
    If Frequentie < 875 Then Frequentie = 875
    GoSub displayfreq
    GoSub progtea
    Return

progtea:
    Pll = Frequentie * 100000 + 225000    
    Pll = Pll * 4 / 32768
    BusOut tea5767,[Pll.Byte1,Pll.Byte0,$10,$10,$00]
    Return
   
displayfreq:
    Print At 1,1,Dec Frequentie / 10,".",Dec1 Frequentie // 10," Mhz "
    Return
   



Geen opmerkingen:

Een reactie posten