新手求助

chenzhi1233

本人一心想弄个适合自己用得闹钟，无奈才疏学浅，对编程软件毫无基础，经过1天努力终于在百度东拼西凑实现了第一个功能，那就是在桌面上显示时间，现在努力实现第二个功能，百度了半天无解，所以在此求助！


第二个需要实现功能为：当分钟数尾数为4或9，秒数为00时启动闹钟（也就是分钟数为 4  9  14  19  24  29  34  39  44  49  54   59，秒数为00）,24小时循环！
今天小菜我弄了一天，卡在这里了，求个位大侠提供代码！  本人思路为  分=取分钟（取现行时间（）），然后   T=取文本右边（“分”，1），如果T=4或9~~无奈提事文本不能转换逻辑，这下彻底没办法了。如果这个思路可行的话，求完整代码!以下为功能1的代码，不足之处是透明标题并不透明，有底色！

.版本 2
.支持库 iext
.程序集 窗口程序集_窗口1
.子程序 _时钟1_周期事件
设置时间 ()
.子程序 设置时间
.局部变量 时, 文本型
.局部变量 分, 文本型
.局部变量 秒, 文本型
时 ＝ 到文本 (取小时 (取现行时间 ())) ＋ “:”
.如果真 (取文本长度 (时) ＝ 1)
    时 ＝ “0” ＋ 时
.如果真结束
分 ＝ 到文本 (取分钟 (取现行时间 ())) ＋ “:”
.如果真 (取文本长度 (分) ＝ 1)
    分 ＝ “0” ＋ 分
.如果真结束
秒 ＝ 到文本 (取秒 (取现行时间 ()))
.如果真 (取文本长度 (秒) ＝ 1)
    秒 ＝ “0” ＋ 秒
.如果真结束
透明标签1.标题 ＝ 时
透明标签2.标题 ＝ 分
透明标签3.标题 ＝ 秒

猥琐小胖子

如果T=4或9。

T是文本。你遇到那个提示应该是少引号吧

  

如果真 (T ＝ “4” 或 T ＝ “9”)
' 这样就可以啊

.版本 2<br /> <br /> .如果真 (T ＝ “4” 或 T ＝ “9”)<br />     ' 这样就可以啊

海颜贝尔

你把完整的源码发上来,这样看着很累的,问题不难解决

chenzhi1233

海颜贝尔 发表于 2015-9-9 23:00
你把完整的源码发上来,这样看着很累的,问题不难解决

我是个新手，现在就是东拼西凑，一步一步试的，目前是一个个一个功能分开测试实现，最后再想办法联系在一起，所以没有完整代码！不好意思！

chenzhi1233

猥琐小胖子 发表于 2015-9-9 22:59
如果T=4或9。

T是文本。你遇到那个提示应该是少引号吧[e=1].版本 2

这2天才接触易语言，求完整代码谢谢！

猥琐小胖子

chenzhi1233 发表于 2015-9-9 23:16
这2天才接触易语言，求完整代码谢谢！

没什么完整代码啊。我这个回复是给你说 你提示那个错误的原因是因为你拿文本类型的去和整数类型判断，所以才导致错。

2505261463

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
时间	文本型
分钟	文本型
秒	文本型

时间 ＝ 文本_取右边 (时间_时间戳转文本 (时间_取现行时间戳 ()), “ ”)
透明标签1.标题 ＝ 时间
分钟 ＝ 取文本中间 (时间, 5, 1)
秒 ＝ 文本_取右边 (时间, “:”)
如果真 (分钟 ＝ “4” 或 分钟 ＝ “9”)
如果真 (秒 ＝ “00”)
调试输出 (“闹钟”)
返回 ()
返回 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 时间, 文本型<br /> .局部变量 分钟, 文本型<br /> .局部变量 秒, 文本型<br /> <br /> 时间 ＝ 文本_取右边 (时间_时间戳转文本 (时间_取现行时间戳 ()), “ ”)<br /> 透明标签1.标题 ＝ 时间<br /> 分钟 ＝ 取文本中间 (时间, 5, 1)<br /> 秒 ＝ 文本_取右边 (时间, “:”)<br /> .如果真 (分钟 ＝ “4” 或 分钟 ＝ “9”)<br /> .如果真 (秒 ＝ “00”)<br /> 调试输出 (“闹钟”)<br /> 返回 ()<br /> .如果真结束<br /> 返回 ()<br /> .如果真结束

C。

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
minu	文本型
sec	文本型
time	日期时间型

时钟1.时钟周期 ＝ 1000
time ＝ 取现行时间 ()
minu ＝ 取文本右边 (到文本 (取分钟 (time)), 1)
sec ＝ 到文本 (取秒 (time))
如果真 (minu ＝ “1” 或 minu ＝ “9”)
如果真 (sec ＝ “00”)
调试输出 (“开启闹钟”)

调试输出 (“正在运行”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 minu, 文本型<br /> .局部变量 sec, 文本型<br /> .局部变量 time, 日期时间型<br /> <br /> 时钟1.时钟周期 ＝ 1000<br /> time ＝ 取现行时间 ()<br /> minu ＝ 取文本右边 (到文本 (取分钟 (time)), 1)<br /> sec ＝ 到文本 (取秒 (time))<br /> .如果真 (minu ＝ “1” 或 minu ＝ “9”)<br />     .如果真 (sec ＝ “00”)<br />         调试输出 (“开启闹钟”)<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> 调试输出 (“正在运行”)

补充内容 (2015-9-10 00:33):
如果真后面是minu=“4”或"9"

萌菌团

编译出现错误提示时 ，代码内的光标会自动切换到有错误的那一行，你把那一行发出来就好

剩下我de孩子气

http://www.5a5x.com/06/201005/0503162.html