我看過(guò)“金字塔自動(dòng)向QQ發(fā)消息實(shí)例”

然后把例子里面需要改動(dòng)的地方做了變化，

但為什么修改后，單步調(diào)試?yán)镒詈筝敵龅牟皇强罩稻褪?？

而且，不能在qq中自動(dòng)發(fā)消息呢？

請(qǐng)高人指導(dǎo)。

付VBS：模塊function最后添加

。。。。。。

End Function

Function QQMSGX(Formula,QQNum,QQMSG)
    '系統(tǒng)會(huì)在逐K線模式解釋公式時(shí)的每個(gè)周期都會(huì)調(diào)用此函數(shù)一遍，因此設(shè)計(jì)時(shí)應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒(méi)必要的代碼
   QQMSGX=0
   QQMSG=document.GetExtString("QQSTR")

  
   Set obj = CreateObject("WWSCommon.TCGroup")
   bq = " 交易系統(tǒng)信號(hào)發(fā)布 "
   mxmsg = bq &" " & Date &" " & Time & " 信號(hào)" & " " & QQMSG
   call obj.TransMessage("群的名字", mxmsg)
   Set obj = Nothing 
  
   Set obj = CreateObject("WWSCommon.TCGroup")  
   call obj.TransMessage("單個(gè)QQ名字", mxmsg)
   Set obj = Nothing 

End Function

付，交易系統(tǒng)程序發(fā)信號(hào)部分

原理：兩個(gè)品種對(duì)比，然后做出買(mǎi)賣(mài)那個(gè)品種的決定

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','買(mǎi)入，白銀');
  AG_BK:QQMSGX(1,C);
 END
END
IF BK_AU THEN
BEGIN
 IF ISLASTBAR AND BB<>BARPOS THEN
 BEGIN
  extgbstringSet('QQSTR','買(mǎi)入，黃金');
  AU_BK:QQMSGX(1,C);
 END
END

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

公式里用 DEBUGFILE, VBA里用 Application.Msgout，調(diào)試代碼看看

debugfile沒(méi)有導(dǎo)出來(lái)任何東西，

后面的Application.Msgout  導(dǎo)入后vb不識(shí)別啊

這些都是些基本的調(diào)試技巧，說(shuō)明你現(xiàn)在的能力水平還很有限，建議你先從金字塔的最基本的編程知識(shí)開(kāi)始學(xué)起

管理員，謝謝你的提示。

我這里還有幾個(gè)問(wèn)題：

1、我這個(gè)模型最終只給出買(mǎi)賣(mài)黃金或者白銀，沒(méi)有給具體值，用Debugfile，查不出來(lái)數(shù)值。

但是把這個(gè)模型雙擊應(yīng)用到Ag12的15分鐘k線上，下面的條件值都能顯示出來(lái)，3個(gè)0一個(gè)1。因此到這一步應(yīng)該是沒(méi)問(wèn)題的。

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、單步調(diào)試后的結(jié)果如下（截至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:

調(diào)試結(jié)束。

3、vba我確實(shí)不熟練，謝謝指出。不過(guò)昨天早上開(kāi)盤(pán)前，跟晚上閉盤(pán)后，不知我如何操作，但金字塔系統(tǒng)，自動(dòng)發(fā)送消息給我同事QQ，但沒(méi)有發(fā)到指定的群里。

還有，昨天日內(nèi)，我一直開(kāi)著系統(tǒng)，應(yīng)用于AG12--15分鐘線，但實(shí)時(shí)沒(méi)有自動(dòng)發(fā)送消息。

請(qǐng)幫忙再找找原因，謝謝。

明月 8:17:15
 交易系統(tǒng)信號(hào)發(fā)布  2012/9/24 8:17:11 信號(hào) 買(mǎi)入,白銀
 該消息由金字塔交易決策系統(tǒng)提供

明月 15:36:31
 交易系統(tǒng)信號(hào)發(fā)布  2012/9/24 15:36:31 信號(hào) 賣(mài)出,黃金
 該消息由金字塔交易決策系統(tǒng)提供。
明月 15:36:48
 交易系統(tǒng)信號(hào)發(fā)布  2012/9/24 15:36:47 信號(hào) 賣(mài)出,黃金
 該消息由金字塔交易決策系統(tǒng)提供。