QQ及時信號發(fā)送事例 [金字塔]
- 咨詢內(nèi)容:
Sub APPLICATION_VBAStart()
call Application.SetTimer(0,300) '創(chuàng)建一個0號定時器,間隔時間3秒
End SubSub APPLICATION_Timer(ID)
Set Formula = marketdata.STKINDI("if00","zj","短線1號",0,17)'品種、周期、指標(biāo)修改為自己需要的。
cc = Formula.GetBufData("mxcc",Formula.DataSize-1) '顯示最后周期指標(biāo)線數(shù)值
refcc = Formula.GetBufData("mxcc",Formula.DataSize-2) '顯示倒數(shù)第二周期指標(biāo)線數(shù)值
set Report1 = marketdata.GetReportData("if00","zj")
ifjg = Report1.NewPrice
Set obj = CreateObject("WWSCommon.TCGroup")
bq = "明心股指日內(nèi)3分鐘"'這里是信號之前的版權(quán)(廣告)
IF refcc=0 and cc>0 then
mxmsg = bq &" " & Date &" " &Time&vbCrLf&"股指期貨"&" " &ifjg&" " &"開多"&cc&"手。"
'application.MsgOut mxmsg
call obj.TransMessage("程序化初級群", mxmsg)
Set obj = Nothing
elseIF refcc>0 and cc=0 then
mxmsg = bq &" " & Date &" " &Time&vbCrLf&"股指期貨"&" " &ifjg&" " &"平多"&refcc&"手。"
'application.MsgOut mxmsg
call obj.TransMessage("程序化初級群", mxmsg)
Set obj = Nothing
elseIF refcc=0 and cc<0 then
ss = 0-cc
mxmsg = bq &" " & Date &" " &Time&vbCrLf&"股指期貨"&" " &ifjg&" " &"開空"&ss&"手。"
'application.MsgOut mxmsg
call obj.TransMessage("程序化初級群", mxmsg)
Set obj = Nothing
elseIF refcc<0 and cc=0 then
ss = 0-refcc
mxmsg = bq &" " & Date &" " &Time&vbCrLf&"股指期貨"&" " &ifjg&" " &"平空"&ss&"手。"
'application.MsgOut mxmsg
call obj.TransMessage("程序化初級群", mxmsg)
Set obj = Nothing
else
'mxmsg =bq &" " & Date &" " &Time&vbCrLf&"暫無變化,保持之前狀態(tài)。"
'application.MsgOut mxmsg
'call obj.TransMessage("程序化初級群", mxmsg)
'Set obj = Nothing
end if
end subSub qq()
call APPLICATION_Timer(ID)
End Sub - 金字塔客服:
不錯
- 用戶回復(fù):
能具體介紹下怎么用嗎?沒用過VBA哦。謝謝!
- 網(wǎng)友回復(fù):
我也想知道啊,我自己試了下,不成功
- 網(wǎng)友回復(fù):
真是好東西啊。看來閉門造車是不行的,還是要經(jīng)常上來看看,向大家學(xué)習(xí)學(xué)習(xí)!
如果以上指標(biāo)公式不適用于您常用的行情軟件
或者您想改編成選股公式,以便快速選出某種形態(tài)個股的話,
- 上一篇:ref(close,5)在C++里怎么表達
- 下一篇:沒有了!
相關(guān)文章
-
沒有相關(guān)內(nèi)容