[問題]關於IF問題

FOR I=1 TO 8 DO
BEGIN
TJ:=FILTER(BACKSET(ISLASTBAR,I*15),I*15);
STICKLINE(TJ ,0,8,0,0),COLORMAGENTA;
END
想劃八條縱線,卻只劃最後一條,有請版主解惑,謝謝

引用:

---

最初由 sppcsf 發表
FOR I=1 TO 8 DO
BEGIN
TJ:=FILTER(BACKSET(ISLASTBAR,I*15),I*15);
STICKLINE(TJ ,0,8,0,0),COLORMAGENTA;
END
想劃八條縱線,卻只劃最後一條,有請版主解惑,謝謝

---

variable:zq[1]:=datacount,
zq[2]:=datacount-15,
zq[3]:=datacount-30;
for i=1 to 3 do
stickline(barpos=zq[i],0,8,0,0);
結果仍是只劃最後一條線
請教版主或高手是否有更簡易的方式?

這是最簡便的寫法
LL:=C*0;
LL[datacount]:=1;
LL[datacount-15]:=1;
LL[datacount-30]:=1;
stickline(LL,0,8,0,0);

原理是設置一個空陣列 (值都為0)
把要劃線的地方標示 (值設為1)
再帶入 stickline 命令即可

另外要麻煩你, 4.0版尚未正式推出前
請先用 來電 或 E-MAIL 存問4.0版問題
暫時先不要於公開論壇詢問
敬請配合, 謝謝!

謝謝版主的解說
也會遵守版規
再一次謝謝