Ottenere il ''nibble'' alto ed il ''nibble'' basso di un numero

Per ottenere il nibble alto (la parte alta) binario di un numero, si dovrà usare l'operatore AND con 15 (&F):

na = num AND 15

Per ottenere invece il nibble basso (la parte bassa) binario di un numero, si divederà il numero per 16 (&10):

nb = num \ 16

ossia 2 ^ 4

Mostriamo un esempio:

Public Sub Form_Open()

  Dim b As Byte
  Dim na As Byte
  Dim nb As Byte

  b = 100

  na = b \ 16
  nb = b And 15

' Mostra il risultato in decimale ed in binario:
  Print "na (nibbel alto) = "; na, Bin(na, 4)
  Print "nb (nibble basso) = "; nb, Bin(nb, 4)
 
End