![]() |
總頁數 (2): « 1 [2] 在這個頁面顯示本主題全部的 20 個文章 |
奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 選出最大金額股票 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=20915)
引用:
最初由 lamb3939 發表
這個我知道,因為我想做極短線,不想手動從那兒去看,我也知道一直變,所以才想可不可以從預警去加。就只想問可不可以這樣。
我知道隨時間前25會變,所以會超過25個,我只是希望能如此,請版大教我如何寫程式來這樣做。萬分感激
引用:
最初由 lamb3939 發表
我知道隨時間前25會變,所以會超過25個,我只是希望能如此,請版大教我如何寫程式來這樣做。萬分感激
原碼:
UseBlkName:='上市股票'; //設定選用板塊 SetMaxStkNum:=25; //設定選出數量 UseDIR:=1; //設定排序方向 0.升序 1.降序 BlkStkNum:=STKCOUNT(UseBlkName); if BlkStkNum=0 then exit; RdNum:=0; //有效商品數 VARIABLE:RdNo[BlkStkNum]=0; //原始次序 VARIABLE:SortPAry[BlkStkNum]=0; for SNo:=1 to BlkStkNum do begin UseSTK:=STKFROMBLK(UseBlkName,SNo); GetAMOUNT:=DYNAINFO2(10,UseSTK); if GetAMOUNT> 0 then begin RdNum:=RdNum+1; RdNo[RdNum]:=SNo; SortPAry[RdNum]:=GetAMOUNT; end; end; MaxStkNum:=if(RdNum<SetMaxStkNum,RdNum,SetMaxStkNum); tmp:=SORTPOS(SortPAry,UseDIR,1,RdNum); SelListStr:=''; for SNo:=1 to MaxStkNum do begin UseSTK:=STKFROMBLK(UseBlkName,RdNo[SortPAry[SNo]]); SelListStr:=SelListStr+UseSTK+';'; end; 選中:STRFIND(SelListStr,MARKETLABEL+STKLABEL,1)>0;
版主您好,以下是我自己寫的程式,標示出成交金額大於5000000的情況有出現符號,如果我同時也要出現聲音的話要怎麼改,請您幫我改一下,謝謝
==========================
AE:=AMOUNT>=5000000 and AMOUNT<6000000 ;
DRAWICON(AE,L,12) pxup50;
==========================
引用:
最初由 lamb3939 發表
版主您好,以下是我自己寫的程式,標示出成交金額大於5000000的情況有出現符號,如果我同時也要出現聲音的話要怎麼改,請您幫我改一下,謝謝
==========================
AE:=AMOUNT>=5000000 and AMOUNT<6000000 ;
DRAWICON(AE,L,12) pxup50;
==========================
全部時間均為台灣時間, 現在時間為08:42 | 總頁數 (2): « 1 [2] 在這個頁面顯示本主題全部的 20 個文章 |
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.