易语言win8特效模块

.子程序 精度延时
.参数 微秒, 长整数型, , 注意单位是微秒
.局部变量 当前值, Large_Integer
.局部变量 计数, Large_Integer

取定时器频率 (计数)
取定时器当前值 (当前值)
计数.低位 ＝ 计数.低位 ÷ 1000000 × 微秒 ＋ 当前值.低位
.判断循环首 (当前值.低位 ＜ 计数.低位)
取定时器当前值 (当前值)
.判断循环尾 ()

.子程序 特效_win8旋转初始化
.参数 标签, 标签
.局部变量 cFonts

fh ＝ AddFontMemResourceEx (#font, 取字节集长度 (#font), 0, cFonts)
i ＝ 57426 ' 57547
标签.字体.字体名称 ＝ “Setup”

.子程序 特效_win8旋转, , 公开
.参数 标签, 标签

集_标签_ ＝ 标签
特效_win8旋转初始化 (集_标签_)
启动线程 (&子程序_旋转开始, , 旋转_句柄)

.子程序 子程序_旋转开始, , , WIN8 旋转特效

延时 (15)
集_标签_.标题 ＝ W2A (到字节集 (i))
i ＝ i ＋ 1
.如果真 (i ＞ 57547)
i ＝ 57426
集_标签_.标题 ＝ “ ”
.如果真结束
延时 (20)
子程序_旋转开始 ()