[VB6 ] 關於VB6位元左移問題

[sanlinchang (<---剩男)]

想請問各位前輩們

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
推 chinoyan:arry(i)\2 = ,ARRY是BYTE陣例,又怎麼可以\2,又給值呢?
→ chinoyan:For i = 0 To 11 Step 2即可,不用i=i+2
→ sanlinchang:感謝大大的指導,小弟了解的 已用array(i/2)了,感謝
※ 編輯: sanlinchang     來自: 123.110.83.7         (02/07 22:01)