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

金字塔自動向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  點擊在線交流進行 有償 編寫!不貴!點擊查看價格!


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 亚洲国产午夜精品理论片| 手机在线看片国产| 免费v片在线观看视频网站| 在线私拍国产福利精品| 日本亚洲天堂网| 你是我的女人中文字幕高清| 蜜桃成熟时33d在线| 在线视频日韩欧美| 九色国产在视频线精品视频| 美女黄18以下禁止观看| 国产黄a三级三级看三级| 一看就湿的性行为描写大尺度| 欧美另类69xxxx| 又湿又紧又大又爽a视频| 韩国电影吃奶喷奶水的电影| 夜色私人影院永久入口| 两个人看的WWW在线观看| 欧美a级毛欧美1级a大片| 免费能直接在线观看黄的视频 | 亚洲AV无码久久久久网站蜜桃| 欧美视频第二页| 国产亚洲AV人片在线观看| 99精品国产综合久久久久五月天| 日韩欧美一区二区三区免费观看 | 99精品久久久中文字幕| 日韩欧美一区黑人vs日本人| 亚洲午夜精品一级在线播放放| 糟蹋顶弄挣扎哀求np| 国产真实系列在线| 一本一本久久a久久综合精品蜜桃| 日本亚洲色大成网站www久久| 久久精品国产亚洲av麻豆| 清纯女神被老头耸动| 国产激情精品一区二区三区| www.99热| 日本簧片在线观看| 亚洲欧美日韩精品久久亚洲区| 色综合久久天天影视网| 国产老师的丝袜在线看| 中文字幕国语对白在线电影| 欧美亚洲一二三区|