Nano 33 BLE Senseをデータ入力に使う＜BLE>⑫外部I2C温度センサTMP107＜BLEセントラル＞

　温度センサ TMP177のBLEペリフェラルを受けるために、BLEのセントラルをmatlabで記述します。

●準備

　TMP177が接続するBLEペリフェラルは、いままでと同じaddress（88A2EDC9F60C）を使って接続に行きます。

clear
scan = blelist("Timeout", 30)
Nano33BLE_address="88A2EDC9F60C"; % scanで見つかったアドレスを代入
b = ble(Nano33BLE_address);

●プログラム

　10回測定します。

　実数でデータが送られてきます。hex2numS()ファンクションで、IEEE754のフォーマットで送られてくるデータを実数に戻します。


clear
scan = blelist("Timeout", 20);
Nano33BLE_address="88A2EDC9F60C";  % scanで見つかったアドレスを代入
b = ble(Nano33BLE_address);

% TMP117

ServiceUUID    = "F000AA30-0451-4000-B000-000000000000";
TMP117_Temp_UUID       = "F000AA31-0451-4000-B000-000000000000";

g11 = characteristic(b, ServiceUUID, TMP117_Temp_UUID); % 配列
subscribe(g11);  % Notify

for i=1:10
    Temperature = hex2numS(flip(read(g11))); % little endian->big endian
    fprintf('\n Temperature is %.4f ', Temperature);
    pause(2)
end

unsubscribe(g11);
clear b


function  shortF = hex2numS(decimal4)  % IEE754の単精度浮動小数点数の形式：binary32
    dataBig = strcat(num2str(dec2bin( decimal4(1),8)),num2str(dec2bin( decimal4(2),8)) ...
                  ,num2str(dec2bin( decimal4(3),8)),num2str(dec2bin( decimal4(1),8)));
    sign = (-1)^str2num(dataBig(1));        % 符号
    exponentBit = dataBig(2:1:9);
    fractionBit = ("1" + dataBig(10:1:end));
    fraction = bin2dec(fractionBit)/(2^23) ;          % 仮数
    exponent = 2 ^ (bin2dec(exponentBit) -127) ;      % 指数

    shortF = sign * fraction * exponent;
end

　実行結果です。