XBee-Pro 868 Digital Input

[Silvio F. (silvio123)]

Hallo

Ich habe 2 XBee-Pro 868 und möchte an einem einen Taster anschließen. 
Der Schaltzustand soll an dem anderen XBee an einem DO ausgegeben 
werden. Ich ahbe jetzt über XCTU folgende Einstellungen vorgenommen:

XBee 1:
ID-7FFF
CE-End Device
D1-4(Digital Out Pin 19)
IC-FFFF (DIO Change Detect)
IR-14 (Sample Rate)

XBee 2:
ID-7FFF
CE-Coordinator
D1-3(Digital Input Pin 19)
IR-14 (Sample Rate)

Die DH und DL Adressen stimmen auch. UART Kommunikation funktioniert.
Aber leider wird der Status vom Taster nicht übertragen.

Jemand eine Idee?

[Silvio F. (silvio123)]

niemand eine Ahnung wo der Fehler liegen kann?

[Harald (Gast)]

Wenn bei Digi noch das gleiche Personal wie früher bei Maxstream im 
Support sitzt dann kannst Du die auch als Privatperson problemlos 
andrahten. Z.B. Auch per Email, falls Dir Englisch am Telefon nicht so 
liegen sollte.
http://www.digi.com/support/productdetail?pid=3553

Ansonsten kann ich mich erinnern, dass einige Features erst sehr spät in 
der Firmware hinzugekommen sind obwohl im Manual bereits beschrieben. 
Update ist also obligatorisch!

[Harald (Gast)]

Komme nochmal drauf zurück, lese mal die Firmware History für 1.61...

http://ftp1.digi.com/support/firmware/93009379_E.txt

[Silvio F. (silvio123)]

Hallo. Danke für die Antwort.

Habe die neuste Firmware drauf. Auch habe ich es mit der normalen 
Firmware und mit der für AIO/DIO adapters versucht. Das ergebnis war 
gleich. Mal abwarten was die vom Supportteam sagen.

Danke erstmal

[indi (Gast)]

ich meine, ich hatte CE auf 0. Probier das mal bei beiden Modulen.

[Silvio F. (silvio123)]

Also mit CE=0 bei Beiden gehts auch nicht. Woher weiß der 2. XBee, dass 
er das Eingangssignal vom XBee von Pin 19 auch an PIN 19 ausgeben soll?

[Michael S. (Gast)]

Hallo,

man kann ein XBee-Modul so konfigurieren, dass es bei einem PinChange 
eine Nachricht sendet.
Und man kann an einem lokalen oder entfernten XBee-Modul Pins schalten.

Beides nacheinander geht natürlich genauso.
Aber nicht ohne externe Hilfe.

Du musst einen Controller spendieren, der die Nachricht über den 
PinChange registriert und daraufhin einen Pin schaltet.

Michael S.

[Silvio F. (silvio123)]

Also der Support von Digi hilft nur wenn man ein teureres Paket bucht.
Habe unteranderem diese Seite gefunden, die beschreibt wie es geht:
http://examples.digi.com/sensors/802-15-4-digital-input-with-a-button/5/

oder das hier

https://www.youtube.com/watch?v=CLQEo2Ow1Qs

Aber leider wird dabei ein anderer XBee verwendet, so dass die 
Einstellungen bei meinen etwas anders sind.

Habt ihr eine Idee wie man den XBee 868 auch so einstellen kann?

[Harald (Gast)]

Der Support hilft nur gegen Geld? Was ist das denn? Vielleicht mal bei 
Digi in Dortmund anrufen (wenn es die da noch gibt). Ansonsten, wenn es 
nicht funktioniert hier schon mal eine Alternative
http://www.radiocrafts.com/uploads/rcxxxx(hp)-tm_data_sheet_1_42.pdf

RC1180(HP)-TM

[Silvio F. (silvio123)]

Ich hab das ganze jetzt soweit das ich den Empfänger im API modus 
betreibe und die Daten des Schalters über UART bekomme.

Die Daten die ich empfange sehen dann so aus:
7E 00 12 92 00 13 A2 00 40 A2 94 45 FF FE 01 01 00 02 00 00 02 FA

Die vorletzte Stelle bedeutet das der Schalter aus ist. Schalte ich den 
Schalter an, sthet dort eine 00.

Habe jetzt meinen 2. XXBee an einen Atmega8 angeschlossen und über RX/TX 
verbunden.

Wollte jetzt die Daten mit BASCOM auswerten um dann einen PIN zu 
schalten, komme aber bei dem Vergleich der HEX Daten nicht so richtig 
voran.

Hat dafür jemand ein Beispielprogramm? Alternativ auch in C?

[Michael S. (Gast)]

Hallo,

Du bist doch schon fast am Ziel.

Das IO-Frame des Routers hast Du empfangen und den Pin-Status 
ausgelesen.

Jetzt musst Du nur noch ein lokales AT-Command absetzen, das den 
auserwählten Pin am lokalen Device schaltet.

mfg

Michael S.

[Silvio F. (silvio123)]

Und wie mache ich das mit dem lokalen AT Komando setzten? Muss ich das 
über den Microcontroller machen oder geht das über den XBee?

Beim Microcontroller habe ich das Problem das ich die Hexwerte des 
Strings nicht richtig verglichen bekomme.

Und wenn ich eh den Microcontroller benutzen muss, kann ich ja auch 
gleich einen digitalen Ausgang vom Controller nutzen.

$regfile "m8def.dat"
$crystal = 3686400
$baud = 9600

Dim S As String * 18 

On URXC OnRxD
Enable URXC
Enable Interrupts

Config Portc.5 = Output
Portc.5 = 0

