BLEモジュールの BL600 を使って、 Eddystone 対応のビーコンを作ってみる

Laird Technology社製のBLEモジュール BL600-SAを搭載した『FRISKケースに入るBL600基板 REBL600FR』を使って、Eddystone対応のビーコンを作ってみた。

本サンプルプログラムは、Eddystone UID,URL,TLMの３つの信号を交互に送信するプログラムにしてあります。

このモジュールは、SmartBASICで記述でき、UART経由でモジュールにプログラムを転送できるので、ちょっとした実験には向いています。

\$autorun$.eddystone.Firmware.sb

' BL600用 Eddystoneサンプルアプリ
' Programed by Kazuyuki Eguchi

 DIM rc AS INTEGER
 DIM txpower AS INTEGER : txpower = 4

 DIM addr$ : addr$="" 
 DIM advRpt$
 DIM scnRpt$ : scnRpt$=""  
 DIM adElmnt$ : adElmnt$="\aa\fe"
 DIM devname$ : devname$=""

 DIM flag AS INTEGER : flag = 0
 DIM adv AS INTEGER : adv = 0
 DIM tim AS INTEGER : tim = 0

 FUNCTION HandlerTimer0()
    IF flag == 0 THEN
        IF BleAdvertStop()==0 THEN
        ENDIF

        // Eddystone UID
        DIM adElmnt1$ : adElmnt1$="\aa\fe\00\00\00\01\02\03\04\05\06\07\08\09\0a\0b\0c\0d\0e\0f"

        DIM power1 AS INTEGER : power1 = SYSINFO(2008)

        IF power1 < 0 THEN
            power1 = 256 + power1
        ENDIF

        rc = StrSetChr(adElmnt1$,power1 & 0xff,3)

        rc = BleAdvRptInit(advRpt$, 2, 0, 0) 
        rc = BleAdvRptAppendAD(advRpt$,0x03,adElmnt$)
        rc = BleAdvRptAppendAD(advRpt$,0x16,adElmnt1$)
        rc = BleScanRptInit(scnRpt$)
        rc = BleAdvRptAppendAD(scnRpt$,0x09,devname$)
        rc = BleAdvRptsCommit(advRpt$,scnRpt$)

        IF BleAdvertStart(3,addr$,500,0,0)==0 THEN
        ELSE
        ENDIF

    ELSEIF flag == 2 THEN
        IF BleAdvertStop()==0 THEN
        ENDIF

        // Eddystone URL
        DIM adElmnt2$ : adElmnt2$="\aa\fe\10\00\02eguchi.jp"

        DIM power2 AS INTEGER : power2 = SYSINFO(2008)

        IF power2 < 0 THEN
            power2 = 256 + power2
        ENDIF

        rc = StrSetChr(adElmnt2$,power2 & 0xff,3)

        rc = BleAdvRptInit(advRpt$, 2, 0, 0) 
        rc = BleAdvRptAppendAD(advRpt$,0x03,adElmnt$)
        rc = BleAdvRptAppendAD(advRpt$,0x16,adElmnt2$)
        rc = BleScanRptInit(scnRpt$)
        rc = BleAdvRptAppendAD(scnRpt$,0x09,devname$)
        rc = BleAdvRptsCommit(advRpt$,scnRpt$)

        IF BleAdvertStart(3,addr$,500,0,0)==0 THEN
        ELSE
        ENDIF

    ELSEIF flag == 5 THEN
        IF BleAdvertStop()==0 THEN
        ENDIF

        // Eddystone TLM
        adv = adv + 10
        tim = tim + 50

        DIM adElmnt3$ : adElmnt3$="\aa\fe\20\00\01\00\02\00\00\00\00\00\00\00\00\00"
        DIM temp : temp = 0
        DIM vol : vol = 3000 // mv

        rc = StrSetChr(adElmnt3$,(vol & 0xff),5)
        rc = StrSetChr(adElmnt3$,((vol >> 8) & 0xff),4)

        rc = StrSetChr(adElmnt3$,(temp & 0xff),7)
        rc = StrSetChr(adElmnt3$,((temp >> 8) & 0xff),6)

        rc = StrSetChr(adElmnt3$,(adv & 0xff),11)
        rc = StrSetChr(adElmnt3$,((adv >> 8) & 0xff),10)
        rc = StrSetChr(adElmnt3$,((adv >> 16) & 0xff),9)
        rc = StrSetChr(adElmnt3$,((adv >> 24) & 0xff),8)

        rc = StrSetChr(adElmnt3$,(tim & 0xff),15)
        rc = StrSetChr(adElmnt3$,((tim >> 8) & 0xff),14)
        rc = StrSetChr(adElmnt3$,((tim >> 16) & 0xff),13)
        rc = StrSetChr(adElmnt3$,((tim >> 24) & 0xff),12)

        rc = BleAdvRptInit(advRpt$, 2, 0, 0) 
        rc = BleAdvRptAppendAD(advRpt$,0x03,adElmnt$)
        rc = BleAdvRptAppendAD(advRpt$,0x16,adElmnt3$)
        rc = BleScanRptInit(scnRpt$)
        rc = BleAdvRptAppendAD(scnRpt$,0x09,devname$)
        rc = BleAdvRptsCommit(advRpt$,scnRpt$)

        IF BleAdvertStart(3,addr$,500,0,0)==0 THEN
        ELSE
        ENDIF

    ENDIF

    flag = flag + 1

    IF flag > 5 THEN
        flag = 0
    ENDIF
 ENDFUNC 1 

 ONEVENT    EVTMR0  CALL    HandlerTimer0 

 rc = BleTxPowerSet(txpower)

 TimerStart(0,1000,1)

 PRINT "\nWaiting for Timer 0\n" 

 WAITEVENT 

動作させると、公式のサンプルアプリには、このように見えます。