- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 时间变量与if语句 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83989)
-- 发布时间：2016/4/20 19:08:00
-- 时间变量与if语句
当系统时间运行到时间表里的某个时间，播放指定的wav音乐。谢谢！我有个截图在附件中。
此主题相关图片如下：qq图片20160420185335.png
[此贴子已经被作者于2016/4/20 19:09:17编辑过]
-- 发布时间：2016/4/20 19:20:00
--
去编写TimerTick事件
Dim dt As DataTable = DataTables("表A")
Dim d As Date = new Date(1900, 1, 1, Date.now.hour, Date.now.Minute, Date.now.Second)
Dim fdr As DataRow = dt.find("时间表 >= #" & d & "# And 时间表 <= #" & d.AddSeconds(10) & "#")
If fdr IsNot Nothing Then
msgbox("时间到了")
Audio.play(ProjectPath & "Attachments/" & fdr("执行音乐"), AudioPlayMode.WaitToComplete)
End If
http://www.foxtable.com/help/topics/1301.htm
-- 发布时间：2016/4/20 20:11:00
-- 还有点问题
msgbox("时间到了")
这点不明白。谢了！无论怎么，这么及时帮助解决问题。太感谢您了！！
[此贴子已经被作者于2016/4/20 20:16:42编辑过]
-- 发布时间：2016/4/20 20:24:00
--
什么意思？有什么问题？上传具体例子说明。
-- 发布时间：2016/4/20 20:26:00
--
当系统时间运行到时间表里的某个时间，播放指定的wav音乐。
Dim dt As DataTable = DataTables("表A")
Dim d As Date = new Date(1900, 1, 1, Date.now.hour, Date.now.Minute, Date.now.Second)
Dim fdr As DataRow = dt.find("时间表 >= #" & d & "# And 时间表 <= #" & d.AddSeconds(10) & "#")
If fdr IsNot Nothing Then
msgbox("时间到了")
Audio.play(ProjectPath & "Attachments/" & fdr("执行音乐"), AudioPlayMode.WaitToComplete)
End If
Dim d As Date = new Date(1900, 1, 1, Date.now.hour, Date.now.Minute, Date.now.Second)
Dim fdr As DataRow = dt.find("时间表 >= #" & d & "# And 时间表 <= #" & d.AddSeconds(10) & "#")
If fdr IsNot Nothing Then
msgbox("时间到了")
Audio.play(ProjectPath & "Attachments/" & fdr("执行音乐"), AudioPlayMode.WaitToComplete)
End If
这段代码中的msgbox("时间到了")
我没有这个“时间到了” ，需要增加一个吗？
-- 发布时间：2016/4/20 20:27:00
--
不需要加，如果能播放音乐就行了。
-- 发布时间：2016/4/20 20:32:00
--
好的，我试试
-- 发布时间：2016/4/20 20:46:00
-- 问题依然
此主题相关图片如下：qq图片20160420204244.png
此主题相关图片如下：qq图片20160420204316.png
[此贴子已经被作者于2016/4/20 20:47:26编辑过]
-- 发布时间：2016/4/20 20:48:00
--
设置一下你的日期格式
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82970&replyID=574979&skin=1
http://jingyan.baidu.com/article/647f0115925aee7f2148a8b5.html
-- 发布时间：2016/4/20 20:49:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:打铃系统.foxdb |