Bluetooth (BLE) Kommunikation

Master JDY-08 <> SLAVE JDY-08

tbegle
Benutzer
Avatar
Gender: n/a
Age: 64
Posts: 150
Registered: 01 / 2018
Subject:

Bluetooth (BLE) Kommunikation

 · 
Posted: 29.11.2021 - 21:11  ·  #1
Hallo Power User,

hat sich von euch jemand mit Bluetooth befasst?

Ich Arbeite schon seit Jahren mit dem JDY-08 Reichweite bei 0dB min 40m freie Sicht oder
durch 3 Türen 10m!
Als Terminal Programm(Master) verwendie ich auch seit Jahren die App Serial Bluetooth von Kai Morich Genial! man kann auch an max 35 Tasten Befehle hinterlegen! .... 115,2kbd

Meine Herausforderung:
Möchte über ein 10" Terminal (21 Tasten = Befehle) mit einem Gerät kommunizieren.(Ohne Mob Tel)
Slave ist klar habe nun einen JDY-08 zum Master gemacht mit Term Prog und Pascal getestet
soweit so gut gut
da ich immer nur ein Gerät damit ansprechen muss brauche ich die ganzen Prozeduren nicht
MAC Adressen sämtlicher Slave's in der Umgebung! -
Da sich die NR 1...n zu den MAC immer wieder verändern müsste ich die für die spezielle MAC meines Gerätes immer auscodieren!
Lösung wäre der AT Befehl BIND(dem Master einbrennen!) aber ich bekomme die MAC nicht in den MASTER wie würde das Format aussehen?

// --------------------------Master pairing with Slave ----------------------------
write(serout,'AT+RST'); // Master(Slave) SW Reset
mdelay(3000);
FlushBuffer(RxBuffer);
write(serout,'AT+SCAN4'); // Alle Slave in der Umgebng scannen
for i_:= 1 to 250 do // auf Länge achten
read(SerInp,inp_); // Empfang! ok
write(serout,inp_); //
endfor;
mdelay(100);
write(serout,'AT+RSLV0'); // Alle Slave (1: bis n:mit MAC ok
mdelay(3000); // 1: MAC ....
// 2: MAC
// write(serout,'AT+BIND'); // ?????
// MAC 50:F1:4A:4D:DE:ED
// write(serout,'50F14A4DDEED'); // klappt nicht auch nicht mi :
// mdelay(100);

write(serout,'AT+CONNETn'); // n 1: 2: 3: 4: Rang sich mit der MAC
mdelay(2000);
Write(serout,'sr'); // System Reset an Slave n !! (Gerät n) ok!
// wenn ich die richtige NR zur MAC eingebe!

Gruss
Toni
Harry
Moderator
Avatar
Gender:
Location: zwischen Augsburg und Ulm
Age: 59
Posts: 2135
Registered: 03 / 2003
Subject:

Re: Bluetooth (BLE) Kommunikation

 · 
Posted: 01.12.2021 - 19:02  ·  #2
Hallo Toni,

ich hab mal vor Jahren mit einem anderen BT-Modul rum gespielt und mußte zum Initialisieren diese Sequenz senden:
Code

