RFM12 433 Mhz und Atmega 8 funktioniert nur halbwegs

[seseb]

hat vielleicht jemand n anderen code den er empfehlen kann?

[Dirk]

Bau doch mal in die Sendeschleife eine kleine Pause ein:

   For Z = 1 To 18                      'Sendepuffer 1 bis 18 abarbeiten
   Tx_word = &HB800 + Sendepuffer(z)    'Sendekomando B800 und Pufferinhalt zusammenführen
   Gosub Bereit                       'Auf bereitschaft warten
   Waitms 1                         
   Gosub Rfmwrite                       '1 Sendepuffer Byte übergeben
   Waitms 10                         
   Next Z                               'Nächsten Schleifendurchlauf

... und passe die 10 ms so lange an, bis jedes Zeichen sicher empfangen wird.

[seseb]

Ja stimmt

mit einer kleinen warteroutine gehts:

Reset Cs                                                 'RFM auswählen
Timeout = 0
Do
Incr Timeout
Loop Until Sdo = 1 Or Timeout = 65535
Return

des muss dahinn wo das label "bereit" war

natürlich muss dann die Wartezeit weggelassen werden

[Unregistriert]

Sehr guter tipp, danke!!!!!