您現(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)容
主站蜘蛛池模板: 国产无遮挡又黄又爽在线视频| 狼群资源网在线视频免费观看| 国产精品亚洲片在线| 久久久无码精品亚洲日韩蜜桃| 精品一二三区久久AAA片| 国产美女久久精品香蕉69| 久久亚洲精品无码VA大香大香| 欧美怡红院成免费人忱友;| 免费v片在线看| 美国一级毛片完整高清| 国产精品无码久久久久| 中文国产成人精品久久96| 日韩人妻无码一区二区三区| 亚洲va久久久噜噜噜久久天堂| 精品久久久久久无码专区不卡| 国产丝袜无码一区二区三区视频| 99精品众筹模特私拍在线| 国产精品久久女同磨豆腐| 91在线国内在线播放老师| 亚洲欧洲精品成人久久曰影片 | 欧美三级香港三级日本三级| 无遮无挡非常色的视频免费| 人人妻人人澡av天堂香蕉| 精精国产XXXX视频在线播放| 国产中文字幕免费| 高h全肉动漫在线观看最新| 国产放荡对白视频在线观看| 男女一进一出猛进式抽搐视频| 成人国产永久福利看片| 亚洲成AV人片在线观看无码不卡| 男人j进女人p免费视频| 免费看特黄特黄欧美大片| 香港特级三A毛片免费观看| 国产欧美精品区一区二区三区| 2020国产精品永久在线观看| 少妇人妻偷人精品视蜜桃| 久爱免费观看在线网站| 欧美一级专区免费大片俄罗斯| 亚洲成人高清在线| 欧美日韩一区二区综合| 亚洲欧美另类视频|