易语言数据报UDP通讯接收RFID网络读卡器获取卡号驱动设备播报TTS语音-北京尧图网络

本示例使用的设备https://item.taobao.com/item.htm?spma21dvs.23580594.0.0.47b32c1bbjboALfttid22173284717.版本 2 .支持库 iext .程序集窗口程序集_启动窗口 .子程序 _按钮_搜索在线设备_被单击 .局部变量指令缓冲, 字节型, , 1 超级列表框1.全部删除 () 数据报.端口到长整数 (编辑框_本地端口.内容) 指令缓冲 [1] 十六进制 (“A6”) 数据报.发送数据 (, 39169, 到字节集 (指令缓冲)) 广播式发送搜索在线设备的指令列表框_报文.加入项目 (取系统时间 () “ ” 取文本左边 (“255.255.255.255:39169 ”, 22) “发送广播A6”, ) .子程序 _数据报_数据到达 .局部变量接收到的字节集, 字节集 .局部变量数据报文, 文本型 .局部变量客户IP端口, 文本型接收到的字节集数据报.取回数据 () 数据报文字节集转十六进制文本 (接收到的字节集) 列表框_报文.加入项目 (取系统时间 () “ ” 取文本左边 (客户IP端口 “ ”, 22) “接收数据” 数据报文, ) 列表框_报文.现行选中项列表框_报文.取项目数 () 解析处理接收数据 (接收到的字节集) .子程序解析处理接收数据 .参数接收到的字节集, 字节集 .局部变量数据长度, 整数型 .局部变量设备IP, 文本型 .局部变量机号, 文本型 .局部变量唯一设备序号, 文本型 .局部变量解析结果, 文本型 .局部变量 i, 整数型 .局部变量掩码, 文本型 .局部变量通讯端口, 文本型 .局部变量网关, 文本型 .局部变量网关MAC, 文本型 .局部变量远程服务器IP, 文本型 .局部变量服务器MAC, 文本型 .局部变量网络标识, 文本型 .局部变量参数标识, 文本型 .局部变量设备MAC, 文本型 .局部变量模块序号, 文本型 .局部变量 DN, 文本型 .局部变量设备型号, 文本型 .局部变量固件日期, 文本型 .局部变量截取字节集, 字节集 .局部变量数据包序号, 整数型 .局部变量随机动态码, 文本型 .局部变量卡号长度, 整数型 .局部变量物理卡号, 文本型 .局部变量十位卡号反码, 文本型 .局部变量十位卡号正码, 文本型数据长度取字节集长度 (接收到的字节集) .如果 (数据长度 10 且接收到的字节集 [1] 十六进制 (“F2”)) 接收到搜索在线设备的返回解析结果 “接收数据解析在线设备信息设备IP[” 设备IP 到文本 (接收到的字节集 [2]) “.” 到文本 (接收到的字节集 [3]) “.” 到文本 (接收到的字节集 [4]) “.” 到文本 (接收到的字节集 [5]) 掩码到文本 (接收到的字节集 [6]) “.” 到文本 (接收到的字节集 [7]) “.” 到文本 (接收到的字节集 [8]) “.” 到文本 (接收到的字节集 [9]) 通讯端口到文本 (接收到的字节集 [10] 接收到的字节集 [11] × 256) 机号到文本 (接收到的字节集 [12] 接收到的字节集 [13] × 256) 网关到文本 (接收到的字节集 [14]) “.” 到文本 (接收到的字节集 [15]) “.” 到文本 (接收到的字节集 [16]) “.” 到文本 (接收到的字节集 [17]) .计次循环首 (6, i) 网关MAC 网关MAC 取文本右边 (“0” 取十六进制文本 (接收到的字节集 [17 i]), 2) .如果 (i 6) 网关MAC 网关MAC “-” .否则 .如果结束 .计次循环尾 () 远程服务器IP 到文本 (接收到的字节集 [24]) “.” 到文本 (接收到的字节集 [25]) “.” 到文本 (接收到的字节集 [26]) “.” 到文本 (接收到的字节集 [27]) .计次循环首 (6, i) 服务器MAC 服务器MAC 取文本右边 (“0” 取十六进制文本 (接收到的字节集 [27 i]), 2) .如果 (i 6) 服务器MAC 服务器MAC “-” .否则 .如果结束 .计次循环尾 () 网络标识到文本 (接收到的字节集 [34]) 参数标识到文本 (接收到的字节集 [35]) 模块序号到文本 (接收到的字节集 [36]) “-” 到文本 (接收到的字节集 [37]) “-” 到文本 (接收到的字节集 [38]) “-” 到文本 (接收到的字节集 [39]) .计次循环首 (4, i) 模块序号模块序号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [35 i]), 2) .如果 (i 4) 模块序号模块序号 “-” .否则 .如果结束 .计次循环尾 () .如果 (数据长度 39) .计次循环首 (6, i) 设备MAC 取文本右边 (“0” 取十六进制文本 (接收到的字节集 [39 i]), 2) 设备MAC .如果 (i 6) 设备MAC “-” 设备MAC .否则 .如果结束 .计次循环尾 () .计次循环首 (8, i) 唯一设备序号唯一设备序号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [39 i]), 2) DN 取文本右边 (“0” 取十六进制文本 (接收到的字节集 [39 i]), 2) DN .计次循环尾 () .否则 .如果结束解析结果解析结果设备IP “]掩码[” 掩码 “]通讯端口[” 通讯端口 “]机号[” 机号 “]网关[” 网关 “]网关MAC[” 网关MAC “]远程服务器IP[” 远程服务器IP “]服务器MAC[” 解析结果解析结果服务器MAC “]网络标识[” 网络标识 “]参数标识C[” 参数标识 “]模块序号[” 模块序号 “]设备MAC[” 设备MAC “]唯一设备序号[” 唯一设备序号 “]” 列表框_报文.加入项目 (解析结果, ) 列表框_报文.现行选中项列表框_报文.取项目数 () 列表框_报文.加入项目 (“”, ) 更新超级列表框设备信息 (机号, 设备IP, 掩码, 通讯端口, 网关, 网关MAC, 远程服务器IP, 服务器MAC, 网络标识, 参数标识, 模块序号, 设备MAC, 唯一设备序号, DN) .否则 .如果 (数据长度 12 且接收到的字节集 [1] 十六进制 (“F6”)) 查询在线设备型号的返回解析结果 “接收数据解析在线设备型号版本设备IP[” 设备IP 到文本 (接收到的字节集 [2]) “.” 到文本 (接收到的字节集 [3]) “.” 到文本 (接收到的字节集 [4]) “.” 到文本 (接收到的字节集 [5]) 机号到文本 (接收到的字节集 [6] 接收到的字节集 [7] × 256) 截取字节集取字节集中间 (接收到的字节集, 9, 接收到的字节集 [8]) 设备型号到文本 (截取字节集) 截取字节集取字节集中间 (接收到的字节集, 9 接收到的字节集 [8] 1, 接收到的字节集 [9 接收到的字节集 [8]]) 固件日期到文本 (截取字节集) .计次循环首 (8, i) 唯一设备序号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [数据长度 i 1]), 2) 唯一设备序号 .计次循环尾 () 解析结果解析结果设备IP “]机号[” 机号 “]设备型号[” 设备型号 “]固件日期C[” 固件日期 “]唯一设备序号[” 唯一设备序号 “]” 列表框_报文.加入项目 (解析结果, ) 列表框_报文.现行选中项列表框_报文.取项目数 () 列表框_报文.加入项目 (“”, ) 更新超级列表框设备型号版本 (设备IP, 唯一设备序号, 设备型号, 固件日期) .否则 .如果 (数据长度 12 且接收到的字节集 [1] 十六进制 (“F3”)) 接收到心跳包设备IP 到文本 (接收到的字节集 [2]) “.” 到文本 (接收到的字节集 [3]) “.” 到文本 (接收到的字节集 [4]) “.” 到文本 (接收到的字节集 [5]) 机号到文本 (接收到的字节集 [6] 接收到的字节集 [7] × 256) 数据包序号接收到的字节集 [8] 接收到的字节集 [9] × 256 解析结果 “接收数据解析设备心跳数据包设备IP[” 设备IP “]机号[” 到文本 (机号) “]数据包序号[” 到文本 (数据包序号) “]心跳包类型[” 到文本 (接收到的字节集 [10]) “]” 解析结果解析结果 “长度[” 到文本 (接收到的字节集 [11]) “]” 解析结果解析结果 “继电器状态[” 到文本 (接收到的字节集 [12]) “]” 解析结果解析结果 “外部输入状态[” 到文本 (接收到的字节集 [13]) “]” .计次循环首 (4, i) 随机动态码随机动态码取文本右边 (“0” 取十六进制文本 (接收到的字节集 [13 i]), 2) .计次循环尾 () 解析结果解析结果 “随机动态码[” 随机动态码 “]” i 18 .判断循环首 (i ≤ 数据长度) 唯一设备序号唯一设备序号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [i]), 2) i i 1 .判断循环尾 () 解析结果解析结果 “唯一设备序号[” 唯一设备序号 “]” 列表框_报文.加入项目 (解析结果, ) 列表框_报文.现行选中项列表框_报文.取项目数 () 列表框_报文.加入项目 (“”, ) 接收到设备信息回应 (设备IP, 39169, 到整数 (机号)) .否则 .如果 (数据长度 10 且接收到的字节集 [1] 十六进制 (“C1”)) 接收到IC卡刷卡数据解析结果 “接收数据解析IC读卡器刷卡数据设备IP[” 设备IP 到文本 (接收到的字节集 [2]) “.” 到文本 (接收到的字节集 [3]) “.” 到文本 (接收到的字节集 [4]) “.” 到文本 (接收到的字节集 [5]) 机号到文本 (接收到的字节集 [6] 接收到的字节集 [7] × 256) 数据包序号接收到的字节集 [8] 接收到的字节集 [9] × 256 .计次循环首 (4, i) 物理卡号物理卡号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [10 i]), 2) .计次循环尾 () 十位卡号反码取文本右边 (“0000000000” 到文本 (接收到的字节集 [11] 接收到的字节集 [12] × 256 接收到的字节集 [13] × 求次方 (256, 2) 接收到的字节集 [14] × 求次方 (256, 3)), 10) 十位卡号正码取文本右边 (“0000000000” 到文本 (接收到的字节集 [11] × 求次方 (256, 3) 接收到的字节集 [12] × 求次方 (256, 2) 接收到的字节集 [13] × 256 接收到的字节集 [14]), 10) i 10 i .判断循环首 (i 数据长度) 唯一设备序号唯一设备序号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [i]), 2) i i 1 .判断循环尾 () 唯一设备序号唯一设备序号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [i]), 2) 解析结果解析结果设备IP “]机号[” 到文本 (机号) “]数据包序号[” 到文本 (数据包序号) “]物理卡号HEX[” 物理卡号 “]转10位正码[” 十位卡号正码 “]唯一设备序号[” 唯一设备序号 “]” 列表框_报文.加入项目 (解析结果, ) 列表框_报文.现行选中项列表框_报文.取项目数 () 列表框_报文.加入项目 (“”, ) 接收到设备信息回应 (设备IP, 39169, 到整数 (机号)) .否则 .如果 (数据长度 10 且接收到的字节集 [1] 十六进制 (“CF”)) 接收到IC卡离开的信息解析结果 “接收数据解析IC卡离开感应区设备IP[” 设备IP 到文本 (接收到的字节集 [2]) “.” 到文本 (接收到的字节集 [3]) “.” 到文本 (接收到的字节集 [4]) “.” 到文本 (接收到的字节集 [5]) 机号到文本 (接收到的字节集 [6] 接收到的字节集 [7] × 256) 数据包序号接收到的字节集 [8] 接收到的字节集 [9] × 256 .计次循环首 (4, i) 物理卡号物理卡号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [11 i]), 2) .计次循环尾 () 十位卡号反码取文本右边 (“0000000000” 到文本 (接收到的字节集 [12] 接收到的字节集 [13] × 256 接收到的字节集 [14] × 求次方 (256, 2) 接收到的字节集 [15] × 求次方 (256, 3)), 10) 十位卡号正码取文本右边 (“0000000000” 到文本 (接收到的字节集 [12] × 求次方 (256, 3) 接收到的字节集 [13] × 求次方 (256, 2) 接收到的字节集 [14] × 256 接收到的字节集 [15]), 10) i 11 i .判断循环首 (i 数据长度) 唯一设备序号唯一设备序号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [i]), 2) i i 1 .判断循环尾 () 唯一设备序号唯一设备序号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [i]), 2) 解析结果解析结果设备IP “]机号[” 到文本 (机号) “]数据包序号[” 到文本 (数据包序号) “]物理卡号HEX[” 物理卡号 “]转10位正码[” 十位卡号正码 “]唯一设备序号[” 唯一设备序号 “]” 列表框_报文.加入项目 (解析结果, ) 列表框_报文.现行选中项列表框_报文.取项目数 () 列表框_报文.加入项目 (“”, ) 接收到设备信息回应 (设备IP, 39169, 到整数 (机号)) .否则 .如果 (数据长度 10 且接收到的字节集 [1] 十六进制 (“D1”)) 接收到ID读卡器数据解析结果 “接收数据解析ID读卡器刷卡数据设备IP[” 设备IP 到文本 (接收到的字节集 [2]) “.” 到文本 (接收到的字节集 [3]) “.” 到文本 (接收到的字节集 [4]) “.” 到文本 (接收到的字节集 [5]) 机号到文本 (接收到的字节集 [6] 接收到的字节集 [7] × 256) 数据包序号接收到的字节集 [8] 接收到的字节集 [9] × 256 .计次循环首 (5, i) 物理卡号物理卡号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [9 i]), 2) .计次循环尾 () 十位卡号正码取文本右边 (“0000000000” 到文本 (接收到的字节集 [10] 接收到的字节集 [11] × 256 接收到的字节集 [12] × 求次方 (256, 2) 接收到的字节集 [13] × 求次方 (256, 3)), 10) 十位卡号反码取文本右边 (“0000000000” 到文本 (接收到的字节集 [10] × 求次方 (256, 3) 接收到的字节集 [11] × 求次方 (256, 2) 接收到的字节集 [12] × 256 接收到的字节集 [13]), 10) i 15 .判断循环首 (i 数据长度) 唯一设备序号唯一设备序号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [i]), 2) i i 1 .判断循环尾 () 唯一设备序号唯一设备序号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [i]), 2) 解析结果解析结果设备IP “]机号[” 到文本 (机号) “]数据包序号[” 到文本 (数据包序号) “]物理卡号HEX[” 物理卡号 “]转10位正码[” 十位卡号正码 “]唯一设备序号[” 唯一设备序号 “]” 列表框_报文.加入项目 (解析结果, ) 列表框_报文.加入项目 (“”, ) 接收到设备信息回应 (设备IP, 39169, 到整数 (机号)) .否则 .如果 (数据长度 10 且接收到的字节集 [1] 十六进制 (“DF”)) 接收到ID卡离开的数据解析结果 “接收数据解析ID读卡器刷卡数据设备IP[” 设备IP 到文本 (接收到的字节集 [2]) “.” 到文本 (接收到的字节集 [3]) “.” 到文本 (接收到的字节集 [4]) “.” 到文本 (接收到的字节集 [5]) 机号到文本 (接收到的字节集 [6] 接收到的字节集 [7] × 256) 数据包序号接收到的字节集 [8] 接收到的字节集 [9] × 256 .计次循环首 (5, i) 物理卡号物理卡号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [11 i]), 2) .计次循环尾 () 十位卡号正码取文本右边 (“0000000000” 到文本 (接收到的字节集 [12] 接收到的字节集 [13] × 256 接收到的字节集 [14] × 求次方 (256, 2) 接收到的字节集 [15] × 求次方 (256, 3)), 10) 十位卡号反码取文本右边 (“0000000000” 到文本 (接收到的字节集 [12] × 求次方 (256, 3) 接收到的字节集 [13] × 求次方 (256, 2) 接收到的字节集 [14] × 256 接收到的字节集 [15]), 10) i 17 .判断循环首 (i 数据长度) 唯一设备序号唯一设备序号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [i]), 2) i i 1 .判断循环尾 () 唯一设备序号唯一设备序号取文本右边 (“0” 取十六进制文本 (接收到的字节集 [i]), 2) 解析结果解析结果设备IP “]机号[” 到文本 (机号) “]数据包序号[” 到文本 (数据包序号) “]物理卡号HEX[” 物理卡号 “]转10位正码[” 十位卡号正码 “]唯一设备序号[” 唯一设备序号 “]” 列表框_报文.加入项目 (解析结果, ) 列表框_报文.加入项目 (“”, ) 接收到设备信息回应 (设备IP, 39169, 到整数 (机号)) .否则 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 .子程序十六进制转十进制, 整数型 .参数十六进制, 文本型 .局部变量 i, 整数型 .局部变量十进制, 整数型 .计次循环首 (取文本长度 (十六进制), i) 十进制十进制 × 16 寻找文本 (“0123456789ABCDEF”, 取文本中间 (到大写 (十六进制), i, 1), , 假) 1 .计次循环尾 () 返回 (十进制) .子程序十进制转二进制, 文本型 .参数十进制, 整数型 .局部变量二进制, 文本型 .局部变量余数, 整数型 .判断循环首 (十进制 1) 余数十进制 2 十进制十进制 2 二进制到文本 (余数) 二进制 .判断循环尾 () 二进制到文本 (十进制) 二进制 .判断循环首 (取文本长度 (二进制) 8) 二进制 “0” 二进制 .判断循环尾 () 返回 (二进制) .子程序更新超级列表框设备信息 .参数机号, 文本型 .参数设备IP, 文本型 .参数掩码, 文本型 .参数通讯端口, 文本型 .参数网关, 文本型 .参数网关MAC, 文本型 .参数远程服务器IP, 文本型 .参数服务器MAC, 文本型 .参数网络标识, 文本型 .参数参数标识, 文本型 .参数模块序号, 文本型 .参数设备MAC, 文本型 .参数唯一设备序号, 文本型 .参数 DN, 文本型 .局部变量 index, 整数型 .局部变量项目数, 整数型 .局部变量 i, 整数型 .局部变量项目值, 文本型 .局部变量是否存在, 逻辑型 .局部变量指令缓冲, 字节型, , 1 是否存在假项目数超级列表框1.取表项数 () .如果 (项目数 0) .计次循环首 (项目数, i) .如果 (设备IP 超级列表框1.取标题 (i 1, 1) 且唯一设备序号超级列表框1.取标题 (i 1, 12)) 是否存在真超级列表框1.置标题 (i 1, 0, 机号) 超级列表框1.置标题 (i 1, 2, 掩码) 超级列表框1.置标题 (i 1, 3, 通讯端口) 超级列表框1.置标题 (i 1, 4, 网关) 超级列表框1.置标题 (i 1, 5, 网关MAC) 超级列表框1.置标题 (i 1, 6, 远程服务器IP) 超级列表框1.置标题 (i 1, 7, 服务器MAC) 超级列表框1.置标题 (i 1, 8, 网络标识) 超级列表框1.置标题 (i 1, 9, 参数标识) 超级列表框1.置标题 (i 1, 10, 模块序号) 超级列表框1.置标题 (i 1, 11, 设备MAC) 超级列表框1.置标题 (i 1, 15, DN) 返回 () .否则 .如果结束 .计次循环尾 () .否则 .如果结束 .如果 (是否存在假) index 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (index, 0, 机号) 超级列表框1.置标题 (index, 1, 设备IP) 超级列表框1.置标题 (index, 2, 掩码) 超级列表框1.置标题 (index, 3, 通讯端口) 超级列表框1.置标题 (index, 4, 网关) 超级列表框1.置标题 (index, 5, 网关MAC) 超级列表框1.置标题 (index, 6, 远程服务器IP) 超级列表框1.置标题 (index, 7, 服务器MAC) 超级列表框1.置标题 (index, 8, 网络标识) 超级列表框1.置标题 (index, 9, 参数标识) 超级列表框1.置标题 (index, 10, 模块序号) 超级列表框1.置标题 (index, 11, 设备MAC) 超级列表框1.置标题 (index, 12, 唯一设备序号) 超级列表框1.置标题 (index, 15, DN) 指令缓冲 [1] 十六进制 (“A8”) 数据报.发送数据 (设备IP, 39169, 到字节集 (指令缓冲)) 广播式发送搜索在线设备的指令列表框_报文.加入项目 (取系统时间 () “ ” 取文本左边 (设备IP “:39169 ”, 22) “发送指令A8”, ) .否则 .如果结束 .子程序更新超级列表框设备型号版本 .参数设备IP, 文本型 .参数唯一设备序号, 文本型 .参数设备型号, 文本型 .参数固件日期, 文本型 .局部变量 i, 整数型 .计次循环首 (超级列表框1.取表项数 (), i) .如果 (设备IP 超级列表框1.取标题 (i 1, 1) 且唯一设备序号超级列表框1.取标题 (i 1, 12)) 超级列表框1.置标题 (i 1, 13, 设备型号) 超级列表框1.置标题 (i 1, 14, 固件日期) 返回 () .否则 .如果结束 .计次循环尾 () .子程序字节集转十六进制文本, 文本型 .参数字节集, 字节集 .局部变量 i, 整数型 .局部变量结果, 文本型 .局部变量计次, 整数型结果 “” 计次取字节集长度 (字节集) .计次循环首 (计次, i) .如果 (字节集 [i] 16) 结果结果 “0” 取十六进制文本 (字节集 [i]) “ ” .否则结果结果取十六进制文本 (字节集 [i]) “ ” .如果结束 .计次循环尾 () 返回 (结果) .子程序取系统时间, 文本型 .局部变量当前时间, 日期时间型 .局部变量结果, 文本型当前时间取现行时间 () 结果取文本右边 (“0” 到文本 (取小时 (当前时间)), 2) “:” 取文本右边 (“0” 到文本 (取分钟 (当前时间)), 2) “:” 取文本右边 (“0” 到文本 (取秒 (当前时间)), 2) 返回 (结果) .子程序 __启动窗口_创建完毕 .子程序 _超级列表框1_被双击, 逻辑型 .参数横向位置, 整数型 .参数纵向位置, 整数型 .参数功能键状态, 整数型 .局部变量 index, 整数型 index 超级列表框1.现行选中项 .如果真 (index -1) 返回 () .如果真结束编辑框_机号.内容超级列表框1.取标题 (index, 0) 编辑框_IP.内容超级列表框1.取标题 (index, 1) 编辑框_设备端口.内容超级列表框1.取标题 (index, 3) 指定IP发送.选中真广播式发送.选中假 .子程序 _按钮_驱动蜂鸣响声_被单击 .如果 (广播式发送.选中真) 驱动设备蜂鸣响声 (“”, 39169, 0) .否则驱动设备蜂鸣响声 (删全部空 (编辑框_IP.内容), 到整数 (编辑框_设备端口.内容), 到整数 (编辑框_机号.内容)) .如果结束 .子程序驱动设备蜂鸣响声 .参数远程IP, 文本型 .参数远程端口, 整数型 .参数机号, 整数型 .局部变量指令缓冲, 字节型, , 4 指令缓冲 [1] 十六进制 (“96”) 驱动读卡器蜂鸣响声的指令码指令缓冲 [2] 机号 256 读卡器机号低位指令缓冲 [3] 机号 256 读卡器机号高位指令缓冲 [4] 组合框_蜂鸣声.现行选中项蜂鸣器响声代码数据报.发送数据 (远程IP, 远程端口, 到字节集 (指令缓冲)) 列表框_报文.加入项目 (取系统时间 () “ ” 取文本左边 (远程IP “:” 到文本 (远程端口) “ ”, 22) “发送数据” 字节集转十六进制文本 (到字节集 (指令缓冲)), ) 列表框_报文.加入项目 (“发送数据说明驱动设备蜂鸣响声。”, ) 列表框_报文.现行选中项列表框_报文.取项目数 () 列表框_报文.加入项目 (“”, ) .子程序 _按钮_开继电器_被单击 .如果 (广播式发送.选中真) 驱动设备开继电器 (“”, 39169, 0) .否则驱动设备开继电器 (删全部空 (编辑框_IP.内容), 到整数 (编辑框_设备端口.内容), 到整数 (编辑框_机号.内容)) .如果结束 .子程序驱动设备开继电器 .参数远程IP, 文本型 .参数远程端口, 整数型 .参数机号, 整数型 .局部变量指令缓冲, 字节型, , 6 .局部变量继电器延时, 整数型指令缓冲 [1] 十六进制 (“78”) 驱动读卡器开启继电器的指令码指令缓冲 [2] 机号 256 读卡器机号低位指令缓冲 [3] 机号 256 读卡器机号高位 .如果 (组合框_继电器.现行选中项 1) 指令缓冲 [4] 十六进制 (“F1”) .否则 .如果 (组合框_继电器.现行选中项 2) 指令缓冲 [4] 十六进制 (“F2”) .否则 .如果 (组合框_继电器.现行选中项 3) 指令缓冲 [4] 十六进制 (“F3”) .否则 .如果 (组合框_继电器.现行选中项 4) 指令缓冲 [4] 十六进制 (“F4”) .否则 .如果 (组合框_继电器.现行选中项 5) 指令缓冲 [4] 十六进制 (“F5”) .否则 .如果 (组合框_继电器.现行选中项 6) 指令缓冲 [4] 十六进制 (“F6”) .否则 .如果 (组合框_继电器.现行选中项 7) 指令缓冲 [4] 十六进制 (“F7”) .否则 .如果 (组合框_继电器.现行选中项 8) 指令缓冲 [4] 十六进制 (“F8”) .否则 .如果结束指令缓冲 [4] 十六进制 (“F0”) .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束继电器延时到整数 (编辑框_继电器.内容) 指令缓冲 [5] 继电器延时 256 指令缓冲 [6] 继电器延时 256 数据报.发送数据 (远程IP, 远程端口, 到字节集 (指令缓冲)) 列表框_报文.加入项目 (取系统时间 () “ ” 取文本左边 (远程IP “:” 到文本 (远程端口) “ ”, 22) “发送数据” 字节集转十六进制文本 (到字节集 (指令缓冲)), ) 列表框_报文.加入项目 (“发送数据说明驱动设备开启继电器。”, ) 列表框_报文.现行选中项列表框_报文.取项目数 () 列表框_报文.加入项目 (“”, ) .子程序 _按钮_关继电器_被单击 .如果 (广播式发送.选中真) 驱动设备关继电器 (“”, 39169, 0) .否则驱动设备关继电器 (删全部空 (编辑框_IP.内容), 到整数 (编辑框_设备端口.内容), 到整数 (编辑框_机号.内容)) .如果结束 .子程序驱动设备关继电器 .参数远程IP, 文本型 .参数远程端口, 整数型 .参数机号, 整数型 .局部变量指令缓冲, 字节型, , 6 .局部变量继电器延时, 整数型指令缓冲 [1] 十六进制 (“78”) 驱动读卡器开启继电器的指令码指令缓冲 [2] 机号 256 读卡器机号低位指令缓冲 [3] 机号 256 读卡器机号高位 .如果 (组合框_继电器.现行选中项 1) 指令缓冲 [4] 十六进制 (“E1”) .否则 .如果 (组合框_继电器.现行选中项 2) 指令缓冲 [4] 十六进制 (“E2”) .否则 .如果 (组合框_继电器.现行选中项 3) 指令缓冲 [4] 十六进制 (“E3”) .否则 .如果 (组合框_继电器.现行选中项 4) 指令缓冲 [4] 十六进制 (“E4”) .否则 .如果 (组合框_继电器.现行选中项 5) 指令缓冲 [4] 十六进制 (“E5”) .否则 .如果 (组合框_继电器.现行选中项 6) 指令缓冲 [4] 十六进制 (“E6”) .否则 .如果 (组合框_继电器.现行选中项 7) 指令缓冲 [4] 十六进制 (“E7”) .否则 .如果 (组合框_继电器.现行选中项 8) 指令缓冲 [4] 十六进制 (“E8”) .否则 .如果结束指令缓冲 [4] 十六进制 (“E0”) .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束继电器延时到整数 (编辑框_继电器.内容) 指令缓冲 [5] 继电器延时 256 指令缓冲 [6] 继电器延时 256 数据报.发送数据 (远程IP, 远程端口, 到字节集 (指令缓冲)) 列表框_报文.加入项目 (取系统时间 () “ ” 取文本左边 (远程IP “:” 到文本 (远程端口) “ ”, 22) “发送数据” 字节集转十六进制文本 (到字节集 (指令缓冲)), ) 列表框_报文.加入项目 (“发送数据说明驱动设备关闭继电器。”, ) 列表框_报文.现行选中项列表框_报文.取项目数 () 列表框_报文.加入项目 (“”, ) .子程序 _按钮_显示和蜂鸣_被单击 .如果 (广播式发送.选中真) 驱动设备显示和蜂鸣 (“”, 39169, 0) .否则驱动设备显示和蜂鸣 (删全部空 (编辑框_IP.内容), 到整数 (编辑框_设备端口.内容), 到整数 (编辑框_机号.内容)) .如果结束 .子程序驱动设备显示和蜂鸣 .参数远程IP, 文本型 .参数远程端口, 整数型 .参数机号, 整数型 .局部变量指令缓冲, 字节型, , 5 .局部变量显示字节集, 字节集指令缓冲 [1] 十六进制 (“5A”) 驱动读卡器显示文字和蜂鸣响声指令码指令缓冲 [2] 机号 256 读卡器机号低位指令缓冲 [3] 机号 256 读卡器机号高位 .如果 (选择框_响声.选中) 指令缓冲 [4] 组合框_蜂鸣声.现行选中项蜂鸣器响声代码 .如果 (单选框_背光不变.选中) 指令缓冲 [4] 位或 (指令缓冲 [4], 128) .否则 .如果结束 .否则指令缓冲 [4] 十六进制 (“FF”) 不蜂鸣响声 .如果 (单选框_背光不变.选中) 指令缓冲 [4] 位或 (指令缓冲 [4], 127) .否则 .如果结束 .如果结束指令缓冲 [5] 到字节 (编辑框_显示延时.内容) 显示延时255表示永久显示显示字节集取字节集左边 (到字节集 (编辑框_显示文字.内容 “ ”), 34) 后面加上空格并取34长度表示本次满屏显示数据报.发送数据 (远程IP, 远程端口, 到字节集 (指令缓冲) 显示字节集) 列表框_报文.加入项目 (取系统时间 () “ ” 取文本左边 (远程IP “:” 到文本 (远程端口) “ ”, 22) “发送数据” 字节集转十六进制文本 (到字节集 (指令缓冲) 显示字节集), ) 列表框_报文.加入项目 (“发送数据说明驱动设备显示文字蜂鸣响声。”, ) 列表框_报文.现行选中项列表框_报文.取项目数 () 列表框_报文.加入项目 (“”, ) .子程序 _按钮_显示蜂鸣语音_被单击 .如果 (广播式发送.选中真) 驱动设备显示文字播报语音 (“”, 39169, 0) .否则驱动设备显示文字播报语音 (删全部空 (编辑框_IP.内容), 到整数 (编辑框_设备端口.内容), 到整数 (编辑框_机号.内容)) .如果结束 .子程序驱动设备显示文字播报语音 .参数远程IP, 文本型 .参数远程端口, 整数型 .参数机号, 整数型 .局部变量指令缓冲, 字节型, , 11 .局部变量显示字节集, 字节集 .局部变量语音字节集, 字节集 .局部变量后缀缓冲, 字节型, , 4 .局部变量继电器延时, 整数型显示字节集取字节集左边 (到字节集 (编辑框_显示文字.内容 “ ”), 34) 后面加上空格并取34长度表示本次满屏显示语音字节集到字节集 (“[v” 删首尾空 (编辑框_音量.内容) “]” 删首尾空 (编辑框_TTS语音.内容)) [v10]表示的播报的语音量大小最大取值16 指令缓冲 [1] 十六进制 (“5C”) 驱动读卡器显示文字播报TTS语音和蜂鸣响声指令码指令缓冲 [2] 机号 256 读卡器机号低位指令缓冲 [3] 机号 256 读卡器机号高位 .如果 (选择框_响声.选中) 指令缓冲 [4] 组合框_蜂鸣声.现行选中项蜂鸣器响声代码 .如果 (单选框_背光不变.选中) 指令缓冲 [4] 位或 (指令缓冲 [4], 128) .否则 .如果结束 .否则指令缓冲 [4] 十六进制 (“FF”) 不蜂鸣响声 .如果 (单选框_背光不变.选中) 指令缓冲 [4] 位或 (指令缓冲 [4], 127) .否则 .如果结束 .如果结束 .如果 (组合框_继电器.现行选中项 1) 指令缓冲 [5] 十六进制 (“F1”) .否则 .如果 (组合框_继电器.现行选中项 2) 指令缓冲 [5] 十六进制 (“F2”) .否则 .如果 (组合框_继电器.现行选中项 3) 指令缓冲 [5] 十六进制 (“F3”) .否则 .如果 (组合框_继电器.现行选中项 4) 指令缓冲 [5] 十六进制 (“F4”) .否则 .如果 (组合框_继电器.现行选中项 5) 指令缓冲 [5] 十六进制 (“F5”) .否则 .如果 (组合框_继电器.现行选中项 6) 指令缓冲 [5] 十六进制 (“F6”) .否则 .如果 (组合框_继电器.现行选中项 7) 指令缓冲 [5] 十六进制 (“F7”) .否则 .如果 (组合框_继电器.现行选中项 8) 指令缓冲 [5] 十六进制 (“F8”) .否则 .如果结束指令缓冲 [5] 十六进制 (“F0”) .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束 .如果结束继电器延时到整数 (编辑框_继电器.内容) 继电器开启延时取值65535 表示永久开启指令缓冲 [6] 继电器延时 256 指令缓冲 [7] 继电器延时 256 指令缓冲 [8] 到字节 (编辑框_显示延时.内容) 显示保留时间单位为秒为255时表示永久显示指令缓冲 [9] 0 在显示屏中的哪个位置开始显示指令缓冲 [10] 34 显示字符串长度 0-34为全屏指令缓冲 [11] 取字节集长度 (语音字节集) 语音长度最长可以126 后缀缓冲 [1] 十六进制 (“55”) 4字节固定的后缀后缀缓冲 [2] 十六进制 (“AA”) 后缀缓冲 [3] 十六进制 (“66”) 后缀缓冲 [4] 十六进制 (“99”) 数据报.发送数据 (远程IP, 远程端口, 到字节集 (指令缓冲) 显示字节集语音字节集到字节集 (后缀缓冲)) 列表框_报文.加入项目 (取系统时间 () “ ” 取文本左边 (远程IP “:” 到文本 (远程端口) “ ”, 22) “发送数据” 字节集转十六进制文本 (到字节集 (指令缓冲) 显示字节集语音字节集到字节集 (后缀缓冲)), ) 列表框_报文.加入项目 (“发送数据说明驱动设备显示文字、播报语音、开启继电器、蜂鸣响声。”, ) 列表框_报文.现行选中项列表框_报文.取项目数 () 列表框_报文.加入项目 (“”, ) .子程序 _按钮1_被单击 .局部变量 index, 整数型 index 超级列表框1.现行选中项 .如果 (index -1) 信息框 (“请在下栏在线设备列表中选择需要更改网络参数的设备”, 0, “提示”, ) .否则载入 (更改网络参数, , 真) .如果结束 .子程序接收到设备信息回应 .参数远程IP, 文本型 .参数远程端口, 整数型 .参数机号, 整数型 .如果 (选择框_回应.选中) .如果 (单选框_蜂鸣.选中) 驱动设备蜂鸣响声 (远程IP, 远程端口, 机号) .否则 .如果 (单选框_继电器.选中) 驱动设备开继电器 (远程IP, 远程端口, 机号) .否则 .如果 (单选框_显示和蜂鸣.选中) 驱动设备显示和蜂鸣 (远程IP, 远程端口, 机号) .否则 .如果 (单选框_显示蜂鸣语音.选中) 驱动设备显示文字播报语音 (远程IP, 远程端口, 机号) .否则 .如果结束 .如果结束 .如果结束 .如果结束 .否则 .如果结束 .子程序 _按钮_拷贝报文_被单击 .局部变量项目数, 整数型 .局部变量拷贝信息, 文本型 .局部变量 i, 整数型项目数列表框_报文.取项目数 () .如果 (项目数 0) .计次循环首 (项目数, i) 拷贝信息拷贝信息列表框_报文.取项目文本 (i 1) 字符 (13) 字符 (10) .计次循环尾 () 置剪辑板文本 (拷贝信息) 信息框 (“通讯报文已拷贝到剪辑板”, 0, “提示”, ) .否则 .如果结束 .子程序 _按钮_清空报文_被单击列表框_报文.清空 ()

