求助

小马大大

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
端口号码	整数型
波特率	整数型
数据位	整数型
校验位	文本型
停止位	小数型
发送数据内容	文本型
配置文件内容	文本型
配置文件地址	文本型
文本	文本型		写配置文件用

子程序名	返回值类型	公开	备 注
_组合框_端口_鼠标左键被按下	逻辑型		判断存在的端口
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
a	整数型

计次循环首 (组合框_端口.取项目数 (), a)
组合框_端口.删除项目 (0)
计次循环尾 ()
端口号码 ＝ 0
计次循环首 (15, a)
端口号码 ＝ 端口号码 ＋ 1
端口1.端口号 ＝ 端口号码
如果真 (端口1.启动 () ＝ 真)
组合框_端口.加入项目 (“COM” ＋ 到文本 (端口号码), )
组合框_端口.置项目数值 (a, 端口号码)

计次循环尾 ()
如果真 (组合框_端口.现行选中项 ＝ -1)
组合框_端口.现行选中项 ＝ 0

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

组合框_波特.现行选中项 ＝ 3
组合框_端口.现行选中项 ＝ 0
组合框_数据.现行选中项 ＝ 2
组合框_校验.现行选中项 ＝ 0
组合框_停止.现行选中项 ＝ 0
发送一区内容.获取焦点 ()
调试输出 (取运行目录 ())
配置文件地址 ＝ 取运行目录 () ＋ “\pcc.ini”
配置文件内容 ＝ UTF8到文本 (读入文件 (配置文件地址))
发送一区内容.内容 ＝ 取指定内容 (配置文件内容, “OneContent=”, “;”)
发送二区内容.内容 ＝ 取指定内容 (配置文件内容, “TowContent=”, “;”)

子程序名	返回值类型	公开	备 注
取指定内容	文本型		取指定的文本内容
参数名	类 型	参考	可空	数组	备 注
完整内容	文本型
左边文本	文本型
右边文本	文本型

变量名	类 型	静态	数组	备 注
位置	整数型
总长度	整数型
文本	文本型

总长度 ＝ 取文本长度 (完整内容)
位置 ＝ 寻找文本 (完整内容, 左边文本, , 假) ＋ 取文本长度 (左边文本)
文本 ＝ 取文本中间 (完整内容, 位置, 总长度)
总长度 ＝ 取文本长度 (文本)
位置 ＝ 寻找文本 (文本, 右边文本, , 假) － 1
文本 ＝ 取文本中间 (文本, 1, 位置)
返回 (文本)

子程序名	返回值类型	公开	备 注
_打开串口_被单击			打开串口

端口1.波特率 ＝ 到整数 (组合框_波特.内容)
端口1.数据位数 ＝ 到整数 (组合框_数据.内容)
端口1.奇偶校验方案 ＝ 多项选择 (组合框_校验.现行选中项 ＋ 1, 0, 1, 2, 3, 4)
端口1.端口号 ＝ 到整数 (取文本右边 (组合框_端口.内容, 1))
端口1.停止位数 ＝ 多项选择 (组合框_停止.现行选中项 ＋ 1, 1, 2, 3)
如果 (端口1.奇偶校验方案 ＝ 0)
端口1.奇偶校验 ＝ 假
端口1.奇偶校验 ＝ 真

如果 (打开串口.标题 ＝ “打开串口”)
打开串口.标题 ＝ “关闭串口”
端口1.停止 ()



如果 (端口1.启动 () ＝ 真)
状态指示灯.填充颜色 ＝ #绿色
状态指示灯.填充颜色 ＝ # **

