端口测试程序

bugaosuni1314

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
xh	文本型

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

如果 (端口1.启动 () ＝ 真)
_启动窗口.标题 ＝ “端口组件---已启动”

_启动窗口.标题 ＝ “端口组件---启动失败”

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

端口1.停止 ()
_启动窗口.标题 ＝ “端口组件---已停止”

子程序名	返回值类型	公开	备 注
_端口1_收到信号
参数名	类 型	参考	可空	数组	备 注
信号类型	整数型

' 整数型；指示具体检测到信号状态的类型，为以下值之一： 1：BREAK 信号； 2：CTS 上升沿信号； 3：DSR 上升沿信号； 4：ERR 信号； 5：RING 信号； 6：RLSD 上升沿信号； 7：事件字符到达； 8：CTS 下降沿信号； 9：DSR 下降沿信号； 10：RLSD 下降沿信号。
如果真 (信号类型 ＝ 1)
xh ＝ “BREAK信号”
如果真 (信号类型 ＝ 2)
xh ＝ “cts上升沿信号”
如果真 (信号类型 ＝ 3)
xh ＝ “DSR上升沿信号”
如果真 (信号类型 ＝ 4)
xh ＝ “ERR上升沿信号”
如果真 (信号类型 ＝ 5)
xh ＝ “RlNG信号”
如果真 (信号类型 ＝ 6)
xh ＝ “RlSD 上升信号”
如果真 (信号类型 ＝ 7)
xh ＝ “事件字符到达一信号”
如果真 (信号类型 ＝ 8)
xh ＝ “CTS 下降沿信号”
如果真 (信号类型 ＝ 9)
xh ＝ “DSR 下降沿信号”
如果真 (信号类型 ＝ 10)
xh ＝ “RLSD 下降沿信号”

接收编辑框.加入文本 (“收到信号：” ＋ 到文本 (信号类型) ＋ xh ＋ #换行符 )

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

如果 (发送编辑框1.内容 ＝ “”)
信息框 (“发送数据不能为空！”, 0, , )
发送编辑框1.获取焦点 ()
如果 (端口1.发送数据 (发送编辑框1.内容) ＝ 假)
信息框 (“发送失败”, 0, , )
接收编辑框.内容 ＝ 发送编辑框1.内容
发送编辑框1.内容 ＝ “”
信息框 (“发送成功”, 0, , )

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

如果真 (端口1.信号操作 ( #发送或置位, #Break信号 ))
信息框 (“信息操作成功!”, 0, , )

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

如果真 (端口1.信号操作 ( #清除信号, #Break信号 ))
信息框 (“信号清除成功!”, 0, , )

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

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

接收编辑框.加入文本 (“数据到达：” ＋ 到文本 (数据字节值) ＋ #换行符 )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 xh, 文本型<br /> <br /> .子程序 _按钮4_被单击<br /> <br /> .如果 (端口1.启动 () ＝ 真)<br />     _启动窗口.标题 ＝ “端口组件---已启动”<br /> <br /> .否则<br />     _启动窗口.标题 ＝ “端口组件---启动失败”<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _按钮5_被单击<br /> <br /> 端口1.停止 ()<br /> _启动窗口.标题 ＝ “端口组件---已停止”<br /> <br /> <br /> .子程序 _端口1_收到信号<br /> .参数 信号类型, 整数型<br /> <br /> ' 整数型；指示具体检测到信号状态的类型，为以下值之一： 1：BREAK 信号； 2：CTS 上升沿信号； 3：DSR 上升沿信号； 4：ERR 信号； 5：RING 信号； 6：RLSD 上升沿信号； 7：事件字符到达； 8：CTS 下降沿信号； 9：DSR 下降沿信号； 10：RLSD 下降沿信号。<br /> <br /> .如果真 (信号类型 ＝ 1)<br />     xh ＝ “BREAK信号”<br /> <br /> .如果真结束<br /> .如果真 (信号类型 ＝ 2)<br />     xh ＝ “cts上升沿信号”<br /> <br /> .如果真结束<br /> .如果真 (信号类型 ＝ 3)<br />     xh ＝ “DSR上升沿信号”<br /> .如果真结束<br /> .如果真 (信号类型 ＝ 4)<br />     xh ＝ “ERR上升沿信号”<br /> .如果真结束<br /> .如果真 (信号类型 ＝ 5)<br />     xh ＝ “RlNG信号”<br /> <br /> .如果真结束<br /> .如果真 (信号类型 ＝ 6)<br /> <br />     xh ＝ “RlSD 上升信号”<br /> <br /> .如果真结束<br /> .如果真 (信号类型 ＝ 7)<br /> <br />     xh ＝ “事件字符到达一信号”<br /> <br /> .如果真结束<br /> .如果真 (信号类型 ＝ 8)<br /> <br />     xh ＝ “CTS 下降沿信号”<br /> .如果真结束<br /> .如果真 (信号类型 ＝ 9)<br /> <br />     xh ＝ “DSR 下降沿信号”<br /> <br /> .如果真结束<br /> .如果真 (信号类型 ＝ 10)<br /> <br />     xh ＝ “RLSD 下降沿信号”<br /> .如果真结束<br /> <br /> 接收编辑框.加入文本 (“收到信号：” ＋ 到文本 (信号类型) ＋ xh ＋ #换行符)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果 (发送编辑框1.内容 ＝ “”)<br />     信息框 (“发送数据不能为空！”, 0, , )<br />     发送编辑框1.获取焦点 ()<br /> .否则<br />     .如果 (端口1.发送数据 (发送编辑框1.内容) ＝ 假)<br />         信息框 (“发送失败”, 0, , )<br />     .否则<br />         接收编辑框.内容 ＝ 发送编辑框1.内容<br />         发送编辑框1.内容 ＝ “”<br /> <br />         信息框 (“发送成功”, 0, , )<br /> <br /> <br /> <br /> <br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .如果真 (端口1.信号操作 (#发送或置位, #Break信号))<br />     信息框 (“信息操作成功!”, 0, , )<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> <br /> .如果真 (端口1.信号操作 (#清除信号, #Break信号))<br />     信息框 (“信号清除成功!”, 0, , )<br /> .如果真结束<br /> <br /> <br /> .子程序 _发送编辑框1_内容被改变<br /> <br /> <br /> <br /> .子程序 _端口1_数据到达<br /> .参数 数据字节值, 整数型<br /> <br /> 接收编辑框.加入文本 (“数据到达：” ＋ 到文本 (数据字节值) ＋ #换行符)

wh1234567

感谢分享

shuya1

谢谢你的分享.赞一个

小瑜

static101

自带例程里有端口操作啊

zhujinkui

已经顶贴，感谢您对论坛的支持！

查过

全都是大佬~

豆豆灰常开心

已经顶贴，感谢您对论坛的支持！

wh1234567

用途是？？？？

亿万

感谢分享