Visualizza wikitesto di Porre a 0 oppure a 1 un bit di un numero

==Porre a Uno un bit==
Per porre a '''1''' il bit di un valore numerico, possiamo usare l'operatore "OR", come segue:
  '''Public''' Sub Main()
 
  Dim i, bit, ris As Integer
 
 <FONT Color=gray>' ''Valore iniziale:''</font>
  i = 888
  Print Bin(i, 32)
 
 <FONT Color=gray>' ''Individua il valore simile a quello iniziale, ma avente il solo ottavo bit posto a 1:''</font>
  bit = 128
  Print Bin(bit, 32), "<-----"
 
 <FONT Color=gray>' ''Con l'operatore "OR" pone a '''1''' l'ottavo bit del valore iniziale da modificare:''</font>
  ris = i <FONT Color=#B22222><B>Or</b></font> bit
  Print Bin(ris, 32)
 
 <FONT Color=gray>' ''Verifica il risultato, ossia il valore iniziale come modificato:''</font>
  Print ris
 
 '''End'''
oppure adottare il seguente codice (per valori non superiori a 32 bit):
 '''Public''' Sub Main()
 
  Dim i, ris As Integer
  Dim bit As Byte
  
 <FONT Color=gray>' ''Valore iniziale:''</font>
  i = 888
    
 <FONT Color=gray>' ''Del valore iniziale pone a 1 l'ottavo bit (indice 0 - 31):''</font>
  bit = 7
   
  ris = i Or (1 * CInt(2 ^ bit))   <FONT Color=gray>' ''oppure così: '''ris = i Or Shl(1, CInt(bit))'''''</font>
    
  Print ris
  
 '''End'''


==Porre a Zero un bit==
Se, invece, si vuole porre a '''0''' un bit di un numero,  possiamo usare l'operatore "AND", come segue:
  '''Public''' Sub Main()
 
  Dim i, bit, ris As Integer
 
 <FONT Color=gray>' ''Valore iniziale:''</font>
  i = 1016
  Print Bin(i, 32)
 
 <FONT Color=gray>' ''Individua il valore simile a quello iniziale, ma avente il solo ottavo bit posto a 0:''</font>
  bit = 888
  Print Bin(bit, 32), "<-----"
 
 <FONT Color=gray>' ''Con l'operatore "AND" pone a '''0''' l'ottavo bit del valore iniziale da modificare:''</font>
  ris = i <FONT Color=#B22222><B>And</b></font> bit
  Print Bin(ris, 32)
 
 <FONT Color=gray>' ''Verifica il risultato, ossia il valore iniziale come modificato:''</font>
  Print ris
 
 '''End'''
oppure il seguente codice (per valori non superiori a 32 bit):
 '''Public''' Sub Main()
 
  Dim i, ris As Integer
  Dim bit As Byte
  
 <FONT Color=gray>' ''Valore iniziale:''</font>  
  i = 65535
    
 <FONT Color=gray>' ''Del valore iniziale pone a 0 il nono bit (indice 0 - 31):''</font>
  bit = 8
   
  ris = i And (-1 Xor (1 * CInt(2 ^ bit)))
  
  Print ris
 
 '''End'''