Differences

This shows you the differences between two versions of the page.

--- et:examples:communication:bluetooth:eunistone [2012/10/22 10:46] – rellermaa
+++ et:examples:communication:bluetooth:eunistone [2020/07/20 09:00] (current) – external edit 127.0.0.1
@@ Line 6: / Line 6: @@
 [LIB] [[et:software:homelab:library:usart]], \\
 [LIB] [[et:software:homelab:library:module:lcd_graphic]] \\
+**BTBee Pro mooduli puhul vaata siia:**
+[[et/examples/communication/bluetooth/btbee|BTBee Pro moodul]] \\
+**Bluetooth Bee mooduli puhul vaata siia:**
+[[et/examples/communication/bluetooth|Bluetooth Bee moodul]]
+ \\
+ \\
+**Täielik AT käskude nimekiri (en):** \\
+[[http://www.cooking-hacks.com/skin/frontend/default/cooking/pdf/Bluetooth_SPP_AT_SW_description.pdf|AT käsustik]]
  ===== Teooria =====
-{{  ::examples:communication:bt.jpg?220|BT moodul.}}
+{{  ::examples:communication:bluetoothboard.png?220|BT moodul}}
 Bluetooth on tööstusstandard seadmete omavaheliseks traadita ühenduseks. Selle eesmärgiks on juhtmeühenduste asendamine mobiiltelefonide, arvutite jt. suhtlemisel perifeeriaseadmetega.
@@ Line 19: / Line 29: @@
 Bluetoot Bee moodul loeb käsu õigeks, lõpetatud ASCII märkidega CR (13 ehk ’\r’) ja LF (10 ehk ’\n’). Moodulit on võimalik testimiseks ühendada ka arvuti jadaliidesesse. Suhtlemiseks näiteks Hyper Terminali abil tuleb seal valida //Properties//, //Settings tab//, //ASCII Setup...// ning märkida linnukesega //Send line ends with line feeds// ja //Echo typed characters locally//. Enne käsu kirjutamist vajutada korra ENTER klahvile ja kirjutada ainult käsk ilma muude märkideta ja veelkord ENTER. Vale käsu saatmisel vastab moodul „ERR“, vastasel juhul „OK“. Kontrollerist moodulile käsu saatmisel on vajalik lisada siiski lõppu ka CR ja LF ehk käsk tuleb saata kujul „[SÕNUM]\r\n“.
-Bloetooth mooduli arvutiga ühendamiseks tuleb moodul eelnevalt seadistada.
+Bloetooth mooduli arvutiga ühendamiseks on kõige lihtsam panna moodul //slave// olekusse. Selleks tuleb moodul eelnevalt vastavalt seadistada saates Bluetooth moodulile järgmised AT käsud:
-Selleks on vaja saata Bluetooth moodulile järgmised AT käsud:
 ^ Käsk ^ Seletus ^
 | "AT+JSEC=3,1,1,06,123456\r\n" | Seadista turvaline ühendus 6 kohalise parooliga 123456 |
@@ Line 30: / Line 39: @@
 Kui ühendus on loodud, tuleks Bluetooth moodul panna "läbipaistvasse" olekusse kasutades AT käsku: "AT+JSCR\r\n"
-Bluetooth Bee moodulit saab ühendada arvutiga kahel viisil: kas seadistada Bluetooth Bee alluvaks seadmeks ja alustada ühendust arvutist või seadistada see ülemaks seadmeks, detekteerida Bluetooth toega arvuti ja ühendada see endaga.
+Kui ühendus on loodud virtuaalse jadaliidese abil, siis on võimalik arvutist saata Hyper Terminali vms. kaudu andmeid Bluetooth Bee vahendusel kontrollerile.
-Esmalt tuleb määrata mooduli pin-kood Bluetooth seadmete paarimiseks. See toimub käsuga „\r\n+STPIN=0000\r\n“, kus 0000 on pin-koodina vaikimisi kasutusel.
+Järgnev kood näitab lühidalt, kuidas luua ühendus Kodulabori kontrolleri ning arvuti vahel.
-Käsk „\r\n+STWMOD=0\r\n“ seab Bluetooth Bee mooduli alluvaks seadmeks.
+<code c>
-„\r\n+INQ=1\r\n“ lubab moodulit leida teistest seadmetest (punane ja roheline LED hakkavad vaheldusmisi vilkuma). Arvutist on seade nüüd leitav, selle saab paarida ja luua ühenduse virtuaalse jadaliidese kaudu. Moodul küsib ühenduse loomisel arvutist ka pin-koodi. Aktiivse ühenduse olemasolul vilgub mooduli roheline LED kord kahe sekundi jooksul.
+#define F_CPU 14745600
-Teisel juhul viib „\r\n+STWMOD=1\r\n“ Bluetooth Bee ülema seadme režiimi.
+#include <homelab/pin.h>
-„\r\n+INQ=1\r\n“ paneb mooduli teisi seadmeid otsima.
+#include <homelab/delay.h>
-Leitud Bluetooth seadmete või arvutite aadressid saadab moodul tagasi näiteks kujul „\r\n+RTINQ=0,11,67,AF,95,7E;LAPTOP\r\n“.
+#include <homelab/module/lcd_gfx.h>
-Leitud aadresside abil saab luua ühenduse soovitud seadmega „\r\n+CONN=0,11,67,AF,95,7E\r\n“.
+#include <homelab/usart.h>
-Kui ühendus on loodud virtuaalse jadaliidese abil, siis on võimalik arvutist saata Hyper Terminali vms. kaudu andmeid Bluetooth Bee vahendusel kontrollerile. Ühenduse katkestamiseks tuleb seda teha arvutist või tekitada kontrolleriga Bluetooth Bee PIO0 sisendisse tõusev front.
+//
+// Select USART channel
+usart port = USART(1);
-Järgnev kood selgitab mooduli kasutamist analoogselt ZigBee näitele. Siin seatakse Bluetooth Bee ülemaks seadmeks (seda on vaja teha ainult esimesel korral, nagu ka pin-koodi, mooduli nime jm. seadete sisestust) ja luuakse selle abil ühendus mõne muu seadmega.
+//
+// Initialize bluetooth module
+//
+uint8_t Bluetooth_Connect()
+{
+	char dump;
+	char str[10];
+	_delay_ms(500);
+	lcd_gfx_clear();
+	// Software reset
+	do
+	{
+		while(usart_has_data(port))
+		dump = usart_read_char(port);
+		usart_send_string(port,"AT+JRES\r\n");
+		while(!usart_has_data(port));
+		usart_read_string(port,str,5);
+		lcd_gfx_write_string(str);
+	} while (strcmp(str,"ROK"));
+	// set request password 123456
+	while(usart_has_data(port))
+		dump = usart_read_char(port);
+	usart_send_string(port,"AT+JSEC=3,1,1,06,123456\r\n");
+	while(!usart_has_data(port));
+	usart_read_string(port,str,4);
+	lcd_gfx_write_string(str);
+	if (strcmp(str,"OK") != 0)
+		return 0;
+	// Set to discoverable
+	while(usart_has_data(port))
+		dump = usart_read_char(port);
+	usart_send_string(port,"AT+JDIS=3\r\n");
+	while(!usart_has_data(port));
+	usart_read_string(port,str,4);
+	lcd_gfx_write_string(str);
+	if (strcmp(str,"OK") != 0)
+		return 0;
+	// Register local services
+	while(usart_has_data(port))
+		dump = usart_read_char(port);
+	usart_send_string(port,"AT+JRLS=1101,11,Serial Port,01,000000\r\n");
+	while(!usart_has_data(port));
+	usart_read_string(port,str,5);
+	lcd_gfx_write_string(str);
+	if (strcmp(str,"OK") != 0)
+		return 0;
+	// Auto accept all connection requests
+	while(usart_has_data(port))
+		dump = usart_read_char(port);
+	usart_send_string(port,"AT+JAAC=1\r\n");
+	while(!usart_has_data(port));
+	usart_read_string(port,str,5);
+	lcd_gfx_write_string(str);
+	if (strcmp(str,"OK") != 0)
+		return 0;
+	// Connect using password 123456
+	while(usart_has_data(port))
+		dump = usart_read_char(port);
+	usart_send_string(port,"AT+JPCR=06,123456\r\n");
+	while(!usart_has_data(port));
+	usart_read_string(port,str,5);
+	lcd_gfx_write_string(str);
+	if (strcmp(str,"OK") != 0)
+		return 0;
+	while( UCSR1A & (1<<RXC1) )
+		dump = UDR1;
+	return 1;
+}
-<code c>
+//
+// Put bluetooth module in transparent mode
+//
+uint8_t Bluetooth_transparent()
+{
+	char str[50];
+	do
+	{
+		usart_has_data(port);
+		usart_read_string(port,str,50);
+	}while(!strstr(str,"+RSLE"));
+	usart_send_string(port,"AT+JSCR\r\n");
+}
+//
+// Main program
+//
+int main(void)
+{
+	char text[15];
+	char dump;
+	char c;
+	int a = 0;
+	int connect = 0;
+	// Initialize LCD
+	lcd_gfx_init();
+	lcd_gfx_clear();
+	// Initialize USART
+	usart_init_async(port,	USART_DATABITS_8,
+							USART_STOPBITS_ONE,
+							USART_PARITY_NONE,
+							USART_BAUDRATE_ASYNC(115200));
+	lcd_gfx_write_string("Reset:");
+	//Connect to Bluetooth on PC
+	while(!Bluetooth_Connect());
+	lcd_gfx_clear();
+	lcd_gfx_goto_char_xy(0,1);
+	lcd_gfx_write_string("Connect me...");
+	//Wait for terminal connection from PC
+	Bluetooth_transparent();
+	//Connection established, run rest of program.
+	lcd_gfx_clear();
+	lcd_gfx_goto_char_xy(0,0);
+	lcd_gfx_write_string("Connected");
+	lcd_gfx_goto_char_xy(0,1);
+	lcd_gfx_write_string("Terminal text is mirrored toterminal and  LCD; + sign   clears screen ");
+	while(1)
+	{
+		//Read USART data and mirror it to LCD and back to the terminal
+		while(!(UCSR1A & (1<<RXC1)));
+		dump = UDR1;
+		//If '+' character is sent, clear LCD screen
+		if(dump == '+')
+			lcd_gfx_clear();
+		else
+		{
+			lcd_gfx_write_char(dump);
+			usart_send_char(port,dump);
+		}
+	}
+}
 </code>

et/examples/communication/bluetooth/eunistone.1350902811.txt.gz · Last modified: 2020/07/20 09:00 (external edit)