以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  Grid.ChangeCyc  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=85827)
--  作者：orca8
--  发布时间：2015/10/6 9:02:58
--  Grid.ChangeCyc
Grid.ChangeCyc   为什么不支持 自定义周期 例如  33分钟之类的
--  作者：orca8
--  发布时间：2015/10/6 9:08:02
--  

ChangeCyc(Cyc, Mode)

Cyc        当前窗格数据的周期类型，0 1分钟 1 5分钟 2 15分钟 3 30分钟 4 60分钟 5日线 6周线 7月线 8年线 9多日线 10分笔成交 11多小时 12多秒 13多分钟线 14季度线 15半年线 16节气线 17 3分钟 18 10分钟。

Mode       更换模式 0没有动作 1更新过后重新刷新主图数据和所有主幅图公式.

 

 

13 多分钟 怎么用的
--  作者：王锋
--  发布时间：2015/10/6 11:06:55
--  

CYC=13

MoreMinute = 33 \'表示33分钟
--  作者：orca8
--  发布时间：2015/10/6 15:47:56
--  
MoreMinute  这个是参数还是？
--  作者：orca8
--  发布时间：2015/10/6 16:14:31
--  

set grid = Technic.GetGridByName("main")
     grid.MoreMinute=33
     call  grid.ChangeCyc(13,1)

 

 

比如我要 切换 33 再切换到22 分钟， 用不了， 要切回到正常的 比如1分钟，才能切换。

--  作者：yukizzc
--  发布时间：2015/10/6 16:39:09
--  

set grid = Technic.GetGridByName("main")
grid.ChangeCyc 13, 1
     grid.MoreMinute = 7

 

这个顺序，先更改窗格周期多分钟的。然后修改该窗格的多分钟属性为具体某个值

[此贴子已经被作者于2015/10/6 16:39:23编辑过]
--  作者：orca8
--  发布时间：2015/10/6 19:00:49
--  

一样， 我写了一个按键 相应的， 22，33分钟之间切换。 切不动


if Keycode = 88 then
 
  if  Application.IsActivateFrame("Technic")=1 then
   call GetData("MainTuType2", f1)
   set Grid = Technic.GetGridByName("main")   
    if f1=0 then
      call SetData("MainTuType2", 1)   
      call  Grid.ChangeCyc(13, 1)
      Grid.MoreMinute=33
 end if 
   
    if f1=1 then
      call SetData("MainTuType2", 0)  
      call  Grid.ChangeCyc(13, 1)
      Grid.MoreMinute=22
     end if  
     
   Grid.ReInitDataFormula  

  end if
 end if
--  作者：orca8
--  发布时间：2015/10/7 8:28:12
--  

求解
--  作者：yukizzc
--  发布时间：2015/10/7 10:08:59
--  

不太明白你这里getdata这两个方法，但切换周期是没有问题的，下面代码我用按键,和.来分别实现7分钟和25分钟变化。

 

sub sd(num)
set grid = Technic.GetGridByName("main")
grid.ChangeCyc 13, 1
     grid.MoreMinute = num
end sub

    
sub Technic_KeyDown(KeyCode, Shift)
    if KeyCode=188 then              

        call sd(7)
    end if
    if KeyCode=190 then
     call sd(25)
    end if
   end sub

[此贴子已经被作者于2015/10/7 10:09:15编辑过]
--  作者：pel46585
--  发布时间：2015/10/8 14:57:14
--  
估计刷新一下就OK了，你加个刷新Grid.ReInitDataFormula试下，或者其它的Resh。金字塔有时候用代码写的，完成后要刷新下才能看出来效果