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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [原创]等价K线交易之VBA（亏本大甩卖）!哈哈

   

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

  共有19845人关注过本帖树形打印复制链接

主题：[原创]等价K线交易之VBA（亏本大甩卖）!哈哈
帅哥哟，离线，有人找我吗？
明心
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：274 积分：841 威望：0 精华：10 注册：2010/7/12 15:25:05 		[原创]等价K线交易之VBA（亏本大甩卖）!哈哈  发帖心情 Post By：2010/12/21 11:16:38 [只看该作者]

i = 0
open = 0
m = 0
k = 0
j = 0
dtyl = 0
ktyl = 0
qj = 5   //根据自己需要修改

mj1close = 0
mj2close = 0

Sub dengjiaxian()
    ' 得到框架名称为"Technic"，窗格名称为"Main"的窗格对象
    Set Grid = Technic.GetGridByName("Main")
    set minutedata = Grid.GetMinuteData
    Count =  minutedata.Count
    open = minutedata.newprice(0)
    mj1close = minutedata.newprice(0)
    mj2close = minutedata.newprice(0)

    for i = 1 to count-1
        close = minutedata.newprice(i)
        if close > open and close-open > qj then
           open = close
           if m = 0 then dtdbyk = 0 else dtdbyk = mj2close-close
           if m = 0-1 or m = 0 then
              mj1close = close
              dtyl = dtyl+dtdbyk
              application.MsgOut Date &" " &Time&" "& "第"&i+1&"笔"&" "&"多："&" "&close&" "&"单笔盈利"&" "&" "&dtdbyk&" "& "当日空头累计盈利为：" &dtyl
              j = j+1
           end if
           m = 1
        elseif   close < open and open-close > qj then
           open = close
           if m = 0 then dtdbyk = 0 else ktdbyk = close - mj1close
           if m = 1 or m = 0 then
              mj2close = close
              ktyl = ktyl+ktdbyk
              application.MsgOut Date &" " &Time&" "& "第"&i+1&"笔"&" "&"空："&" "&close&" "&"单笔盈利"&" "&" "&ktdbyk&" "&"当日多头累计盈利为：" &ktyl
              k = k+1
           end if
           m = 0-1
        end if
     next
End Sub

Sub APPLICATION_VBAStart()
 call Application.SetTimer(0,100) '创建一个0号定时器，间隔时间1秒
End Sub

Sub APPLICATION_Timer(ID)
    '定时器事件处理
     Application.ActivateFrame "Technic" '确保技术分析主框架处于激活状态
    
    ' 得到框架名称为"Technic"，窗格名称为"Main"的窗格对象
    Set Grid = Technic.GetGridByName("Main")
    set minutedata = Grid.GetMinuteData
    Count =  minutedata.Count
        close = minutedata.newprice(Count-1)
     if Count-1 > i then  
        if close > open and close-open > qj then
           open = close
           if m = 0 then dtdbyk = 0 else dtdbyk = mj2close-close
           if m = 0-1 or m = 0 then
              mj1close = close
              dtyl = dtyl+dtdbyk
              application.MsgOut Date &" " &Time&" "& "第"&i+1&"笔"&" "&"多："&" "&close&" "&"单笔盈利"&" "&" "&dtdbyk&" "& "当日空头累计盈利为：" &dtyl
              application.MsgOut Date &" " &Time&" "& "多头" &j& "次" &" "& "多头盈利" &ktyl& "点"&" "& "空头" &k& "次"&" "& "空头盈利" &dtyl& "点" &" "& "总计" &k+j& "次"&" "& "总盈利" &ktyl+dtyl& "点"
              j = j+1
           end if
           m = 1
        elseif   close < open and open-close > qj then
           open = close
           if m = 0 then dtdbyk = 0 else ktdbyk = close - mj1close
           if m = 1 or m = 0 then
              mj2close = close
              ktyl = ktyl+ktdbyk
              application.MsgOut Date &" " &Time&" "& "第"&i+1&"笔"&" "&"空："&" "&close&" "&"单笔盈利"&" "&" "&ktdbyk&" "&"当日多头累计盈利为：" &ktyl
              application.MsgOut Date &" " &Time&" "& "多头" &j& "次" &" "& "多头盈利" &ktyl& "点"&" "& "空头" &k& "次"&" "& "空头盈利" &dtyl& "点" &" "& "总计" &k+j& "次"&" "& "总盈利" &ktyl+dtyl& "点"
              k = k+1
           end if
           m = 0-1
        end if      
     end if
