請教總版主:

我在五分鐘週期的台當月下

利用公式將 K棒 依照漲跌強弱共區分為
八個等級 1~8 級

並製作了 八個 等級的 WAV檔

時間長度只有兩秒

請問是否有可能達到以下效果:

1. 每跳出下一根時 依照其等級
播放 WAV 檔一次就好
除非它在這個五分鐘週期中有改變等級

2. 再這一個五分鐘周期當中
如果從 3級 跳到 4級
也只是在轉變的Tick 發出四級WAV
而不是一直隨著 Tick 不停播放


因為小弟有弱視+乾眼症
以上需求是為了五小時盯盤時 偶而可以讓眼睛休息一下 改由耳朵代勞

但經過爬文 Playsound 似乎有其限制

而且好像頗耗系統資源

希望您可以告知ㄧ個可以達到上述需
求而 P4 3.0 舊PC 也負荷的了的公式寫法

謝謝您

引用:

---

最初由 tycoon868 發表
請教總版主:

我在五分鐘週期的台當月下

利用公式將 K棒 依照漲跌強弱共區分為
八個等級 1~8 級

並製作了 八個 等級的 WAV檔

時間長度只有兩秒

請問是否有可能達到以下效果:

1. 每跳出下一根時 依照其等級
播放 WAV 檔一次就好
除非它在這個五分鐘週期中有改變等級

2. 再這一個五分鐘周期當中
如果從 3級 跳到 4級
也只是在轉變的Tick 發出四級WAV
而不是一直隨著 Tick 不停播放


因為小弟有弱視+乾眼症
以上需求是為了五小時盯盤時 偶而可以讓眼睛休息一下 改由耳朵代勞

但經過爬文 Playsound 似乎有其限制

而且好像頗耗系統資源

希望您可以告知ㄧ個可以達到上述需
求而 P4 3.0 舊PC 也負荷的了的公式寫法

謝謝您

---

總版主您好:

對一位僅初步會運用 奇弧函數寫簡單公式 沒有學過程式語言的我來說

作法一:

VBScript 插入到奇弧公式中 會很難上手嗎?

可以給個方向嗎?

作法二:

還是我應該放棄 [用耳朵聽盤] ~
一根五分K 發聲一次

改作成 有升降級時才 連續Playsound 五分鐘?

請針對 學會作法一是否需耗時很久給我建議

謝謝您

引用:

---

最初由 tycoon868 發表
總版主您好:

對一位僅初步會運用 奇弧函數寫簡單公式 沒有學過程式語言的我來說

作法一:

VBScript 插入到奇弧公式中 會很難上手嗎?

可以給個方向嗎?

作法二:

還是我應該放棄 [用耳朵聽盤] ~
一根五分K 發聲一次

改作成 有升降級時才 連續Playsound 五分鐘?

請針對 學會作法一是否需耗時很久給我建議

謝謝您

---

原碼:

....您原來的公式置於此段之前....

LevelN:=MyLevel; //請自行將 MyLevel 改為您原來存放等級的變數
AlgName:='DemoBeep'; //請自行將 DemoBeep 改為指標名稱(最好用英文名稱,不要用中文) 
AddStr:=StkLabel+'_'+NumToStr(DATATYPE,0);
UseFile:=GetAppMainDir+'\'+AlgName+'_'+AddStr+'.txt';
GetBeepSel:=0;
<%
  LevelN = FFL.VarData("LevelN")
  GetBeepSel = FFL.VarData("GetBeepSel")
  UseFile = FFL.VarData("UseFile")
  NowLevel = LevelN(ubound(LevelN))
  Set FS = CreateObject("Scripting.FileSystemObject")
  OldLevel = -1
  If FS.FileExists(UseFile) then
    Set RdFS = FS.OpenTextFile(UseFile, 1)
    RdLevel = RdFS.ReadLine
    if RdLevel>"" then OldLevel = CINT(RdLevel)
  end if
  GetBeepSel = 0
  if OldLevel<>NowLevel then GetBeepSel = NowLevel
  Set RdFS = FS.CreateTextFile(UseFile, true)
  RdFS.Write NowLevel
  RdFS.close
  FFL.VarData("GetBeepSel") = GetBeepSel
%>
BeepSel:=C*0+GetBeepSel;
PLAYSOUND(BeepSel=1,0,GetAppMainDir+'\Effwav\eff01.wav');
PLAYSOUND(BeepSel=2,0,GetAppMainDir+'\Effwav\eff02.wav');
PLAYSOUND(BeepSel=3,0,GetAppMainDir+'\Effwav\eff03.wav');

.....以下省略.....

引用:

---

最初由 cgjj 發表
對於剛入門程式寫作的人, 是有點難度
程式處理範例如下:
.................................
[/CODE]

---

要特別注意一件事
若此段公式有同時應用在兩個圖中 或 同時有兩公式正在跑都用到此段內容
一定要避免產生相同的記錄檔名稱
否則程式會產生打架, 因而產生錯亂
雖然它已經會隨不同商品不同週期給不同檔名了
但不同指標最好也給不同檔名(AlgName)
這樣才能確保正常使用唷

版主您好:

