【案例】基于树莓派Pico扩展板实时采集土壤湿度情况

悦妃云 · 发表于 2021-11-18 15:49:52

本帖最后由 A10086123 于 2021-11-18 15:51 编辑

本源码基于之前开源的易语言控制硬件树莓派Pico扩展板编写： https://bbs.125.la/forum.php?mod=viewthread&tid=14706611

某宝买的土壤湿度传感器很便宜, 可以检测土壤湿度情况用来做浇花神器之类的东西

不知道为啥上传 e 格式的源代码老提示没有合法的文件被上传, 就直接贴代码了吧

源代码

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
集_读写许可证	整数型
集_IO缓冲区	整数型	0

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

集_读写许可证＝创建进入许可证 ()
端口1.端口号＝ 6 ' COM6
端口1.波特率＝ 115200

如果真 (端口1.启动 () ＝假)

信息框 (“打开串口失败”, 0, , )

结束 ()
端口1.发送数据 (ADC_初始化GPIO (26))

子程序名	返回值类型	公开	备注
ADC_初始化GPIO	文本型
参数名	类型	参考	可空	数组	备注
IO	整数型

变量名	类型	静态	数组	备注
Json	类_json

Json.置属性 (“type”, “IO-SET”)
Json.置属性 (“mode”, “adc”)
Json.置属性数值 (“channel”, IO)
返回 (Json.取数据文本 ())

子程序名	返回值类型	公开	备注
ADC_读取值	文本型
参数名	类型	参考	可空	数组	备注
IO	整数型

变量名	类型	静态	数组	备注
Json	类_json

Json.置属性 (“type”, “ADC-READ”)
Json.置属性数值 (“channel”, IO)
返回 (Json.取数据文本 ())

子程序名	返回值类型	公开	备注
_时钟1_周期事件

变量名	类型	静态	数组	备注
Json	类_json
Range	双精度小数型
Temp	双精度小数型

端口_清空接收缓冲区 ()
端口1.发送数据 (ADC_读取值 (26))
程序_延时 (200)

如果真 (Json.解析 (到文本 (字节集_十六进制到字节集 (端口_读数据 ()))))

Range ＝ 65535 － 23000

Temp ＝ Json.取属性数值 (“value”) － 23000

Temp ＝ Temp ÷ Range

Temp ＝ Temp × 100

Temp ＝ 100 － Temp

Temp ＝选择 (Temp ＞ 100, 100, 选择 (Temp ＜ 0, 0, Temp))

标签1.标题＝ “土壤湿度: ” ＋到文本 (四舍五入 (Temp, 2)) ＋ “%”

子程序名	返回值类型	公开	备注
_端口1_数据到达
参数名	类型	参考	可空	数组	备注
数据字节值	整数型

进入许可区 (集_读写许可证)
加入成员 (集_IO缓冲区, 数据字节值)
退出许可区 (集_读写许可证)

子程序名	返回值类型	公开	备注
端口_清空接收缓冲区

进入许可区 (集_读写许可证)
清除数组 (集_IO缓冲区)
退出许可区 (集_读写许可证)

子程序名	返回值类型	公开	备注
端口_读数据	文本型
参数名	类型	参考	可空	数组	备注
读取的字节数量	整数型				为 0 读取全部数据
读取超时时间	整数型				毫秒,默认 1000ms
附加分隔符号	逻辑型

变量名	类型	静态	数组	备注
局_启动	整数型
局_IO	整数型		0
局_数量	整数型
局_计次	整数型
局_数据	文本型

如果真 (是否为空 (读取超时时间))

读取超时时间＝ 1000

如果 (读取的字节数量 ≤ 0)

进入许可区 (集_读写许可证)

局_IO ＝集_IO缓冲区

清除数组 (集_IO缓冲区)

局_启动＝取启动时间 ()

判断循环首 (取数组成员数 (集_IO缓冲区) ＜读取的字节数量)

程序_延时 (8)

如果真 (取启动时间 () －局_启动 ≥ 读取超时时间)

跳出循环 ()

判断循环尾 ()

进入许可区 (集_读写许可证)

局_数量＝选择 (取数组成员数 (集_IO缓冲区) ≥ 读取的字节数量, 读取的字节数量, 取数组成员数 (集_IO缓冲区))

计次循环首 (局_数量, 局_计次)

加入成员 (局_IO, 集_IO缓冲区 [局_计次])

计次循环尾 ()

计次循环首 (局_数量, 局_计次)

删除成员 (集_IO缓冲区, 1, 1)

计次循环尾 ()
退出许可区 (集_读写许可证)
局_数量＝取数组成员数 (局_IO)

计次循环首 (局_数量, 局_计次)

局_数据＝局_数据＋选择 (局_数据＝ “”, “”, 选择 (附加分隔符号＝真, “ ”, “”)) ＋选择 (局_IO [局_计次] ＜ 16, “0”, “”) ＋选择 (局_IO [局_计次] ＝ 0, “0”, 进制_十到十六 (局_IO [局_计次]))

