奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 求助 不同時區k棒 碰到布林時區 發出聲音 警示 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=24070)

求助 不同時區k棒 碰到布林時區 發出聲音 警示

版主大大你好

上次請教你發生音訊做警示 我做好可以用了 謝謝

我若要新價位 觸碰 到不同時區 布林上下邊軌 時發時聲響 這範例如何增加音訊給到資訊 因為 1/5/15/60/240 分時區就要10 個音軌資訊 範例只有七個 可以給我範例 或修正嗎

謝謝



// ============================================== Datatype >0 大小布林 ====================================================


布林灰控參數:=20;
布林大參數:=1200;
布林中參數:=100;
短均參數:=20;
倍差:=2;
倍差1:=2;

小布林中軌:=MA(CLOSE,布林灰控參數) colorFF33FF linethick2 LINEDOT;
DRAWSL(ISLASTBAR ,小布林中軌,0,0,3) pxdn0 coloRFF33FF LINETHICK2 LINEDOT;
小布林中軌DOWNA:=小布林中軌<REF(小布林中軌,1);
PARTLINE(小布林中軌,小布林中軌) colorFF33FF,linethick2 LINEDOT;
PARTLINE(小布林中軌DOWNA,小布林中軌) colorFFFF00,linethick2 LINEDOT;

小布林上:小布林中軌+(倍差1)*STD(CLOSE,布林灰控參數) colorFF33FF LINETHICK3 LINEDASHDOT;
DRAWSL(ISLASTBAR ,小布林上,0,0,3) pxdn0 coloRFF33FF LINETHICK2 LINEDOT;
小布林上DOWN:=小布林上<REF(小布林上,1);
PARTLINE(小布林上DOWN,小布林上) colorFFFF00,linethick3;

小布林下:小布林中軌-(倍差1)*STD(CLOSE,布林灰控參數) colORFF33FF, LINETHICK3;
DRAWSL(ISLASTBAR ,小布林下,0,0,3) pxdn0 coloRFFFF00 LINETHICK2 LINEDOT;
小布林下DOWN:=小布林下<REF(小布林下,1);
PARTLINE(小布林下DOWN,小布林下) colorFFFF00,linethicK3;

DRAWNUMBER(ISLASTBAR,小布林上,小布林上,0) SHIFT3 PXUP60,colorFF33FF;
DRAWTEXT(ISLASTBAR,小布林上,'小布林上軌') SHIFT7 PXUp60, ColorFF33FF;
DRAWNUMBER(ISLASTBAR,小布林中軌,小布林中軌,0) SHIFT3, PXUP60 colorFF33FF;
DRAWTEXT(ISLASTBAR,小布林中軌,'小布林中軌') SHIFT7 PXUP60,colorFF33FF;
DRAWNUMBER(ISLASTBAR,小布林下,小布林下,0) SHIFT3 PXUP60,colorFF33FF;
DRAWTEXT(ISLASTBAR,小布林下,'小布林下軌') SHIFT7 PXUP60,colorFF33FF;

EXPLAIN(1>0,'================'),colorFFFFFF;
EXPLAINEX(1>0,'小布林上軌 =',小布林上,0,0), colorFF33FF;
EXPLAINEX(1>0,'小布林中軌 =',小布林中軌,0,0), colorFF33FF;
EXPLAINEX(1>0,'小布林下軌 =',小布林下,0,0), colorFF33FF;
EXPLAIN(1>0,'================'),colorFFFFFF;

//====================================================================================================




//====================================================================================
if datatype <6 then begin

if datatype=1 then begin
BeepSel := (high > 小布林上)* 5 + (low < 小布林下)* 6 ;
end;
if datatype=2 then begin
BeepSel := (high > 小布林上)* 1 + (low < 小布林下)* 2 ;
end;
if datatype=3 then begin
BeepSel := (high > 小布林上)* 3 + (low < 小布林下)* 3 ;
end;
if datatype=4 then begin
BeepSel := (high > 小布林上)* 4 + (low < 小布林下)* 4 ;
end;

if datatype=5 then begin
BeepSel := (high > 小布林上)* 7 + (low < 小布林下)* 7 ;
end;


//請自行根據需要配置本行內容

