以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问老师：如何实现定时播放音乐？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135671)
--  作者：evolymft
--  发布时间：2019/5/31 15:24:00
--  请问老师：如何实现定时播放音乐？


 

请老师根据时间（要精准到秒）星期（12345表示星期1--5，类推），播放附件中的音频，音频已自动复制到了Attachments目录下。


 

[此贴子已经被作者于2019/6/6 8:50:51编辑过]
--  作者：evolymft
--  发布时间：2019/5/31 16:05:00
--  
 Dim dAs Date = Date.now()
d.DayOfWeek=1
If d.hour & " : " & d.minute & " : " & d.second = DataTables("程序表").DataCols("时间")(0) Then
   
    Dim Proc As New Process
    Proc.File = ProjectPath & "Attachments\\铃声-雅尼经典开场曲_特效音效(铃声).mp3"
    Proc.Start()
End If
--  作者：有点甜
--  发布时间：2019/5/31 17:00:00
--  

在计划、定时器那里，执行代码

 

Dim d As Date = Date.now()
Dim i= d.DayOfWeek
d = new Date(1900, 1, 1, d.Hour, d.Minute, d.Second)
\'output.show("时间 = #" & d & "# and convert(星期,\'System.String\') like \'%" & i & "%\'")
Dim fdr As DataRow = DataTables("程序表").Find("时间 = #" & d & "# and convert(星期,\'System.String\') like \'%" & i & "%\'")
If fdr IsNot Nothing Then
\'msgbox(2)
    Dim Proc As New Process
    Proc.File = ProjectPath & "Attachments\\" & fdr("附件")
    Proc.Start()
End If

 

http://www.foxtable.com/webhelp/scr/0657.htm

 
--  作者：evolymft
--  发布时间：2019/5/31 17:42:00
--  

谢谢老师的耐心指点。

请问FT可以在后台运行windowsmediaplayer吗？
--  作者：有点甜
--  发布时间：2019/5/31 18:05:00
--  

参考

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=93517&skin=0

 
--  作者：evolymft
--  发布时间：2019/6/1 10:45:00
--  
谢谢老师。
--  作者：evolymft
--  发布时间：2019/6/3 8:37:00
--  
convert(星期,\'System.String\') like \'%" & i & "%\'"
请老师帮忙解答一下这句话的目的、作用，百思不得其解，谢谢
--  作者：有点甜
--  发布时间：2019/6/3 10:08:00
--  

把列的类型转换成字符类型。

 

只有字符类型，才能用like条件查询。
--  作者：evolymft
--  发布时间：2019/6/3 14:07:00
--  
谢谢老师指点
--  作者：evolymft
--  发布时间：2019/6/6 8:53:00
--  
请问老师：


.NET Framework 版本：2.0.50727.8793
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,导航,TreeView2,NodeMouseDoubleClick
详细错误信息：
索引超出了数组界限。

发邮件在另一个电脑就出现了以上问题的原因和解决办法，谢谢指点！！！