.版本 2
.程序集 窗口程序集1
.程序集变量 全局变量1, 文本型
.程序集变量 全局变量2, 整数型
.子程序 _按钮10_被单击
编辑框10.内容 ＝ “”
.子程序 _按钮18_被单击
编辑框7.内容 ＝ “”
编辑框5.内容 ＝ “”
.子程序 _图形按钮35_被单击
.如果 (图形按钮35.选中 ＝ 真)
选择框3.选中 ＝ 真
选择框4.选中 ＝ 真
选择框5.选中 ＝ 真
选择框6.选中 ＝ 真
.否则
选择框3.选中 ＝ 假
选择框4.选中 ＝ 假
选择框5.选中 ＝ 假
选择框6.选中 ＝ 假
.如果结束
.子程序 _选择框1_被单击
.如果 (选择框1.选中 ＝ 真)
图片框6.可视 ＝ 假
信息框 (“电机1已开启”, 0, )
.否则
图片框6.可视 ＝ 真
.如果结束
.子程序 _选择框2_被单击
.如果 (选择框2.选中 ＝ 真)
图片框7.可视 ＝ 假
信息框 (“电机2已开启”, 0, )
.否则
图片框7.可视 ＝ 真
.如果结束
.子程序 _组合框1_列表项被选择
端口1.波特率 ＝ 组合框1.现行选中项
.子程序 _组合框2_列表项被选择
端口1.端口号 ＝ 组合框2.现行选中项 ＋ 1
.子程序 _组合框3_列表项被选择
端口1.数据位数 ＝ 组合框3.现行选中项 ＋ 5
.子程序 _组合框4_列表项被选择
端口1.停止位数 ＝ 组合框4.现行选中项 × 0.5 ＋ 1
.子程序 _组合框5_列表项被选择
端口1.奇偶校验方案 ＝ 组合框5.现行选中项
.子程序 _按钮14_被单击
.如果 (端口1.发送数据 (编辑框7.内容) ＝ 假)
编辑框5.内容 ＝ “发送失败!”
图片框4.可视 ＝ 假
编辑框7.内容 ＝ “”
.否则
编辑框5.内容 ＝ “发送成功!”
图片框4.可视 ＝ 真
编辑框7.内容 ＝ “”
.如果结束
.子程序 _图形按钮2_被单击
.如果 (图形按钮2.选中 ＝ 假)
.如果 (端口1.启动 () ＝ 假)
.如果 (信息框 (“端口被侵占！”, 0, ) ＝ 0)
图形按钮2.选中 ＝ 假
.否则
.如果结束
图形按钮2.选中 ＝ 真
.否则
.如果结束
.否则
.如果结束
.如果 (图形按钮2.选中 ＝ 真)
端口1.停止 ()
.否则
.如果结束
.子程序 _按钮1_被单击
.如果 (图形按钮37.选中 ＝ 假)
编辑框7.加入文本 (“1”)
.否则
编辑框7.内容 ＝ “1”
.如果结束
.子程序 _按钮2_被单击
编辑框7.加入文本 (“2”)
.子程序 _按钮3_被单击
编辑框7.加入文本 (“3”)
.子程序 _按钮11_被单击
编辑框7.加入文本 (“#”)
.子程序 _编辑框7_内容被改变
.如果 (编辑框7.内容 ＝ “#”)
编辑框5.内容 ＝ “”
.否则
.如果结束
.如果 (取文本长度 (编辑框7.内容) ＞ 22)
信息框 (“停停停停停！”, 0, )
.否则
.如果结束
.子程序 _按钮5_被单击
编辑框7.加入文本 (“4”)
.子程序 _按钮4_被单击
编辑框7.加入文本 (“5”)
.子程序 _按钮6_被单击
编辑框7.加入文本 (“6”)
.子程序 _按钮12_被单击
编辑框7.加入文本 (“0”)
.子程序 _按钮7_被单击
编辑框7.加入文本 (“7”)
.子程序 _按钮8_被单击
编辑框7.加入文本 (“8”)
.子程序 _按钮9_被单击
编辑框7.加入文本 (“9”)
.子程序 _按钮13_被单击
编辑框7.加入文本 (“*”)
.子程序 _按钮15_被单击
全局变量2 ＝ 取文本长度 (编辑框7.内容)
全局变量1 ＝ 取文本左边 (编辑框7.内容, 全局变量2 － 1)
编辑框7.内容 ＝ 全局变量1
.子程序 __启动窗口_创建完毕
.局部变量 RET, 整数型
RET ＝ GetWindowLong (取窗口句柄 (), -20)
RET ＝ 位或 (RET, 524288)
SetWindowLong (取窗口句柄 (), -20, RET)
SetLayeredWindowAttributes (_启动窗口.取窗口句柄 (), 0, 255, 2)
.子程序 _滑块条3_位置被改变
SetLayeredWindowAttributes (_启动窗口.取窗口句柄 (), 0, 滑块条3.位置, 2)
.子程序 _端口1_收到信号
.参数 信号类型, 整数型
编辑框10.加入文本 (“接收到数据”)
.子程序 _编辑框10_内容被改变
.子程序 _编辑框5_内容被改变
.子程序 _外形框3_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.子程序 _分组框6_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.子程序 _编辑框11_内容被改变
.子程序 _按钮14_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果 (键代码 ＝ 13)
.如果 (端口1.发送数据 (编辑框7.内容) ＝ 假)
编辑框5.内容 ＝ “发送失败!”
图片框4.可视 ＝ 假
编辑框7.内容 ＝ “”
.否则
编辑框5.内容 ＝ “发送成功!”
图片框4.可视 ＝ 真
编辑框7.内容 ＝ “”
.如果结束
.否则 |
|
楼主
标题置顶
标题高亮