//========================= 程式模組：符合條件發出聲響警示 Start =========================
//主要功能：
//　可避免條件連續成立時，不斷發出警示聲響的困擾。可按條件不同發出不同聲音
//響警時機：
//　當前該交易日首次條件成立時，會響警。
//　同交易日同條件上次運算不成立，而這次運算成立時，會響警。
//　同交易日這次運算成立的條件與上次運算成立的條件不同時，會響警。
//注意事項：
//　1.同一公式請勿套用在同一商品且同一周期中跑(將導致響警狀態寫存混亂)
//　 ※在相同視窗中或不同視窗中，皆不可以，即使指標參數不同也不行！
//　2.指標公式名稱請勿使用下面這些字符(會導致響警狀態無法記憶存檔)：
//　 < > : " / \ | ? *
//　3.不同條件成立，請勿將 BeepSel 值配置為相等值，以免造成混淆。
//使用方法：
// 請將本程式模組，添加在原公式程式碼的最末端。
// 並在本程式模組程式碼之前，添加 BeepSel 相關配置。
//使用範例：
// [單組條件] 收盤價大於MA10，使用第3組音效，寫法如下：
// BeepSel:=(CLOSE>MA(Close,10))*3;
// [雙組條件] 當KD金叉使用第1組音效，KD死叉使用第2組音效，寫法如下：
// BeepSel:=Cross(K,D)*1+Cross(D,K)*2;
// [多組條件] A用第2組音效,B用第5組音效,C用第3組音效，寫法如下：
// BeepSel:=條件A*2+條件B*5+條件C*3; //各條件間皆不會有同時成立之情況
//存檔路徑：
//　最後響警狀態會被記憶住，寫存於奇狐主資料夾中的 RecBeep 子資料夾裡。

//設定各組音效對應的檔案(共支持7組，可自行變更為您想要的)
Beep1:=GetAppMainDir+'\Effwav\eff01.wav'; //第1組音效
Beep2:=GetAppMainDir+'\Effwav\eff02.wav'; //第2組音效
Beep3:=GetAppMainDir+'\Effwav\eff03.wav'; //第3組音效
Beep4:=GetAppMainDir+'\Effwav\eff04.wav'; //第4組音效
Beep5:=GetAppMainDir+'\Effwav\eff05.wav'; //第5組音效
Beep6:=GetAppMainDir+'\Effwav\eff06.wav'; //第6組音效
Beep7:=GetAppMainDir+'\Effwav\eff07.wav'; //第7組音效

//===== 以下程式碼請勿做任何更動!!! =====
UseDate:=NumToStr(Tradedate,0);
UsePath:=GetAppMainDir+'\RecBeep'; //存檔路徑
UseFile:=UsePath+''+MarketLabel+StkLabel+'_'+FMLNAME+'.txt'; //存檔路徑+檔案名稱{市場代碼+商品代碼+指標名稱}
UseType:=NumToStr(DATATYPE*1000+DATATYPEM,0); //組合[數據週期類型]與[數據週期設定值]
GetBeep:=0;
<%
BeepSel=FFL.VarData("BeepSel")
UseFile=FFL.VarData("UseFile")
UseType=FFL.VarData("UseType")
UseDate=FFL.VarData("UseDate")
UsePath=FFL.VarData("UsePath")
if IsArray(BeepSel) then
NowBeepSel=BeepSel(ubound(BeepSel))
else
NowBeepSel=BeepSel
end if
Set fs=CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(UsePath)=False Then fs.CreateFolder UsePath
AllData="": OldBeepSel=0
If fs.FileExists(UseFile) then
Set RdFS=fs.OpenTextFile(UseFile, 1)
if Not(RdFS.AtEndOfStream) then
AllData=RdFS.ReadAll
DataAry=Split(AllData, vbcrlf, -1, 1)
AllData=""
for i=0 to ubound(DataAry)
if len(DataAry(i))>0 then
ItemAry=Split(DataAry(i), ",", -1, 1)
if UseDate=ItemAry(0) then
if UseType=ItemAry(1) then
OldBeepSel=cint(ItemAry(2))
else
AllData=AllData+DataAry(i)+vbcrlf
end if
end if
end if
next
end if
end if
if NowBeepSel<>OldBeepSel then FFL.VarData("GetBeep")=NowBeepSel
AddData=UseDate+","+UseType+","+cstr(NowBeepSel)
AllData=AddData+vbcrlf+AllData
Set RdFS = fs.CreateTextFile(UseFile, true)
RdFS.Write AllData
RdFS.close
%>
PlayBeep:=c*0+GetBeep;
PLAYSOUND(PlayBeep=1,0,Beep1);
PLAYSOUND(PlayBeep=2,0,Beep2);
PLAYSOUND(PlayBeep=3,0,Beep3);
PLAYSOUND(PlayBeep=4,0,Beep4);
PLAYSOUND(PlayBeep=5,0,Beep5);
PLAYSOUND(PlayBeep=6,0,Beep6);
PLAYSOUND(PlayBeep=7,0,Beep7);
end;

