欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 判断行情超过多长时间没有更新！

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有5053人关注过本帖树形打印复制链接

主题：判断行情超过多长时间没有更新！
帅哥哟，离线，有人找我吗？
guotx2010
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：蜘蛛侠 帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33 		判断行情超过多长时间没有更新！  发帖心情 Post By：2013/7/10 11:43:57 [只看该作者]

使用股指最新行情的时间跟现在的时间比较，超过30秒就提醒。

Sub APP1
  Set Report1=MarketData.GetReportData("IF00","ZJ")
  StockTime=Report1.Date
  TimeSpace=DateDiff("s",Cdate(Now),StockTime)

  if abs(TimeSpace)>30 then
      Application.MsgOut "请注意，行情数据已经超过30秒没有更新了！"
      Exit Sub
  end if
End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
solarhe2006
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：252 积分：1001 威望：0 精华：0 注册：2010/2/15 16:47:58 		  发帖心情 Post By：2013/7/10 12:29:52 [只看该作者]

Sub APP1
  Set Report1=MarketData.GetReportData("IF00","ZJ")
  StockTime=Report1.Date
  TimeSpace=DateDiff("s",Cdate(Now),StockTime)

  if abs(TimeSpace)>30 then
      Application.MsgOut "请注意，行情数据已经超过30秒没有更新了！"
      Exit Sub
  end if
End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
guotx2010
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：蜘蛛侠 帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33 		  发帖心情 Post By：2013/7/12 8:14:50 [只看该作者]

如果还用pel语言，可以是使用time和currenttime来比较，time是行情k线位置的时间，currenttime是计算机当前时间，这两个时间对比，可以达到类似的效果。
 回到顶部
帅哥哟，离线，有人找我吗？
rushtaotao
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 czt
等级：蜘蛛侠 帖子：1445 积分：6114 威望：0 精华：3 注册：2012/1/16 10:31:19 		  发帖心情 Post By：2013/7/16 11:10:28 [只看该作者]

playsound函数

 回到顶部
帅哥哟，离线，有人找我吗？
guotx2010
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：蜘蛛侠 帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33 		  发帖心情 Post By：2013/7/16 13:50:29 [只看该作者]

是，使用application对象的playsound方法，播放一首歌，可以通过一个变量来控制是否已经在播放，如果在播放就不播，如果没有就开始播，然后设置变量的值，如果有行情了，就是用application对象的stopplay方法停止播放，并且设置变量的值。

 回到顶部
帅哥哟，离线，有人找我吗？
guotx2010
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：蜘蛛侠 帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33 		  发帖心情 Post By：2013/7/16 13:59:18 [只看该作者]

好人做到底，直接发现诚代码了。
private isPlay
Sub TEST()
    Set Report1=MarketData.GetReportData("IF00","ZJ")
     StockTime=Report1.Date
    TimeSpace=DateDiff("s",Cdate(Now),StockTime)
   if abs(TimeSpace)>30 then
      sSong=document.GetPrivateProfileString("Gen", "Alert","", "C:\ChanOrder.ini")
      if sSong<>"" and isPlay=0 then
           call application.PlaySoundFile(sSong)
           isPlay=1
           Application.MsgOut "请注意，行情数据已经超过30秒没有更新了！"
           Exit Sub
      end if
    else
          call application.StopPlay()
          isPlay=0
    end if 
End Sub
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.14063 秒, 5 次数据查询