End Sub

sub rnjy()
    call dengjiaxian()
    call APPLICATION_Timer(ID)
End Sub  

 

思路

第一次运行宏的时候利用历史数据给出一个结果。

然后根据实际情况给出实时的结果

 

提示：我这里已经构架了整体的思路，只是没有写交易指令部分。有需要的朋友，直接添加VBA交易指令即可交易！

这里只提供研究交流思路，模型不保证盈利！
[本帖被加为精华]
版主评定：好评，获得5个金币奖励好评，获得5个金币奖励
(理由：好文章)
 回到顶部
帅哥哟，离线，有人找我吗？
admin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2010/12/21 11:17:55 [只看该作者]

i = 0
open = 0
m = 0
k = 0
j = 0
dtyl = 0
ktyl = 0
qj = 5   //根据自己需要修改

mj1close = 0
mj2close = 0

Sub dengjiaxian()
    ' 得到框架名称为"Technic"，窗格名称为"Main"的窗格对象
    Set Grid = Technic.GetGridByName("Main")
    set minutedata = Grid.GetMinuteData
    Count =  minutedata.Count
    open = minutedata.newprice(0)
    mj1close = minutedata.newprice(0)
    mj2close = minutedata.newprice(0)

    for i = 1 to count-1
        close = minutedata.newprice(i)
        if close > open and close-open > qj then
           open = close
           if m = 0 then dtdbyk = 0 else dtdbyk = mj2close-close
           if m = 0-1 or m = 0 then
              mj1close = close
              dtyl = dtyl+dtdbyk
              application.MsgOut Date &" " &Time&" "& "第"&i+1&"笔"&" "&"多："&" "&close&" "&"单笔盈利"&" "&" "&dtdbyk&" "& "当日空头累计盈利为：" &dtyl
              j = j+1
           end if
           m = 1
        elseif   close < open and open-close > qj then
           open = close
           if m = 0 then dtdbyk = 0 else ktdbyk = close - mj1close
           if m = 1 or m = 0 then
              mj2close = close
              ktyl = ktyl+ktdbyk
              application.MsgOut Date &" " &Time&" "& "第"&i+1&"笔"&" "&"空："&" "&close&" "&"单笔盈利"&" "&" "&ktdbyk&" "&"当日多头累计盈利为：" &ktyl
              k = k+1
           end if
           m = 0-1
        end if
     next
End Sub

Sub APPLICATION_VBAStart()
 call Application.SetTimer(0,100) '创建一个0号定时器，间隔时间1秒
End Sub

Sub APPLICATION_Timer(ID)
    '定时器事件处理
     Application.ActivateFrame "Technic" '确保技术分析主框架处于激活状态
    
    ' 得到框架名称为"Technic"，窗格名称为"Main"的窗格对象
    Set Grid = Technic.GetGridByName("Main")
    set minutedata = Grid.GetMinuteData
    Count =  minutedata.Count
        close = minutedata.newprice(Count-1)
     if Count-1 > i then  
        if close > open and close-open > qj then
           open = close
           if m = 0 then dtdbyk = 0 else dtdbyk = mj2close-close
           if m = 0-1 or m = 0 then
              mj1close = close
              dtyl = dtyl+dtdbyk
              application.MsgOut Date &" " &Time&" "& "第"&i+1&"笔"&" "&"多："&" "&close&" "&"单笔盈利"&" "&" "&dtdbyk&" "& "当日空头累计盈利为：" &dtyl
              application.MsgOut Date &" " &Time&" "& "多头" &j& "次" &" "& "多头盈利" &ktyl& "点"&" "& "空头" &k& "次"&" "& "空头盈利" &dtyl& "点" &" "& "总计" &k+j& "次"&" "& "总盈利" &ktyl+dtyl& "点"
              j = j+1
           end if
           m = 1
        elseif   close < open and open-close > qj then
           open = close
           if m = 0 then dtdbyk = 0 else ktdbyk = close - mj1close
           if m = 1 or m = 0 then
              mj2close = close
              ktyl = ktyl+ktdbyk
              application.MsgOut Date &" " &Time&" "& "第"&i+1&"笔"&" "&"空："&" "&close&" "&"单笔盈利"&" "&" "&ktdbyk&" "&"当日多头累计盈利为：" &ktyl
              application.MsgOut Date &" " &Time&" "& "多头" &j& "次" &" "& "多头盈利" &ktyl& "点"&" "& "空头" &k& "次"&" "& "空头盈利" &dtyl& "点" &" "& "总计" &k+j& "次"&" "& "总盈利" &ktyl+dtyl& "点"
              k = k+1
           end if
           m = 0-1
        end if      
     end if