之前向您提過 台當月的類似需求
由於 VBscript 看不懂暫時作罷

以下是我對個股的需求:

1. 我有一個判讀 強勢股的公式
Playsound(S2>20,0,'Top Rank');

2. 我常常於盤中手動瀏覽 總額持倉 前100名找尋強勢 個股

我希望可以達到以下功能:

1. 總額持倉 前100名個股 要如何自動輪播 (每檔只停留五秒鐘) 如何暫停

////////我指的輪播是 日K線技術分析而不是報價列表///////////

2. 當某一個股 符合Playsound(S2>20,0,'Top Rank') 時播放

如果五秒後翻下一檔 則只播放五秒很
OK 但如果我想要停在這一檔強勢股
慢慢看時 (即暫停 自動播放)

它就會再每一個 Tick 後叫個不停(因為是日K 而且指標可能一整天都是成立的)

********* 請問如何作到 畫面只盯在該
強勢股時 也只播放 一次, 直到下次
又翻到該股時才又 播放************

引用:

---

最初由 tycoon868 發表
版主您好:

之前向您提過 台當月的類似需求
由於 VBscript 看不懂暫時作罷

以下是我對個股的需求:

1. 我有一個判讀 強勢股的公式
Playsound(S2>20,0,'Top Rank');

2. 我常常於盤中手動瀏覽 總額持倉 前100名找尋強勢 個股

我希望可以達到以下功能:

1. 總額持倉 前100名個股 要如何自動輪播 (每檔只停留五秒鐘) 如何暫停

////////我指的輪播是 日K線技術分析而不是報價列表///////////

2. 當某一個股 符合Playsound(S2>20,0,'Top Rank') 時播放

如果五秒後翻下一檔 則只播放五秒很
OK 但如果我想要停在這一檔強勢股
慢慢看時 (即暫停 自動播放)

它就會再每一個 Tick 後叫個不停(因為是日K 而且指標可能一整天都是成立的)

********* 請問如何作到 畫面只盯在該
強勢股時 也只播放 一次, 直到下次
又翻到該股時才又 播放************

---

感謝版主:

如果我是盤中手動翻頁( 總額持倉前100名) 日k線 遇到強勢股時
Playsound(S2>20,0,'Top Rank'); 我想要停下來慢慢看這一檔個股
它卻一直 Plansound

************* 當 Playsound 用在日線時
是否有其他方法可以 只叫一次 ? ********

如果是 五分K 可能下一根就不會叫

真的想知道 日K 下的 [提示聲音] 要 如何運用?(因為可能大半天都是滿足條件的)

謝謝

引用:

---

最初由 tycoon868 發表
感謝版主:

如果我是盤中手動翻頁( 總額持倉前100名) 日k線 遇到強勢股時
Playsound(S2>20,0,'Top Rank'); 我想要停下來慢慢看這一檔個股
它卻一直 Plansound

************* 當 Playsound 用在日線時
是否有其他方法可以 只叫一次 ? ********

如果是 五分K 可能下一根就不會叫

真的想知道 日K 下的 [提示聲音] 要 如何運用?(因為可能大半天都是滿足條件的)

謝謝

---

原碼:


CkBeep:=C>O; //請自行將Beep條件變更,現為:開盤大於收盤

AlgName:='StkBeep'; //請自行將 StkBeep 改為指標名稱(最好用英文名稱,不要用中文) 

UseStkNo:=StkLabel;

AddStr:=NumToStr(DATATYPE,0);

UseFile:=GetAppMainDir+''+AlgName+'_'+AddStr+'.txt';

GetBeepSel:=0;

<%

  CkBeep = FFL.VarData("CkBeep")

  UseFile = FFL.VarData("UseFile")

  UseStkNo = FFL.VarData("UseStkNo")

  GetBeepSel = FFL.VarData("GetBeepSel")

  BeepCond = INT(CkBeep(ubound(CkBeep)))

  Set FS = CreateObject("Scripting.FileSystemObject")

  if BeepCond > 0 then

    NowBeep = UseStkNo & "_" & CStr(BeepCond)

    OldBeep = ""

    If FS.FileExists(UseFile) then

      Set RdFS = FS.OpenTextFile(UseFile, 1)

      OldBeep = RdFS.ReadLine

    end if

    if OldBeep<>NowBeep then GetBeepSel=1

  else 

    NowBeep = "Null"

  end if

  Set RdFS = FS.CreateTextFile(UseFile, true)

  RdFS.Write NowBeep

  RdFS.close

  FFL.VarData("GetBeepSel") = GetBeepSel

%>

BeepSel:C*0+GetBeepSel linethick;

PLAYSOUND(BeepSel=1,0,GetAppMainDir+'\Effwav\eff01.wav');

萬分感謝 總版主 :

目前正測試中

感謝您的耐心協助

小弟用過市場上無數的股票軟體

奇狐的彈性與精密真是無與倫比

小弟叩謝

引用:

---

最初由 tycoon868 發表
萬分感謝 總版主 :

目前正測試中

感謝您的耐心協助

小弟用過市場上無數的股票軟體

奇狐的彈性與精密真是無與倫比

小弟叩謝

---