Compitino per casa sui bit

[kicco]

Argh!!!
Mi sono distratto un secondo e avete già fatto!!
Imparo e permango in ultimo banco col cappello da asino, ma con le orecchie aperte!!
 

[Gianluigi]

Si, si, si fa finta di passar per bischeri! 
Il fatto è che sei un pigrone 

Comunque il Maestro non ha ancora elargito completamente la sua sapienza (leggi sua soluzione)   

 

[kicco]

Il fatto è che sei un pigrone 

...ehm... ho la giustifica.
Ero indisposto! 

[Top Fuel]

Aggiungo anche il codice per ottenere il decimale da un binario:

Codice: [Seleziona]

' Gambas module file

Public Sub Main()

  Dim b, t, i, e, f As Integer
  Dim s As String
  
  
  s = "101110011000110"
  t = Len(s)
  e = t
  For i = 1 To t
    b = CInt(Mid(s, i, 1))
    Dec e
   f += b * 2 ^ e
  Next
  Print f; " è la rappresentazione decimale di "; s

End

Ci sarà anche di meglio, ma questo è quanto sono riuscito a combinare oggi 
 

Senza tanti fronzoli:

Codice: [Seleziona]

binario = "101110011000110"
Print CInt(Val(binario))

Notare il risultato. Se ti ricordi cosa ho scritto sul libro dovresti sapere il perchè...

[Gianluigi]

Senza tanti fronzoli:

Codice: [Seleziona]

binario = "101110011000110"
Print CInt(Val(binario))

Notare il risultato. Se ti ricordi cosa ho scritto sul libro dovresti sapere il perchè...

 
A me non funziona 

[Top Fuel]

Si, hai ragione, stavolta ho cannato io.
Proverò a rifarlo.

[Top Fuel]

Rifatto, adesso dovrebbe funzionare bene:

Codice: [Seleziona]

Public Sub Form_Open()
Dim decimale As Integer
Dim i, bit As Byte
Dim binario As String
binario = "101110011000110"
For i = Len(binario) To 1 Step -1
   bit = CByte(Mid$(binario, i, 1))
   If bit = 1 Then decimale += 2 ^ (Len(binario) - i)
Next
Print decimale
End

[vuott]

adesso dovrebbe funzionare bene:

L'ho aggiunto come ulteriore modalità di conversione nell'apposita pagina della nostra WIKI:

http://www.gambas-it.org/wiki/index.php?title=Convertire_un_numero_da_rappresentazione_binaria_in_decimale

[Top Fuel]

Ulteriore oDore.

[Top Fuel]

Versione migliorata dell'esercizio che calcola quanti bit è lungo il numero, quindi indipendente dal tipo di variabile numerica (intera, ovviamente):

Codice: [Seleziona]

Public Sub Form_Open()
Dim numero As Long
Dim i, nbit, bitauno As Byte
numero = 23750
nbit = CByte(Log2(numero) + 1)
For i = 0 To nbit
   If BTst(numero, i) = True Then Inc bitauno
Next
Print "Il numero di bit a uno è: "; bitauno
End