如果真 (打开串口.标题 ＝ “关闭串口”)
如果真 (状态指示灯.填充颜色 ＝ # **)
打开串口.标题 ＝ “打开串口”
信息框 (“打开串口失败，请检查串口是否被占用！”, 0, “警告”, )

子程序名	返回值类型	公开	备 注
_点动_被单击

如果 (打开串口.标题 ＝ “关闭串口”)
发送十六进制内容 = (取运行目录 () ＋ “\config.ini”, “打开1”, “”, )
端口1.发送数据 (取运行目录 () ＋ “\config.ini”, “打开1”, “”, )
延迟 (100)
端口1.发送数据 (取运行目录 () ＋ “\config.ini”, “关闭1”, “”, )

信息框 (“请先打开串口！”, 0, “警告”, )
返回 ()

子程序名	返回值类型	公开	备 注
发送十六进制内容			将文本转为发出
参数名	类 型	参考	可空	数组	备 注
待发送内容	文本型

变量名	类 型	静态	数组	备 注
转换后的十六进制数据	字节型		0
n	整数型
起始字节	整数型

待发送内容 ＝ 删全部空 (待发送内容)
起始字节 ＝ 1
重定义数组 (转换后的十六进制数据, 假, 取文本长度 (待发送内容) ÷ 2)
计次循环首 (取文本长度 (待发送内容) ÷ 2, n)
转换后的十六进制数据 [n] ＝ 到字节 (启动窗口进制转换16到10 (取文本中间 (待发送内容, 起始字节, 2)))
起始字节 ＝ 起始字节 ＋ 2
端口1.发送数据 (转换后的十六进制数据 [n])
计次循环尾 ()

子程序名	返回值类型	公开	备 注
启动窗口进制转换16到10	字节型
参数名	类 型	参考	可空	数组	备 注
文本val	文本型

变量名	类 型	静态	数组	备 注
数值A	文本型
数值B	文本型
运算中间值	整数型

数值A ＝ 到大写 (取文本中间 (文本val, 1, 1))
数值B ＝ 到大写 (取文本中间 (文本val, 2, 1))
判断 (数值A ＝ “0”)
运算中间值 ＝ 0
判断 (数值A ＝ “1”)
运算中间值 ＝ 1 × 16
判断 (数值A ＝ “2”)
运算中间值 ＝ 2 × 16
判断 (数值A ＝ “3”)
运算中间值 ＝ 3 × 16
判断 (数值A ＝ “4”)
运算中间值 ＝ 4 × 16
判断 (数值A ＝ “5”)
运算中间值 ＝ 5 × 16
判断 (数值A ＝ “6”)
运算中间值 ＝ 6 × 16
判断 (数值A ＝ “7”)
运算中间值 ＝ 7 × 16
判断 (数值A ＝ “8”)
运算中间值 ＝ 8 × 16
判断 (数值A ＝ “9”)
运算中间值 ＝ 9 × 16
判断 (数值A ＝ “A”)
运算中间值 ＝ 10 × 16
判断 (数值A ＝ “B”)
运算中间值 ＝ 11 × 16
判断 (数值A ＝ “C”)
运算中间值 ＝ 12 × 16
判断 (数值A ＝ “D”)
运算中间值 ＝ 13 × 16
判断 (数值A ＝ “E”)
运算中间值 ＝ 14 × 16
判断 (数值A ＝ “F”)
运算中间值 ＝ 15 × 16
运算中间值 ＝ 7
判断 (数值B ＝ “0”)
运算中间值 ＝ 运算中间值 ＋ 0
判断 (数值B ＝ “1”)
运算中间值 ＝ 运算中间值 ＋ 1
判断 (数值B ＝ “2”)
运算中间值 ＝ 运算中间值 ＋ 2
判断 (数值B ＝ “3”)
运算中间值 ＝ 运算中间值 ＋ 3
判断 (数值B ＝ “4”)
运算中间值 ＝ 运算中间值 ＋ 4
判断 (数值B ＝ “5”)
运算中间值 ＝ 运算中间值 ＋ 5
判断 (数值B ＝ “6”)
运算中间值 ＝ 运算中间值 ＋ 6
判断 (数值B ＝ “7”)
运算中间值 ＝ 运算中间值 ＋ 7
判断 (数值B ＝ “8”)
运算中间值 ＝ 运算中间值 ＋ 8
判断 (数值B ＝ “9”)
运算中间值 ＝ 运算中间值 ＋ 9
判断 (数值B ＝ “A”)
运算中间值 ＝ 运算中间值 ＋ 10
判断 (数值B ＝ “B”)
运算中间值 ＝ 运算中间值 ＋ 11
判断 (数值B ＝ “C”)
运算中间值 ＝ 运算中间值 ＋ 12
判断 (数值B ＝ “D”)
运算中间值 ＝ 运算中间值 ＋ 13
判断 (数值B ＝ “E”)
运算中间值 ＝ 运算中间值 ＋ 14
判断 (数值B ＝ “F”)
运算中间值 ＝ 运算中间值 ＋ 15
运算中间值 ＝ 运算中间值 ＋ 0
返回 (运算中间值)

子程序名	返回值类型	公开	备 注
进制转换	文本型		可以将从二进制到三十六进制的数值随意进行转换，不可以转换负数以及小数。
参数名	类 型	参考	可空	数组	备 注
被转换文本	文本型
被转换进制	整数型
转换的进制	整数型

变量名	类 型	静态	数组	备 注
欲转换文本	文本型
临时文本	文本型
临时数值	长整数型
计次变量	整数型

如果真 (被转换进制 ＜ 2 或 转换的进制 ＜ 2 或 被转换进制 ＞ 36 或 转换的进制 ＞ 36)  ' 判断两个“进制系数”是否正确
返回 (“参数错误-进制只能在2-36之间”)
被转换文本 ＝ 到大写 (到半角 (被转换文本))  ' 规范参数
计次循环首 (取文本长度 (被转换文本), 计次变量)
临时文本 ＝ 取文本中间 (被转换文本, 计次变量, 1)
如果真 (寻找文本 (取文本左边 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 被转换进制), 临时文本, , 假) ＝ -1)
临时文本 ＝ “参数错误-” ＋ 被转换文本 ＋ “不是一个有效的” ＋ 取文本左边 (数值到金额 (被转换进制, 真), 取文本长度 (数值到金额 (被转换进制, 真)) － 4) ＋ “进制数！”
跳出循环 ()
如果真 (计次变量 ＝ 取文本长度 (被转换文本))
临时文本 ＝ “”

