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

southwolf1813

使用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

复制代码