引用:

---

最初由 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;
==========================

---