Skip to main content
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Module Module1

    Public Function traduction_ASCII(trames As String)

        Dim binario_en_8 As Integer = 0
        Dim dec As Integer = 0
        Dim Remainder As Integer
        Dim result As String = ""
        Dim j As Integer = 0
        Dim tabular_binario(40) As String


        'Modificamos los elementos ASCII en binarios'
        For i = 0 To trames.Length - 1
            'Recuperamos el valor numerica del ASCII leido en 8 bits'
            binario_en_8 = Asc(trames.ElementAt(i))

            'est esta necesario pero no se porque'
            dec = Val(binaire_en_8)

            'la modificamos en su valor ASCII en 6 bits'
            dec = dec - 48
            If dec > 40 Then
                dec = dec - 8
            End If

            While dec > 0
                remainder = dec Mod 2
                dec /= 2
                result = Remainder.ToString & result
                j = j + 1
            End While

            While j < 6    
                result = "0" & result
                j = j + 1
            End While

            tableau_binario(i) = result
            result = ""
            j = 0
        Next

        Return traduction_binaire_de_ASCII
    End Function
End Module
Module Module1

    Public Function traduction_ASCII(trames As String)

        Dim binario_en_8 As Integer = 0
        Dim dec As Integer = 0
        Dim Remainder As Integer
        Dim result As String = ""
        Dim j As Integer = 0
        Dim tabular_binario(40) As String


        'Modificamos los elementos ASCII en binarios'
        For i = 0 To trames.Length - 1
            'Recuperamos el valor numerica del ASCII leido en 8 bits'
            binario_en_8 = Asc(trames.ElementAt(i))

            'est esta necesario pero no se porque'
            dec = Val(binaire_en_8)

            'la modificamos en su valor ASCII en 6 bits'
            dec = dec - 48
            If dec > 40 Then
                dec = dec - 8
            End If

            While dec > 0
                remainder = dec Mod 2
                dec /= 2
                result = Remainder.ToString & result
                j = j + 1
            End While

            While j < 6    
                result = "0" & result
                j = j + 1
            End While

            tableau_binario(i) = result
            result = ""
            j = 0
        Next

        Return traduction_binaire_de_ASCII
    End Function
End Module
Module Module1

    Public Function traduction_ASCII(trames As String)

        Dim binario_en_8 As Integer = 0
        Dim dec As Integer = 0
        Dim Remainder As Integer
        Dim result As String = ""
        Dim j As Integer = 0
        Dim tabular_binario(40) As String


        'Modificamos los elementos ASCII en binarios'
        For i = 0 To trames.Length - 1
            'Recuperamos el valor numerica del ASCII leido en 8 bits'
            binario_en_8 = Asc(trames.ElementAt(i))

            'est esta necesario pero no se porque'
            dec = Val(binaire_en_8)

            'la modificamos en su valor ASCII en 6 bits'
            dec = dec - 48
            If dec > 40 Then
                dec = dec - 8
            End If

            While dec > 0
                remainder = dec Mod 2
                dec /= 2
                result = Remainder.ToString & result
                j = j + 1
            End While

            While j < 6    
                result = "0" & result
                j = j + 1
            End While

            tableau_binario(i) = result
            result = ""
            j = 0
        Next

        Return traduction_binaire_de_ASCII
    End Function
End Module
Module Module1

    Public Function traduction_ASCII(trames As String)

        Dim binario_en_8 As Integer = 0
        Dim dec As Integer = 0
        Dim Remainder As Integer
        Dim result As String = ""
        Dim j As Integer = 0
        Dim tabular_binario(40) As String


        'Modificamos los elementos ASCII en binarios'
        For i = 0 To trames.Length - 1
            'Recuperamos el valor numerica del ASCII leido en 8 bits'
            binario_en_8 = Asc(trames.ElementAt(i))

            'est esta necesario pero no se porque'
            dec = Val(binaire_en_8)

            'la modificamos en su valor ASCII en 6 bits'
            dec = dec - 48
            If dec > 40 Then
                dec = dec - 8
            End If

            While dec > 0
                remainder = dec Mod 2
                dec /= 2
                result = Remainder.ToString & result
                j = j + 1
            End While

            While j < 6    
                result = "0" & result
                j = j + 1
            End While

            tableau_binario(i) = result
            result = ""
            j = 0
        Next

        Return traduction_binaire_de_ASCII
    End Function
End Module
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
mejoré el formato del código para facilitar la lectura, porque los comentarios tenían dificultad para identificarse.
Origen Enlace

Como¿Como pasar de los binarios del ascii 8-bit a los binarios del ascii 6-bit?

Por ejemplo, existe¿existe o no un vinculo entre H en 8-bit ASCII 0100 1000 y H en 6-bit ASCII 011000?

