奇狐社區論壇 - 想請問如何寫十六進位？？

奇狐社區論壇 (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=14234)

由 kinder 在 2010-09-02 16:56 發表:

想請問如何寫十六進位？？

我想要將數值的從0-16用十六進位法表示

是否要用VBS來寫？奇狐有語法可以直接轉換嗎？

我在奇狐是這樣寫：
X0:=0;
X0:=IF(C=REF(C,1),REF(X0,1),IF(C>REF(C,1),1,0));
X1:=REF(X0,3);
X2:=REF(X0,2);
X3:=REF(X0,1);
X4:=X0;
S0:=X1*8+X2*4+X3*2+X4*1;
<%
A0 = FFL.VarData("S0")
SELECT CASE A0
CASE A0=10 A0="A"
CASE A0=11 A0="B"
...
CASE A0=16 A0="F"

END SELECT
FFL.Vardata("S0")=A0
%>

DRAWTEXT( C<>,C,S0),ALIGN4;

不知道這樣寫是問題在那，編譯會過，但會出現VBS輸出錯誤

由 cgjj 在 2010-09-02 17:24 發表:

回覆: 想請問如何寫十六進位？？

引用:
最初由 kinder 發表
我想要將數值的從0-16用十六進位法表示

是否要用VBS來寫？奇狐有語法可以直接轉換嗎？

我在奇狐是這樣寫：
X0:=0;
X0:=IF(C=REF(C,1),REF(X0,1),IF(C>REF(C,1),1,0));
X1:=REF(X0,3);
X2:=REF(X0,2);
X3:=REF(X0,1);
X4:=X0;
S0:=X1*8+X2*4+X3*2+X4*1;
<%
A0 = FFL.VarData("S0")
SELECT CASE A0
CASE A0=10 A0="A"
CASE A0=11 A0="B"
...
CASE A0=16 A0="F"

END SELECT
FFL.Vardata("S0")=A0
%>

DRAWTEXT( C<>,C,S0),ALIGN4;

不知道這樣寫是問題在那，編譯會過，但會出現VBS輸出錯誤

S0:=X1*8+X2*4+X3*2+X4*1;
計算後 S0 是數列
您在 vbs 中需以陣列方式來處理它, 而非以單值來看待它

若您數的範圍僅是 0-16 ,可用此方法簡單轉換(不需VBS)
SS:=strmid('01234567890ABCDEF',N,1);
DRAWTEXT(islastbar,C,SS);

由 kinder 在 2010-09-02 18:13 發表:

我現在想做的是，每一天都要有一個數據
在畫面上呈現的是一連串的數據是從0~F的亂數
但這些亂數是根據上面的語法來定義的。

所以在K線圖上，就會每根K線都會有一個字

版本所提供的方法似乎只能在最後一根呈現，如果我想要每一根K線都能呈現出來應該要如何做比較好呢？

且SS:=strmid('01234567890ABCDEF',N,1);中的N只能一個固定值嗎？不能代入S0來做變動嗎？這也是因為陣列和數值的問題所以導致無法用S0去代入N。

由 cgjj 在 2010-09-02 18:39 發表:

引用:
最初由 kinder 發表
我現在想做的是，每一天都要有一個數據
在畫面上呈現的是一連串的數據是從0~F的亂數
但這些亂數是根據上面的語法來定義的。

所以在K線圖上，就會每根K線都會有一個字

版本所提供的方法似乎只能在最後一根呈現，如果我想要每一根K線都能呈現出來應該要如何做比較好呢？

且SS:=strmid('01234567890ABCDEF',N,1);中的N只能一個固定值嗎？不能代入S0來做變動嗎？這也是因為陣列和數值的問題所以導致無法用S0去代入N。

//換用此法 N 可為數列:

DRAWTEXT(N=0,C,'0');
DRAWTEXT(N=1,C,'1');
DRAWTEXT(N=2,C,'2');
DRAWTEXT(N=3,C,'3');
DRAWTEXT(N=4,C,'4');
DRAWTEXT(N=5,C,'5');
DRAWTEXT(N=6,C,'6');
DRAWTEXT(N=7,C,'7');
DRAWTEXT(N=8,C,'8');
DRAWTEXT(N=9,C,'9');
DRAWTEXT(N=10,C,'A');
DRAWTEXT(N=11,C,'B');
DRAWTEXT(N=12,C,'C');
DRAWTEXT(N=13,C,'D');
DRAWTEXT(N=14,C,'E');
DRAWTEXT(N=15,C,'F');

由 kinder 在 2010-09-05 20:04 發表:

謝謝你提供的建議我會試試看的。感恩！

全部時間均為台灣時間, 現在時間為09:12

在這個頁面顯示本主題全部的 5 個文章