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

thoga31

[Pascal] Ferramenta para a tabela de ASCII

Recommended Posts

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!

Share this post


Link to post
Share on other 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. ;) 

Edited by nunopicado
  • Vote 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.

Share this post


Link to post
Share on other sites
thoga31

Isto já tem 8 anos! Estou a ficar velho... 😄

Sem dúvida uma óptima adição. Em Abril de 2010 ainda não sabia isso.


Knowledge is free!

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.