作者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