Differenze tra le versioni di "Ottenere il ''nibble'' alto ed il ''nibble'' basso di un numero"

Da Gambas-it.org - Wikipedia.
 
Riga 1: Riga 1:
 
Per ottenere il ''nibble'' alto (la parte alta) binario di un numero, si dovrà usare l'operatore ''AND'' con 15 (&F):
 
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
 
  na = num AND 15
 
 
 
 
Per ottenere invece il ''nibble'' basso (la parte bassa) binario di un numero, si divederà il numero per 16 (&10):
 
Per ottenere invece il ''nibble'' basso (la parte bassa) binario di un numero, si divederà il numero per 16 (&10):
 
  nb = num \ 16
 
  nb = num \ 16
 
ossia 2 ^ 4
 
ossia 2 ^ 4
 
 
  
 
Mostriamo un esempio:
 
Mostriamo un esempio:
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 
   
 
   
  Dim b As Byte
+
  Dim b As Byte
  Dim na As Byte
+
  Dim na As Byte
  Dim nb As Byte
+
  Dim nb As Byte
 
   
 
   
 
   b = 100
 
   b = 100
Riga 22: Riga 17:
 
   nb = b And 15
 
   nb = b And 15
 
   
 
   
  <FONT color=#006400>' ''Mostra il risultato in decimale ed in binario:''</font>
+
  <FONT color=gray>' ''Mostra il risultato in decimale ed in binario:''</font>
 
   Print "na (nibbel alto) = "; na, Bin(na, 4)
 
   Print "na (nibbel alto) = "; na, Bin(na, 4)
 
   Print "nb (nibble basso) = "; nb, Bin(nb, 4)
 
   Print "nb (nibble basso) = "; nb, Bin(nb, 4)
 
    
 
    
  '''End'''
+
  End

Versione attuale delle 08:54, 23 giu 2024

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