以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  ValueByPoint  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=96645)
--  作者：orca8
--  发布时间：2016/4/23 15:34:27
--  ValueByPoint

ValueByPoint(X, Y, Date, Price, [Correct])

X,Y         输入参数，点位置坐标。

Date       输出参数，输入点位置的日期。

Price      输出参数，输入点位置的

Correct    可选参数，当输入点超过当前窗格范围时，是否允许进行修正，默认为True。

返回值     输入点坐标对应的周期序列。


这个函数，的Date 输出 总是最后一天 23号。 x，y坐标是不同的


944  499 2016/4/23   3848
969  560 2016/4/23   3596
970  559 2016/4/23   3600
960  564 2016/4/23   3579
960  564 2016/4/23   3579    我是多个窗格，有几个周期， 为什么只有1，3分钟取到的 坐标对应的价格 是对的，稍微大点的周期取的值都不对
--  作者：orca8
--  发布时间：2016/4/23 16:31:28
--  
FrameToGrid 是不是要转换下， 此函数不能用， 说参数类型不匹配
--  作者：马良
--  发布时间：2016/4/23 17:15:50
--  
x，y坐标你是怎么输入的。
--  作者：orca8
--  发布时间：2016/4/23 17:52:54
--  
mousemove(grid, index,x,y) 鼠标移动的时候就保存了xy
--  作者：王锋
--  发布时间：2016/4/23 17:58:24
--  

不知道你具体的代码是怎么写的？

 
--  作者：orca8
--  发布时间：2016/4/23 18:31:41
--  
Sub  frame_dkp_MouseMove(Grid,index,x, y) 
   
 set Grid1 = frame_dkp.GetGridByPt(x, y)  
  
 set Grid1 = frame_dkp.GetGridByName(Grid1.Name)
 Dim Values
 Dim Date
 
 \'call FrameToGrid(x,y, x1, y2) ‘不能使用
 
 call Grid1.ValueByPoint(x, y,Date,Values,true)
    v1 = round(Values, 0) 
 application.msgout date & " "& v1
end sub
--  作者：王锋
--  发布时间：2016/4/23 23:38:47
--  

 

Sub Technic_MouseMove(Button, Shift, x, y)
set Grid1 = Technic.GetGridByPt(x, y) 
  if not(Grid1 is nothing) then ‘这里要判断对象是否为空，养成良好的编程习惯

  set Grid1 = Technic.GetGridByName(Grid1.Name)
  Dim Values
  Dim Date
 
   x1=0
   y2=0
   call Grid1.FrameToGrid(x,y,x1,y2)
 
 call Grid1.ValueByPoint(x1, y2,Date,Values,true)
    v1 = round(Values, 0)
 application.msgout date & " "& v1 & "--"& Grid1.Name
 end if

End Sub

[此贴子已经被作者于2016/4/23 23:39:20编辑过]
--  作者：orca8
--  发布时间：2016/4/24 11:28:35
--  
多谢，！忘记写grid了，诶