//========================== 程式模組：符合條件發出聲響警示 End ==========================

回覆: 求助 不同時區k棒 碰到布林時區 發出聲音 警示

引用:

---

最初由 ivancclai 發表
版主大大你好

上次請教你發生音訊做警示 我做好可以用了 謝謝

我若要新價位 觸碰 到不同時區 布林上下邊軌 時發時聲響 這範例如何增加音訊給到資訊 因為 1/5/15/60/240 分時區就要10 個音軌資訊 範例只有七個 可以給我範例 或修正嗎

謝謝



// ============================================== Datatype >0 大小布林 ====================================================


布林灰控參數:=20;
布林大參數:=1200;
布林中參數:=100;
短均參數:=20;
倍差:=2;
倍差1:=2;

小布林中軌:=MA(CLOSE,布林灰控參數) colorFF33FF linethick2 LINEDOT;
DRAWSL(ISLASTBAR ,小布林中軌,0,0,3) pxdn0 coloRFF33FF LINETHICK2 LINEDOT;
小布林中軌DOWNA:=小布林中軌<REF(小布林中軌,1);
PARTLINE(小布林中軌,小布林中軌) colorFF33FF,linethick2 LINEDOT;
PARTLINE(小布林中軌DOWNA,小布林中軌) colorFFFF00,linethick2 LINEDOT;

小布林上:小布林中軌+(倍差1)*STD(CLOSE,布林灰控參數) colorFF33FF LINETHICK3 LINEDASHDOT;
DRAWSL(ISLASTBAR ,小布林上,0,0,3) pxdn0 coloRFF33FF LINETHICK2 LINEDOT;
小布林上DOWN:=小布林上<REF(小布林上,1);
PARTLINE(小布林上DOWN,小布林上) colorFFFF00,linethick3;

小布林下:小布林中軌-(倍差1)*STD(CLOSE,布林灰控參數) colORFF33FF, LINETHICK3;
DRAWSL(ISLASTBAR ,小布林下,0,0,3) pxdn0 coloRFFFF00 LINETHICK2 LINEDOT;
小布林下DOWN:=小布林下<REF(小布林下,1);
PARTLINE(小布林下DOWN,小布林下) colorFFFF00,linethicK3;

DRAWNUMBER(ISLASTBAR,小布林上,小布林上,0) SHIFT3 PXUP60,colorFF33FF;
DRAWTEXT(ISLASTBAR,小布林上,'小布林上軌') SHIFT7 PXUp60, ColorFF33FF;
DRAWNUMBER(ISLASTBAR,小布林中軌,小布林中軌,0) SHIFT3, PXUP60 colorFF33FF;
DRAWTEXT(ISLASTBAR,小布林中軌,'小布林中軌') SHIFT7 PXUP60,colorFF33FF;
DRAWNUMBER(ISLASTBAR,小布林下,小布林下,0) SHIFT3 PXUP60,colorFF33FF;
DRAWTEXT(ISLASTBAR,小布林下,'小布林下軌') SHIFT7 PXUP60,colorFF33FF;

EXPLAIN(1>0,'================'),colorFFFFFF;
EXPLAINEX(1>0,'小布林上軌 =',小布林上,0,0), colorFF33FF;
EXPLAINEX(1>0,'小布林中軌 =',小布林中軌,0,0), colorFF33FF;
EXPLAINEX(1>0,'小布林下軌 =',小布林下,0,0), colorFF33FF;
EXPLAIN(1>0,'================'),colorFFFFFF;

//====================================================================================================




//====================================================================================
if datatype <6 then begin

if datatype=1 then begin
BeepSel := (high > 小布林上)* 5 + (low < 小布林下)* 6 ;
end;
if datatype=2 then begin
BeepSel := (high > 小布林上)* 1 + (low < 小布林下)* 2 ;
end;
if datatype=3 then begin
BeepSel := (high > 小布林上)* 3 + (low < 小布林下)* 3 ;
end;
if datatype=4 then begin
BeepSel := (high > 小布林上)* 4 + (low < 小布林下)* 4 ;
end;

if datatype=5 then begin
BeepSel := (high > 小布林上)* 7 + (low < 小布林下)* 7 ;
end;
.................

---