Ir para o conteúdo
thoga31

[Pascal] Ferramenta para a tabela de ASCII

Mensagens Recomendadas

thoga31

Boas, ppl!

Já vi que já há um post sobre a tabela de ASCII, com um programa. Contudo, eu criei um programa que nos diz o valor na tabela de ASCII de cada tecla, o que nos permite, depois, utilizar em menus, por exemplo, teclas como as F (F1, F2...), ESC, etc, que não aparecem directamente no programa que já cá foi postado.

Deixo aqui o meu código, espero que seja útil.

program ascii;
uses crt;
var tecla:char;

Begin
    writeln('Prima tecla. ENTER para sair.');
    writeln('NOTA: ENTER e a tecla #13.');
    writeln('O resultado aparece sob a forma: caracter > #numero');
    writeln;
    repeat
          tecla:=readkey;
          writeln( char(tecla) , ' > ', ord(tecla) );
    until (tecla=#13);     
End.

Esta é uma de algumas ferramentas que eu criei e que facilitam o meu trabalho na programação.

Também poderá ser útil para outras linguagens.

Cumpz. :thumbsup:


Knowledge is free! | Occasional Fortnite player

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
nunopicado

Já que hoje é dia de desenterrar tópicos, ofereço uma adição a este snippet:

program ascii;
uses Crt;
var 
  Tecla: Char;
begin
  WriteLn('Prima tecla. ENTER para sair.');
  Writeln('NOTA: ENTER e a tecla #13.');
  Writeln('O resultado aparece sob a forma: caracter > #numero');
  Writeln;
  repeat
    Tecla := ReadKey;
    if Tecla = #0
      then 
      	begin        
          Tecla := ReadKey;
		  Write('Tecla especial > 0 + ');
        end
      else 
        Write(Char(Tecla) , ' > ');
    WriteLn(Ord(Tecla));
  until (Tecla = #13);     
end.

Desta forma, também as teclas especiais, como setas, F's, etc são mostradas sem que haja um desmembramento do código originário. ;) 

Editado por nunopicado
  • Voto 1

"A humanidade está a perder os seus génios... Aristóteles morreu, Newton já lá está, Einstein finou-se, e eu hoje não me estou a sentir bem!"

> Não esclareço dúvidas por PM: Indica a tua dúvida no quadro correcto do forum.

Partilhar esta mensagem


Ligação 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

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.