Visual Basic 6 - Codice binario

Dopo il materiale passatomi da kanap57 ho deciso di cominciare a fare qualcosa in binario.
Ho fatto una funzione che converte i numeri decimali da 0 a 255 in binario a 8 bit, ed una successiva funzione che permette di trasformare le parole o una frase di qualsiasi lunghezza in codice binario sempre a 8 bit. Questo potrebbe essere per esempio usato per comunicare con un pic esterno collegato al pc tramite la porta parallela, ma su questo ci devo ancora studiare, anche se i pic ce li ho già a casa xD.

Queste sono le funzioni:

' In un modulo
Public Function DecToBin(numero As Integer) As String
Dim bin As Double, finale As String
bin = 128
conta = 0
Do Until bin = "0,5"
    If numero / bin >= 1 Then
        finale = finale & "1"
        numero = numero - bin
        bin = bin / 2
    Else
        finale = finale & "0"
        bin = bin / 2
    End If
    DoEvents
Loop
DecToBin = finale
End Function

Public Function TxtToBin(testo As String, Optional divisorio As String = "") As String
Dim finale As String
For n = 1 To Len(testo)
    If n <> Len(testo) Then
        finale = finale & DecToBin(Asc(Mid(testo, n, 1))) & divisorio
    Else
        finale = finale & DecToBin(Asc(Mid(testo, n, 1)))
    End If
Next
TxtToBin = finale
End Function

Spero possa essere d'aiuto a qualcuno e che kanap57, tramite questo, possa creare qualcos'altro di più difficile.

La funzione di conversione non lavora correttamente ...

Ti consiglio questa

Public Function DecToBin(ByVal numero As Long) As String
    While numero
        DecToBin = Abs((numero Mod 2)) & DecToBin
        numero = numero \ 2
    Wend
End Function

piu' semplice e funzionante.

Se ti interessi di elettronica con i PC, anche se un po' vecchiotti, ti consiglio di leggere questi articoli

visual-basic.it/articoli/…
visual-basic.it/articoli/…
visual-basic.it/articoli/…
visual-basic.it/articoli/…