• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

blackice856

[Resolvido] Conversor ASCII para código décimal.

14 mensagens neste tópico

Boas pessoal.

Estou a trabalhar num projecto, que o que faz é passar os caracteres ASCII para o seu respectivo código décimal. Eu sou um principiante nisto e acho que tenho mesmo de comprar um bom livro de VB.NET para aprender coisas simples como isto que vos vou pedir. Eu acho que não há-de ser muito difícil mas eu não sei mesmo. O que eu quero é que, sempre que se digita um texto na text box, ao carregar num botão, ele converta esse mesmo texto para numeros tipo:

A: 65 / a: 95 - Sempre que estivesse um "a" no texto ele convertiria-o para 95 e depois apresentava-o na label. Eu quero que ele faça com todas as letras do alfabeto, mas só preciso do exemplo com o "a" para não vos dar muito trabalho.

Para os mais curiosos:

http://www.francodigi.com/informatica/ascii.html

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ele usou o comando para um programa de consola.

Para pores numa label serial algo assim:

Label1.text = Asc("a")

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Já tinha percebido, nem me tinha lembrado que já tinha postado aqui alguam coisa.

O problema é que ao fazer isso com um texto ele não o vai passar todo para ASCII ,vai só passar a primeira char.

O que eu fiz foi o seguinte:

rivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = ""
        Dim x As Integer = 0
        Dim Chartotal As String = TextBox1.Text.Length
        Do While x < Chartotal
            Dim a As String = TextBox1.Text.Chars(x)
            Dim text As String = Label1.Text
            Dim ascode As String = Asc(a)
            Label1.Text = text + ascode + "+"
            x = x + 1
        Loop
    End Sub

E funciona!!!

Obrigada a todos  :cheesygrin:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Afinal ainda não resolvi.

Tenho isto

 TextBox2.Text = ""
            Dim x As Integer
            x = 0
            Dim Chartotal As String = TextBox1.Text.Length
            Do While x < Chartotal
                Dim a As String = TextBox1.Text.Chars(x)
                Dim text As String = TextBox2.Text
                Dim ascode As String = Asc(a)
                TextBox2.Text = text + ascode + " "
                x = x + 1

Alguém me pode meter aqui isso mas ao contrário. Entrar decimais e sair ASCII é que estou aqui á 2 horas a marrar nisto e não sai.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Mas o que queres exactamente ? Tens uma frase e queres o resultado em ascii, com os caracteres separado por um mais "+" ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não, isso já eu tenho, agora queria era inserir o código décimal e queria que ele me desse a letra. Só com uma letra sei fazer, mas não toyu a conseguir fazer a frase por exemplo:

Isiro: 97+98

Recebo:AB

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Então fazes o contrário e usas o chr() em vez do asc()

Precisas de ajuda a fazer isto ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Isso foi a primeira coisa que fiz. Eu sou burro mas não tanto.

Dá-me este erro:

Additional information: Cast from string "+" to type 'Integer' is not valid.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Por exemplo:

        Dim str() As String = "97+98".Split("+"c)
        Dim result As String = String.Empty
        For Each s As String In str
            result &= Chr(s)
        Next

        Debug.WriteLine(result.ToString)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O MEU MAS TU SABES TUDO?

Eu aqui á quase 2 horas a martelar nesta m&%#$ e tu em 5 minutos fazes isto...

É pa obrigadão és o meu idolo. Quando for grande quero ser como tu!

:notworthy:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora