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

看板Visual_Basic作者sanlinchang (<---剩男)時間14年前 (2012/02/05 02:46)推噓1(1推 0噓 2→)

留言3則, 2人參與討論串1/4 (看更多)

想請問各位前輩們 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

02/05 06:50, , 1^F

02/05 06:50, 1^F

→

chinoyan

02/05 06:51, , 2^F

02/05 06:51, 2^F

→

sanlinchang

02/07 00:14, , 3^F

02/07 00:14, 3^F