计次循环尾 ()
返回 (到大写 (局_数据))

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br />
.支持库 EThread<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 集_读写许可证, 整数型<br />
.程序集变量 集_IO缓冲区, 整数型, , "0"<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
集_读写许可证 ＝ 创建进入许可证 ()<br />
端口1.端口号 ＝ 6  ' COM6<br />
端口1.波特率 ＝ 115200<br />
.如果真 (端口1.启动 () ＝ 假)<br />
    信息框 (“打开串口失败”, 0, , )<br />
    结束 ()<br />
.如果真结束<br />
端口1.发送数据 (ADC_初始化GPIO (26))<br />
<br />
<br />
.子程序 ADC_初始化GPIO, 文本型<br />
.参数 IO, 整数型<br />
.局部变量 Json, 类_json<br />
<br />
Json.置属性 (“type”, “IO-SET”)<br />
Json.置属性 (“mode”, “adc”)<br />
Json.置属性数值 (“channel”, IO)<br />
返回 (Json.取数据文本 ())<br />
<br />
<br />
.子程序 ADC_读取值, 文本型<br />
.参数 IO, 整数型<br />
.局部变量 Json, 类_json<br />
<br />
Json.置属性 (“type”, “ADC-READ”)<br />
Json.置属性数值 (“channel”, IO)<br />
返回 (Json.取数据文本 ())<br />
<br />
<br />
.子程序 _时钟1_周期事件<br />
.局部变量 Json, 类_json<br />
.局部变量 Range, 双精度小数型<br />
.局部变量 Temp, 双精度小数型<br />
<br />
端口_清空接收缓冲区 ()<br />
端口1.发送数据 (ADC_读取值 (26))<br />
程序_延时 (200)<br />
.如果真 (Json.解析 (到文本 (字节集_十六进制到字节集 (端口_读数据 ()))))<br />
    Range ＝ 65535 － 23000<br />
    Temp ＝ Json.取属性数值 (“value”) － 23000<br />
    Temp ＝ Temp ÷ Range<br />
    Temp ＝ Temp × 100<br />
    Temp ＝ 100 － Temp<br />
    Temp ＝ 选择 (Temp ＞ 100, 100, 选择 (Temp ＜ 0, 0, Temp))<br />
    标签1.标题 ＝ “土壤湿度: ” ＋ 到文本 (四舍五入 (Temp, 2)) ＋ “%”<br />
.如果真结束<br />
<br />
<br />
.子程序 _端口1_数据到达<br />
.参数 数据字节值, 整数型<br />
<br />
进入许可区 (集_读写许可证)<br />
加入成员 (集_IO缓冲区, 数据字节值)<br />
退出许可区 (集_读写许可证)<br />
<br />
<br />
.子程序 端口_清空接收缓冲区<br />
<br />
进入许可区 (集_读写许可证)<br />
清除数组 (集_IO缓冲区)<br />
退出许可区 (集_读写许可证)<br />
<br />
<br />
.子程序 端口_读数据, 文本型<br />
.参数 读取的字节数量, 整数型, 可空, 为 0 读取全部数据<br />
.参数 读取超时时间, 整数型, 可空, 毫秒,默认 1000ms<br />
.参数 附加分隔符号, 逻辑型, 可空<br />
.局部变量 局_启动, 整数型<br />
.局部变量 局_IO, 整数型, , "0"<br />
.局部变量 局_数量, 整数型<br />
.局部变量 局_计次, 整数型<br />
.局部变量 局_数据, 文本型<br />
<br />
.如果真 (是否为空 (读取超时时间))<br />
    读取超时时间 ＝ 1000<br />
.如果真结束<br />
.如果 (读取的字节数量 ≤ 0)<br />
    进入许可区 (集_读写许可证)<br />
    局_IO ＝ 集_IO缓冲区<br />
    清除数组 (集_IO缓冲区)<br />
.否则<br />
    局_启动 ＝ 取启动时间 ()<br />
    .判断循环首 (取数组成员数 (集_IO缓冲区) ＜ 读取的字节数量)<br />
        程序_延时 (8)<br />
        .如果真 (取启动时间 () － 局_启动 ≥ 读取超时时间)<br />
            跳出循环 ()<br />
        .如果真结束<br />
<br />
    .判断循环尾 ()<br />
    进入许可区 (集_读写许可证)<br />
    局_数量 ＝ 选择 (取数组成员数 (集_IO缓冲区) ≥ 读取的字节数量, 读取的字节数量, 取数组成员数 (集_IO缓冲区))<br />
    .计次循环首 (局_数量, 局_计次)<br />
        加入成员 (局_IO, 集_IO缓冲区 [局_计次])<br />
    .计次循环尾 ()<br />
    .计次循环首 (局_数量, 局_计次)<br />
        删除成员 (集_IO缓冲区, 1, 1)<br />
    .计次循环尾 ()<br />
.如果结束<br />
退出许可区 (集_读写许可证)<br />
局_数量 ＝ 取数组成员数 (局_IO)<br />
.计次循环首 (局_数量, 局_计次)<br />
    局_数据 ＝ 局_数据 ＋ 选择 (局_数据 ＝ “”, “”, 选择 (附加分隔符号 ＝ 真, “ ”, “”)) ＋ 选择 (局_IO [局_计次] ＜ 16, “0”, “”) ＋ 选择 (局_IO [局_计次] ＝ 0, “0”, 进制_十到十六 (局_IO [局_计次]))<br />
.计次循环尾 ()<br />
返回 (到大写 (局_数据))