串口调试工具

w793586737

*有学习串口调试工具的同学这有源码分享！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
循环	逻辑型
按钮	整数型
数据	字节集

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

变量名	类 型	静态	数组	备 注
a	整数型
b	整数型
C	文本型		0
常用	文本型
d	整数型

加载皮肤 (10)
计次循环首 (20, a)
调试_组合框.加入项目 (“COM” ＋ 到文本 (a), )
计次循环尾 ()
调试_组合框.现行选中项 ＝ 0
调试波特率组合框.现行选中项 ＝ 1
调试奇偶校验组合框.现行选中项 ＝ 0
调试数据位数组合框.现行选中项 ＝ 2
调试停止位组合框.现行选中项 ＝ 0
组合框1.现行选中项 ＝ 1
如果真 (文件是否存在 (取运行目录 () ＋ “\pei.ini”) ＝ 假)
写配置项 (取运行目录 () ＋ “\pei.ini”, “设置”, “常用”, “FFFFFF,”)
常用 ＝ 读配置项 (取运行目录 () ＋ “\pei.ini”, “设置”, “常用”, )
C ＝ 分割文本 (常用, “,”, )
计次循环首 (取数组成员数 (C), d)
如果真 (C [d] ≠ “”)
列表框1.加入项目 (C [d], )

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_位图按钮2_被单击

编辑框1.内容 ＝ “”

子程序名	返回值类型	公开	备 注
_调试设置测试按钮_被单击

按钮 ＝ 按钮 ＋ 1
如果 (按钮 ％ 2 ＝ 1)
调试输出 (按钮)
端口1.端口号 ＝ 调试_组合框.现行选中项 ＋ 1
端口1.波特率 ＝ 到整数 (调试波特率组合框.取项目文本 (调试波特率组合框.现行选中项))
如果 (调试奇偶校验组合框.现行选中项 ＝ 0)
端口1.奇偶校验 ＝ 假
端口1.奇偶校验 ＝ 真
端口1.数据位数 ＝ 到整数 (调试数据位数组合框.取项目文本 (调试数据位数组合框.现行选中项))
端口1.停止位数 ＝ 到整数 (调试停止位组合框.取项目文本 (调试停止位组合框.现行选中项))
端口1.等待时间 ＝ 50
如果 (端口1.启动 ())
连续赋值 (真, 调试_组合框.禁止, 调试波特率组合框.禁止, 调试奇偶校验组合框.禁止, 调试数据位数组合框.禁止, 调试停止位组合框.禁止)
调试设置测试按钮.标题 ＝ “停     止”
状态条1.置文本 (1, 到文本 (取现行时间 ()) ＋ “ COM” ＋ 到文本 (调试_组合框.现行选中项 ＋ 1) ＋ “ 连接成功！”)
状态条1.置文本 (6, “COM：” ＋ 到文本 (调试_组合框.现行选中项 ＋ 1))
状态条1.置图片 (6, 8)
连接 ＝ 真
端口1.停止 ()
调试设置测试按钮.标题 ＝ “连     接”
状态条1.置文本 (1, 到文本 (取现行时间 ()) ＋ “ COM” ＋ 到文本 (调试_组合框.现行选中项 ＋ 1) ＋ “ 连接失败！”)
状态条1.置文本 (6, “COM：?”)
状态条1.置图片 (6, 7)
连接 ＝ 假
按钮 ＝ 0

连续赋值 (假, 调试_组合框.禁止, 调试波特率组合框.禁止, 调试奇偶校验组合框.禁止, 调试数据位数组合框.禁止, 调试停止位组合框.禁止)
调试设置测试按钮.标题 ＝ “连     接”
连接 ＝ 假
端口1.停止 ()
状态条1.置文本 (1, 到文本 (取现行时间 ()) ＋ “ COM” ＋ 到文本 (调试_组合框.现行选中项 ＋ 1) ＋ “ 已断开！”)
状态条1.置文本 (6, “COM：?”)
状态条1.置图片 (6, 7)
连接 ＝ 假
按钮 ＝ 0

子程序名	返回值类型	公开	备 注
发送	逻辑型
参数名	类 型	参考	可空	数组	备 注
内容	文本型

变量名	类 型	静态	数组	备 注
数据位	文本型

如果 (连接 ＝ 真)
如果 (内容 ≠ “”)
数据位 ＝ 内容
如果 (选择框2.选中 ＝ 真)
如果真 (端口1.发送数据 (十六进制到字节集 (数据位)))
状态条1.置文本 (5, 到文本 (到整数 (状态条1.取文本 (5)) ＋ 取文本长度 (数据位)))

如果真 (端口1.发送数据 (数据位))
状态条1.置文本 (5, 到文本 (到整数 (状态条1.取文本 (5)) ＋ 取字节集长度 (到字节集 (数据位))))


信息框 (“请输入发送内容！”, #询问图标, , )
编辑框2.获取焦点 ()
返回 (假)

信息框 (“请先连接端口！”, #询问图标, , )
返回 (假)
返回 (真)

子程序名	返回值类型	公开	备 注
_选择框3_被单击

如果 (选择框3.选中 ＝ 真)
如果真 (连接 ＝ 假)
选择框3.选中 ＝ 假
信息框 (“请先连接端口！”, #询问图标, , )
返回 ()
如果真 (编辑框2.内容 ＝ “”)
选择框3.选中 ＝ 假
编辑框2.获取焦点 ()
提示框 (“不能将 空 的命令发出！”)
返回 ()
时钟1.时钟周期 ＝ 到整数 (组合框1.取项目文本 (组合框1.现行选中项))
循环 ＝ 真
循环 ＝ 假

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

变量名	类 型	静态	数组	备 注
数据1	文本型

如果真 (循环 ＝ 真)
数据1 ＝ 编辑框2.内容
如果 (选择框2.选中 ＝ 真)
如果真 (端口1.发送数据 (十六进制到字节集 (数据1)))
状态条1.置文本 (5, 到文本 (到整数 (状态条1.取文本 (5)) ＋ 取文本长度 (数据1)))

如果真 (端口1.发送数据 (数据1))
状态条1.置文本 (5, 到文本 (到整数 (状态条1.取文本 (5)) ＋ 取字节集长度 (到字节集 (数据1))))

子程序名	返回值类型	公开	备 注
_组合框1_列表项被选择

时钟1.时钟周期 ＝ 到整数 (组合框1.取项目文本 (组合框1.现行选中项))

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

端口1.停止 ()
端口1.销毁 ()

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

数据 ＝ 数据 ＋ 取字节集左边 (到字节集 (数据字节值), 1)
如果 (选择框1.选中 ＝ 真)
编辑框1.加入文本 (字节集到十六进制 (数据) ＋ “ ”)
状态条1.置文本 (3, 到文本 (取文本长度 (字节集到十六进制 (数据)) ＋ 到整数 (状态条1.取文本 (3))))

编辑框1.加入文本 (字节集_到文本 (数据) ＋ “ ”)
状态条1.置文本 (3, 到文本 (取字节集长度 (数据) ＋ 到整数 (状态条1.取文本 (3))))

数据 ＝ {  }

子程序名	返回值类型	公开	备 注
_列表框1_鼠标右键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

弹出菜单 (设置, 取鼠标水平位置 (), 取鼠标垂直位置 ())

子程序名	返回值类型	公开	备 注
_清空_被选择

列表框1.清空 ()
写配置项 (取运行目录 () ＋ “\pei.ini”, “设置”, “常用”, “FFFFFF,”)

子程序名	返回值类型	公开	备 注
_列表框1_双击选择

变量名	类 型	静态	数组	备 注
指令	文本型

指令 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
如果真 (发送 (指令) ＝ 真)
状态条1.置文本 (1, 到文本 (取现行时间 ()) ＋ “|快捷发送指令：” ＋ 指令)

子程序名	返回值类型	公开	备 注
_调试设置测试按钮1_被单击

编辑框1.内容 ＝ “”

子程序名	返回值类型	公开	备 注
_调试设置测试按钮2_被单击

发送 (编辑框2.内容)

子程序名	返回值类型	公开	备 注
_调试设置测试按钮3_被单击

如果 (编辑框3.内容 ≠ “”)
列表框1.加入项目 (编辑框3.内容, )
状态条1.置文本 (1, “添加命令：” ＋ 编辑框3.内容 ＋ “  成功！”)
写配置项 (取运行目录 () ＋ “\pei.ini”, “设置”, “常用”, 读配置项 (取运行目录 () ＋ “\pei.ini”, “设置”, “常用”, ) ＋ “,” ＋ 删首尾空 (编辑框3.内容))
提示框 (“请输入添加命令”)

子程序名	返回值类型	公开	备 注
_组合框1_编辑内容被改变

如果 (文本_是否为数字 (组合框1.内容))
时钟1.时钟周期 ＝ 到整数 (组合框1.内容)
组合框1.现行选中项 ＝ 1
信息框 (“请输入数字！”, #警告图标, , )

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 循环, 逻辑型<br /> .程序集变量 按钮, 整数型<br /> .程序集变量 数据, 字节集<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 C, 文本型, , "0"<br /> .局部变量 常用, 文本型<br /> .局部变量 d, 整数型<br /> <br /> 加载皮肤 (10)<br /> <br /> .计次循环首 (20, a)<br />     调试_组合框.加入项目 (“COM” ＋ 到文本 (a), )<br /> .计次循环尾 ()<br /> 调试_组合框.现行选中项 ＝ 0<br /> 调试波特率组合框.现行选中项 ＝ 1<br /> 调试奇偶校验组合框.现行选中项 ＝ 0<br /> 调试数据位数组合框.现行选中项 ＝ 2<br /> 调试停止位组合框.现行选中项 ＝ 0<br /> 组合框1.现行选中项 ＝ 1<br /> .如果真 (文件是否存在 (取运行目录 () ＋ “\pei.ini”) ＝ 假)<br />     写配置项 (取运行目录 () ＋ “\pei.ini”, “设置”, “常用”, “FFFFFF,”)<br /> .如果真结束<br /> 常用 ＝ 读配置项 (取运行目录 () ＋ “\pei.ini”, “设置”, “常用”, )<br /> C ＝ 分割文本 (常用, “,”, )<br /> .计次循环首 (取数组成员数 (C), d)<br />     .如果真 (C [d] ≠ “”)<br />         列表框1.加入项目 (C [d], )<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 _位图按钮2_被单击<br /> <br /> 编辑框1.内容 ＝ “”<br /> <br /> .子程序 _调试设置测试按钮_被单击<br /> <br /> 按钮 ＝ 按钮 ＋ 1<br /> .如果 (按钮 ％ 2 ＝ 1)<br />     调试输出 (按钮)<br />     端口1.端口号 ＝ 调试_组合框.现行选中项 ＋ 1<br />     端口1.波特率 ＝ 到整数 (调试波特率组合框.取项目文本 (调试波特率组合框.现行选中项))<br />     .如果 (调试奇偶校验组合框.现行选中项 ＝ 0)<br />         端口1.奇偶校验 ＝ 假<br />     .否则<br />         端口1.奇偶校验 ＝ 真<br />     .如果结束<br />     端口1.数据位数 ＝ 到整数 (调试数据位数组合框.取项目文本 (调试数据位数组合框.现行选中项))<br />     端口1.停止位数 ＝ 到整数 (调试停止位组合框.取项目文本 (调试停止位组合框.现行选中项))<br />     端口1.等待时间 ＝ 50<br />     .如果 (端口1.启动 ())<br />         连续赋值 (真, 调试_组合框.禁止, 调试波特率组合框.禁止, 调试奇偶校验组合框.禁止, 调试数据位数组合框.禁止, 调试停止位组合框.禁止)<br />         调试设置测试按钮.标题 ＝ “停     止”<br />         状态条1.置文本 (1, 到文本 (取现行时间 ()) ＋ “ COM” ＋ 到文本 (调试_组合框.现行选中项 ＋ 1) ＋ “ 连接成功！”)<br />         状态条1.置文本 (6, “COM：” ＋ 到文本 (调试_组合框.现行选中项 ＋ 1))<br />         状态条1.置图片 (6, 8)<br />         连接 ＝ 真<br />     .否则<br />         端口1.停止 ()<br />         调试设置测试按钮.标题 ＝ “连     接”<br />         状态条1.置文本 (1, 到文本 (取现行时间 ()) ＋ “ COM” ＋ 到文本 (调试_组合框.现行选中项 ＋ 1) ＋ “ 连接失败！”)<br />         状态条1.置文本 (6, “COM：?”)<br />         状态条1.置图片 (6, 7)<br />         连接 ＝ 假<br />         按钮 ＝ 0<br />     .如果结束<br /> <br /> .否则<br />     连续赋值 (假, 调试_组合框.禁止, 调试波特率组合框.禁止, 调试奇偶校验组合框.禁止, 调试数据位数组合框.禁止, 调试停止位组合框.禁止)<br />     调试设置测试按钮.标题 ＝ “连     接”<br />     连接 ＝ 假<br />     端口1.停止 ()<br />     状态条1.置文本 (1, 到文本 (取现行时间 ()) ＋ “ COM” ＋ 到文本 (调试_组合框.现行选中项 ＋ 1) ＋ “ 已断开！”)<br />     状态条1.置文本 (6, “COM：?”)<br />     状态条1.置图片 (6, 7)<br />     连接 ＝ 假<br />     按钮 ＝ 0<br /> <br /> .如果结束<br /> <br /> <br /> <br /> .子程序 发送, 逻辑型<br /> .参数 内容, 文本型<br /> .局部变量 数据位, 文本型<br /> <br /> .如果 (连接 ＝ 真)<br />     .如果 (内容 ≠ “”)<br />         数据位 ＝ 内容<br />         .如果 (选择框2.选中 ＝ 真)<br />             .如果真 (端口1.发送数据 (十六进制到字节集 (数据位)))<br />                 状态条1.置文本 (5, 到文本 (到整数 (状态条1.取文本 (5)) ＋ 取文本长度 (数据位)))<br />             .如果真结束<br /> <br />         .否则<br />             .如果真 (端口1.发送数据 (数据位))<br />                 状态条1.置文本 (5, 到文本 (到整数 (状态条1.取文本 (5)) ＋ 取字节集长度 (到字节集 (数据位))))<br />             .如果真结束<br /> <br /> <br />         .如果结束<br /> <br />     .否则<br />         信息框 (“请输入发送内容！”, #询问图标, , )<br />         编辑框2.获取焦点 ()<br />         返回 (假)<br /> <br />     .如果结束<br /> <br /> .否则<br />     信息框 (“请先连接端口！”, #询问图标, , )<br />     返回 (假)<br /> .如果结束<br /> 返回 (真)<br /> <br /> <br /> <br /> .子程序 _选择框3_被单击<br /> <br /> <br /> .如果 (选择框3.选中 ＝ 真)<br />     .如果真 (连接 ＝ 假)<br />         选择框3.选中 ＝ 假<br />         信息框 (“请先连接端口！”, #询问图标, , )<br /> <br />         返回 ()<br />     .如果真结束<br />     .如果真 (编辑框2.内容 ＝ “”)<br />         选择框3.选中 ＝ 假<br />         编辑框2.获取焦点 ()<br />         提示框 (“不能将 空 的命令发出！”)<br />         返回 ()<br />     .如果真结束<br />     时钟1.时钟周期 ＝ 到整数 (组合框1.取项目文本 (组合框1.现行选中项))<br />     循环 ＝ 真<br /> .否则<br />     循环 ＝ 假<br /> .如果结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 数据1, 文本型<br /> <br /> <br /> .如果真 (循环 ＝ 真)<br />     数据1 ＝ 编辑框2.内容<br />     .如果 (选择框2.选中 ＝ 真)<br />         .如果真 (端口1.发送数据 (十六进制到字节集 (数据1)))<br />             状态条1.置文本 (5, 到文本 (到整数 (状态条1.取文本 (5)) ＋ 取文本长度 (数据1)))<br />         .如果真结束<br /> <br />     .否则<br />         .如果真 (端口1.发送数据 (数据1))<br />             状态条1.置文本 (5, 到文本 (到整数 (状态条1.取文本 (5)) ＋ 取字节集长度 (到字节集 (数据1))))<br />         .如果真结束<br /> <br /> <br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _组合框1_列表项被选择<br /> <br /> 时钟1.时钟周期 ＝ 到整数 (组合框1.取项目文本 (组合框1.现行选中项))<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 端口1.停止 ()<br /> 端口1.销毁 ()<br /> <br /> <br /> .子程序 _端口1_数据到达<br /> .参数 数据字节值, 整数型<br /> <br /> 数据 ＝ 数据 ＋ 取字节集左边 (到字节集 (数据字节值), 1)<br /> .如果 (选择框1.选中 ＝ 真)<br />     编辑框1.加入文本 (字节集到十六进制 (数据) ＋ “ ”)<br />     状态条1.置文本 (3, 到文本 (取文本长度 (字节集到十六进制 (数据)) ＋ 到整数 (状态条1.取文本 (3))))<br /> <br /> .否则<br />     编辑框1.加入文本 (字节集_到文本 (数据) ＋ “ ”)<br />     状态条1.置文本 (3, 到文本 (取字节集长度 (数据) ＋ 到整数 (状态条1.取文本 (3))))<br /> .如果结束<br /> <br /> <br /> 数据 ＝ {  }<br /> <br /> <br /> .子程序 _列表框1_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 弹出菜单 (设置, 取鼠标水平位置 (), 取鼠标垂直位置 ())<br /> <br /> .子程序 _清空_被选择<br /> <br /> 列表框1.清空 ()<br /> 写配置项 (取运行目录 () ＋ “\pei.ini”, “设置”, “常用”, “FFFFFF,”)<br /> <br /> <br /> .子程序 _列表框1_双击选择<br /> .局部变量 指令, 文本型<br /> <br /> 指令 ＝ 列表框1.取项目文本 (列表框1.现行选中项)<br /> .如果真 (发送 (指令) ＝ 真)<br />     状态条1.置文本 (1, 到文本 (取现行时间 ()) ＋ “|快捷发送指令：” ＋ 指令)<br /> .如果真结束<br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 _调试设置测试按钮1_被单击<br /> <br /> 编辑框1.内容 ＝ “”<br /> <br /> .子程序 _调试设置测试按钮2_被单击<br /> <br /> 发送 (编辑框2.内容)<br /> <br /> .子程序 _调试设置测试按钮3_被单击<br /> <br /> .如果 (编辑框3.内容 ≠ “”)<br />     列表框1.加入项目 (编辑框3.内容, )<br />     状态条1.置文本 (1, “添加命令：” ＋ 编辑框3.内容 ＋ “  成功！”)<br />     写配置项 (取运行目录 () ＋ “\pei.ini”, “设置”, “常用”, 读配置项 (取运行目录 () ＋ “\pei.ini”, “设置”, “常用”, ) ＋ “,” ＋ 删首尾空 (编辑框3.内容))<br /> .否则<br />     提示框 (“请输入添加命令”)<br /> <br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _组合框1_编辑内容被改变<br /> <br /> <br /> .如果 (文本_是否为数字 (组合框1.内容))<br />     时钟1.时钟周期 ＝ 到整数 (组合框1.内容)<br /> .否则<br />     组合框1.现行选中项 ＝ 1<br />     信息框 (“请输入数字！”, #警告图标, , )<br /> <br /> .如果结束

网络注册网员

支持开源

sinewtec

看着有点眼熟

jysoft2022

谢谢分享

leiwawa001

谢谢分享，

♂隐

这个干啥用的？

韩小曦

感谢分享！

kyo9766

可以学习串口操作，感谢分享

深圳梦

感谢分享，很给力！~

happyweeks365

666666666666666