电话拨号

想学坏的小孩

.版本 2

.程序集 窗口程序集1
.程序集变量 键盘, 按钮, , "12"

.子程序 __启动窗口_创建完毕
.局部变量 计数, 整数型

.计次循环首 (12, 计数)
    复制窗口组件 (键盘按钮, 键盘 [计数])
    键盘 [计数].左边 ＝ 键盘按钮.左边 ＋ ((计数 － 1) ％ 3) × 键盘按钮.宽度
    键盘 [计数].顶边 ＝ 键盘按钮.顶边 ＋ ((计数 － 1) ＼ 3) × 键盘按钮.高度
    键盘 [计数].标题 ＝ 多项选择 (计数, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “*”, “0”, “#”)
    键盘 [计数].可视 ＝ 真
.计次循环尾 ()
号码框.获取焦点 ()

.子程序 _挂断_被单击

端口1.发送数据 (“ATH” ＋ #换行符)
端口1.停止 ()

.子程序 _拨号_被单击

端口1.端口号 ＝ 组合框1.取项目数值 (组合框1.现行选中项)
.如果真 (端口1.启动 () ＝ 假)
    信息框 (“初始化端口失败”, 0, )
    返回 ()
.如果真结束
.如果真 (端口1.发送数据 (“ATDT” ＋ 号码框.内容 ＋ #换行符) ＝ 假)
    信息框 (“拨号失败”, 0, )
.如果真结束


.子程序 _退位_被单击

号码框.内容 ＝ 取文本左边 (号码框.内容, 取文本长度 (号码框.内容) － 1)

.子程序 _键盘按钮_被单击
.局部变量 临时按钮, 按钮

临时按钮 ＝ 取事件组件 ()
号码框.加入文本 (临时按钮.标题)

wbin502

下个看看。。

linyuntai

学习啦，谢谢分享