兆源下單API

 找回密碼
 立即註冊
搜索
熱搜: 活動 交友 discuz
查看: 428|回復: 2

註冊報價並獲得報價與成交量

[複製鏈接]

22

主題

48

帖子

359

積分

管理員

Rank: 9Rank: 9Rank: 9

積分
359
發表於 2018-7-5 17:01:37 | 顯示全部樓層 |閱讀模式
  1. // JavaCode
  2. var vol=0;
  3. var mExc=1;
  4. var sExc=0;
  5. var Sym="2330";
  6. var m_hSym=0;

  7. function ALGO_Init()
  8. {
  9.   FSDebug.clearlog();
  10.   m_hSym=FSQuote.RegSymbol(mExc,sExc,Sym);
  11.   if(m_hSym)
  12.     FSDebug.ShowLog("RegOk",6);
  13.   else
  14.     FSDebug.ShowLog("RegError",7);
  15.   FSDebug.ShowLog("InitOK",6);
  16. }

  17. function ALGO_OnQuote(hSym,Tag)
  18. {
  19.   if(hSym==m_hSym&&Tag==1)
  20.   {
  21.     var t_Vol=FSQuote.GetData(hSym,8);
  22.     if(vol!=t_Vol)
  23.     {// Vol
  24.       vol=t_Vol;
  25.       FSDebug.ShowLog("Symbol:"+FSQuote.GetData(hSym,331),35);
  26.       FSDebug.ShowLog("Prc:"+FSQuote.GetData(hSym,4),35);
  27.       FSDebug.ShowLog("Vol:"+vol,35);
  28.     }  
  29.   }
  30. }

  31. function ALGO_Stop()
  32. {
  33. if(m_hSym)FSQuote.CloseSymbol(m_hSym);
  34. FSDebug.ShowLog("Stop",5);
  35. }
複製代碼

回復

使用道具 舉報

22

主題

48

帖子

359

積分

管理員

Rank: 9Rank: 9Rank: 9

積分
359
 樓主| 發表於 2018-7-5 17:15:27 | 顯示全部樓層
  1. rem VBScript Code
  2. vol=0
  3. mExc=1
  4. sExc=0
  5. Sym="2330"
  6. m_hSym=0

  7. function ALGO_Init
  8.   FSDebug.clearlog
  9.   m_hSym=FSQuote.RegSymbol(mExc,sExc,Sym)
  10.   if m_hSym<>0 then
  11.     FSDebug.ShowLog "RegOk",6
  12.   else
  13.     FSDebug.ShowLog "RegError",7
  14.   end if
  15.   FSDebug.ShowLog "InitOK",6
  16. end function

  17. function ALGO_OnQuote(hSym,Tag)
  18.   if hSym=m_hSym and Tag=1 then
  19.     t_Vol=FSQuote.GetData(hSym,8)
  20.     if vol<>t_Vol then
  21.       'Vol
  22.       vol=t_Vol
  23.       FSDebug.ShowLog "Symbol:"+CStr(FSQuote.GetData(hSym,331)),35
  24.       FSDebug.ShowLog "Prc:"+CStr(FSQuote.GetData(hSym,4)),35
  25.       FSDebug.ShowLog "Vol:"+CStr(vol),35
  26.     end if
  27.   end if
  28. end function

  29. function ALGO_Stop
  30. if m_hSym<>0 then FSQuote.CloseSymbol m_hSym
  31. FSDebug.ShowLog "Stop",5
  32. end function
複製代碼

回復

使用道具 舉報

22

主題

48

帖子

359

積分

管理員

Rank: 9Rank: 9Rank: 9

積分
359
 樓主| 發表於 2018-7-5 17:20:03 | 顯示全部樓層
運行結果

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有帳號?立即註冊

x
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

手機版|小黑屋|Fistek Inc.  

GMT+8, 2021-5-14 18:53 , Processed in 0.138912 second(s), 4 queries , File On.

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復 返回頂部 返回列表