易语言数据报UDP通讯接收RFID网络读卡器获取卡号驱动设备播报TTS语音

相关推荐

VRCX VRChat 好友管理：记住每次相遇

让AI Agent帮你读论文：EasyRead的paper-reading与paper-xray技能实战教程

霞鹜文楷完整指南：免费商用的开源楷体字体

更多资讯

OpenAI 挨个通知了 100 多家组织：给 Agent 补一张出站责任清单

一次出站重试风暴的沙箱复盘：重试没退避，Agent 十几分钟烧穿整月额度

【八个月网安课程】第十二周·周一：代码审计环境搭建与 Seay 源码审计系统初探

【基于 Swoole+Hyperf 的微服务实战】第十二周·周一：自研一个生产级 API 网关

【第 09 课 | 鸿蒙AI视觉能力集成：Core Vision Kit与图像超分实战】

麦肯锡民生银行大数据能力现状诊断报告

今日更新

Verilog实现FPGA密码锁：矩阵键盘与状态机设计实战

数据服务监控运维实战：从指标体系到告警治理与故障排查

FreeRTOS任务通知实战详解：内核原理、API与避坑指南

本周精选

金融AI落地指南：从调研报告到技术选型与工程实践

大模型上下文成本与注意力优化技术深度解析——为何O(n²)平方复杂度无法被常规优化消除｜TaoToken 统一 Key 通道实测

基于GMM的语音识别系统原理与MATLAB实现详解

本月热门

我发现了一个新思路：用 Remotion + Claude Code 像写代码一样自动化生成短视频

Windows下 Codex 中 Chrome 和 Computer Use 插件不可用问题排查及解决参考方式：TaoToken 统一 Key 配置与验证

2026 大模型集体涨价：用 Python 做企业 Token 成本测算与选型避坑（附配置）

读完文章，想聊聊您的网站？