ipad模拟器易语言编写

.版本 2
.支持库 iext2
.支持库 HtmlView

.程序集 窗口程序集1
.程序集变量 变量1, 整数型
.程序集变量 图片p, 字节集, , "6"
.程序集变量 索引1, 整数型

.子程序 _结束_被选择

结束 ()

.子程序 闹钟初始化

闹钟1时 ＝ 0
闹钟1分 ＝ 0
闹钟2时 ＝ 0
闹钟2分 ＝ 0
闹钟3时 ＝ 0
闹钟3分 ＝ 0
闹钟1开 ＝ 真
闹钟2开 ＝ 假
闹钟3开 ＝ 假

.子程序 加载开机动画

外形框1.可视 ＝ 假

.子程序 屏幕熄灭

动画框1.左边 ＝ 34
动画框1.顶边 ＝ 46
动画框1.宽度 ＝ 276
动画框1.高度 ＝ 365

.子程序 开机

屏幕熄灭 ()
加载开机动画 ()
播放音乐 (#hello, )
显示桌面 ()

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

_启动窗口.底图 ＝ #ipad
_启动窗口.置外形图片 (#ipad, #白色)
开机 ()
闹钟初始化 ()
变量2 ＝ 0
.计次循环首 (6, 变量2)
      图片p [变量2] ＝ 多项选择 (变量2, #图片1, #图片2, #图片3, #图片4, #图片5, #图片6)
.计次循环尾 ()
索引1 ＝ 1
_时钟1_周期事件 ()

.子程序 显示桌面

超文本浏览框1.可视 ＝ 假
浏览器复位 ()
外形框1.可视 ＝ 假

.子程序 浏览器置位

超文本浏览框1.左边 ＝ 37
超文本浏览框1.顶边 ＝ 48
超文本浏览框1.宽度 ＝ 272
超文本浏览框1.高度 ＝ 360

.子程序 浏览器复位

超文本浏览框1.左边 ＝ 0
超文本浏览框1.顶边 ＝ 0
超文本浏览框1.宽度 ＝ 0
超文本浏览框1.高度 ＝ 0

.子程序 __启动窗口_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (全局管理, , )

.子程序 _超级按钮1_被单击

.如果 (变量1 ＝ 0)
      播放音乐 (#bye, )
      延时 (400)
      结束 ()
.否则

.如果结束
.如果 (变量1 ≥ 1)
      变量1 ＝ 0
      显示桌面 ()

.否则

.如果结束

.子程序 _超级按钮2_被单击

播放音乐 (#woo1, )
变量1 ＝ 1
载入 (时钟, , 假)
时钟.可视 ＝ 真

.子程序 _超级按钮13_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _超级按钮3_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _超级按钮4_被单击

播放音乐 (#woo3, )
载入 (窗口3, , 假)
变量1 ＝ 1

.子程序 _超级按钮5_被单击

超文本浏览框1.地址 ＝ “ http://wapmap.baidu.com/home/map?bd_page_type=1&city_code=270&entry=&from=0&geo=.=4732JBxBKUVA;&layout=2&level=12&log2=right&name=宜昌市&pid=54f7840548045569f23cbaf0&pu=sz@224_224&ssid=0&uid=wiaui_1332291282_9891&x=12395056.56&y=3576054.89”
浏览器置位 ()
播放音乐 (#woo1, )
延时 (10)
变量1 ＝ 1
超文本浏览框1.可视 ＝ 真

.子程序 _超级按钮6_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _超级按钮7_被单击

播放音乐 (#woo1, )
变量1 ＝ 1

.子程序 _超级按钮8_被单击

显示桌面 ()
播放音乐 (#woo3, )
载入 (窗口4, , 假)
变量1 ＝ 1

.子程序 _超级按钮9_被单击

显示桌面 ()
浏览器置位 ()
超文本浏览框1.地址 ＝ “wap.baidu.com”
播放音乐 (#woo2, )
延时 (10)
超文本浏览框1.可视 ＝ 真
变量1 ＝ 1

.子程序 _超级按钮11_被单击

播放音乐 (#woo1, )
变量1 ＝ 1

.子程序 _超级按钮17_被单击

播放音乐 (#woo1, )
变量1 ＝ 1

.子程序 _超级按钮15_被单击

超文本浏览框1.地址 ＝ “ http://m7.mm.mail.163.com/xm/welcome.do?mCookie=FVxXBFxeXlpbJlNVVgNXC1hKHAoCUFYZAQIMVVYPBkQAAgcGWFEKV1IEAVAVV1FQVUwGVwEHSw4FVVJJB1MNUg&passport=&keyfrom=auth.input&auth=1&user=tongjinlv@163.com&wml=false&timestamp=0&register=0”
浏览器置位 ()
超文本浏览框1.可视 ＝ 真
播放音乐 (#woo1, )
变量1 ＝ 1

.子程序 _超级按钮14_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _超级按钮10_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _超级按钮12_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _超级按钮16_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _返回桌面_被选择

显示桌面 ()
_启动窗口.可视 ＝ 真

.子程序 _关闭电源_被选择

结束 ()

.子程序 _关闭桌面_被选择

_启动窗口.可视 ＝ 假

.子程序 _最小化到托盘_被选择

_启动窗口.可视 ＝ 假
_启动窗口.置托盘图标 (_启动窗口.图标, “ipad模拟板”)

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

_启动窗口.可视 ＝ 真

.子程序 _超级按钮2_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

时钟.可视 ＝ 假

.子程序 __启动窗口_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

_启动窗口.可视 ＝ 假
_启动窗口.置托盘图标 (_启动窗口.图标, “ipad模拟版”)

.子程序 _外形框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

 

.子程序 _时钟1_周期事件

.如果 (索引1 ＞ 6)
      动画框1.可视 ＝ 假
      时钟1.时钟周期 ＝ 0
.否则

.如果结束
.如果 (索引1 ＝ 7)
      播放音乐 (#开机1, 假)
.否则

.如果结束
.如果 (索引1 ＜ 7)
      动画框1.背景图片 ＝ 图片p [索引1]
.否则

.如果结束
时钟1.时钟周期 ＝ 1000
索引1 ＝ 索引1 ＋ 1
.如果 (索引1 ＞ 9)
      索引1 ＝ 9
.否则

.如果结束

.版本 2
.支持库 iext2

.程序集 窗口程序集3
.程序集变量 程序集_是否按下, 逻辑型
.程序集变量 程序集_横向位置, 整数型
.程序集变量 程序集_纵向位置, 整数型
.程序集变量 程序集_标识_时针, 整数型
.程序集变量 程序集_标识_分针, 整数型
.程序集变量 程序集_标识_秒针, 整数型

.子程序 _时钟_创建完毕

时钟.置外形图片 (动画框_背景.背景图片, #白色)
程序集_标识_时针 ＝ 动画框_背景.创建物体 (动画物体_时针, 0, 0, 真, )
程序集_标识_分针 ＝ 动画框_背景.创建物体 (动画物体_分针, 0, 0, 真, )
程序集_标识_秒针 ＝ 动画框_背景.创建物体 (动画物体_秒针, 0, 0, 真, )
_动画框_背景_自动旋转停止 (0)
时钟标志 ＝ 真

.子程序 _动画框_背景_自动旋转停止
.参数 物体标识值, 整数型
.局部变量 局部_现行时间, 日期时间型
.局部变量 局部_小时, 整数型
.局部变量 局部_分钟, 整数型
.局部变量 局部_秒, 整数型

局部_现行时间 ＝ 取现行时间 ()
局部_小时 ＝ 取小时 (局部_现行时间)
局部_分钟 ＝ 取分钟 (局部_现行时间)
局部_秒 ＝ 取秒 (局部_现行时间)
动画框_背景.置角度 (程序集_标识_时针, 局部_小时 × 30 ＋ 局部_分钟 × 0.5)
动画框_背景.置角度 (程序集_标识_分针, 局部_分钟 × 6)
动画框_背景.置角度 (程序集_标识_秒针, 局部_秒 × 6)
动画框_背景.自动旋转 (程序集_标识_秒针, 6, 1000, , 60 × 1000)

.子程序 _时钟1_周期事件

时钟1.时钟周期 ＝ 1000
.如果 (时钟标志 ＝ 真)
      播放音乐 (#滴答, 假)
.否则

.如果结束

.子程序 _动画框_背景_物体右键被按下
.参数 物体标识值, 整数型

弹出菜单 (时钟设置, , )

.子程序 _退出_被选择

销毁 ()

.子程序 _返回桌面_被选择

_启动窗口.可视 ＝ 真
' 销毁 ()

.子程序 _最小化到托盘_被选择

时钟.可视 ＝ 假
时钟.置托盘图标 (时钟.图标, “ipad模拟板”)

.子程序 _时钟_托盘事件
.参数 操作类型, 整数型

.判断开始 (操作类型 ＝ #单击左键)
      时钟.可视 ＝ 真
.默认

.判断结束
.判断开始 (操作类型 ＝ #双击)
      _启动窗口.可视 ＝ 真
.默认

.判断结束
.判断开始 (操作类型 ＝ #单击右键)
      弹出托盘菜单 (时钟设置)
.默认

.判断结束

.子程序 _动画框_背景_双击物体
.参数 物体标识值, 整数型

时钟.可视 ＝ 假

.子程序 _设定定时时间_被选择

载入 (闹钟, , 假)

.子程序 _总是在最前_被选择

时钟.总在最前 ＝ 真

.子程序 _打开定时_被选择

闹钟1开 ＝ 真
闹钟2开 ＝ 真
闹钟3开 ＝ 真
播放音乐 (#水滴2, 假)

.子程序 _关闭定时_被选择

闹钟1开 ＝ 真
闹钟2开 ＝ 真
闹钟3开 ＝ 真
播放音乐 (#水滴3, 假)

.子程序 _时钟2_周期事件

时钟2.时钟周期 ＝ 3000
.如果 (闹钟1时 ＝ 取小时 (取现行时间 ()) 且 取分钟 (取现行时间 ()) ＝ 闹钟1分 且 闹钟1开 ＝ 真)
      鸟叫标志 ＝ 真
.否则

.如果结束
.如果 (闹钟2时 ＝ 取小时 (取现行时间 ()) 且 取分钟 (取现行时间 ()) ＝ 闹钟2分 且 闹钟2开 ＝ 真)
      鸟叫标志 ＝ 真
.否则

.如果结束
.如果 (闹钟3时 ＝ 取小时 (取现行时间 ()) 且 取分钟 (取现行时间 ()) ＝ 闹钟3分 且 闹钟3开 ＝ 真)
      鸟叫标志 ＝ 真
.否则

.如果结束
.如果 (鸟叫标志 ＝ 真)
      播放音乐 (#鸟叫, 假)
      鸟叫标志 ＝ 假
.否则

.如果结束.版本 2

.声音 hello
.声音 bye
.声音 pupu
.声音 woo1
.声音 woo2
.声音 woo3
.声音 tweet
.声音 滴答
.声音 鸟叫
.声音 水滴2
.声音 水滴3
.声音 鸟叫1
.声音 高山流水
.声音 北国志
.声音 天鹅湖
.声音 亲亲宝贝
.声音 鲁冰花
.声音 秋湖月月
.声音 爱相随
.声音 望江南
.声音 心的方向
.声音 山明水秀
.声音 阳明春晓
.声音 梦的衣
.声音 梁祝
.声音 樱花谣
.声音 让我们
.声音 茉莉花
.声音 圣洁的
.声音 开机1
.版本 2
.支持库 iext2
.支持库 HtmlView

.程序集 窗口程序集1
.程序集变量 变量1, 整数型
.程序集变量 图片p, 字节集, , "6"
.程序集变量 索引1, 整数型

.子程序 _结束_被选择

结束 ()

.子程序 闹钟初始化

闹钟1时 ＝ 0
闹钟1分 ＝ 0
闹钟2时 ＝ 0
闹钟2分 ＝ 0
闹钟3时 ＝ 0
闹钟3分 ＝ 0
闹钟1开 ＝ 真
闹钟2开 ＝ 假
闹钟3开 ＝ 假

.子程序 加载开机动画

外形框1.可视 ＝ 假

.子程序 屏幕熄灭

动画框1.左边 ＝ 34
动画框1.顶边 ＝ 46
动画框1.宽度 ＝ 276
动画框1.高度 ＝ 365

.子程序 开机

屏幕熄灭 ()
加载开机动画 ()
播放音乐 (#hello, )
显示桌面 ()

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

_启动窗口.底图 ＝ #ipad
_启动窗口.置外形图片 (#ipad, #白色)
开机 ()
闹钟初始化 ()
变量2 ＝ 0
.计次循环首 (6, 变量2)
      图片p [变量2] ＝ 多项选择 (变量2, #图片1, #图片2, #图片3, #图片4, #图片5, #图片6)
.计次循环尾 ()
索引1 ＝ 1
_时钟1_周期事件 ()

.子程序 显示桌面

超文本浏览框1.可视 ＝ 假
浏览器复位 ()
外形框1.可视 ＝ 假

.子程序 浏览器置位

超文本浏览框1.左边 ＝ 37
超文本浏览框1.顶边 ＝ 48
超文本浏览框1.宽度 ＝ 272
超文本浏览框1.高度 ＝ 360

.子程序 浏览器复位

超文本浏览框1.左边 ＝ 0
超文本浏览框1.顶边 ＝ 0
超文本浏览框1.宽度 ＝ 0
超文本浏览框1.高度 ＝ 0

.子程序 __启动窗口_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (全局管理, , )

.子程序 _超级按钮1_被单击

.如果 (变量1 ＝ 0)
      播放音乐 (#bye, )
      延时 (400)
      结束 ()
.否则

.如果结束
.如果 (变量1 ≥ 1)
      变量1 ＝ 0
      显示桌面 ()

.否则

.如果结束

.子程序 _超级按钮2_被单击

播放音乐 (#woo1, )
变量1 ＝ 1
载入 (时钟, , 假)
时钟.可视 ＝ 真

.子程序 _超级按钮13_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _超级按钮3_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _超级按钮4_被单击

播放音乐 (#woo3, )
载入 (窗口3, , 假)
变量1 ＝ 1

.子程序 _超级按钮5_被单击

超文本浏览框1.地址 ＝ “ http://wapmap.baidu.com/home/map?bd_page_type=1&city_code=270&entry=&from=0&geo=.=4732JBxBKUVA;&layout=2&level=12&log2=right&name=宜昌市&pid=54f7840548045569f23cbaf0&pu=sz@224_224&ssid=0&uid=wiaui_1332291282_9891&x=12395056.56&y=3576054.89”
浏览器置位 ()
播放音乐 (#woo1, )
延时 (10)
变量1 ＝ 1
超文本浏览框1.可视 ＝ 真

.子程序 _超级按钮6_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _超级按钮7_被单击

播放音乐 (#woo1, )
变量1 ＝ 1

.子程序 _超级按钮8_被单击

显示桌面 ()
播放音乐 (#woo3, )
载入 (窗口4, , 假)
变量1 ＝ 1

.子程序 _超级按钮9_被单击

显示桌面 ()
浏览器置位 ()
超文本浏览框1.地址 ＝ “wap.baidu.com”
播放音乐 (#woo2, )
延时 (10)
超文本浏览框1.可视 ＝ 真
变量1 ＝ 1

.子程序 _超级按钮11_被单击

播放音乐 (#woo1, )
变量1 ＝ 1

.子程序 _超级按钮17_被单击

播放音乐 (#woo1, )
变量1 ＝ 1

.子程序 _超级按钮15_被单击

超文本浏览框1.地址 ＝ “ http://m7.mm.mail.163.com/xm/welcome.do?mCookie=FVxXBFxeXlpbJlNVVgNXC1hKHAoCUFYZAQIMVVYPBkQAAgcGWFEKV1IEAVAVV1FQVUwGVwEHSw4FVVJJB1MNUg&passport=&keyfrom=auth.input&auth=1&user=tongjinlv@163.com&wml=false&timestamp=0&register=0”
浏览器置位 ()
超文本浏览框1.可视 ＝ 真
播放音乐 (#woo1, )
变量1 ＝ 1

.子程序 _超级按钮14_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _超级按钮10_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _超级按钮12_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _超级按钮16_被单击

播放音乐 (#woo2, )
变量1 ＝ 1

.子程序 _返回桌面_被选择

显示桌面 ()
_启动窗口.可视 ＝ 真

.子程序 _关闭电源_被选择

结束 ()

.子程序 _关闭桌面_被选择

_启动窗口.可视 ＝ 假

.子程序 _最小化到托盘_被选择

_启动窗口.可视 ＝ 假
_启动窗口.置托盘图标 (_启动窗口.图标, “ipad模拟板”)

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

_启动窗口.可视 ＝ 真

.子程序 _超级按钮2_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

时钟.可视 ＝ 假

.子程序 __启动窗口_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

_启动窗口.可视 ＝ 假
_启动窗口.置托盘图标 (_启动窗口.图标, “ipad模拟版”)

.子程序 _外形框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

 

.子程序 _时钟1_周期事件

.如果 (索引1 ＞ 6)
      动画框1.可视 ＝ 假
      时钟1.时钟周期 ＝ 0
.否则

.如果结束
.如果 (索引1 ＝ 7)
      播放音乐 (#开机1, 假)
.否则

.如果结束
.如果 (索引1 ＜ 7)
      动画框1.背景图片 ＝ 图片p [索引1]
.否则

.如果结束
时钟1.时钟周期 ＝ 1000
索引1 ＝ 索引1 ＋ 1
.如果 (索引1 ＞ 9)
      索引1 ＝ 9
.否则

.如果结束