| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| xh | 文本型 | |
如果 (端口1.
启动 () ＝
真)
_启动窗口.标题 ＝
“端口组件---已启动”
_启动窗口.标题 ＝
“端口组件---启动失败”
端口1.
停止 ()_启动窗口.标题 ＝
“端口组件---已停止” 如果真 (信号类型 ＝ 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.内容 ＝
“”)信息框 (“发送数据不能为空！”, 0, ,
)发送编辑框1.
获取焦点 ()
如果 (端口1.
发送数据 (发送编辑框1.内容
) ＝
假)
信息框 (“发送失败”, 0, ,
)接收编辑框.内容 ＝ 发送编辑框1.内容
发送编辑框1.内容 ＝
“”信息框 (“发送成功”, 0, ,
)如果真 (端口1.
信号操作 ( #发送或置位, #Break信号 ))
信息框 (“信息操作成功!”, 0, ,
)如果真 (端口1.
信号操作 ( #清除信号, #Break信号 ))
信息框 (“信号清除成功!”, 0, ,
)接收编辑框.
加入文本 (“数据到达：” ＋
到文本 (数据字节值
) ＋
#换行符 )
