红外教鞭接应程序

.版本 2
.支持库 eAPI

.程序集 窗口程序集1

.子程序 _组合框1_列表项被选择

端口1.停止 ()

端口1.波特率 ＝ 到数值 (组合框1.取项目文本 (组合框1.现行选中项))
.如果 (图形按钮2.选中 ＝ 假)
端口1.启动 ()
.否则

.如果结束



.子程序 _组合框2_列表项被选择

端口1.停止 ()
端口1.端口号 ＝ 多项选择 (组合框2.现行选中项 ＋ 1, 1, 2, 3, 4, 5, 6, 7, 8)
.如果 (图形按钮2.选中 ＝ 假)
.如果 (端口1.启动 () ＝ 假)
_启动窗口.总在最前 ＝ 假
信息框 (“该端口无效或被侵占！”, 0, )
.否则

.如果结束

.否则

.如果结束



.子程序 _组合框3_列表项被选择

端口1.停止 ()
端口1.数据位数 ＝ 多项选择 (组合框3.现行选中项 ＋ 1, 5, 6, 7, 8)
.如果 (图形按钮2.选中 ＝ 假)
端口1.启动 ()
.否则

.如果结束



.子程序 _组合框4_列表项被选择

端口1.停止 ()
端口1.停止位数 ＝ 多项选择 (组合框4.现行选中项 ＋ 1, 1, 2, 3)
.如果 (图形按钮2.选中 ＝ 假)
端口1.启动 ()
.否则

.如果结束



.子程序 _组合框5_列表项被选择

端口1.停止 ()
端口1.奇偶校验方案 ＝ 多项选择 (组合框5.现行选中项 ＋ 1, 0, 1, 2, 3, 4)

.如果 (端口1.奇偶校验方案 ＝ 0)
端口1.奇偶校验 ＝ 假
.否则
端口1.奇偶校验 ＝ 真
.如果结束

.如果 (图形按钮2.选中 ＝ 假)
端口1.启动 ()
.否则

.如果结束



.子程序 _图形按钮2_被单击

.如果 (图形按钮2.选中 ＝ 假)
.如果 (端口1.启动 () ＝ 假)
_启动窗口.总在最前 ＝ 假
.如果 (信息框 (“端口被侵占或不存在！”, 0, ) ＝ 0)
图形按钮2.选中 ＝ 假
.否则

.如果结束
图形按钮2.选中 ＝ 真
.否则

.如果结束

.否则

.如果结束

.如果 (图形按钮2.选中 ＝ 真)
组合框2.禁止 ＝ 假
端口1.停止 ()
.否则
组合框2.禁止 ＝ 真
.如果结束



.子程序 _端口1_收到信号
.参数 数据字节值, 文本型

' 编辑框1.加入文本 (数据字节值 ＋ #换行符)

.子程序 _端口1_数据到达
.参数 数据字节值, 整数型

' 调试输出 (字符 (114))
.如果 (数据字节值 ＝ 35)
编辑框1.加入文本 (“[root@T root]#” ＋ 到文本 (临时))
编辑框2.内容 ＝ “”
.否则
编辑框2.内容 ＝ “[root@T root]#” ＋ 到文本 (数据字节值)

.如果结束
.如果 (变量1 ＝ 1)
变量1 ＝ 0
.如果 (开关机 ＝ 真)
播放音乐 (#水滴, 假)
.否则
播放音乐 (#bong, 假)
.如果结束

' 编辑框2.加入文本 (到文本 (数据字节值))
临时 ＝ 数据字节值
.如果 (数据字节值 ＝ 78)
.如果 (_启动窗口.可视 ＝ 真)
到托盘 ()
_启动窗口.可视 ＝ 假
.否则
_启动窗口.可视 ＝ 真
播放音乐 (#niao, 假)
.如果结束

.否则

.如果结束
.如果 (开关机 ＝ 真)
键处理 (数据字节值)
.否则

.如果结束

.否则

.如果结束
.如果 (数据字节值 ＝ 36)
变量1 ＝ 1
.否则

.如果结束



.子程序 键处理
.参数 数据字节值, 整数型

.如果 (数据字节值 ＝ 61)
.如果 (光驱 ＝ 真)
关闭光驱 ()
光驱 ＝ 假
.否则
弹出光驱 ()
光驱 ＝ 真
.如果结束

.否则

.如果结束
.如果 (数据字节值 ＝ 64)
模拟按键 (#上光标键, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 65)
模拟按键 (#下光标键, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 66)
模拟按键 (#左光标键, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 67)
模拟按键 (#右光标键, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 115)
模拟按键 (#PageDown键, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 114)
模拟按键 (#PageUp键, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 62)
模拟按键 (#回车键, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 116)
模拟按键 (#F5键, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 117)
模拟按键 (#Esc键, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 48)
模拟按键 (#键1, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 49)
模拟按键 (#键2, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 50)
模拟按键 (#键3, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 51)
模拟按键 (#键4, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 52)
模拟按键 (#键5, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 53)
模拟按键 (#键6, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 54)
模拟按键 (#键7, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 55)
模拟按键 (#键8, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 56)
模拟按键 (#键9, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 59)
模拟按键 (#键0, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 73)
模拟按键 (#Alt键, #Esc键, )
.否则

.如果结束
.如果 (数据字节值 ＝ 74)
模拟按键 (#Alt键, #Esc键, #Shift键)
.否则

.如果结束
.如果 (数据字节值 ＝ 131)
模拟按键 (#退格键, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 60)
模拟按键 (#Alt键, #F4键, )
.否则

.如果结束
.如果 (数据字节值 ＝ 77)
模拟按键 (#Tab键, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 58)
模拟按键 (#圆点键, , )
.否则

.如果结束
.如果 (数据字节值 ＝ 79)
运行 (“C:\Program Files\Opera\opera.exe”, 假, )
.否则

.如果结束
.如果 (数据字节值 ＝ 76)
模拟按键 (#Ctrl键, #Esc键, )
.否则

.如果结束
.如果 (数据字节值 ＝ 124)
模拟按键 (#单击左键, , )
.否则

.如果结束


.子程序 到托盘

_启动窗口.置托盘图标 (_启动窗口.图标, “windows控制”)

.子程序 __启动窗口_创建完毕

变量1 ＝ 0
开关机 ＝ 真
.如果 (端口1.启动 () ＝ 假)
.如果 (信息框 (“端口被侵占或不存在！”, 0, ) ＝ 0)
图形按钮2.选中 ＝ 真
.否则

.如果结束

.否则
组合框2.禁止 ＝ 真
.如果结束
_启动窗口.获取焦点 ()

.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型