 |
peter109
資深會員
註冊日期: Dec 2004
來 自: Taipei
文章數量: 1891 |
數值位置亂標
不知錯在哪裡 煩請指導 謝謝先
部分原碼如下
XN2:C*0,LINETHICK0;
FOR i=DATACOUNT DOWNTO 4 DO BEGIN
IF i<4 THEN BREAK;
IF (HA[i] OR HB[i]) THEN BEGIN // K棒下方有數值
FOR j=i-1 DOWNTO i-40 DO BEGIN
IF j<4 THEN BREAK;
XN2[j]:=0;
IF (HH[j]=H20[j] AND i-j<=5) THEN BEGIN //比對條件
XN3:=i-j;
FOR k=j-1 DOWNTO j-40 DO BEGIN
IF k<4 THEN BREAK;
IF HH[k]<=HH[j] THEN XN2[j]:=XN2[j]+1;
IF HH[k]>HH[j] THEN BREAK;
END;
END;
END;
XN2[i]:=XN2[j]+XN3;
END;
IF XN2[i]<20 THEN XN2[i]:=0;
END;
DRAWNUMBER(XN2>=20 AND XN2<40,H,XN2,0),COLORMAGENTA,ALIGN4;
DRAWTEXT(XN2=40,H,'40↑'),COLORMAGENTA,ALIGN4;
在K棒下方有數值後 開始比對條件
在圖的最上方 寫出XN2數值或文字
下圖 完全不對的XN2位置
peter109 附帶上了此圖片:
__________________
至誠能勝天下至偽
至拙能勝天下至巧
|
|
向版主報告此篇 |  |
|
2014-08-17 18:30 |
|
|
|  |
 |
peter109
資深會員
註冊日期: Dec 2004
來 自: Taipei
文章數量: 1891 |
如果主圖上方標示的位置 要由圖中目前標示的位置 改在K棒下方有數值(綠色箭頭)的主圖上方位置 該如何改
如圖
peter109 附帶上了此圖片:
__________________
至誠能勝天下至偽
至拙能勝天下至巧
|
|
向版主報告此篇 |  |
|
2014-08-17 18:42 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18166 |
回覆: 數值位置亂標
引用: 最初由 peter109 發表
不知錯在哪裡 煩請指導 謝謝先
部分原碼如下
XN2:C*0,LINETHICK0;
FOR i=DATACOUNT DOWNTO 4 DO BEGIN
IF i<4 THEN BREAK;
IF (HA[i] OR HB[i]) THEN BEGIN // K棒下方有數值
FOR j=i-1 DOWNTO i-40 DO BEGIN
IF j<4 THEN BREAK;
XN2[j]:=0;
IF (HH[j]=H20[j] AND i-j<=5) THEN BEGIN //比對條件
XN3:=i-j;
FOR k=j-1 DOWNTO j-40 DO BEGIN
IF k<4 THEN BREAK;
IF HH[k]<=HH[j] THEN XN2[j]:=XN2[j]+1;
IF HH[k]>HH[j] THEN BREAK;
END;
END;
END;
XN2[i]:=XN2[j]+XN3;
END;
IF XN2[i]<20 THEN XN2[i]:=0;
END;
DRAWNUMBER(XN2>=20 AND XN2<40,H,XN2,0),COLORMAGENTA,ALIGN4;
DRAWTEXT(XN2=40,H,'40↑'),COLORMAGENTA,ALIGN4;
在K棒下方有數值後 開始比對條件
在圖的最上方 寫出XN2數值或文字
下圖 完全不對的XN2位置
資訊提供不夠充足,難以協助,麻煩請再補上,謝謝
|
|
向版主報告此篇 |  |
|
2014-08-18 14:34 |
|
|
|  |
 |
peter109
資深會員
註冊日期: Dec 2004
來 自: Taipei
文章數量: 1891 |
謝謝版大的協助
寫法還真是我要學的
只是不知道什麼時候才能學會
繼續加油
再次感恩
__________________
至誠能勝天下至偽
至拙能勝天下至巧
|
|
向版主報告此篇 |  |
|
2014-08-20 16:17 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|