Versione delle 11:31, 20 nov 2016

Per sapere quanti bit posti ad 1 sono presenti in un numero, è possibile utilizzare alcune modalità.

Uso della funzione specifica BTst( )

Innanzitutto mostriamo una soluzione semplice utilizzando la funzione specifica BTst( ): ^{[nota 1]}

Public Sub Main()
 
 Dim numero, i, bitauno As Byte
 
  numero = 165
  
  For i = 0 To 7
    If BTst(numero, i) = True Then Inc bitauno
  Next
  
  Print "Il numero di bit a uno è: "; bitauno

End

Uso delle funzioni Bin( ) e Mid( )

Public Sub Main()
 
 Dim i, numero, c As Integer
 Dim binario As String
 
  numero = 1234567890
  binario = Bin(numero)
  
  For i = 1 To len(binario)
    If Mid(binario, i, 1) = "1" Then Inc c
  Next
  
  Print numero; " contiene "; c; " bit posti a 1  ("; binario; ")"
  
End

Uso dell'operatore aritmetico Mod

Public Sub Main()   [nota 2]
 
 Dim n, b, c As Integer
 
  n = 165
  
  Print "La rappresentazione binaria di "; n; " è "; 
  
  While n > 0
    b = n Mod 2
    Print b;
    If b <> 0 Then Inc c
    n = n \ 2
  Wend
  Print " e contiene "; c; " bit posti a 1"
  
End

Note

[1] Questa soluzione è stata proposta dal membro TopFuel del forum www.gambas-it.org

[2] Questa soluzione è stata proposta dal membro Gianluigi del forum www.gambas-it.org