挖坟贴,因需要做一个计时器,和你需要的一样,搜索到这个帖子。
但没有太大帮助。后来经过摸索,终于找到了解决方案。
不知道你走出失恋的阴影了没,我这里写一下代码,以便后面有需要的人。
思路:
按钮记录现在时间,然后保存为配置文件。
软件运行,读取记录的时间,然后取现在时间来进行对比时间间隔。
按钮1是开始记录分手,时间为当前时间。可以根据需要来改为某个日期,至于怎么改,自行看代码吧。按钮1按下后,不可见。
按钮2是显示按钮1,重新记录。
按钮1按下后,会开始计时,动态计时。
事件 主窗口.创建完毕()
变量 日期1 为 文本型
变量 时间1 为 文本型
变量 小时间隔 为 文本型
变量 分钟间隔 为 文本型
变量 秒钟间隔 为 文本型
编辑框1.内容 = 读取设置文件(取存储卡路径() & "/fenshou.ini","day")
编辑框2.内容 = 读取设置文件(取存储卡路径() & "/fenshou.ini","time")
如果 编辑框2.内容 = "" 则
标签_分手时间.标题 = "还未分手"
否则
日期1 = 取年份(到时间(编辑框2.内容)) &"年" &取月份(到时间(编辑框2.内容)) &"月" &取日(到时间(编辑框2.内容)) &"日\n"
时间1 = 取小时(到时间(编辑框2.内容)) &"点" &取分钟(到时间(编辑框2.内容)) &"分" &取秒(到时间(编辑框2.内容))&"秒"
标签_分手时间.标题 = 日期1 &时间1
标签_分手星期.标题 = 读取设置文件(取存储卡路径() & "/fenshou.ini","week")
按钮_开始分手.可视 = 假
结束 如果
结束 事件
事件 按钮1.被单击()
变量 日期2 为 文本型
变量 时间2 为 文本型
保存设置文件(取存储卡路径() & "/fenshou.ini","time",取年份(取现行时间()) &"/" &取月份(取现行时间()) &"/" &取日(取现行时间()) &" " &取小时(取现行时间()) &":" &取分钟(取现行时间()) &":" &取秒(取现行时间()))
保存设置文件(取存储卡路径() & "/fenshou.ini","day",取现行日期文本("/"))
保存设置文件(取存储卡路径() & "/fenshou.ini","week",标签_星期.标题)
编辑框2.内容 = 读取设置文件(取存储卡路径() & "/fenshou.ini","time")
编辑框1.内容 = 读取设置文件(取存储卡路径() & "/fenshou.ini","day")
日期2 = 取年份(到时间(编辑框2.内容)) &"年" &取月份(到时间(编辑框2.内容)) &"月" &取日(到时间(编辑框2.内容)) &"日\n"
时间2 = 取小时(到时间(编辑框2.内容)) &"点" &取分钟(到时间(编辑框2.内容)) &"分" &取秒(到时间(编辑框2.内容))&"秒"
标签_分手时间.标题 = 日期2 &时间2
标签_分手星期.标题 = 读取设置文件(取存储卡路径() & "/jieyan.ini","week")
按钮1.可视 = 假
结束 事件
事件 时钟1.周期事件()
变量 日期 为 文本型
变量 时间 为 文本型
变量 星期索引 为 整数型
日期 = 取年份(取现行时间()) &"年" &取月份(取现行时间()) &"月" &取日(取现行时间()) &"日\n"
时间 = 取小时(取现行时间()) &"点" &取分钟(取现行时间()) &"分" &取秒(取现行时间())&"秒"
标签_现在时间.标题 = 日期 &时间
'以下取星期
如果 取星期几(取现行时间()) = 1 则
标签_星期.标题 = "星期天"
标签_星期.字体颜色 = 红色
否则如果 取星期几(取现行时间()) = 2 则
标签_星期.标题 = "星期一"
否则如果 取星期几(取现行时间()) = 3 则
标签_星期.标题 = "星期二"
否则如果 取星期几(取现行时间()) = 4 则
标签_星期.标题 = "星期三"
否则如果 取星期几(取现行时间()) = 5 则
标签_星期.标题 = "星期四"
否则如果 取星期几(取现行时间()) = 6 则
标签_星期.标题 = "星期五"
否则
标签_星期.标题 = "星期六"
标签_星期.字体颜色 = 红色
结束 如果
如果 编辑框1.内容 = "" 则
标签_天数.标题 = "0"
标签_小时.标题 = "0"
标签_分钟.标题 = "0"
标签_秒钟.标题 = "0"
否则
标签_天数.标题 = 取整(取时间间隔(到时间(取现行日期文本("/")),到时间(编辑框1.内容)) /86400000)
标签_小时.标题 = 取整(((取时间间隔(取现行时间(),到时间(编辑框2.内容))) - (标签_天数.标题 *86400000))/3600000)
标签_分钟.标题 = 取整(((取时间间隔(取现行时间(),到时间(编辑框2.内容))) - (标签_天数.标题 *86400000) - (标签_小时.标题 *3600000))/60000)
标签_秒钟.标题 = 取整(((取时间间隔(取现行时间(),到时间(编辑框2.内容))) - (标签_天数.标题 *86400000) - (标签_小时.标题 *3600000) - 标签_分钟.标题 *60000)/1000)
结束 如果
结束 事件
事件 按钮2.被单击()
按钮1.可视 = 真
结束 事件