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

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


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 另类重口100页在线播放| 啊灬啊灬啊灬快灬别进去| 久久综合九色欧美综合狠狠| 6080新视觉| 日本一区中文字幕日本一二三区视频| 免费国产午夜高清在线视频| 五月婷婷六月天| 性生交大片免看| 亚洲国产aⅴ成人精品无吗| 老熟女五十路乱子交尾中出一区| 我要看免费毛片| 亚洲日本一区二区三区在线 | 久久婷婷五月综合色欧美| 男生和女生污污的视频| 国产护士一区二区三区| baoyu122.永久免费视频| 日本黄线在线播放免费观看| 亚洲精品短视频| 花蝴蝶直播苹果版| 国产精品漂亮美女在线观看| 上课公然调教h| 最近免费中文字幕大全高清10| 免费人成网站在线观看欧美| 羞羞漫画小舞被黄漫免费| 国产男女免费完整视频| jizz国产在线观看| 日本免费一区尤物| 亚洲成av人片在线观看无码| 精品国产亚洲AV麻豆| 国产成人亚洲精品蜜芽影院| 99在线精品免费视频| 把极品白丝班长啪到腿软| 亚洲国产亚洲综合在线尤物| 污片在线观看网站| 噜噜高清欧美内射短视频| 青青国产成人久久激情91麻豆| 国产经典一区二区三区蜜芽| 一本加勒比HEZYO无码人妻 | 国产农村妇女毛片精品久久| 67194老司机精品午夜| 在线|一区二区三区|