奇狐社區論壇 - 關於 Playsound 的深入用法

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 關於 Playsound 的深入用法 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=13655)

由 tycoon868 在 2010-05-21 01:06 發表:

關於 Playsound 的深入用法

請教總版主:

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

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

並製作了八個等級的 WAV檔

時間長度只有兩秒

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

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

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

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

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

而且好像頗耗系統資源

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

謝謝您

由 cgjj 在 2010-05-21 11:03 發表:

回覆: 關於 Playsound 的深入用法

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

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

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

並製作了八個等級的 WAV檔

時間長度只有兩秒

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

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

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

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

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

而且好像頗耗系統資源

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

謝謝您

Playsound 很單純, 並沒有所謂限制

WAV 錄製後最好裁切至最短, 並且以低品質存放
WAV品質高或時間長, 檔案就會大, 吃資源就會較重
WAV檔要小而短才好用

要做到前述...當等級有變換時發出聲音(一次變換發聲一次)
是可以實現的(需將前次記錄與本次記錄比對, 故需要寫檔)

具體做法大致如下:
1. 將記錄等級變數之最新值導入 VBScript 中
2. 與之前存在記錄檔中的等級值去做比較(TXT檔)
3. 若值相等, VBScript 傳回一個零值給奇狐
　若有不同, VBScript 就將新值存入記錄檔, 並將新值傳回給奇狐
4. 再依據傳回的值, 搭配 Playsound 決定發音
　傳回零不發聲, 若傳回為1到8, 則發出相對應的聲音

由 tycoon868 在 2010-05-21 12:53 發表:

總版主您好:

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

作法一:

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

可以給個方向嗎?

作法二:

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

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

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

謝謝您

由 cgjj 在 2010-05-21 18:37 發表:

引用:
最初由 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');

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

BeepSel=0 時代表等級沒變, 不需發出聲音
BeepSel>0 時代表等級有變化(BeepSel為變化後的等級)

由 cgjj 在 2010-05-21 19:02 發表:

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

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

由 tycoon868 在 2010-07-06 23:33 發表:

如何輪播前一百名並且Playsound 只跑一次

版主您好:

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

以下是我對個股的需求:

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

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

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

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

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

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

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

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

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

由 cgjj 在 2010-07-07 09:28 發表:

回覆: 如何輪播前一百名並且Playsound 只跑一次

引用:
最初由 tycoon868 發表
版主您好:

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

以下是我對個股的需求:

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

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

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

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

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

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

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

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

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

公式是在當前商品的基礎下做運算
故其沒有能力去控制切換您觀看的商品
公式是無法達成您這需求的

PS:軟體本身已有內建 [檢視\自動換頁] 的功能

由 tycoon868 在 2010-07-07 22:41 發表:

感謝版主:

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

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

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

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

謝謝

由 cgjj 在 2010-07-08 09:40 發表:

引用:
最初由 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');

僅可套用在一個視窗的一個圖面上
若要套在其他圖面或視窗, 請另建公式給與不同的 AlgName 後再套用
否則程式發生會相互影響造成混亂

由 tycoon868 在 2010-07-08 10:59 發表:

萬分感謝總版主 :

目前正測試中

感謝您的耐心協助

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

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

小弟叩謝

由 cgjj 在 2010-07-08 11:02 發表:

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

目前正測試中

感謝您的耐心協助

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

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

小弟叩謝

您客氣了, 感恩 ^_^

全部時間均為台灣時間, 現在時間為22:49

在這個頁面顯示本主題全部的 11 個文章