End Sub

sub rnjy()
    call dengjiaxian()
    call APPLICATION_Timer(ID)
End Sub  

 

思路

第一次运行宏的时候利用历史数据给出一个结果。

然后根据实际情况给出实时的结果

 

提示：我这里已经构架了整体的思路，只是没有写交易指令部分。有需要的朋友，直接添加VBA交易指令即可交易！

这里只提供研究交流思路，模型不保证盈利！

[此贴子已经被作者于2010-12-22 11:26:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Morgan
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：134 积分：905 威望：0 精华：0 注册：2010/9/29 9:33:49 		  发帖心情 Post By：2010/12/21 11:38:51 [只看该作者]

好贵哦 能便宜点吗 啊哈哈
 回到顶部
帅哥哟，离线，有人找我吗？
Morgan
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：134 积分：905 威望：0 精华：0 注册：2010/9/29 9:33:49 		  发帖心情 Post By：2010/12/21 11:40:07 [只看该作者]

ADMIN送我金币 我想看看

 回到顶部
帅哥哟，离线，有人找我吗？
Morgan
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：134 积分：905 威望：0 精华：0 注册：2010/9/29 9:33:49 		  发帖心情 Post By：2010/12/21 12:16:00 [只看该作者]

图片点击可在新窗口打开查看没金币啊 送我1个啊

 回到顶部
帅哥哟，离线，有人找我吗？
hshcompass
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：14 积分：230 威望：0 精华：1 注册：2009/8/21 13:17:14 		  发帖心情 Post By：2010/12/21 13:51:16 [只看该作者]

非常好，价值灰常高
 回到顶部
帅哥哟，离线，有人找我吗？
glymh
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：6 积分：31 威望：0 精华：0 注册：2010/12/20 15:30:03 		  发帖心情 Post By：2010/12/21 15:56:14 [只看该作者]

有金币就买图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wangwatercup
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：103 积分：532 威望：0 精华：0 注册：2010/11/8 18:27:01 		  发帖心情 Post By：2010/12/22 10:38:40 [只看该作者]

为啥无法购买论坛点券啊？网页总是打不开阿

 
 回到顶部
帅哥哟，离线，有人找我吗？
fly
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：5082 积分：17642 威望：0 精华：6 注册：2010/7/15 9:05:58 		  发帖心情 Post By：2010/12/23 10:51:08 [只看该作者]

ADMIN贴出的就是楼主发的.


金字塔—专业程序化交易量化投资平台

客户服务部

-----------------------------------------------------------

欢迎您参加我公司的技术培训，具体培训需求请发邮件到

service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com
 回到顶部
美女呀，离线，留言给我吧！
xian_0_9
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 BOO
等级：论坛游民 帖子：378 积分：1856 威望：0 精华：0 注册：2010/1/25 18:04:12 		  发帖心情 Post By：2010/12/23 12:12:09 [只看该作者]

非常非常非常非常支持！！！！！！谢谢明心MM~ 图片点击可在新窗口打开查看
 回到顶部
总数 19 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.15625 秒, 5 次数据查询