Module Module1

    Public Function traduction_ASCII(trames As String) 

        Dim binario_en_8 As Integer = 0
        Dim dec As Integer = 0
        Dim Remainder As Integer
        Dim result As String = ""
        Dim j As Integer = 0
        Dim tabular_binario(40) As String


        'Modificamos los elementos ASCII en binariosbinarios'
        For i = 0 To trames.Length - 1
            'Recuperamos el valor numerica del ASCII leido en 8 bitsbits'
            binario_en_8 = Asc(trames.ElementAt(i))

            'est esta necesario pero no se porqueporque'
            dec = Val(binaire_en_8)

            'la modificamos en su valor ASCII en 6 bitsbits'
            dec = dec - 48
            If dec > 40 Then
                dec = dec - 8
            End If

            While dec > 0
                remainder = dec Mod 2
                dec /= 2
                result = Remainder.ToString & result
                j = j + 1
            End While

            While j < 6
     
                result = "0" & result
                j = j + 1
            End While 

            tableau_binario(i) = result
            result = ""
            j = 0
        Next

        Return traduction_binaire_de_ASCII
    End Function

 
End Module

Como pasar de los binarios del ascii 8-bit a los binarios del ascii 6-bit?

Por ejemplo, existe o no un vinculo entre H en 8-bit ASCII 0100 1000 y H en 6-bit ASCII 011000?

Module Module1

    Public Function traduction_ASCII(trames As String)
        Dim binario_en_8 As Integer = 0
        Dim dec As Integer = 0
        Dim Remainder As Integer
        Dim result As String = ""
        Dim j As Integer = 0
        Dim tabular_binario(40) As String


        'Modificamos los elementos ASCII en binarios
        For i = 0 To trames.Length - 1
            'Recuperamos el valor numerica del ASCII leido en 8 bits
            binario_en_8 = Asc(trames.ElementAt(i))

            'est esta necesario pero no se porque
            dec = Val(binaire_en_8)

            'la modificamos en su valor ASCII en 6 bits
            dec = dec - 48
            If dec > 40 Then
                dec = dec - 8
            End If

            While dec > 0
                remainder = dec Mod 2
                dec /= 2
                result = Remainder.ToString & result
                j = j + 1
            End While

            While j < 6
 
                result = "0" & result
                j = j + 1
            End While
            tableau_binario(i) = result
            result = ""
            j = 0
        Next

        Return traduction_binaire_de_ASCII
    End Function

 
End Module

¿Como pasar de los binarios del ascii 8-bit a los binarios del ascii 6-bit?

Por ejemplo, ¿existe o no un vinculo entre H en 8-bit ASCII 0100 1000 y H en 6-bit ASCII 011000?

Module Module1

    Public Function traduction_ASCII(trames As String) 

        Dim binario_en_8 As Integer = 0
        Dim dec As Integer = 0
        Dim Remainder As Integer
        Dim result As String = ""
        Dim j As Integer = 0
        Dim tabular_binario(40) As String


        'Modificamos los elementos ASCII en binarios'
        For i = 0 To trames.Length - 1
            'Recuperamos el valor numerica del ASCII leido en 8 bits'
            binario_en_8 = Asc(trames.ElementAt(i))

            'est esta necesario pero no se porque'
            dec = Val(binaire_en_8)

            'la modificamos en su valor ASCII en 6 bits'
            dec = dec - 48
            If dec > 40 Then
                dec = dec - 8
            End If

            While dec > 0
                remainder = dec Mod 2
                dec /= 2
                result = Remainder.ToString & result
                j = j + 1
            End While

            While j < 6    
                result = "0" & result
                j = j + 1
            End While 

            tableau_binario(i) = result
            result = ""
            j = 0
        Next

        Return traduction_binaire_de_ASCII
    End Function
End Module
se añadieron 67 caracteres en el cuerpo
Origen Enlace

He hecho el siguiente codigo para recupererarlos pero si me da 000001 por 1 en ASCII, me da 1000101 por la letra u en lugar derecupererar los binaries asociados con los simbolos ascii. 111101Pero si me da 000001 por 1 en ASCII, que esta acertado, me da 1000101 por la letra u en lugar de 111101

He hecho el siguiente codigo para recupererarlos pero si me da 000001 por 1 en ASCII, me da 1000101 por la letra u en lugar de 111101

He hecho el siguiente codigo para recupererar los binaries asociados con los simbolos ascii. Pero si me da 000001 por 1 en ASCII, que esta acertado, me da 1000101 por la letra u en lugar de 111101

se añadieron 108 caracteres en el cuerpo
Origen Enlace
Loading
se añadieron 21 caracteres en el cuerpo
Origen Enlace
Loading
etiquetas editadas
Enlace
Loading
se añadió 1 carácter en el cuerpo
Origen Enlace
Loading
Publicación recuperada por Revolucion for Monica
Publicación eliminada por Revolucion for Monica
he anadido mi codigo para tratar le problema
Origen Enlace
Loading
se añadieron 298 caracteres en el cuerpo
Origen Enlace
Loading
Origen Enlace
Loading