关于 array 的用法问题 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 关于 array 的用法问题

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

共有5435人关注过本帖树形打印复制链接主题：关于 array 的用法问题

martingale

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：47 积分：411 威望：0 精华：0 注册：2010/7/16 11:37:08

关于 array 的用法问题 发帖心情

Post By：2010/7/20 10:25:35 [只看该作者]

运行的时候总会在 next i 的地方出现
编译器错我1025
expected end of statement。

请问是什么原因？都是跟随 VBA 的语法，看不出问题。

function test( ticker, market, cycle, period )

   dim a
   dim d
   set d = createobject("Stock.Array")
   dim i
   dim x

   set History = marketdata.GetHistoryData( ticker, market,cycle )

   for i = 0 to period - 1 step 1
       x = History.close( History.count - i )
       d.addback( x )
   next i


end function

[此贴子已经被作者于2010-7-20 10:26:47编辑过]

wattwei

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：574 积分：3167 威望：0 精华：0 注册：2009/10/10 11:13:01

[求助]请教，市价+滑点下单要怎么写？？？ 发帖心情

Post By：2010/7/20 11:10:15 [只看该作者]

next i有误，去掉i

admin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32

Post By：2010/7/20 11:15:04 [只看该作者]

金字塔使用的是VBS语法

martingale

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：47 积分：411 威望：0 精华：0 注册：2010/7/16 11:37:08

Post By：2010/7/21 10:30:40 [只看该作者]

纠正了 function 的错误。

在 macro 里面 call 这个test function 的时候出现

编译器错误 '429'
ActiveX component can't create object :'Stock.Array'

我的 sub 是

Sub testF()

     a = test( 10 )

     msgbox( a )

End Sub

****************************
sub test( period )

    'set d = CreateObject("Stock.Array")
    set MinuteData = marketdata.GetMinuteData( "CF01", "ZQ" )
    dim d
    Set d = CreateObject("Stock.Array")

    dim i
    dim x

    set History = marketdata.GetHistoryData( ticker, market,cycle )

    if MinuteData.count > period then
        for i = 0 to period - 1 step 1
            x = minutedata.newprice(i)
            d.addback( x )
        next
    end if

    test = d.forecast

end sub

谢谢了。