Do
   //Vergleich der Hexwerte

Loop
End

Onrxd:
  'S = S + Chr(udr)
  S = Chr(udr)
Return

Kann mir jemand bei dem Vergleich auf den HEX Wert helfen?

[Michael S. (Gast)]

Hallo,

Silvio Franz schrieb:
> Die Daten die ich empfange sehen dann so aus:
> 7E 00 12 92 00 13 A2 00 40 A2 94 45 FF FE 01 01 00 02 00 00 02 FA
>
> Die vorletzte Stelle bedeutet das der Schalter aus ist. Schalte ich den
> Schalter an, sthet dort eine 00.

Du hast das Prozedere mit Worten bereits beschrieben.

Die Bytes des Frames haben eine Bedeutung, die dem Manual zu entnehmen 
sind (das habe ich jetzt nicht vorliegen - ich versuchs aus der 
Erinnerung):

7E 00 12 92 00 13 A2 00 40 A2 94 45 FF FE 01 01 00 02 00 00 02 FA
                                                aa bb    cc dd

aa bb = gibt an, welche Pins als digitaler Inputs geschaltet sind
cc dd = gibt an, wie der Status der Pins ist

Das bedeutet: Pin 2 (welcher auch immer das am Modul ist) ist high.

Wenn Dir bekannt ist, welches der Pin ist, der das IO-Sample auslöst, 
dann reicht es aus, diesen zu testen:

if (dd & 02), dann ist Pin2 high, andernfalls low.


Silvio Franz schrieb:
> Und wenn ich eh den Microcontroller benutzen muss, kann ich ja auch
> gleich einen digitalen Ausgang vom Controller nutzen.

Das ist natürlich richtig.


mfg

Michael S.

[Silvio F. (silvio123)]

Ja das ist richtig, dass hatte ich auch so verstanden.
mein Problem ist aber den string zu vergleichen.

Jetzt wird in den String S jedes Zeichen geschrieben

S = Chr(udr)

Jetzt habe ich den String mit den Zeichen drin.
Jetzt muss z.B. die 21. Stelle auf 02 geprüft werden

if HEX(substr(S,20,1))="02" Then

Aber die abfrage bekomme ich nicht so richtig hin

[Michael S. (Gast)]

Hallo,

Du legst die empfangenen Bytes als String ab:

Silvio Franz schrieb:
> Onrxd:
>   'S = S + Chr(udr)
>   S = Chr(udr)
> Return

Das ist wenig zielführend.

Speichere die Werte in einem Array, denn es handelt sich um 
Integer-Werte.

Dann kannst Du z.B. prüfen, ob im 21. Element das Bit.2 gesetzt ist:

if (my_array[20] & 0x02) ....

mfg

Michael S.

[Silvio F. (silvio123)]

Danke für eure Hilfe.
Läuft jetzt soweit alles.
Wer wissen will wie man den API-Modus des XBee Pro 868 ausließt, kann 
folgenden Code nehmen. Zusatzlich ließt er noch aus was über UART 
gesendet wird.

$regfile "m8def.dat"
$crystal = 3686400
$baud = 9600
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space

Dim S As String * 1                                         'h für hoch, r für runter
Dim E(50) As Integer
Dim Pos As Integer
Dim Zeichen As Integer
Dim Stimmtio As Bit
Dim Stimmtzeichen As Bit
Pos = 1
Zeichen = -1

Do
   If S = "h" Then
      ...
   Elseif S = "r" Then
      ...
   End If
Loop
End

On Urxc Onrxd
Enable Urxc
Enable Interrupts

Onrxd:
   Zeichen = Udr
   If Zeichen = 126 Then                                    'Wenn Zeichen HEX(E7) - Zeichen für Stringanfang
      Pos = 1
      Stimmtio = 1
      Stimmtzeichen = 1
   End If

   If Pos > 50 Then                                         'Wenn Arrayspeicher voll, dann auf 1 zurücksetzen
      Pos = 1
   End If

   E(pos) = Zeichen
   'Print Pos ; ":" ; E(pos) ; ":" ; Zeichen

   'Überprufen ob alle Bits richtig sind
   If Pos = 4 Then
      If E(pos) <> 146 Then                                 'Sendemodus DI = HEX(92) - wenn ein digitaler Eingang am XBee geschaltet wird
         Stimmtio = 0
      End If
      If E(pos) <> 144 Then                                 'Sendemodus Zeichen = HEX(90) - wenn ein Zeichen über UART gesendet wird
         Stimmtzeichen = 0
      End If
   End If
   If Pos = 16 Then                                         '
      If Stimmtzeichen = 1 Then                             '
         If E(pos) = 114 Then
            S = "r"
         Elseif E(pos) = 104 Then
            S = "h"
         End If
      End If
   End If
   If Pos = 17 Then                                         'Erste Stelle Bitmask = 00
      If E(pos) <> 0 Then
         Stimmtio = 0
     End If
   End If
   If Pos = 18 Then                                         'Zweite Stelle Bitmask = 02
      If E(pos) <> 2 Then
         Stimmtio = 0
      End If
   End If
   If Pos = 20 Then                                         'Erste Stelle Bit == 00
      If E(pos) <> 0 Then
         Stimmtio = 0
      End If
   End If
   If Pos = 21 Then                                         'Zwiete Stelle Bit =00(Schalter ein), =02(Schalter aus)
      If Stimmtio = 1 Then                                  'Schalter nicht betätigt
         If E(pos) = 2 Then
            S = "h"
         Elseif E(pos) = 0 Then                             'Schalter betätigt
            S = "r"
         End If
      End If
   End If
   'Zurücksetzen
   Pos = Pos + 1

Return