Hi,

wie ich sehe läuft der Code nicht nur bei mir nicht! Was habe ich bis jetzt herausgefunden:
* mein RFM wird nicht richtig initialisiert:
Code:
Function Rf12_trans(byval Wert As Word) As Word 
  Local Lowbyte As Byte 
  Local Highbyte As Byte 

  Lowbyte = Wert And 255 
  Shift Wert , Right , 8 
  Reset Spi_cs 

  Highbyte = Spimove(wert) 
  Lowbyte = Spimove(lowbyte) 
  Set Spi_cs 

  Temp = Highbyte * 256 
  Temp = Temp + Lowbyte 
  Rf12_trans = Temp 
End Function

* ABER, habe ich das RFM richtig initialsiert, kann ich über :
Code:
Sub Rf12_txdata(byval Maxchar As Byte) 
Toggle Portd.5 
  Temp = Rf12_trans(&H8238) 
  Rf12_ready 
  Temp = Rf12_trans(&Hb8aa) 
  Rf12_ready 
  Temp = Rf12_trans(&Hb8aa) 
  Rf12_ready 
  Temp = Rf12_trans(&Hb8aa) 
  Rf12_ready 
  Temp = Rf12_trans(&Hb82d) 
  Rf12_ready 
  Temp = Rf12_trans(&Hb8d4) 
  Rf12_ready 
  For Count = 1 To Maxchar 
    Rf12_ready 
    Temp = &HB800 + Rfdata(count) 
    Temp = Rf12_trans(temp) 
  Next Count 
  Rf12_ready 
  Temp = Rf12_trans(&H8208) 
End Sub 



und



Function Rf12_trans(byval Wert As Word) As Word 
  Local Lowbyte As Byte 
  Local Highbyte As Byte 

  Lowbyte = Wert And 255 
  Shift Wert , Right , 8 
  Reset Spi_cs 

  Highbyte = Spimove(wert) 
  Lowbyte = Spimove(lowbyte) 
  Set Spi_cs 

  Temp = Highbyte * 256 
  Temp = Temp + Lowbyte 
  Rf12_trans = Temp 
End Function 


Sub Rf12_ready 
  Reset Spi_cs 
  nop 
  While Spi_sdo = 0 
  Wend 
End Sub
Daten senden! Ich weiß nicht warum aber so geht das dann, wenn das jemand herausfinden könnte wäre ich happy.
MAT