投稿者: O-Family ..2022/12/19(月) 17:10 No.14881 |
|
Dim A(4) As Byte Dim L As Long Dim W As Word
A(1) = &H12 A(2) = &H34 A(3) = &H56 A(4) = &H78
L = A(1) Shift L , Left , 8 L = L + A(2) Shift L , Left , 8 L = L + A(3) Shift L , Left , 8 L = L + A(4)
Print Hex(l)
' ' W = Makeint(a(2) , A(1)) L = W Shift L , Left , 16 W = Makeint(a(4) , A(3)) L = L + W
Print Hex(l)
' ' L = A(1) L = L * 256 L = L + A(2) L = L * 256 L = L + A(3) L = L * 256 L = L + A(4)
Print Hex(l)
End
|
|