Tengo un problema intentando convertir ASCII en binario. En efecto, estoy traduciendo una trama AIS (que sirvé por la navegación en buques) simbolo por simbolo sobre seis bits a partir de 15 (donde empieza la carga útil). Y a pesar de haber !AIVDM,1,1,,A,15O86n001TJ3KutH8ar@<h;l06Hh,0*5D
la traducción esta por cada simbolo: 1100001
.
Aqui la carga util es: 15O86n001TJ3KutH8ar@<h;l06Hh
Public Sub decodage_AIS(tramaAs String)
Dim coleccion_ASCII(trames.ToString.Length) As String
Dim variable As Char
Dim binaryDigits() As Char
For i = 15 To tableau_ASCII.Length - 1
variable = trama(i)
equivalent_byte = equivalent_byte + System.Convert.ToString(Asc(variable), 2).PadLeft(4, "0")
binaryDigits = equivalent_byte.ToCharArray
My.Application.DoEvents()
Next
por ejemplo, 1
debe ser convertido en 000001
pero esta convertido en 1100001
como todos los otros simbolos, 5
en 000101
esta convertido en 1100001
.
Finalmente, espero esta conversion:
1 000001
5 000101
O 011111
8 001000
6 000110
n 110110
0 000000
0 000000
1 000001
T 100100
J 011010
3 000011
K 011011
u 111101
t 111100
8 001000
a 101001
r 111010
@ 010000
< 001100
h 110000
; 001011
l 110100
0 000000
6 000110
H 011000
h 110000
He leido la repuesta de user3947014 y tambien esta de Pradeep Kumar por la pregunta Convert from string to binary vb.net
**Pienso que el problema viene de variable = trama(i)**
!AIVDM,1,1,,A,15O86n001TJ3KutH8ar@<h;l06Hh,0*5D
cuál es la salida que esperas?000001
? rapidtables.com/code/text/ascii-table.htm Quieres tratar el1
cómo número o comochar
?1
cómochar
y estoy seguro qye 1 es000001