| 投稿者: 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
|
|
