作者sanlinchang (<---剩男)
看板Visual_Basic
标题[VB6 ] 关於VB6位元左移问题
时间Sun Feb 5 02:45:58 2012
想请问各位前辈们
VB6的位元左移
的程式与法该怎麽写
小弟有一段程式码
由 C 要转为 VB6
但小弟的VB6实在是能力有限
请知道怎麽写的前辈们
可否告诉小弟我
感恩!!!
C 的写法为
for (i=0;i<12;i+2)
{
arry[i]/2 |= arry[i]-48
arry[i]/2 |= arry[i]-48 << 4
}
VB6 小弟我的写法
for i=0 to 11
arry(i)\2 = (arry(i) or (arry(i)-48))
arry(i)\2 = (arry(i) or ((arry(i)-48)+16))
i=i+2
next
=======================分隔线======================
Dim arry(12) As Byte
Dim Temp_arry(12) As Byte
Dim i As Integer
Dim TEMP_Byte As Byte
For i = 0 To 11 Step 2
TEMP_Byte = Temp_arry(i / 2) Or (arry(i) - 48)
Temp_arry(i / 2) = TEMP_Byte
TEMP_Byte = Temp_arry(i / 2) Or ((arry(s + 1) - 48) * 16)
Temp_arry(i / 2) = TEMP_Byte
Next
=======================分隔线======================
感谢大大的指教
小弟已将 C 转为 VB6 的写法了
谢谢大家
--
Stanley
↑阿宅&不帅&坏人&没钱&没车&没屋&没女友&负债
机会就跟老二一样握紧就会变大
( ￣ c￣)y▂▂ξ
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.110.83.7
1F：推 chinoyan:arry(i)\2 = ,ARRY是BYTE阵例,又怎麽可以\2,又给值呢? 02/05 06:50
2F：→ chinoyan:For i = 0 To 11 Step 2即可,不用i=i+2 02/05 06:51
3F：→ sanlinchang:感谢大大的指导,小弟了解的 已用array(i/2)了,感谢 02/07 00:14
※ 编辑: sanlinchang 来自: 123.110.83.7 (02/07 22:01)