android写一个计时器,女朋友离开了，想写一个安卓的计时器。

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

挖坟贴，因需要做一个计时器，和你需要的一样，搜索到这个帖子。

但没有太大帮助。后来经过摸索，终于找到了解决方案。

不知道你走出失恋的阴影了没，我这里写一下代码，以便后面有需要的人。

思路：

按钮记录现在时间，然后保存为配置文件。

软件运行，读取记录的时间，然后取现在时间来进行对比时间间隔。

按钮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.可视 = 真

结束 事件