当前位置:→ 股海网金字塔公式 → 正文
  • 程序化-金字塔策略(vba菲阿里四价)

  • 相关简介:程序化-金字塔策略(vba菲阿里四价) ''''''''''手数 dim ss ss = 1 ''''''''''多头止损系数 dim n1 n1 = 10 '''''''''空头止损系数 dim n2 n2 = 10 ''''''''' dim n3 n3 = 4 dim LastHigh dim LastLow dim LastClose dim Icode dim Imarket sub application_vbastart() call MarketData.RegReportNot

  • 文章来源:股海网作者:股海网发布时间:2013-06-01浏览次数:下载次数:0收藏:

程序化-金字塔策略(vba菲阿里四价)

''''''''''手数
dim ss
    ss = 1
''''''''''多头止损系数
dim n1
    n1 = 10
'''''''''空头止损系数
dim n2
    n2 = 10
   
'''''''''   
dim n3
    n3 = 4
   
dim LastHigh
dim LastLow
dim LastClose
dim Icode
dim Imarket
sub application_vbastart()
    call MarketData.RegReportNotify("if03","zj")
end sub

sub MarketData_ReportNotify(ReportData)
    set ReportData = MarketData.GetReportData("if03","zj")
    NewPrice = ReportData.NewPrice
    LastHigh = ReportData.LastHigh
    'call application.MsgOut(LastHigh&" "&NewPrice)
   
    '''''''''''''''''持仓信息
    dim BuyHoding
    dim SellHoding
    dim BuyCost
    'dim SellHoding
    call order.HoldingInfoByCode2("if03","zj", BuyHoding, BuyCost, BuyTodayHoding, SellHoding, SellCost, SellTodayHoding, PNL, UseMargin,Account)
    ''''''''''''''''品种信息
    dim MinTick
    call order.Contract("if03","zj", Multipliter, MinTick, ShortPercent, LongPercent)
'''''''''''''''''''''多头
'BuyHoding=0 and SellHolding=0 and
    if Hour(Time) >09 and Hour(Time) <14 and    NewPrice>LastHigh and BuyHolding = 0 then
       call application.MsgOut("多头开!")
       call order.buy(1,ss,0,0,"if03","zj","",0)
    end if
'''''''''''''''''''''空头
'BuyHoding=0 and SellHolding=0 and
    if  Hour(Time) >09 and Hour(Time) <14 and   NewPrice<LastHigh and SellHolding = 0 then
       call application.MsgOut("空头开!")
       call order.buyshort(1,ss,0,0,"if03","zj","",0)
    end if
'''''''''''''''''''''多止损
    if BuyHoding>0 and NewPrice<BuyCost-n1*MinTick and Hour(Time) >09 and Hour(Time) <14 then
       call application.MsgOut("多头止损!")      
       call order.Sell(1,BuyHolding,0,0,"if03","zj","",0)
    end if
'''''''''''''''''''''空止损
    if SellHoding>0 and NewPrice>BuyCost+n2*MinTick and Hour(Time) >09 and Hour(Time) <14 then
       call application.MsgOut("空头开!")   
       call order.SellShort(1,SellHolding,0,0,"if03","zj","",0)
    end if
'''''''''''''''''''''日内平仓
    if Hour(Time) >= 14 and Hour(Time) <=15 then
       call application.MsgOut("收盘全平!")
       call order.Sell(1,BuyHolding,0,0,Icode,Imarket,"",1)
       call order.SellShort(1,SellHolding,0,0,"if03","zj","",1)
    end if
End Sub

Sub UserForm1_CommandButton1_Click()
    call application.MsgOut(LastHigh&" "&NewPrice)
End Sub

公式解密、改选股联系 点击查看详情(有偿服务,非诚勿扰)...
问题反馈

程序化-金字塔策略(vba菲阿里四价)

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

上传会员: 
股海网
文件大小: 
Bytes
上传时间: 
2013-06-01
下载积分: 
-
免责声明: 
请仔细阅读并同意后才能下载
本附件为用户分享上传,股海网没有对文件进行验证,不能保证下载资源的准确性、安全性和完整性,也不保证下载资源能正常安装和使用,且下载后扣除的积分无法退还,除非您充分理解并完全接受本声明,否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利,其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究使用,不得用于商业或者非法用途,如有侵犯您的版权, 请参看 《股海网侵权处理流程》《股海网免责声明条款》
点击下载无反应时,更换主流浏览器重新登录操作,如360浏览器、Edge浏览器、谷歌浏览器,个别浏览器有不兼容现象。
勾选以下表示您已经阅读并同意以上声明才能下载本文件,扣除积分无法退还!
我已阅读所有条款规定, 请点我同意 所有条款内容!我自愿下载!
提示:如下载失败,请点关闭刷新此页面或提交问题反馈给管理员→
关闭

关于我们 - 联系我们 - 隐私政策 - 免责声明 - 下载帮助 - 广告合作 - SiteMap - TOP
增值电信业务经营ICP许可证:湘B2-20210269 湘ICP备09016573号-10 湘公网安备43108102000040号
Copyright © 2021 铭网科技,All Rights Reserved.