串口电子秤测试小工具-易语言源码

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 aa, 整数型, , "0"

.子程序 __启动窗口_创建完毕
.局部变量 n, 整数型
.局部变量 sy, 整数型
.局部变量 a, 整数型, , "0"
.局部变量 sy1, 整数型

a ＝ { 1200, 2400, 4800, 9600, 14400, 19200 }
.计次循环首 (8, n)
    端口1.端口号 ＝ n
    .如果真 (端口1.启动 ())
        sy ＝ 组合框1.加入项目 (“COM” ＋ 到文本 (n), )
        组合框1.置项目数值 (sy, n)
        端口1.停止 ()
    .如果真结束
    .如果真 (n ≤ 6)
        sy1 ＝ 组合框2.加入项目 (到文本 (a [n]), )
        组合框2.置项目数值 (sy1, a [n])
    .如果真结束

.计次循环尾 ()
组合框1.现行选中项 ＝ 0
组合框2.现行选中项 ＝ 0

.子程序 _按钮1_被单击
.局部变量 a, 逻辑型

端口1.停止 ()
端口1.端口号 ＝ 组合框1.取项目数值 (组合框1.现行选中项)
端口1.波特率 ＝ 组合框2.取项目数值 (组合框2.现行选中项)
端口1.数据位数 ＝ 到数值 (编辑框1.内容)
端口1.奇偶校验 ＝ 到数值 (编辑框2.内容) ＞ 0
端口1.停止位数 ＝ 到数值 (编辑框3.内容)
a ＝ 端口1.启动 ()
.如果 (a)
    信息框 (“端口启动成功！”, #信息图标, , )
.否则
    信息框 (“端口启动失败！”, #错误图标, , )
.如果结束


.子程序 _端口1_数据到达
.参数 数据字节值, 整数型
.局部变量 n, 整数型
.局部变量 tmp, 文本型, 静态
.局部变量 tmp1, 文本型

.如果真 (数据字节值 ＝ 61)
    aa ＝ {  }
    tmp ＝ “”
.如果真结束
tmp ＝ tmp ＋ 字符 (数据字节值)
.如果真 (取文本长度 (tmp) ＝ 8)
    tmp1 ＝ “”
    .计次循环首 (7, n)
        tmp1 ＝ tmp1 ＋ 取文本中间 (tmp, 9 － n, 1)
    .计次循环尾 ()
    标签6.标题 ＝ “=” ＋ tmp1
    tmp1 ＝ 到文本 (到数值 (tmp1))
    编辑框6.内容 ＝ tmp1
.如果真结束


.子程序 __启动窗口_将被销毁

端口1.停止 ()

源码下载：

此处为隐藏内容，请评论后查看隐藏内容，谢谢！（评论后刷新页面即可）