以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  求教  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=75354)
--  作者：orca8
--  发布时间：2015/2/4 12:42:31
--  求教
我想在 dynamic  框架 打开的时候. 就执行一个函数,  / /求写法



函数{

判断是 9点半到 15点 就执行下面的取数据   //求写法

每5秒 // 求写法

 取数据   // 数据已经获得了.

然后在屏幕 x ,y 的地方输出  // 求写法?

}

不好意思,问的基础点, 想快点用.
--  作者：yukizzc
--  发布时间：2015/2/4 16:42:31
--  

sub dynamic_Load()                                      //框架加载时判定时间然后设立计时器
if  time>"15:50:00"    then
call application.SetTimer(0,5000)

end if
end sub

 

sub dynamic_Close()                                   //框架关闭时消除计时器
application.KillTimer(0)
application.ClearMsg

end sub

 

Sub APPLICATION_Timer(ID)                       
if ID=0 then
set Grid = dynamic.activegrid
set reportdata = Grid.GetReportData
price = reportdata.newprice 
call Grid.DRAWTEXT(100, 100,price,vbGreen)

application.MsgOut price

end if
End Sub

 
--  作者：orca8
--  发布时间：2015/2/4 18:52:36
--  
多谢, 我运行的时候  说  Grid 缺少对象
--  作者：orca8
--  发布时间：2015/2/4 19:10:19
--  
 没问题了