您現在的位置:程序化交易>> 期貨公式>> 金字塔等>> 金字塔知識>>正文內容

金字塔自動向QQ發消息實例 不能在qq中自動發消息呢 [金字塔]

  • 咨詢內容:

    我看過“金字塔自動向QQ發消息實例”


    然后把例子里面需要改動的地方做了變化,

    但為什么修改后,單步調試里最后輸出的不是空值就是0?

    而且,不能在qq中自動發消息呢?

     

     

    請高人指導。

     

     

     

     

    付VBS:模塊function最后添加

    。。。。。。

    End Function

     

    Function QQMSGX(Formula,QQNum,QQMSG)
        '系統會在逐K線模式解釋公式時的每個周期都會調用此函數一遍,因此設計時應該注重程序的執行效率,不要重復的執行一些沒必要的代碼
       QQMSGX=0
       QQMSG=document.GetExtString("QQSTR")

      
       Set obj = CreateObject("WWSCommon.TCGroup")
       bq = " 交易系統信號發布 "
       mxmsg = bq &" " & Date &" " & Time & " 信號" & " " & QQMSG
       call obj.TransMessage("群的名字", mxmsg)
       Set obj = Nothing 
      
       Set obj = CreateObject("WWSCommon.TCGroup")  
       call obj.TransMessage("單個QQ名字", mxmsg)
       Set obj = Nothing 

    End Function

     

     

    付,交易系統程序發信號部分

    原理:兩個品種對比,然后做出買賣那個品種的決定

    BK_AG:X1=XMAX0 AND X1>0;
    BK_AU:X2=XMAX0 AND X2>0;

    SK_AG:X101=XMAX100 AND X101>0;
    SK_AU:X102=XMAX100 AND X102>0;

    GLOBALVARIABLE: BB=0;


    IF BK_AG THEN
    BEGIN
     IF ISLASTBAR AND BB<>BARPOS THEN
     BEGIN
      extgbstringSet('QQSTR','買入,白銀');
      AG_BK:QQMSGX(1,C);
     END
    END
    IF BK_AU THEN
    BEGIN
     IF ISLASTBAR AND BB<>BARPOS THEN
     BEGIN
      extgbstringSet('QQSTR','買入,黃金');
      AU_BK:QQMSGX(1,C);
     END
    END

    IF SK_AG THEN
    BEGIN
     IF ISLASTBAR AND BB<>BARPOS THEN
     BEGIN
      extgbstringSet('QQSTR','賣出,白銀');
      AG_SK:QQMSGX(1,C);
     END
    END
    IF SK_AU THEN
    BEGIN
     IF ISLASTBAR AND BB<>BARPOS THEN
     BEGIN
      extgbstringSet('QQSTR','賣出,黃金');
      AU_SK:QQMSGX(1,C);
     END
    END

     

  • 金字塔客服:

    公式里用 DEBUGFILE, VBA里用 Application.Msgout,調試代碼看看

     

  • 用戶回復:

    debugfile沒有導出來任何東西,

    后面的Application.Msgout  導入后vb不識別啊

     

  • 網友回復:

    這些都是些基本的調試技巧,說明你現在的能力水平還很有限,建議你先從金字塔的最基本的編程知識開始學起

     

  • 網友回復:

    管理員,謝謝你的提示。

     

    我這里還有幾個問題:

     

     

     

    1、我這個模型最終只給出買賣黃金或者白銀,沒有給具體值,用Debugfile,查不出來數值。

    但是把這個模型雙擊應用到Ag12的15分鐘k線上,下面的條件值都能顯示出來,3個0一個1。因此到這一步應該是沒問題的。

     

    BK_AG:X1=XMAX0 AND X1>0;
    BK_AU:X2=XMAX0 AND X2>0;

    SK_AG:X101=XMAX100 AND X101>0;
    SK_AU:X102=XMAX100 AND X102>0;

     

     

     

    2、單步調試后的結果如下(截至9/25-am 9 :24)。

     

    BK_AG:0;
    BK_AU:1;

    SK_AG:0;
    SK_AU:0;

     

    AG_BK: 

    AU_BK:0.000

    AG_SK:

    AU_SK:

     

    調試結束。

         

    3、vba我確實不熟練,謝謝指出。不過昨天早上開盤前,跟晚上閉盤后,不知我如何操作,但金字塔系統,自動發送消息給我同事QQ,但沒有發到指定的群里。

    還有,昨天日內,我一直開著系統,應用于AG12--15分鐘線,但實時沒有自動發送消息。

    請幫忙再找找原因,謝謝。

     

    明月 8:17:15
     交易系統信號發布  2012/9/24 8:17:11 信號 買入,白銀
     該消息由金字塔交易決策系統提供

     

    明月 15:36:31
     交易系統信號發布  2012/9/24 15:36:31 信號 賣出,黃金
     該消息由金字塔交易決策系統提供。
    明月 15:36:48
     交易系統信號發布  2012/9/24 15:36:47 信號 賣出,黃金
     該消息由金字塔交易決策系統提供。

     

     

 

有思路,想編寫各種指標公式,程序化交易模型,選股公式,預警公式的朋友

可聯系技術人員 QQ: 262069696  點擊在線交流進行 有償 編寫!不貴!點擊查看價格!


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 把水管开水放b里是什么感觉 | 男人天堂网2017| 国产乱理伦片在线观看| 两个人看www免费视频| 在花轿里就开始圆房高辣h| 一级成人理伦片| 无码一区二区波多野结衣播放搜索| 二代妖精免费看| 欧美伦理三级在线播放影院| 人妻少妇精品视频一区二区三区| 精品欧洲videos| 国产99视频在线| 视频一区在线播放| 国产女人嗷嗷叫| 欧美亚洲另类视频| 国产精品嫩草影院线路| 91精品欧美产品免费观看| 天天爽夜夜爽夜夜爽精品视频 | 一区二区三区免费精品视频| 无码精品日韩中文字幕| 久久影院最新消息| 日韩精品视频在线观看免费| 亚洲中文久久精品无码1| 欧美成人精品第一区| 亚洲毛片免费视频| 狠狠躁夜夜躁人人爽天天古典| 全彩熟睡侵犯h| 精品日韩欧美一区二区三区在线播放| 国产AV无码专区亚洲AV漫画| 蝌蚪久热精品视频在线观看| 国产凌凌漆国语| 顶级欧美熟妇xx| 国产成人亚洲午夜电影| 国产精品真实对白精彩久久| 国产欧美久久一区二区| 亚洲黄色激情视频| 国产福利拍拍拍| 日本亚州视频在线八a| 国产精品19p| 日本a∨在线观看| 国产特黄特色一级特色大片|