acromangelo (Ex-Member)
Rookie
Messaggi: 25
Iscritto: 19/06/2008
|
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:
Codice sorgente - presumibilmente VB.NET |
' 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.
Ultima modifica effettuata da acromangelo il 31/05/2009 alle 8:36 |