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

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


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 老汉扛起娇妻玉腿进入h文| 女人张开腿男人捅| 爱情论坛免费在线看| 日本www.色| 亚洲精品国产综合久久久久紧 | 国产精品无码久久久久| 久久久久人妻精品一区蜜桃| 消息称老熟妇乱视频一区二区| 国产小视频免费| a拍拍男女免费看全片| 日韩亚洲人成在线综合| 亚洲色婷婷一区二区三区| 陪读妇乱子伦小说| 在线中文字幕有码中文| 久久99精品久久久久久不卡| 欧美色欧美亚洲高清在线观看| 国产一卡2卡3卡四卡高清| 91在线老师啪国自产| 成年女人喷潮毛片免费播放| 亚洲人成在久久综合网站| 精品久久伦理中文字幕| 国产成人福利免费视频| aa级女人大片喷水视频免费| 性欧美videofree另类超大| 欧美FREESEX潮喷| 八戒久久精品一区二区三区| 久久久久999| 奶交性视频欧美| 久久文学网辣文小说| 欧美黑人巨大videos精| 免费A级毛片无码视频| 青青操免费在线视频| 国产日韩AV免费无码一区二区 | 女同久久精品国产99国产精品| 中文在线观看www| 欧美videos欧美同志| 亚洲欧美日韩综合在线播放| 综合久久久久久久综合网| 国产日产久久高清欧美一区| 被吃奶跟添下面视频| 大香焦伊人久久|