计次循环尾 ()
如果真 (临时文本 ≠ “”)
返回 (临时文本)
' 以上为数据处理代码
如果真 (被转换进制 ＝ 转换的进制)
返回 (被转换文本)
计次循环首 (取文本长度 (被转换文本), 计次变量)  ' 整数转换开始
临时数值 ＝ (寻找文本 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 取文本中间 (被转换文本, 计次变量, 1), , 真) － 1) × 求次方 (被转换进制, 取文本长度 (被转换文本) － 计次变量) ＋ 临时数值
计次循环尾 ()
判断循环首 (临时数值 ＞ 转换的进制 － 1)
欲转换文本 ＝ 取文本中间 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 到数值 (到文本 (临时数值 ％ 转换的进制)) ＋ 1, 1) ＋ 欲转换文本
临时数值 ＝ 取整 (临时数值 ÷ 转换的进制)
判断循环尾 ()
欲转换文本 ＝ 取文本中间 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 临时数值 ＋ 1, 1) ＋ 欲转换文本  ' 整数转换结束
返回 (欲转换文本)

子程序名	返回值类型	公开	备 注
判断是否为16进制数据	逻辑型		判断文本中是否存在不是16进制数据
参数名	类 型	参考	可空	数组	备 注
待检测内容	文本型

变量名	类 型	静态	数组	备 注
被检测内容	文本型
n	整数型
被检测单字	文本型
i	整数型
j	整数型

j ＝ 0
计次循环首 (取文本长度 (待检测内容), n)
被检测单字 ＝ 取文本中间 (待检测内容, n, 1)
计次循环首 (17, i)
如果真 ( (取代码 (到大写 (被检测单字), 1) ＜ 48 或 取代码 (到大写 (被检测单字), 1) ＞ 57) ＝ 真)
如果真 ( (取代码 (到大写 (被检测单字), 1) ＜ 65 或 取代码 (到大写 (被检测单字), 1) ＞ 70) ＝ 真)
如果真 ( (取代码 (到大写 (被检测单字), 1) ＜ 32 或 取代码 (到大写 (被检测单字), 1) ＞ 32) ＝ 真)
如果真 ( (取代码 (到大写 (被检测单字), 1) ＜ 0 或 取代码 (到大写 (被检测单字), 1) ＞ 0) ＝ 真)
j ＝ 1




