Visualizza wikitesto di Sottrazione con operatori bitwise

Il codice per operare una sottrazione con operatori bitwise fra due numeri, considerati come fossero binari, va impostato in modo tale che innanzitutto effettui lo ''XOR'' fra i due operandi; poi deve eseguire il ''NOT'' bitwise del primo operando. Infine deve effettuare l'<I>AND</i> fra i due operandi, e uno ''shift'' a sinistra.


Mostriamo il codice esemplificativo:
 '''Public''' Sub Main()
  
  Dim minuendo, sottraendo, differenza As Integer
  
    minuendo = 240
    sottraendo = 15
   
    differenza = sottrazione_binaria(minuendo, sottraendo)
    
    Print differenza
   
 '''End'''
 
 
 '''Private''' Function sottrazione_binaria(op1 As Integer, op2 As Integer) As Integer
  
  Dim sb, prestito As Integer
  
   prestito = 1
  
   While prestito <> 0
        sb = op1 Xor op2
        op1 = Not op1
        prestito = op1 And op2
        prestito = prestito * CInt(2 ^ 1)
        op1 = sb
        op2 = prestito
   Wend
   
   Return op1
  
 '''End'''