使用techBASIC直接在iPad上编写SensorTag应用

最近一直比较忙，好多时间都在外面跑，可是已经收了论坛的 SensorTag, 总不能不干活啊…

大家都知道安卓系统是基于linux的，完全可以拿来做一台小电脑来用，甚至可以装个开发编译环境，但是安卓对 BLE 的支持实在是不理想，而iOS虽然对BLE支持很好，但是没有苹果电脑就没法开发程序，怎么办呢?

前不久我找到了一款软件 techBASIC （收费的→_→），可以直接在iPad上开发一些简单的程序，包括BLE程序。对于像我这样有时候不方便开电脑的简直是神器啊…立马咬咬牙狠狠心掏出98大元买了一发。软件长得像这样：

虽然是古董级别的BASIC语言，虽然软件还是很简陋，不过至少满足了我的需求：不开电脑，开发 SensorTag 应用。

语法也比较简单，比如最简单的例子，扫描蓝牙设备并列出名称和RSSI信号强度

1. DIM tag AS BLEPeripheral
   
2. discoveredPeripheral = 0
   
3. BLE.startBLE
   
4. DIM uuid(0) AS STRING
   
5. BLE.startScan(uuid)
   
6. 
   
7. // 回调函数，发现 BLE 从设备时需要进行的操作
   
8. SUB BLEDiscoveredPeripheral(time AS DOUBLE, peripheral AS BLEPeripheral,
   
9. services() AS STRING, advertisements(,) AS STRING, rssi AS SINGLE)
   
10. IF NOT discoveredPeripheral THEN
    
11. discoveredPeripheral = 1
    
12. somePeripheral = peripheral
    
13. PRINT "Device: "; peripheral.bleName

复制代码

看过techBASIC的手册之后，发现这个软件还是能够实现一些基本的BLE应用,比如扫描、连接、查看Service，测量信号强度，控制BLE设备等。

我们来看一个操作 SensorTag LED的程序, 只用了100行左右的代码，实现了一个完整的BLE扫描、连接、Service/Characteristic操作和简单GUI界面，是不是方便多了！

1. // 指定 Test Service 的 UUID
   
2. DIM sensorTag AS BLEPeripheral
   
3. 
   
4. DIM servicesHeader AS STRING, testService AS STRING
   
5. servicesHeader = "-0451-4000-B000-000000000000"
   
6. testService = "F000AA60" & servicesHeader
   
7. 
   
8. // 扫描 BLE 外设
   
9. BLE.startBLE
   
10. DIM uuid(0) AS STRING
    
11. BLE.startScan(uuid)
    
12. DIM testChar AS BLECharacteristic
    
13. 
    
14. DIM LED1 AS Button, LED2 AS Button, quit AS Button
    
15. 
    
16. // 显示界面
    
17. setUpGUI
    
18. 
    
19. // 发现外设的回调函数
    
20. SUB BLEDiscoveredPeripheral (time AS DOUBLE, peripheral AS BLEPeripheral, services() AS STRING, advertisements(,) AS STRING, rssi)
    
21. IF peripheral.bleName = "TI BLE Sensor Tag" THEN
    
22. sensorTag = peripheral
    
23. BLE.connect(sensorTag)
    
24. BLE.stopScan
    
25. PRINT "Discovered SensorTag."
    
26. END IF
    
27. END SUB
    
28. 
    
29. // 查找服务
    
30. SUB BLEPeripheralInfo (time AS DOUBLE, peripheral AS BLEPeripheral, kind AS INTEGER, message AS STRING, err AS LONG)
    
31. IF kind = 1 THEN
    
32. peripheral.discoverServices(uuid)
    
33. ELSE IF kind = 2 OR kind = 3 THEN
    
34. BLE.connect(sensorTag)
    
35. ELSE IF kind = 4 THEN
    
36. DIM availableServices(1) AS BLEService
    
37. availableServices = peripheral.services
    
38. FOR a = 1 TO UBOUND(availableServices, 1)
    
39. IF testService = availableServices(a).uuid THEN
    
40. PRINT "Test Service Found"
    
41. peripheral.discoverCharacteristics(uuid, availableServices(a))
    
42. END IF
    
43. NEXT
    
44. END IF
    
45. END SUB
    
46. 
    
47. // 查找特征值
    
48. SUB BLEServiceInfo (time AS DOUBLE, peripheral AS BLEPeripheral, service AS BLEService, kind AS INTEGER, message AS STRING, err AS LONG)
    
49. IF kind = 1 THEN
    
50. DIM characteristics(1) AS BLECharacteristic
    
51. characteristics = service.characteristics
    
52. FOR i = 1 TO UBOUND(characteristics, 1)
    
53. IF characteristics(i).uuid = ("F000AA62" & servicesHeader) THEN
    
54. PRINT "Test Char Found"
    
55. testChar = characteristics(i)
    
56. DIM value(1) as INTEGER
    
57. value = [$80]
    
58. peripheral.writeCharacteristic(testChar, value, 0)
    
59. END IF
    
60. NEXT
    
61. END IF
    
62. END SUB
    
63. 
    
64. // 设置界面
    
65. SUB setUpGUI
    
66. Graphics.setPixelGraphics(0)
    
67. 
    
68. DIM title AS Label
    
69. title = Graphics.newLabel(20, 20, Graphics.width - 40, 50)
    
70. title.setText("TI Sensor Tag")
    
71. title.setAlignment(2)
    
72. title.setFont("Arial", 36, 1)
    
73. 
    
74. LED1 = Graphics.newButton(Graphics.width / 2 - 200, Graphics.height / 2 - 40)
    
75. LED1.setTitle("LED1")
    
76. LED1.setBackgroundColor(1, 1, 1)
    
77. LED1.setGradientColor(0.6, 0.6, 0.6)
    
78. 
    
79. LED2 = Graphics.newButton(Graphics.width / 2 + 100, Graphics.height / 2 - 40)
    
80. LED2.setTitle("LED2")
    
81. LED2.setBackgroundColor(1, 1, 1)
    
82. LED2.setGradientColor(0.6, 0.6, 0.6)
    
83. 
    
84. quit = Graphics.newButton(Graphics.width - 92, Graphics.height - 57)
    
85. quit.setTitle("Quit")
    
86. quit.setBackgroundColor(1, 1, 1)
    
87. quit.setGradientColor(0.6, 0.6, 0.6)
    
88. 
    
89. System.showGraphics
    
90. END SUB
    
91. 
    
92. // 按键处理
    
93. SUB touchUpInside (ctrl AS Button, time AS DOUBLE)
    
94. IF ctrl = LED1 THEN
    
95. DIM value(1) as INTEGER
    
96. value = [$81]
    
97. sensorTag.writeCharacteristic(testChar, value, 1)
    
98. END IF
    
99. IF ctrl = LED2 THEN
    
100. DIM value(1) as INTEGER
     
101. value = [$82]
     
102. sensorTag.writeCharacteristic(testChar, value, 1)
     
103. END IF
     
104. IF ctrl = quit THEN
     
105. DIM value(1) as INTEGER
     
106. value = [0]
     
107. sensorTag.writeCharacteristic(testChar, value, 1)
     
108. STOP
     
109. END IF
     
110. END SUB

复制代码