BT_Init : Array[0..3] of String[5]=('ATZ0'+#13,'ATR0'+#13,'ATP0'+#13,'ATO0'+#13);
            // ATZ0              Restore factory default settings
            // ATR0              Set device as master
            // ATD=000db58289cb  Set device-address
            // ATP0              Disable Pin-Code authorization
            // ATO0              Autoconnect Device

Var
  C1, C2               : Byte;
  BTT, BTR             : String[1];

Process Init_BT(20,20:iData);               // BT-Initialisierung und GPS-Kopplung
  Begin
    Write(SerOut,#13);
    Sleep(Init_BT,100);
    For C1:=0 to 3 do
      For C2:=1 to 5 do
        BTT:=Copy(BT_Init[C1],C2,1);
        BTR:='';
        Repeat
          Write(SerOut,BTT);
          WaitPipe(RXBuffer);
          Read(SerInp,BTR);
          Sleep(Init_BT,10);
          Until BTR=BTT;
        EndFor;
        Sleep(Init_BT,100);
        FlushBuffer(RXBuffer);
      EndFor;
    Repeat
      WaitPipe(RXBuffer);
      Read(SerInp, Temp);
      Until Temp='$';
    Resume(ReadGPS);
    Suspend(Init_BT);
  End Init_BT;


Vielleicht hilft dir das weiter. Das ATD mußte ich nicht senden, ich habe einfach alles (jede MAC) erlaubt.

Gruss
Harry
tbegle
Benutzer
Avatar
Gender: n/a
Age: 64
Posts: 150
Registered: 01 / 2018
Subject:

Re: Bluetooth (BLE) Kommunikation

 · 
Posted: 02.12.2021 - 12:24  ·  #3
Danke Harry,
ich wede es x ausprobieren - nur eine spezielle Anlage(Kunden) bestimmt (MAC ....)
Gruss
Toni
tbegle
Benutzer
Avatar
Gender: n/a
Age: 64
Posts: 150
Registered: 01 / 2018
Subject:

Re: Bluetooth (BLE) Kommunikation

 · 
Posted: 04.12.2021 - 18:01  ·  #4
Hallo Harry,
mir ist zwar gelungen die MAC in den Master zu schreiben - ging simpel AT+MAC............
Nun dachte ich wenn ich den Master resete AT+RST ok das er sich nun AUTOMATISCH mit dem SLAVE Weihnachten 21 verbindet hihihi macht er nicht der Master! - ich werde ihn kündigen!
wenn ich die Slave's über den AT+CONNET4 mit dem (noch) Master abfragen lasse
+OK
+DEV:1=F4E11E08AD96,-75,KULA_2.5_TB
+DEV:2=D8A98BB4EBB7,-75,FLURLICHT_0920
+DEV:3=D8A98BB4F585,-79,KULA 6.0 TB 1220
+DEV:4=50F14A4DDEED,-72,WEIHNACHTEN 21 TB
+DEV:5=28395EDD97A0,-83,[1A]
+DEV:6=1057C82432DE,-61,[06][00][01] !
[14][0C],ËR0LAPTOP-ORR1LNEH
+DEV:7=682737B12839,-79,u[00]B[04][01]€`h'7±(9j'7±(8[01][00][00][00][00][00][00]
+DEV:8=0CB2B77377B8,-87,NEOLED_Hausbar
+SCAN:STOP
+MAC:50F1A44DDEED
+OK
wenn ich die DEV:4 -1 = AT+CONNET3 eingebe wird der Slave sofort verbunden!
Wenn's nicht anders geht muss die Strings mit Pascal auslesen und ..... verwursten

Das gibi zu Silvester einen Feuerzauber 16 NELED Strips (4 Booster) 40A/5V Netzteil - bloss eine original Schneefall Simu macht noch zicken
schönen Abend
Toni
Harry
Moderator
Avatar
Gender:
Location: zwischen Augsburg und Ulm
Age: 59
Posts: 2135
Registered: 03 / 2003
Subject:

Re: Bluetooth (BLE) Kommunikation

 · 
Posted: 04.12.2021 - 20:40  ·  #5
Hallo Toni,

mach mal ein Video :)

Gruss
Harry
tbegle
Benutzer
Avatar
Gender: n/a
Age: 64
Posts: 150
Registered: 01 / 2018
Subject:

Re: Bluetooth (BLE) Kommunikation

 · 
Posted: 06.12.2021 - 18:03  ·  #6
Hallo Harry,

ich habe nun nach ewigen herumprobieren! (Internet ewige Suche keine Lösung gefunden) endlich herausgefunden wie es funktioniert!
Vielleicht hat jemand eine Verwendung?
Danke nochmals für dein Engagement
Gruss
Toni

DEMO BLE Bluetooth (JDY-08) MASTER <> SLAVE
(selective) Data transmission 115.2kB

write(serout,'AT+RST'); // Master(Slave) SW Reset
mdelay(5000);
// write(serout,'AT+BOUD0'); // 115,2kB(default) BOUD4=9600Bd
// write(serout,'AT+PWR0'); // Output odB! (default 2 -10dB)
// MAC 50:F1:4A:4D:DE:ED // MAC v. Slave
// write(serout,AT+BIND50F14A4DDEED' // mit BIND -> Slave MAC in Master(MAC)
write(serout,'AT+CONNET50F14A4DDEED'); // MASTER mit SLAVE verbinden
mdelay(2000);
Write(serout,'sr'); // (alle NeoLed Booster System Reset=Anlagen Reset)
Selected quotes for multi-quoting:   0

Registered users in this topic

Currently no registered users in this section

The statistic shows who was online during the last 5 minutes. Updated every 90 seconds.
MySQL Queries: 15 · Cache Hits: 14   109   123 · Page-Gen-Time: 0.047318s · Memory Usage: 2 MB · GZIP: on · Viewport: SMXL-HiDPI