易语言串口接收处理，Hex 16进制、文本

haifutw

  

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

变量名	类 型	静态	数组	备 注
临时字节集	字节集
单字节	文本型

超级编辑框1.置选择区字符格式 (字符格式2)
判断 (单选框_16接收.选中 ＝ 真)
单字节 ＝ 格式化文本 (“%02X”, 数据字节值) ＋ “ ”
超级编辑框1.被选择文本 ＝ 单字节
本条报文 ＝ 本条报文 ＋ 单字节
判断 (单选框_ASCII接收.选中)
临时字节集 ＝ 取字节集左边 (临时字节集 ＋ { 0, 0 }, 2)
判断 (数据字节值 ＞ 127)
判断 (临时字节集 ＝ { 0, 0 })
临时字节集 [1] ＝ 数据字节值

判断 (临时字节集 [2] ＝ 0)
临时字节集 [2] ＝ 数据字节值
超级编辑框1.被选择文本 ＝ 取字节集数据 (临时字节集, #文本型, )
临时字节集 ＝ { 0, 0 }



如果真 (数据字节值 ≠ 0 且 数据字节值 ≠ 13)  ' 2021.05.26 加入判断。
如果 (数据字节值 ＝ 10)
临时字节集 ＝ { 13, 10 }  ' 把单字节【0A =10】变成【0D 0A =13 10】,#换行符 = 0D 0A
超级编辑框1.被选择文本 ＝ 取字节集数据 (临时字节集, #文本型, )

超级编辑框1.被选择文本 ＝ 字符 (到字节 (数据字节值))

临时字节集 ＝ { 0, 0 }




超级编辑框1.发送信息 (277, 7, 0)
接收字节数 ＝ 接收字节数 ＋ 1
状态条1.置文本 (0, “RX:” ＋ 到文本 (接收字节数))

i支持库列表	支持库注释
iext2	扩展界面支持库二
eAPI	应用接口支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext2<br /> .支持库 eAPI<br /> .支持库 iext<br /> <br /> .子程序 _端口1_数据到达<br /> .参数 数据字节值, 整数型<br /> .局部变量 临时字节集, 字节集, 静态<br /> .局部变量 单字节, 文本型<br /> <br /> 超级编辑框1.置选择区字符格式 (字符格式2)<br /> .判断开始 (单选框_16接收.选中 ＝ 真)<br />     单字节 ＝ 格式化文本 (“%02X”, 数据字节值) ＋ “ ”<br />     超级编辑框1.被选择文本 ＝ 单字节<br />     本条报文 ＝ 本条报文 ＋ 单字节<br /> .判断 (单选框_ASCII接收.选中)<br />     临时字节集 ＝ 取字节集左边 (临时字节集 ＋ { 0, 0 }, 2)<br />     .判断开始 (数据字节值 ＞ 127)<br />         .判断开始 (临时字节集 ＝ { 0, 0 })<br />             临时字节集 [1] ＝ 数据字节值<br /> <br />         .判断 (临时字节集 [2] ＝ 0)<br />             临时字节集 [2] ＝ 数据字节值<br />             超级编辑框1.被选择文本 ＝ 取字节集数据 (临时字节集, #文本型, )<br />             临时字节集 ＝ { 0, 0 }<br />         .默认<br /> <br />         .判断结束<br /> <br />     .默认<br />         .如果真 (数据字节值 ≠ 0 且 数据字节值 ≠ 13)  ' 2021.05.26 加入判断。<br />             .如果 (数据字节值 ＝ 10)<br />                 临时字节集 ＝ { 13, 10 }  ' 把单字节【0A =10】变成【0D 0A =13 10】,#换行符 = 0D 0A<br />                 超级编辑框1.被选择文本 ＝ 取字节集数据 (临时字节集, #文本型, )<br /> <br />             .否则<br />                 超级编辑框1.被选择文本 ＝ 字符 (到字节 (数据字节值))<br />             .如果结束<br /> <br />         .如果真结束<br />         临时字节集 ＝ { 0, 0 }<br />     .判断结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> 超级编辑框1.发送信息 (277, 7, 0)<br /> 接收字节数 ＝ 接收字节数 ＋ 1<br /> 状态条1.置文本 (0, “RX:” ＋ 到文本 (接收字节数))

hotsion

感谢分享

wangdili19822

感谢分享！

wis98

我正在找，学习一下