Morse
Publicado por Daniel 30/09/2005
[ Hits: 5.379 ]
Aprenda e escrever em morse com este pequeno programa...
(* Conversor morse. Por Daniel Breda. daniel.breda@gmail.com Para a comunidade Open Source. (C) 2005 - Linhares - ES. *) program morse; uses CRT; var Tecla: char; Coluna, Linha1, Linha2: integer; label Inicio; begin Inicio: Coluna := 11; Linha1 := 6; Linha2 := 8; TextColor(White); Writeln('Codigo morse em Pascal.'); Writeln('> [ESC] - Limpar tela.'); Writeln('> [$] - Sair.'); Writeln('Precione as teclas para escrever em morse:'); GotoXY(1, 6); Writeln('Morse...: '); GotoXY(1, 8); Writeln('Normal..: '); TextColor(Green); repeat Tecla := ReadKey; case Tecla of 'a': begin GotoXY(Coluna, Linha1); Write('.-'); GotoXY(Coluna, Linha2); Write('a'); end; 'b': begin GotoXY(Coluna, Linha1); Write('-...'); GotoXY(Coluna, Linha2); Write('b'); end; 'c': begin GotoXY(Coluna, Linha1); Write('-.-.'); GotoXY(Coluna, Linha2); Write('c'); end; 'd': begin GotoXY(Coluna, Linha1); Write('-..'); GotoXY(Coluna, Linha2); Write('d'); end; 'e': begin GotoXY(Coluna, Linha1); Write('.'); GotoXY(Coluna, Linha2); Write('e'); end; 'f': begin GotoXY(Coluna, Linha1); Write('..-.'); GotoXY(Coluna, Linha2); Write('f'); end; 'g': begin GotoXY(Coluna, Linha1); Write('--.'); GotoXY(Coluna, Linha2); Write('g'); end; 'h': begin GotoXY(Coluna, Linha1); Write('....'); GotoXY(Coluna, Linha2); Write('h'); end; 'i': begin GotoXY(Coluna, Linha1); Write('..'); GotoXY(Coluna, Linha2); Write('i'); end; 'j': begin GotoXY(Coluna, Linha1); Write('.---'); GotoXY(Coluna, Linha2); Write('j'); end; 'k': begin GotoXY(Coluna, Linha1); Write('-.-'); GotoXY(Coluna, Linha2); Write('k'); end; 'l': begin GotoXY(Coluna, Linha1); Write('.-..'); GotoXY(Coluna, Linha2); Write('l'); end; 'm': begin GotoXY(Coluna, Linha1); Write('--'); GotoXY(Coluna, Linha2); Write('m'); end; 'n': begin GotoXY(Coluna, Linha1); Write('-.'); GotoXY(Coluna, Linha2); Write('n'); end; 'o': begin GotoXY(Coluna, Linha1); Write('---'); GotoXY(Coluna, Linha2); Write('o'); end; 'p': begin GotoXY(Coluna, Linha1); Write('.--.'); GotoXY(Coluna, Linha2); Write('p'); end; 'q': begin GotoXY(Coluna, Linha1); Write('--.-'); GotoXY(Coluna, Linha2); Write('q'); end; 'r': begin GotoXY(Coluna, Linha1); Write('.-.'); GotoXY(Coluna, Linha2); Write('r'); end; 's': begin GotoXY(Coluna, Linha1); Write('...'); GotoXY(Coluna, Linha2); Write('s'); end; 't': begin GotoXY(Coluna, Linha1); Write('-'); GotoXY(Coluna, Linha2); Write('t'); end; 'u': begin GotoXY(Coluna, Linha1); Write('..-'); GotoXY(Coluna, Linha2); Write('u'); end; 'v': begin GotoXY(Coluna, Linha1); Write('...-'); GotoXY(Coluna, Linha2); Write('v'); end; 'w': begin GotoXY(Coluna, Linha1); Write('.--'); GotoXY(Coluna, Linha2); Write('x'); end; 'x': begin GotoXY(Coluna, Linha1); Write('-..-'); GotoXY(Coluna, Linha2); Write('x'); end; 'y': begin GotoXY(Coluna, Linha1); Write('-.--'); GotoXY(Coluna, Linha2); Write('y'); end; 'z': begin GotoXY(Coluna, Linha1); Write('--..'); GotoXY(Coluna, Linha2); Write('z'); end; '0': begin GotoXY(Coluna, Linha1); Write('-----'); GotoXY(Coluna, Linha2); Write('0'); end; '1': begin GotoXY(Coluna, Linha1); Write('.---'); GotoXY(Coluna, Linha2); Write('1'); end; '2': begin GotoXY(Coluna, Linha1); Write('..---'); GotoXY(Coluna, Linha2); Write('2'); end; '3': begin GotoXY(Coluna, Linha1); Write('...--'); GotoXY(Coluna, Linha2); Write('3'); end; '4': begin GotoXY(Coluna, Linha1); Write('....-'); GotoXY(Coluna, Linha2); Write('4'); end; '5': begin GotoXY(Coluna, Linha1); Write('.....'); GotoXY(Coluna, Linha2); Write('5'); end; '6': begin GotoXY(Coluna, Linha1); Write('-....'); GotoXY(Coluna, Linha2); Write('Linha1'); end; '7': begin GotoXY(Coluna, Linha1); Write('--...'); GotoXY(Coluna, Linha2); Write('7'); end; '8': begin GotoXY(Coluna, Linha1); Write('---..'); GotoXY(Coluna, Linha2); Write('Linha2'); end; '9': begin GotoXY(Coluna, Linha1); Write('----.'); GotoXY(Coluna, Linha2); Write('9'); end; #27: begin ClrScr; Goto Inicio; end; end; Coluna := Coluna + 6; if (Coluna >= 80) then begin Coluna := 11; Linha1 := Linha1 + 4; Linha2 := Linha2 + 4; end; until Tecla = '$'; end.
Gerador de Senha feito no Lazarus (Delphi 7 para Linux)
Criptografador feito no Lazarus (Delphi 7 para Linux)
Qual seu hardware e distribuição estão rodando na sua máquina? (1)
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Criar uma base de reconhecimento de HW no VOL (6)
Adaptador Bluetooth USB que funciona no Linux (42)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba