易语言菜鸟学时钟

来源：百度知道 编辑：UC知道 时间：2024/05/02 20:32:43
.版本 2

.子程序 _编辑框1_内容被改变

_启动窗口.标题 ＝ 编辑框1.内容

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

时钟1.时钟周期 ＝ 1000

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

编辑框1.内容 ＝ 取现行时间 ()
不行啊。。不会啊。。 大哥哥们 请你们把时钟的这个在你们电脑上弄好了在粘贴给我行吗 然后我自己在慢慢分析 谢谢了

你的代码有两处错误，第一：
子程序 _时钟1_周期事件

时钟1.时钟周期 ＝ 1000 你这个代码换成：
子程序 _时钟1_周期事件

编辑框1.内容 ＝ 到文本（取现行时间 ()）

第二个把按钮1被单击换成：
.子程序 _按钮1_被单击
时钟1.时钟周期 ＝ 1000
这样你的程序就没什么问题了。

.版本 2
.支持库 iext2

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

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

_启动窗口.置外形图片 (动画框_背景.背景图片, #白色)

程序集_标识_时针 ＝ 动画框_背景.创建物体 (动画物体_时针, 0, 0, 真, )
程序集_标识_分针 ＝ 动画框_背景.创建物体 (动画物体_分针, 0, 0, 真, )
程序集_标识_秒针 ＝ 动画框_背景.创建物体 (动画物体_秒针, 0, 0, 真, )
_动画框_背景_自动旋转停止 (0)

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

局部_现行时间 ＝ 取现行时间 ()
局部_小时 ＝ 取小时 (局部_现行时间)
局部_分钟 ＝ 取分钟 (局部_现行时间)
局部_秒 ＝ 取秒 (局部_现行时间)

动画框_背景.置角度 (程序集_标识_时针, 局部_小时 × 30 ＋ 局部_分钟 × 0.5)
动