您現(xiàn)在的位置:程序化交易>> 期貨公式>> 金字塔等>> 其他期貨軟件知識>>正文內(nèi)容

QQ及時信號發(fā)送事例 [金字塔]

  • 咨詢內(nèi)容:

    Sub APPLICATION_VBAStart()
     call Application.SetTimer(0,300) '創(chuàng)建一個0號定時器,間隔時間3秒
    End Sub

    Sub APPLICATION_Timer(ID)
    Set Formula = marketdata.STKINDI("if00","zj","短線1號",0,17)'品種、周期、指標(biāo)修改為自己需要的。
        cc =  Formula.GetBufData("mxcc",Formula.DataSize-1) '顯示最后周期指標(biāo)線數(shù)值
        refcc = Formula.GetBufData("mxcc",Formula.DataSize-2) '顯示倒數(shù)第二周期指標(biāo)線數(shù)值
           
    set Report1 = marketdata.GetReportData("if00","zj")
        ifjg = Report1.NewPrice
       
    Set obj = CreateObject("WWSCommon.TCGroup")
        bq = "明心股指日內(nèi)3分鐘"'這里是信號之前的版權(quán)(廣告)
        IF refcc=0 and cc>0 then
           mxmsg = bq &" " & Date &" " &Time&vbCrLf&"股指期貨"&" " &ifjg&" " &"開多"&cc&"手。"
           'application.MsgOut mxmsg
           call obj.TransMessage("程序化初級群", mxmsg)
           Set obj = Nothing
        elseIF refcc>0 and cc=0 then
           mxmsg = bq &" " &  Date &" " &Time&vbCrLf&"股指期貨"&" " &ifjg&" " &"平多"&refcc&"手。"
           'application.MsgOut mxmsg
           call obj.TransMessage("程序化初級群", mxmsg)
           Set obj = Nothing
        elseIF refcc=0 and cc<0 then
           ss = 0-cc
           mxmsg = bq &" " &  Date &" " &Time&vbCrLf&"股指期貨"&" " &ifjg&" " &"開空"&ss&"手。"
           'application.MsgOut mxmsg
           call obj.TransMessage("程序化初級群", mxmsg)
           Set obj = Nothing
        elseIF refcc<0 and cc=0 then
           ss = 0-refcc
           mxmsg = bq &" " &  Date &" " &Time&vbCrLf&"股指期貨"&" " &ifjg&" " &"平空"&ss&"手。"
           'application.MsgOut mxmsg
           call obj.TransMessage("程序化初級群", mxmsg)
           Set obj = Nothing
        else
         'mxmsg =bq &" " &  Date &" " &Time&vbCrLf&"暫無變化,保持之前狀態(tài)。"
         'application.MsgOut mxmsg
         'call obj.TransMessage("程序化初級群", mxmsg)
         'Set obj = Nothing
        end if
          
    end sub

    Sub qq()
        call APPLICATION_Timer(ID)
    End Sub

     

  • 金字塔客服:

    不錯

     

  • 用戶回復(fù): 能具體介紹下怎么用嗎?沒用過VBA哦。謝謝!

     

  • 網(wǎng)友回復(fù):

    我也想知道啊,我自己試了下,不成功

     

  • 網(wǎng)友回復(fù):

    真是好東西啊。看來閉門造車是不行的,還是要經(jīng)常上來看看,向大家學(xué)習(xí)學(xué)習(xí)!

 

如果以上指標(biāo)公式不適用于您常用的行情軟件

或者您想改編成選股公式,以便快速選出某種形態(tài)個股的話,

可以聯(lián)系我們相關(guān)技術(shù)人員 QQ: 262069696  點擊在線交流進(jìn)行 有償 改編!

 


【字體: 】【打印文章】【查看評論

相關(guān)文章

    沒有相關(guān)內(nèi)容
主站蜘蛛池模板: 欧美人与性动交α欧美精品| 色天使色婷婷丁香久久综合| 在线免费小视频| 东北女大战28公分黑人| 日韩加勒比在线| 亚洲人成影院77777| 波多野吉衣AV无码| 免费吃奶摸下激烈免费视频| 美女在线免费观看| 国产乱子伦手机在线| 99re6在线| 国产精品久久国产三级国不卡顿 | 黑人异族日本人hd| 国产精品对白交换视频| 91色国产在线| 在线拍揄自揄在线播放| my1136蜜芽入口永不失联版| 引诱亲女乱小说录目伦| 中文字幕亚洲精品无码| 无限看片在线版免费视频大全| 久久国产精品免费看| 日韩欧美综合视频| 么公的好大好深视频好爽想要 | 日韩爽爽爽视频免费播放| 亚洲人成在线免费观看| 91麻豆精品福利在线观看| 一个人看的毛片| 艹逼视频免费看| 最近的中文字幕大全免费版| 亚洲理论片在线观看| 特黄特色大片免费播放器999| 免费在线观看视频| 精品中文字幕一区二区三区四区| 又黄又爽做受视频免费看视频下载| 色悠久久久久久久综合网| 国产三级精品三级在线观看| 西西人体www44rt大胆高清| 国产在线精品国自产拍影院午夜 | aⅴ在线免费观看| 国产精品多p对白交换绿帽| 777奇米影视四色永久|