Morse Delphi Box

Fancy Delphi Application Contest Entry #1 by "JoshyFun"

Morse code is a method of coding messages into long and short beeps, often transmitted using continuous wave.

This is the first entry to the Fancy Delphi Application Contest

Rate this FDAC Entry!

Delphi Morse Box

This little fabulous (useless) application will play Morse codes as you type character into a console-looking window.

First, letters are "turned" into morse codes using an array of strings:

var MorseArray: array ['a'..'z'] of string;

...

procedure TfrmMorseBox.FormCreate(Sender: TObject) ;
begin
  MorseArray['a']:='.-';
  MorseArray['b']:='-...';
...
  MorseArray['z']:='--..';
end;

Next, as you type into the windows, the OnKeyPress event plays morse tones through your computer speakerphone:

procedure TfrmMorseBox.memoMorseKeyPress(Sender: TObject; var Key: Char) ;
var
  s: String;
  Morse: String;
  j: integer;
begin
  s:=lowercase(Key) ;
  if (s>='a') and (s<='z') Then begin
    Morse:=MorseArray[s[1]];
    for j := 1 to Length(Morse) do begin
      if Morse[j]='.' Then begin
        Windows.Beep(1206,MORSE_UNIT+random(MORSE_GROOVE))
      end else begin
        Windows.Beep(1200,MORSE_UNIT*3+random(MORSE_GROOVE*3))
      end;
      Sleep(MORSE_UNIT*3+random(MORSE_GROOVE*3)) ;
    end;
  end else begin
    if s=' ' Then begin
      Sleep(MORSE_UNIT*7+random(MORSE_GROOVE*7)) ;
    end;
  end;
end;

Yes! Morse codes using Beep. That simple!!

Morse box was submitted by "JoshyFun".

Do you have a FDA(C)? Submit your Delphi code to the Fancy Delphi Application Contest.