计次循环尾 ()
计次循环尾 ()
如果 (j ＝ 0)
返回 (真)
返回 (假)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 端口号码, 整数型<br /> .程序集变量 波特率, 整数型<br /> .程序集变量 数据位, 整数型<br /> .程序集变量 校验位, 文本型<br /> .程序集变量 停止位, 小数型<br /> .程序集变量 发送数据内容, 文本型<br /> .程序集变量 配置文件内容, 文本型<br /> .程序集变量 配置文件地址, 文本型<br /> .程序集变量 文本, 文本型, , , 写配置文件用<br /> <br /> .子程序 _组合框_端口_鼠标左键被按下, 逻辑型, , 判断存在的端口<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 a, 整数型<br /> <br /> .计次循环首 (组合框_端口.取项目数 (), a)<br />     组合框_端口.删除项目 (0)<br /> .计次循环尾 ()<br /> <br /> 端口号码 ＝ 0<br /> .计次循环首 (15, a)<br />     端口号码 ＝ 端口号码 ＋ 1<br />     端口1.端口号 ＝ 端口号码<br />     .如果真 (端口1.启动 () ＝ 真)<br />         组合框_端口.加入项目 (“COM” ＋ 到文本 (端口号码), )<br />         组合框_端口.置项目数值 (a, 端口号码)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (组合框_端口.现行选中项 ＝ -1)<br />     组合框_端口.现行选中项 ＝ 0<br /> .如果真结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 组合框_波特.现行选中项 ＝ 3<br /> 组合框_端口.现行选中项 ＝ 0<br /> 组合框_数据.现行选中项 ＝ 2<br /> 组合框_校验.现行选中项 ＝ 0<br /> 组合框_停止.现行选中项 ＝ 0<br /> <br /> 发送一区内容.获取焦点 ()<br /> <br /> 调试输出 (取运行目录 ())<br /> <br /> 配置文件地址 ＝ 取运行目录 () ＋ “\pcc.ini”<br /> 配置文件内容 ＝ UTF8到文本 (读入文件 (配置文件地址))<br /> 发送一区内容.内容 ＝ 取指定内容 (配置文件内容, “OneContent=”, “;”)<br /> 发送二区内容.内容 ＝ 取指定内容 (配置文件内容, “TowContent=”, “;”)<br /> <br /> .子程序 取指定内容, 文本型, , 取指定的文本内容<br /> .参数 完整内容, 文本型<br /> .参数 左边文本, 文本型<br /> .参数 右边文本, 文本型<br /> .局部变量 位置, 整数型<br /> .局部变量 总长度, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> 总长度 ＝ 取文本长度 (完整内容)<br /> 位置 ＝ 寻找文本 (完整内容, 左边文本, , 假) ＋ 取文本长度 (左边文本)<br /> 文本 ＝ 取文本中间 (完整内容, 位置, 总长度)<br /> 总长度 ＝ 取文本长度 (文本)<br /> 位置 ＝ 寻找文本 (文本, 右边文本, , 假) － 1<br /> 文本 ＝ 取文本中间 (文本, 1, 位置)<br /> 返回 (文本)<br /> <br /> .子程序 _打开串口_被单击, , , 打开串口<br /> <br /> 端口1.波特率 ＝ 到整数 (组合框_波特.内容)<br /> 端口1.数据位数 ＝ 到整数 (组合框_数据.内容)<br /> 端口1.奇偶校验方案 ＝ 多项选择 (组合框_校验.现行选中项 ＋ 1, 0, 1, 2, 3, 4)<br /> 端口1.端口号 ＝ 到整数 (取文本右边 (组合框_端口.内容, 1))<br /> 端口1.停止位数 ＝ 多项选择 (组合框_停止.现行选中项 ＋ 1, 1, 2, 3)<br /> .如果 (端口1.奇偶校验方案 ＝ 0)<br />     端口1.奇偶校验 ＝ 假<br /> .否则<br />     端口1.奇偶校验 ＝ 真<br /> .如果结束<br /> <br /> .如果 (打开串口.标题 ＝ “打开串口”)<br />     打开串口.标题 ＝ “关闭串口”<br />     端口1.停止 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> .如果 (端口1.启动 () ＝ 真)<br />     状态指示灯.填充颜色 ＝ #绿色<br /> .否则<br />     状态指示灯.填充颜色 ＝ #**<br /> .如果结束<br /> <br /> <br /> .如果真 (打开串口.标题 ＝ “关闭串口”)<br />     .如果真 (状态指示灯.填充颜色 ＝ #**)<br />         打开串口.标题 ＝ “打开串口”<br />         信息框 (“打开串口失败，请检查串口是否被占用！”, 0, “警告”, )<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> <br /> .子程序 _点动_被单击<br /> <br /> .如果 (打开串口.标题 ＝ “关闭串口”)<br />     发送十六进制内容 = (取运行目录 () ＋ “\config.ini”, “打开1”, “”, )<br />     端口1.发送数据 (取运行目录 () ＋ “\config.ini”, “打开1”, “”, )<br />     延迟 (100)<br />     端口1.发送数据 (取运行目录 () ＋ “\config.ini”, “关闭1”, “”, )<br /> <br /> .否则<br />     信息框 (“请先打开串口！”, 0, “警告”, )<br />     返回 ()<br /> .如果结束<br /> <br /> <br /> .子程序 发送十六进制内容, , , 将文本转为发出<br /> .参数 待发送内容, 文本型<br /> .局部变量 转换后的十六进制数据, 字节型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 起始字节, 整数型<br /> <br /> 待发送内容 ＝ 删全部空 (待发送内容)<br /> 起始字节 ＝ 1<br /> 重定义数组 (转换后的十六进制数据, 假, 取文本长度 (待发送内容) ÷ 2)<br /> <br /> .计次循环首 (取文本长度 (待发送内容) ÷ 2, n)<br />     转换后的十六进制数据 [n] ＝ 到字节 (启动窗口进制转换16到10 (取文本中间 (待发送内容, 起始字节, 2)))<br />     起始字节 ＝ 起始字节 ＋ 2<br />     端口1.发送数据 (转换后的十六进制数据 [n])<br /> .计次循环尾 ()<br /> <br /> .子程序 启动窗口进制转换16到10, 字节型<br /> .参数 文本val, 文本型<br /> .局部变量 数值A, 文本型<br /> .局部变量 数值B, 文本型<br /> .局部变量 运算中间值, 整数型<br /> <br /> 数值A ＝ 到大写 (取文本中间 (文本val, 1, 1))<br /> 数值B ＝ 到大写 (取文本中间 (文本val, 2, 1))<br /> .判断开始 (数值A ＝ “0”)<br />     运算中间值 ＝ 0<br /> .判断 (数值A ＝ “1”)<br />     运算中间值 ＝ 1 × 16<br /> .判断 (数值A ＝ “2”)<br />     运算中间值 ＝ 2 × 16<br /> .判断 (数值A ＝ “3”)<br />     运算中间值 ＝ 3 × 16<br /> .判断 (数值A ＝ “4”)<br />     运算中间值 ＝ 4 × 16<br /> .判断 (数值A ＝ “5”)<br />     运算中间值 ＝ 5 × 16<br /> .判断 (数值A ＝ “6”)<br />     运算中间值 ＝ 6 × 16<br /> .判断 (数值A ＝ “7”)<br />     运算中间值 ＝ 7 × 16<br /> .判断 (数值A ＝ “8”)<br />     运算中间值 ＝ 8 × 16<br /> .判断 (数值A ＝ “9”)<br />     运算中间值 ＝ 9 × 16<br /> .判断 (数值A ＝ “A”)<br />     运算中间值 ＝ 10 × 16<br /> .判断 (数值A ＝ “B”)<br />     运算中间值 ＝ 11 × 16<br /> .判断 (数值A ＝ “C”)<br />     运算中间值 ＝ 12 × 16<br /> .判断 (数值A ＝ “D”)<br />     运算中间值 ＝ 13 × 16<br /> .判断 (数值A ＝ “E”)<br />     运算中间值 ＝ 14 × 16<br /> .判断 (数值A ＝ “F”)<br />     运算中间值 ＝ 15 × 16<br /> .默认<br />     运算中间值 ＝ 7<br /> <br /> .判断结束<br /> .判断开始 (数值B ＝ “0”)<br />     运算中间值 ＝ 运算中间值 ＋ 0<br /> .判断 (数值B ＝ “1”)<br />     运算中间值 ＝ 运算中间值 ＋ 1<br /> .判断 (数值B ＝ “2”)<br />     运算中间值 ＝ 运算中间值 ＋ 2<br /> .判断 (数值B ＝ “3”)<br />     运算中间值 ＝ 运算中间值 ＋ 3<br /> .判断 (数值B ＝ “4”)<br />     运算中间值 ＝ 运算中间值 ＋ 4<br /> .判断 (数值B ＝ “5”)<br />     运算中间值 ＝ 运算中间值 ＋ 5<br /> .判断 (数值B ＝ “6”)<br />     运算中间值 ＝ 运算中间值 ＋ 6<br /> .判断 (数值B ＝ “7”)<br />     运算中间值 ＝ 运算中间值 ＋ 7<br /> .判断 (数值B ＝ “8”)<br />     运算中间值 ＝ 运算中间值 ＋ 8<br /> .判断 (数值B ＝ “9”)<br />     运算中间值 ＝ 运算中间值 ＋ 9<br /> .判断 (数值B ＝ “A”)<br />     运算中间值 ＝ 运算中间值 ＋ 10<br /> .判断 (数值B ＝ “B”)<br />     运算中间值 ＝ 运算中间值 ＋ 11<br /> .判断 (数值B ＝ “C”)<br />     运算中间值 ＝ 运算中间值 ＋ 12<br /> .判断 (数值B ＝ “D”)<br />     运算中间值 ＝ 运算中间值 ＋ 13<br /> .判断 (数值B ＝ “E”)<br />     运算中间值 ＝ 运算中间值 ＋ 14<br /> .判断 (数值B ＝ “F”)<br />     运算中间值 ＝ 运算中间值 ＋ 15<br /> .默认<br />     运算中间值 ＝ 运算中间值 ＋ 0<br /> .判断结束<br /> 返回 (运算中间值)<br /> <br /> <br /> <br /> <br /> .子程序 进制转换, 文本型, , 可以将从二进制到三十六进制的数值随意进行转换，不可以转换负数以及小数。<br /> .参数 被转换文本, 文本型<br /> .参数 被转换进制, 整数型<br /> .参数 转换的进制, 整数型<br /> .局部变量 欲转换文本, 文本型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 临时数值, 长整数型<br /> .局部变量 计次变量, 整数型<br /> <br /> .如果真 (被转换进制 ＜ 2 或 转换的进制 ＜ 2 或 被转换进制 ＞ 36 或 转换的进制 ＞ 36)  ' 判断两个“进制系数”是否正确<br />     返回 (“参数错误-进制只能在2-36之间”)<br /> .如果真结束<br /> 被转换文本 ＝ 到大写 (到半角 (被转换文本))  ' 规范参数<br /> .计次循环首 (取文本长度 (被转换文本), 计次变量)<br />     临时文本 ＝ 取文本中间 (被转换文本, 计次变量, 1)<br />     .如果真 (寻找文本 (取文本左边 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 被转换进制), 临时文本, , 假) ＝ -1)<br />         临时文本 ＝ “参数错误-” ＋ 被转换文本 ＋ “不是一个有效的” ＋ 取文本左边 (数值到金额 (被转换进制, 真), 取文本长度 (数值到金额 (被转换进制, 真)) － 4) ＋ “进制数！”<br />         跳出循环 ()<br />     .如果真结束<br />     .如果真 (计次变量 ＝ 取文本长度 (被转换文本))<br />         临时文本 ＝ “”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (临时文本 ≠ “”)<br />     返回 (临时文本)<br /> .如果真结束<br /> ' 以上为数据处理代码<br /> .如果真 (被转换进制 ＝ 转换的进制)<br />     返回 (被转换文本)<br /> .如果真结束<br /> .计次循环首 (取文本长度 (被转换文本), 计次变量)  ' 整数转换开始<br />     临时数值 ＝ (寻找文本 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 取文本中间 (被转换文本, 计次变量, 1), , 真) － 1) × 求次方 (被转换进制, 取文本长度 (被转换文本) － 计次变量) ＋ 临时数值<br /> .计次循环尾 ()<br /> .判断循环首 (临时数值 ＞ 转换的进制 － 1)<br />     欲转换文本 ＝ 取文本中间 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 到数值 (到文本 (临时数值 ％ 转换的进制)) ＋ 1, 1) ＋ 欲转换文本<br />     临时数值 ＝ 取整 (临时数值 ÷ 转换的进制)<br /> .判断循环尾 ()<br /> 欲转换文本 ＝ 取文本中间 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 临时数值 ＋ 1, 1) ＋ 欲转换文本  ' 整数转换结束<br /> 返回 (欲转换文本)<br /> <br /> <br /> .子程序 判断是否为16进制数据, 逻辑型, , 判断文本中是否存在不是16进制数据<br /> .参数 待检测内容, 文本型<br /> .局部变量 被检测内容, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 被检测单字, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> j ＝ 0<br /> .计次循环首 (取文本长度 (待检测内容), n)<br />     被检测单字 ＝ 取文本中间 (待检测内容, n, 1)<br />     .计次循环首 (17, i)<br />         .如果真 ((取代码 (到大写 (被检测单字), 1) ＜ 48 或 取代码 (到大写 (被检测单字), 1) ＞ 57) ＝ 真)<br />             .如果真 ((取代码 (到大写 (被检测单字), 1) ＜ 65 或 取代码 (到大写 (被检测单字), 1) ＞ 70) ＝ 真)<br />                 .如果真 ((取代码 (到大写 (被检测单字), 1) ＜ 32 或 取代码 (到大写 (被检测单字), 1) ＞ 32) ＝ 真)<br />                     .如果真 ((取代码 (到大写 (被检测单字), 1) ＜ 0 或 取代码 (到大写 (被检测单字), 1) ＞ 0) ＝ 真)<br />                         j ＝ 1<br />                     .如果真结束<br /> <br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> .如果 (j ＝ 0)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束

