-         

Seite 1 von 2 12 LetzteLetzte
Ergebnis 1 bis 10 von 20

Thema: Probleme mit RFM12 868Mhz Code und Snap

  1. #1
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    25.03.2006
    Ort
    Hinsdorf
    Alter
    43
    Beiträge
    379

    Probleme mit RFM12 868Mhz Code und Snap

    Anzeige

    Hallo liebe Gemeinde,

    ich versuche nun schon seit Wochen den Code aus: www.comwebnet.de zum Laufen zu bekommen.

    Grundausstattung: mega32 und RFM12 868Mhz
    Code 1 als Hauptprogramm:

    Code:
    $regfile = "m32def.dat"
    $hwstack = 100
    $swstack = 100
    $framesize = 100
    $crystal = 14745600
    $baud = 57600
    'Baud = 57600
    '$sim
    '-------------------------------------------------------------------------------   2x16 LCD Display an Port c =>Conector
    Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
    Config Lcd = 20 * 4
    Config Lcdbus = 4
    Initlcd
    Cursor Off
    Cls
    Dim Rs232_flash As Byte , Za1 As Byte
    Dim Rs232_str As Byte                                                           '
    
    
    Const Rf12freq = 868.35                                                         'Kanal-Einstellung
    Const Rf12baud = 9600                                                           'Baudrate
    Const Myadress = 20                                                             'Nodeadresse vom Teilnehmer
    Const Snap_sync = &H54                                                          'Synczeichen SNAP-Protokoll
    Const Maxchar = 22
    
    Declare Sub Rf_cmd(byval Tmp As Word)
    Dim Cmd(2) As Byte , Tmpo As Word
    Dim Lv As Byte , Readycount As Byte , Count2 As Byte
    Dim Temp As Word
    Dim Rf12_data(40) As Byte , Rf12_s As String * Maxchar At Rf12_data Overlay
    Dim Rf_rxd As Bit , Rf_sync As Bit
    Dim Ndb As Byte , Framelength As Byte , Crc As Byte
    Dim Byteanzahl As Byte                                                          'Anzahl Sendebytes
    Dim S As String * 10
    Sync Alias Rf12_data(1)
    Hdb1 Alias Rf12_data(2)
    Hdb2 Alias Rf12_data(3)
    Dab1 Alias Rf12_data(4)
    Sab1 Alias Rf12_data(5)
    
    '----------[Hardwaresetup für Pollin Funkboard]---------------------------------------------
    'PortD.3-->INT1 an FFIT --Interrupt(High) wenn FiFO-Buffer voll (ef-Bit set)
    Led1 Alias Portb.2
    Config Portb.2 = Output
    Led2 Alias Portb.3
    Config Portb.3 = Output
    
    Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 1
    
    Config Portd.5 = Output
    Fsk Alias Portd.5
    Set Fsk
    Spi_cs Alias Portb.4 : Ddrb.4 = 1                                               'Config Spi_cs = Output  chipselect
    Spi_sdo Alias Pinb.6                                                            ' MISO-PIN
    Set Spi_cs
    Spiinit                                                                         'init the spi pins
    Goto Startup
    
    $include "inc_RF12-Treiber.bas"                                                 'RF12 Treiber einbinden
    Startup:
    Config Int1 = Rising
    
    On Int1 Ffit_isr:
    'On Urxc Rxd_isr:                                                               
    Empfange String von RXD
    'Enable Urxc                                                                     
    Enable Interrupts                                                             
    
    Set Led2
    Locate 1 , 1 : Lcd "Init RF12 ..."
    
    Call Rf_cmd(&H0000)                                                           
    Call Rf_cmd(&Hc0e0)                                                     
    Call Rf_cmd(&H80e7)                                                        
    Call Rf_cmd(&H82d8) 
    Call Rf_cmd(&Hc2ac)                        
    Call Rf_cmd(&Ha686)                                                                             
                                  
    Call Rf_cmd(&Hc611)                                                          
    
    Call Rf_cmd(&H94a1)
    Call Rf_cmd(&Hc2ac)                                                            
    Call Rf_cmd(&Hc483)                                                           
    Call Rf_cmd(&H9850)                                                            
    Call Rf_cmd(&He000)                                                           
    Call Rf_cmd(&Hc800)                                                             
    Call Rf_cmd(&Hca81)                                                            
    Call Rf_cmd(&Hca83)                                                          
    Call Rf_cmd(&H0000)
    Locate 1 , 1 : Lcd "Init RF12 Done"
    Reset Led2
    
    Rf12_s = ""
    Gosub Rf12_rxd_on
    
    Do
    Toggle Led2
    
    Rs232_flash = Ischarwaiting()
    If Rs232_flash = 1 Then  
       Rs232_str = Inkey()    
       If Rs232_str = 123 Then                           
       Goto &HF800                                                               
       End If
    End If
    
    
    
    
      If Rf_rxd = 1 Then
          Locate 2 , 1 : Lcd "RX rdy,Frame " ; Framelength
          Gosub Framehandler
          Gosub Rf12_rxd_on
          End If
     'do anything....
      'Incr Za1
      Print "Za1  " ; Za1
    
      Locate 3 , 1 : Lcd "neuer Mainloop " ; Za1
      Print "Lv " ; Lv
     ' Wait 1
    Loop
    End
    
    
    Sub Rf_cmd(byval Tmpo As Word)
       Cmd(2) = Tmpo And 255
       Shift Tmp , Right , 8
       Cmd(1) = Tmpo
       Spiout Cmd(1) , 2
    End Sub
    
    
    Framehandler:
     Set Led1
     Locate 1 , 1 : Lcd "Frame: ";                                                
     For Lv = 1 To Framelength
          Print Hex(rf12_data(lv)) ; " ";
          Next Lv
     Print
     Print "Sync alias RF_Data(1) " ; Sync
     If Sync = Snap_sync Then                                           
        If Hdb2 = &H50 Then                                                       
           'if HDB2= NDB then                                         
               If Dab1 = Myadress Then          
                  Swap Dab1 , Sab1     
                  Crc = Framelength - 2       
                  Crc = Crc8(rf12_data(2) , Crc)
                  If Crc = Rf12_data(framelength) Then                          
                     Locate 1 , 1 : Lcd "CRC OK! => " ; Crc
                     ' Send ACK (i.e tell master that packet was OK)
                     ' Set ACKs bit in HDB2 (xxxxxx10)
                     Hdb2 = Hdb2 Or &B00000010
                     Hdb2 = Hdb2 And &B11111110
                     'do ...
                     Gosub Senden                                                   'Anwortframe senden--> nur als Slave
                     Gosub Cmd_handler
                     'RF12_data(2 <--- ackno machen
                     Else
                     Locate 1 , 1 : Lcd "CRC Bad => " ; Crc
                     ' Send NAK (i.e tell master that packet was bad)
                     ' Set ACK bits in HDB2 (xxxxxx11)
                     Hdb2 = Hdb2 Or &B00000011
                     Gosub Senden                                                   'Anwortframe senden--> nur als Slave
                     End If
                  Else
                 Locate 1 , 1 : Lcd "geht mich nix an!...von Nr.:" ; Rf12_data(5)
                  End If
            'Else
              'Print "Framelength NIO!!!"
              'End If
           Else
           Locate 1 , 1 : Lcd "no 1Byte Adress!!!"
           End If
        Else
        Locate 1 , 1 : Lcd "no Syncbyte!!!"
        End If
    
      Waitms 10
      Reset Led1
    Return
    
    
    
    
    Cmd_handler:                                                                    'Auswertung der Nutzdaten.... nur als Denkhilfe :)
    '(
    Select Case Rf12_data(7)
           Case 0 :
           Case 1 : Gosub Rolloaufmachen
           Case 2 : Gosub Rollozumachen
           Case 10 : Gosub Holetemperatur
           End Select
    ')
    For Lv = 1 To 20
        Toggle Led2                                                                 'mache was...
        Waitms 100
        Next Lv
    Return
    
    
    
    
    Rf12_rxd_on:
       Lv = 1
       Rf_sync = 0                                                                  'sync-Flag
       Rf_rxd = 0
       Rf12_s = ""
       Framelength = 6                                                              'erst mit 3.Byte kann die Framelänge berechnet werden
       Temp = Rf12_trans(&H82c8)                                                    'Power CMD: Empfänger an, Quarz-clk läuft weiter
       Temp = Rf12_trans(&Hca81)                                                    'FIFO&Reset CMD: sensitiver Reset aus (Brownout)
       Temp = Rf12_trans(&Hca83)                                                    'FIFO&Reset CMD: Synchroner Zeichenemfang (warte auf Startzeichen: 2DD4)
       Print "rf12_rxd_on "
       Enable Int1
    Return
    
    
    Senden:
      Set Led2
      ' Waitms 1
      Locate 2 , 1 : Lcd "Sende: "
      For Lv = 1 To Framelength
          Print Hex(rf12_data(lv)) ; " ";
          Next Lv
      Call Rf12_txdata(framelength)
      Waitms 10
      Reset Led2
    Return
    
    Rxd_isr:
      S = S + Chr(udr)
    Return
    ')
    
    Ffit_isr:
    Incr Za1
    
    
     Temp = Rf12_trans(&Hb000)
    
     Temp = Temp And &H00FF
    
     If Temp = &H54 And Rf_sync = 0 Then                                            
        Rf_sync = 1
        'Lv = 1
        End If
        Rf12_data(lv) = Temp
        'Locate 1 , 1 : Lcd "RF12Dat " ; Rf12_data(lv)                               
     If Lv = 3 Then                                           
        Ndb = Temp And &H0F    
        Select Case Ndb                                                             
               Case 0 To 8 : Framelength = 6 + Ndb                                  '6-14 (0--8 Datebyte)
               Case 9 : Framelength = 6 + 16                                        '22   (16 Datenbyte)
               Case 10 : Framelength = 6 + 32                                       '38   (32 Datenbyte)
               End Select
        End If
    
     If Lv >= Framelength Then                                                      'alles eingetroffen
        Rf_rxd = 1                                                                  'Flag setzen und Empfänger abschalten
        Temp = Rf12_trans(&H8208)                                                   
        Disable Int1
        End If
     Incr Lv                                                                        'Zeiger incr
    Return
    hierzu kommt noch die include Datei dazu:
    Code:
    Declare Sub Rf12_init()
    Declare Sub Rf12_setfreq(byval Freq As Single)
    Declare Sub Rf12_setbandwith(byval Bandwith As Byte , Byval Gain As Byte , Byval Drssi As Byte)
    Declare Sub Rf12_setbaud(byval Rfbaud As Long)
    Declare Sub Rf12_setpower(byval Outpower As Byte , Byval Fskmod As Byte)
    Declare Sub Rf12_ready
    Declare Sub Rf12_txdata(byval Txlen As Byte)
    Declare Sub Rf12_rxdata(byval Maxchar As Byte)
    Declare Function Rf12_trans(byval Wert As Word) As Word
    
    Dim Rf12_timeout As Word
    Dim Rf12_err As Byte
    Dim Rf12_status As Word
    
    
    '------[Sende Daten]-------------------
    Sub Rf12_txdata(byval Txlen As Byte)
      Temp = Rf12_trans(&H8238) : Rf12_ready     
      Temp = Rf12_trans(&H8230) : Rf12_ready
      Temp = Rf12_trans(&H0000) : Rf12_ready                                        
     Rf12_status = Temp         
      Temp = Rf12_trans(&Hb8aa) : Rf12_ready                                        'Preamble
     Temp = Rf12_trans(&Hb8aa) : Rf12_ready                                         'Preamble
      Temp = Rf12_trans(&Hb8aa) : Rf12_ready                                        'Preamble in FIFO schieben
      Temp = Rf12_trans(&Hb82d) : Rf12_ready                                        'Startzeichen: 2D für den Empfänger
      Temp = Rf12_trans(&Hb8d4) : Rf12_ready                                        'Startzeichen: D4 für den Empfänger
      Print "sende1"
      For Lv = 1 To Txlen
          Rf12_ready
          Temp = &HB800 + Rf12_data(lv)                                       
          Temp = Rf12_trans(temp)
          'Toggle Led2
          'Print "temp" ; Temp
          Next Lv
      Temp = Rf12_trans(&Hb8aa) : Rf12_ready                                        
      Temp = Rf12_trans(&H8208) : Rf12_ready     
      Temp = Rf12_trans(&H8209) : Rf12_ready
      Print "sende2"
      End Sub
    
    '------[Empfange Daten]---------------
    Sub Rf12_rxdata(byval Maxchar As Byte)
      Temp = Rf12_trans(&H82c8)                     
      Temp = Rf12_trans(&H0000)      
      Rf12_status = Temp                      
      Temp = Rf12_trans(&Hca81)                                                     
      Temp = Rf12_trans(&Hca83)                                                     
    For Lv = 1 To Maxchar
          Rf12_ready :
          Temp = Rf12_trans(&Hb000)       
          Rf12_data(lv) = Temp               
          Next Lv
      Temp = Rf12_trans(&H8208)                                                 
      Temp = Rf12_trans(&H8209)
          Rf12_data(40) = 0
    End Sub
    
    
    '------[SPI Busroutinen]----------------
    Function Rf12_trans(byval Wert As Word) As Word
      Local Lowbyte As Byte
      Local Highbyte As Byte
    
      Lowbyte = Low(wert) : Highbyte = High(wert)
    Reset Spi_cs
      Highbyte = Spimove(highbyte) : Lowbyte = Spimove(lowbyte)
    Set Spi_cs
      Temp = Makeint(lowbyte , Highbyte)
                                                
      Rf12_trans = Temp
    End Function
    
    
    '------[Busy check]-----------------------
    Sub Rf12_ready
      Rf12_timeout = 50000
      Reset Spi_cs                                                                RF12
      While Spi_sdo = 0                                                            
         If Rf12_timeout > 0 Then                                                  
            Decr Rf12_timeout
            Else
            Rf12_err = 1                                                           
            Exit While                                                             
            End If
         Waitus 20
      Wend                                                                         
    End Sub
    
    
    '------[INIT]-------------------------------------
    Sub Rf12_init()
      Waitms 150
    
      Temp = Rf12_trans(&H0000)                                                     ': print Temp     '0000 -Status
      Temp = Rf12_trans(&Hc0e0)                                                     ': print Temp     'C0E0 -Clock Output 10MHz
      Temp = Rf12_trans(&H80e7)                                                     ': print Temp     '80D7 -Datareg used,FIFO enabled,433MHz,CL=15pF
      Temp = Rf12_trans(&Hc2ab)                                                     ': print Temp     'C2AB -Datafilter:Autolock-slow mode-Digital Filter,f1=1;f0=1
      Temp = Rf12_trans(&Hcaf3)                                                     ': print Temp     'CA81 -FIFO/ResetMode  (Brownoutdektion ausgeschaltet)
      Temp = Rf12_trans(&He000)                                                     ': print Temp     'E000 -WakeUP Timer
      Temp = Rf12_trans(&Hc800)                                                     ': print Temp     'C800 -LowDuty Cycle
      Temp = Rf12_trans(&Hc4f7)                                                     ': print Temp     'C4F7 -AFC-command -eingeschaltet
    
    Temp = Rf12_trans(&Hc2ac)                                                       'data filter:
    Temp = Rf12_trans(&Hc483)                                                       'AFC:
    Temp = Rf12_trans(&H9850)                                                       'TX control
    Temp = Rf12_trans(&He000)                                                       'wake-up
    Temp = Rf12_trans(&Hc800)                                                       'low duty-cycle
    Temp = Rf12_trans(&Hca81)                                                       'Reset FIFO
    Temp = Rf12_trans(&Hca83)                                                       'enable FIFO
    Temp = Rf12_trans(&H0000)
    
    Temp = Rf12_trans(&H0000)                                                          
    Temp = Rf12_trans(&Hc0e0)             
    Temp = Rf12_trans(&H80e7)                                                       
    Temp = Rf12_trans(&H8200)                                         
    Temp = Rf12_trans(&Hc2ac)                
    Temp = Rf12_trans(&Ha686)                                                       
    Temp = Rf12_trans(&Hc611)                    
    Temp = Rf12_trans(&H94a1)             
    Temp = Rf12_trans(&Hca81)                                                   
    Temp = Rf12_trans(&Hc483)                                                    
    Temp = Rf12_trans(&H9852)                                                       '
    Temp = Rf12_trans(&He000)                                                       
    Temp = Rf12_trans(&Hc800)                                                    
    End Sub
    
    
    Sub Rf12_setfreq(byval Freq As Single)
      Freq = Freq - 860.00
      Temp = Freq / 0.0050
      If Temp < 96 Then
        Temp = 96
      Elseif Temp > 3903 Then
        Temp = 3903
      End If
      Temp = Temp + &HA000
      Temp = Rf12_trans(temp)                                                       'Axxx - Frequenzsetting (Kanal Einstellung)
    End Sub
    
    
    
    Sub Rf12_setbandwith(byval Bandwith As Byte , Byval Gain As Byte , Byval Drssi As Byte)
      Drssi = Drssi And 7
      Gain = Gain And 3
      Temp = Bandwith And 7
      Shift Temp , Left , 2
      Temp = Temp + Gain
      Shift Temp , Left , 3
      Temp = Temp + Drssi
      Temp = Temp + &H9400
      Temp = Rf12_trans(temp)                                                       'Revicer Control Command (Pin20 VDI output)
    End Sub
    
    
    Sub Rf12_setbaud(byval Rfbaud As Long )
      Local Ltemp As Long
      If Rfbaud < 663 Then Exit Sub
      If Rfbaud < 5400 Then
         Temp = 43104 / Rfbaud
         Temp = Temp + &HC680
         Else
         Ltemp = 344828 / Rfbaud
         Temp = Ltemp
         Temp = Temp + &HC600
         End If
      Decr Temp
      Temp = Rf12_trans(temp)
    End Sub
    
    
    '------[Sendeleistung einstelllen]-----------------
    Sub Rf12_setpower(byval Outpower As Byte , Byval Fskmod As Byte)
      Outpower = Outpower And 7
      Temp = Fskmod And 15
      Shift Temp , Left , 4
      Temp = Temp + Outpower
      Temp = Temp + &H9800
      Temp = Rf12_trans(temp)
    End Sub
    Mein Problem ist, dass ich die Ersten 2 Byte von dem Frame empfangen kann und dann ist Schluss. Irgend wie wird die Int-ISR nicht mehr angesprungen, aus welchem Grunde auch...

    Nutze ich einen anderen Code kann ich ohne Probleme die Datenpakete empfangen.

    Hat nun jemand von Euch ein RFM12 im 868Mhz Bereich mit Interruptabfrage als Empfänger/Sender am Laufen?
    Hilfe... ich verzweifle nun langsam.

    Gruß MAT

  2. #2
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    28.04.2004
    Ort
    Nähe Köln
    Alter
    51
    Beiträge
    247
    Hallo Mat

    Brauchst du noch Hilfe, oder hast es am laufen.

    Habe hier 2 Pollin Bords mit INT am laufen.

    Werde auch sowas in der Art machen.

    MFG
    Dieter

  3. #3
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    25.03.2006
    Ort
    Hinsdorf
    Alter
    43
    Beiträge
    379
    Guten Morgen Dino Dieter,

    es wäre super einige Tips & Hilfe von Dir zu bekommen! Nach sooo langer Zeit noch eine Antwort auf eine Frage zu bekommen ist doch SUPER, ein + ans Forum & Mitstreiter!
    Ich würde mich über ein paar Codeschnipsel freuen!
    Grüße MAT

  4. #4
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    28.04.2004
    Ort
    Nähe Köln
    Alter
    51
    Beiträge
    247
    Hallo Mat

    Ich wollte gerade dein Programm mal testen, da ist mir aufgefallen, das du ein anderes Pollin Board haben mußt. Ich habe das Funk AVR Board.

    Ich muß das erst anpaasen zum testen.

    Ich habe den Code aus dem Nachbarforum genommen. www.Bascom-Forum.de unter Codebeispiele.

    Das größte Problem was ich bis jetzt hatte, das man die Daten schnell genug abholen muß, sonst kommt der INT nicht mehr. Ist aber in den Griff zu bekommen.

    Hier mal ein Bild beim empfanen des ersten bytes



    MFG
    Dieter
    Miniaturansichten angehängter Grafiken Miniaturansichten angehängter Grafiken rfm_12.png  

  5. #5
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    28.04.2004
    Ort
    Nähe Köln
    Alter
    51
    Beiträge
    247
    Hallo Mat

    Ich habe dein Programm mal soweit angepaßt und getestet.

    Code:
    'Empfang von Daten mit Pollin RFM AVR Funkboard
    'angeschlossen wie auf dem Board
    'Empfang über fallende Flanke an INT0
    'basiert auf dem Code von "Holli" aus dem http://bascom-forum.de/
    'geändert und angepaßt von Dino DIeter  26.10.2010
    'Status: läuft
    'Sender steht ca 8 m entfernt hinter dicken Mauern und sendet alle 2 Sekunden
    ' 32 Bytes
    
    $regfile = "m8def.dat"
    $hwstack = 32
    $swstack = 50
    $framesize = 50
    $crystal = 12000000
    $baud = 57600
    Baud = 57600
    
    'Nsel Alias Portb.2
    'Clk Alias Portb.5
    'Mosi Alias Portb.3
    'Miso Alias Pinb.4
    
    Config Portd.2 = Input
    Nirq Alias Pind.2
    
    Config Portd.3 = Input
    Ffit Alias Pind.3
    
    Led2 Alias Portd.5
    Config Portd.5 = Output                                     'LED zur Kontrolle
    
    Led1 Alias Portd.6
    Config Portd.6 = Output                                     'LED zur Kontrolle
    
    Dim Taste As Byte
    Dim Fifo(2) As Byte
    Dim A As Byte
    
    'Hardware einstellen
    Config Com1 = 57600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
    Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 64 , Noss = 0 , Spiin = &HB0
    'Config Spi = Soft , Din = Pinb.4 , Dout = Portb.3 , Ss = Portb.2 , Clock = Portb.5 , Spiin = 0
    
    'init the spi
    Spiinit
    
    'Interrupt 0 einstellen
    Config Int0 = Falling
    On Int0 Ffit_isr
    
    Waitms 100
    
    '$include "inc_RF12-Treiber.bas"                      brauchen wir nicht
    Declare Sub Rf_init()
    Declare Sub Rf_cmd(byval Wert As Word)
    Declare Sub Rf12_rxd_off()
    Declare Sub Rf12_rxd_on()
    Declare Sub Framehandler()
    
     'Definition von Konstanen
    Const Rf12freq = 868.35                                     'Kanal-Einstellung
    Const Rf12baud = 9600                                       'Baudrate
    Const Myadress = 20                                         'Nodeadresse vom Teilnehmer
    'Const Snap_sync = &H54                                      'Synczeichen SNAP-Protokoll
    Const Snap_sync = &H31                                      'Synczeichen
    Const Maxchar = 22
    'const HDB2_ = &H50
    Const Hdb2_ = &H32
    Const Sync_byte = &H31
    Const My_adress = &H34
    Const Recive_buffer_size = 40
    
    
    Dim Cmd(2) As Byte , Tmpo As Word
    Dim Lv As Byte , Readycount As Byte , Count2 As Byte
    Dim Temp As Word
    Dim Tmp As Word
    Dim Rs232_flash As Byte , Za1 As Byte
    Dim Rs232_str As Byte                                       '
    Dim Ndb As Byte , Framelength As Byte , Crc As Byte
    Dim Byteanzahl As Byte                                      'Anzahl Sendebytes
    Dim S As String * 10
    Dim Rf12_data(recive_buffer_size) As Byte , Rf12_s As String * Maxchar At Rf12_data Overlay
    Sync Alias Rf12_data(1)
    Hdb1 Alias Rf12_data(2)
    Hdb2 Alias Rf12_data(3)
    Dab1 Alias Rf12_data(4)
    Sab1 Alias Rf12_data(5)
    Dim Rf_rxd As Bit , Rf_sync As Bit
    
    Set Led1
    
    'RFM 12 einstellen auf senden erstmal
    Call Rf_init()
    
    Reset Led1
    
    Enable Interrupts
    Enable Int0
    
    'Array löschen
    Rf12_s = ""
    
    'Endlosschleife
    Do
    
                'nur zum debuggen
                Taste = Inkey()
    
                If Taste = "a" Then
                    Call Rf_cmd(&H0000)                         'read status
                    Call Rf_cmd(&Hca81)                         'Reset FIFO
                    Call Rf_cmd(&Hca83)                         'enable FIFO
                End If
    
                If Taste = "x" Then
                   'Empfänger an
                    Call Rf12_rxd_on:
                End If
    
                If Taste = "c" Then
                'Empfänger aus
                      Call Rf12_rxd_off:
                  End If
    
             'empfangenes Frame auswerten
              If Rf_rxd = 1 Then
                  Rf_rxd = 0
                 Call Framehandler()
              End If
    
    Loop
    
    'Befehl zum RFM senden                                      geändert  Dino Dieter
    Sub Rf_cmd(byval Wert As Word)
       Cmd(2) = Wert And 255
       Shift Wert , Right , 8
       Cmd(1) = Wert
       Spiout Cmd(1) , 2
    End Sub
    
    'Einstellen des RFM 12
    Sub Rf_init()
                 Call Rf_cmd(&H0000)                            'Read Status
                Call Rf_cmd(&Hc0e0)                             'low battery, clock 10 MHz
                Call Rf_cmd(&H80e7)                             'Configuration: 868MHzband, 12pf, enable FIFO
                Call Rf_cmd(&H82d8)                             'power management: enable receiver, enable clock output
                Call Rf_cmd(&Hc2ac)                             'data filter command
                Call Rf_cmd(&Ha686)                             'Frequency: 868,35MHz
                Call Rf_cmd(&Hc611)                             'Datarate: 19,2 kbit
                Call Rf_cmd(&H94a1)                             'receiver setting: 134kHz, -97dbm
                Call Rf_cmd(&Hc2ac)                             'data filter:
                Call Rf_cmd(&Hc483)                             'AFC:
                Call Rf_cmd(&H9850)                             'TX control
                Call Rf_cmd(&He000)                             'wake-up
                Call Rf_cmd(&Hc800)                             'low duty-cycle
                Call Rf_cmd(&Hca81)                             'Reset FIFO
                Call Rf_cmd(&Hca83)                             'enable FIFO
                Call Rf_cmd(&H0000)                             'read Status
    End Sub
    
    Sub Framehandler()                                          'habe ich mir nicht angeschaut
     Set Led2
    'Print "Frame: ";
     'For Lv = 1 To Framelength
      '    Print Hex(rf12_data(lv)) ; " ";
       '   Next Lv
    Print "Sync alias RF_Data(1) " ; Sync
     If Sync = Snap_sync Then
        If Hdb2 = Hdb2_ Then
           'if HDB2= NDB then
                           If Dab1 = Myadress Then
                              Swap Dab1 , Sab1
                              Crc = Framelength - 2
                              Crc = Crc8(rf12_data(2) , Crc)
                                    If Crc = Rf12_data(framelength) Then
                                        Print "CRC OK! => " ; Crc
                                       ' Send ACK (i.e tell master that packet was OK)
                                       ' Set ACKs bit in HDB2 (xxxxxx10)
                                       Hdb2 = Hdb2 Or &B00000010
                                       Hdb2 = Hdb2 And &B11111110
                                       'do ...
                                      ' Gosub Senden                               'Anwortframe senden--> nur als Slave
                                       'Gosub Cmd_handler
                                       'RF12_data(2 <--- ackno machen
                                   Else
                                            Print "CRC Bad => " ; Crc
                                           ' Send NAK (i.e tell master that packet was bad)
                                           ' Set ACK bits in HDB2 (xxxxxx11)
                                           Hdb2 = Hdb2 Or &B00000011
                                        '   Gosub Senden                               'Anwortframe senden--> nur als Slave
                                  End If
                        Else
                                Print "geht mich nix an!...von Nr.:" ; Rf12_data(5)
                        End If
              'Else
               Print "Framelength NIO!!!"
                'End If
             Else
             Print "no 1Byte Adress!!!"
           End If
       Else
          Print "no Syncbyte!!!"
    End If
    
      Waitms 10
      Reset Led2
    End Sub
    
    Cmd_handler:                                                'Auswertung der Nutzdaten.... nur als Denkhilfe :)
    '(
    Select Case Rf12_data(7)
           Case 0 :
           Case 1 : Gosub Rolloaufmachen
           Case 2 : Gosub Rollozumachen
           Case 10 : Gosub Holetemperatur
           End Select
    ')
    For Lv = 1 To 20
        Toggle Led2                                             'mache was...
        Waitms 100
        Next Lv
    Return
    Rf12_rxd_on:
       Lv = 1
       Rf_sync = 0                                              'sync-Flag
       Rf_rxd = 0
       Rf12_s = ""
    '   Framelength = 6                                          'erst mit 3.Byte kann die Framelänge berechnet werden
       Call Rf_cmd(&H0000)                                      'Status lesen
       Call Rf_cmd(&Hca81)                                      'FIFO&Reset CMD: sensitiver Reset aus (Brownout)
       Call Rf_cmd(&Hca83)                                      'FIFO&Reset CMD: Synchroner Zeichenemfang (warte auf Startzeichen: 2DD4)
    '   Print "rf12_rxd_on "
       Enable Int0
    Return
    
    
    Rf12_rxd_off:
       Call Rf_cmd(&H0000)                                      'Status lesen
       Call Rf_cmd(&Hca81)                                      'FIFO&Reset CMD: sensitiver Reset aus (Brownout)
    '    Print "rf12_rxd_off "
       Disable Int0
    
    Return
    
    
    Senden:                                                     'habe ich mir nicht angeschaut  Dino Dieter
      Set Led2
      ' Waitms 1
     ' Locate 2 , 1 : Lcd "Sende: "
      For Lv = 1 To Framelength
          Print Hex(rf12_data(lv)) ; " ";
          Next Lv
    '  Call Rf12_txdata(framelength)
      Waitms 10
      Reset Led2
    Return
    
    Rxd_isr:
      S = S + Chr(udr)
    Return
    
    'Interrupt Routine zum empfangen der bytes aus dem RFM 12
    Ffit_isr:
          Set Led1                                              ':zum debuggen für LA
          Reset Led1
          Spiin Fifo(1) , 2                                     '1 Byte lesen
          Temp = Fifo(2)
    
         If Temp = Snap_sync And Rf_sync = 0 Then
            Rf_sync = 1
            Lv = 1
            Framelength = 6
        End If
    
         If Lv = 3 Then
            Ndb = Temp And &H0F                                 'Anzahl Datenbytes berechnen
            Ndb = 9                                             'zum debuggen
            Select Case Ndb
                   Case 0 To 8 : Framelength = 6 + Ndb          '6-14 (0--8 Datebyte)
                   Case 9 : Framelength = 6 + 16                '22   (16 Datenbyte)
                   Case 10 : Framelength = 6 + 32               '38   (32 Datenbyte)
                   'Case 11 : Framelength = 6 + 64               '70   (64 Datenbyte)
                   End Select
        End If
    
        If Lv >= Framelength And Rf_sync = 1 Then               'alles eingetroffen
                Rf_rxd = 1                                      'Flag setzen und Empfänger zurück setzen
                Rf_sync = 0
               Call Rf_cmd(&H0000)                              'read status
               Call Rf_cmd(&Hca81)                              'Reset FIFO       wir warten wieder auf SYNC vom RFM 12
               Call Rf_cmd(&Hca83)                              'enable FIFO
        End If
    
        Rf12_data(lv) = Temp
    
    
        Incr Lv
       ' Überlauf abgefangen , passend zum Empfangsbuffer
        If Lv >= Recive_buffer_size Then
             'Überlauf
              Rf_sync = 0
               Lv = 1
               Rf12_s = ""                                      'buffer löschen
        End If
    Return
    
    
    End
    Das erste Problem, welches mir schnell aufgefallen war, ist die Sub Rf_cmd(byval Wert As Word) . Die hat nur Nullen gesendet. Nach Änderung der Variable ( temp0 oder so ) ging die SUB. Wieso, keine Ahnung.

    So mal, ob du das so ans laufen bekommst.

    Im Anhang noch eine Datei. Lade dir bei http://www.saleae.com/downloads/ mal die Software runter. Dann solttest du das File öffnen könne. Der Rest erklärt sich dann.

    MFG
    Dieter
    Angehängte Dateien Angehängte Dateien

  6. #6
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    25.03.2006
    Ort
    Hinsdorf
    Alter
    43
    Beiträge
    379
    Hallo Dino,

    Danke für Deine Hilfe!
    Ich habe meine RFM Boards eigentlich nur an einem AVR über die SPI-Schnittstelle angeschlossen, wie die Pinbezeichnung hergibt. Werde jetzt mal dein Programm testen. Hatte ja mit meinem ja auch Erfolg, nur das ich nicht alle Bytses auslesen konnte.
    Melde mich später dann wieder.

    MAT

  7. #7
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    25.03.2006
    Ort
    Hinsdorf
    Alter
    43
    Beiträge
    379
    Hallo Dieter,

    jetzt bin ich dazu gekommen Deine Code zu probieren und..... es funzt!
    Ich weiß nicht was ich bei mir falsch hatte! Mal schauen ob ich alle anderen Funktionen auch noch inplementiert bekomme.
    Noch eine Frage:
    in der Einstellungen zur SPI configuration hast Du "Clockrate = 64" & "Spiin = &HB0" => kannst Du mir bitte diese Größen erklären?

    UNd jetzt geht es ans senden...

    Grüße Matthias

  8. #8
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    28.04.2004
    Ort
    Nähe Köln
    Alter
    51
    Beiträge
    247
    Hallo Matthias

    Schön das es jetzt geht.

    Clockrate = 64 gibt den Takt der SPI an . Taktfrequenz des AVR / 64 = ??

    Spiin = &HB0 wir müssen ja, wenn wir Daten lesen wollen in dem ersten Byte &hB0 übergeben, das wird damit angegeben. Ansonsten würde die SPI nur &H00 ausgeben.

    Bei höheren Übertragungsgeschwindigkeiten, mußt du den SPI Takt mit einer kleineren Clockrate hochsetzen, sonst kommt es zu Aussetzern. Bis ca 20 MHz SPI Clock sollte es gehen.

    MFG
    Dieter

    [img][/img]
    Miniaturansichten angehängter Grafiken Miniaturansichten angehängter Grafiken bild1_130.jpg  

  9. #9
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    25.03.2006
    Ort
    Hinsdorf
    Alter
    43
    Beiträge
    379
    Hallo Dieter,

    ok, mit der Clockrate hab eich verstanden, der max. SPI-Takt hängt sicherlich dann vom verwendeten IC ab.
    Jetzt muss ich mir überlegen welche und in welcher Form ich die Daten übertragen werden. Bei weiteren Fragen meld ich mich

    Danke & Grüße
    MAT

  10. #10
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    28.04.2004
    Ort
    Nähe Köln
    Alter
    51
    Beiträge
    247
    Hallo Matthias

    Wie sieht es aus ? Bist du weiter gekommen mit dem RFM12 & SNAP.

    Bei mir sieht e ganz gut aus. Wenn du Lust hast, können wir uns ja mal austauschen.

    Hier mein Stand.
    Sender läuft, Empfänger läuft, CRC Prüfung OK, NACK wird gerade eingebaut, Stromsparmodus geht, ACK OK, Logger Software PC läuft, Temperatur DS18B20 läuft.

    Plane gerade den ersten Protoypen

    Später soll das ganze zentral über einen MBED im Netzwerk verfügbar sein. Liegt hier, geiles Teil.

    Ich Suche noch einen Energiemesser zum auswerten mit einem AVR. Hat da jemand einen Tip. Auslösung von 0,1 KWh würde mir reichen.

    MFG
    Dieter

    www.mbd.com

Seite 1 von 2 12 LetzteLetzte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •