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

blackice856

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

Recommended Posts

blackice856

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

Share this post


Link to post
Share on other sites
Weasel

ele usou o comando para um programa de consola.

Para pores numa label serial algo assim:

Label1.text = Asc("a")


Knowledge to the masses


Share this post


Link to post
Share on other sites
blackice856

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:

Share this post


Link to post
Share on other sites
blackice856

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.

Share this post


Link to post
Share on other sites
jpaulino

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

Share this post


Link to post
Share on other sites
blackice856

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

Share this post


Link to post
Share on other sites
jpaulino

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

Precisas de ajuda a fazer isto ?

Share this post


Link to post
Share on other sites
blackice856

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.

Share this post


Link to post
Share on other sites
jpaulino

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)

Share this post


Link to post
Share on other sites
blackice856

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:

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.