出错：

正在编译现行程序
正在检查重复名称...
!!! 警告： 发现子程序“取指定内容”中的参数或局部变量名称“文本”与另一程序集变量重名
正在预处理现行程序
错误(30): 找不到指定的变量名称“发送十六进制内容”。
编译现行易程序失败或被中止!




Desktop.rar (1.24 MB, 下载次数: 3)

2025-3-6 21:46 上传

点击文件名下载附件

是可可吖

小马大大 发表于 2025-3-6 23:06
直接 远程进行 调用

3331.e (1.03 MB, 下载次数: 1)

2025-3-6 23:11 上传

点击文件名下载附件


补充内容 (2025-3-6 23:11):
你把那两个编辑框删除就行了，我忘了删

小马大大

替换了这样也不可以 求解

  

配置文件地址 ＝ 取运行目录 () ＋ “\config.ini”
配置文件内容 ＝ UTF8到文本 (读入文件 (配置文件地址))
如果 (打开串口.标题 ＝ “关闭串口”)
发送十六进制内容 = (配置文件内容, “打开1”, “;”)
端口1.发送数据 取指定内容 (配置文件内容, “打开1”, “;”)
延迟 (100)
端口1.发送数据 取指定内容 (配置文件内容, “关闭1”, “;”)

信息框 (“请先打开串口！”, 0, “警告”, )
返回 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 配置文件地址 ＝ 取运行目录 () ＋ “\config.ini”<br /> 配置文件内容 ＝ UTF8到文本 (读入文件 (配置文件地址))<br /> .如果 (打开串口.标题 ＝ “关闭串口”)<br />     发送十六进制内容 = (配置文件内容, “打开1”, “;”)<br />     端口1.发送数据 取指定内容 (配置文件内容, “打开1”, “;”)<br />     延迟 (100)<br />     端口1.发送数据 取指定内容 (配置文件内容, “关闭1”, “;”)<br /> <br /> .否则<br />     信息框 (“请先打开串口！”, 0, “警告”, )<br />     返回 ()<br /> .如果结束

是可可吖

配置文件发错了吧，这里哪有打开？

灰灰灰灰

发送十六进制内容 = (取运行目录 () ＋ “\config.ini”, “打开1”, “”, )
发送十六进制内容他不是个子程序么   咋这样写

小马大大

小马大大 发表于 2025-3-6 21:54
替换了这样也不可以 求解

这样的话  程序 正常了


想调用  远程地址   http://wz258.340126.com/chanping.txt   


求教

小马大大

小马大大 发表于 2025-3-6 22:33
这样的话  程序 正常了

333.e (27.1 KB, 下载次数: 1)

2025-3-6 22:35 上传

点击文件名下载附件

是可可吖

小马大大 发表于 2025-3-6 22:33
这样的话  程序 正常了

这个更简单了，直接转码读，然后取就行了

小马大大

是可可吖 发表于 2025-3-6 22:37
这个更简单了，直接转码读，然后取就行了

刚学不久还不太会

是可可吖

小马大大 发表于 2025-3-6 22:47
刚学不久还不太会

3331.e (1.03 MB, 下载次数: 1)

2025-3-6 22:54 上传

点击文件名下载附件


改好了