作者BlueFeel (藍色感覺)
看板Visual_Basic
標題[VB6 ] SHIFT
時間Thu Nov 3 23:08:49 2011
小弟有好幾個Textbox(text(1).text~text(20).text),
每一個都會放2位的16進制,ex. 00~FF
我想所有textbox的資料合起來,然後右移n bit,
下面是小弟針對19與20這兩個右移1bit的程式,想用for 讓每個都照這樣做.
因為TEXT(n).text, n可能會20個,甚至更多,VB6不可能建這樣長的array去記這些資料,
所以我這樣寫...
text(20).text =
Right$("0" & Hex(128 * ((Val("&H" & text(19).text)) And &H1&)
+ fix(Val("&H" & text(20).text) / 2)), 2)
首先, 先判斷 19 LSB是1的話就乘128與20右移1bit相加,再轉2位16進制放回20.
給了幾個值, 結果如於預期,
想問一下.....有更快的方法...?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.32.236.8
※ 編輯: BlueFeel 來自: 114.32.236.8 (11/03 23:10)
※ 編輯: BlueFeel 來自: 114.32.236.8 (11/03 23:12)
※ 編輯: BlueFeel 來自: 114.32.236.8 (11/03 23:30)
1F：→ MOONRAKER:20*2就40位，長度40的byte陣列哪裡不可能了 11/04 13:24