Pascal Converter for Generating Morse Code From Keyboard Keys

  • Thread starter Thread starter aminayousuf
  • Start date Start date
  • Tags Tags
    Converter Pascal
Join the discussion
Ask a follow-up here, or get your own question answered by working scientists, mathematicians and engineers — people, not an autocomplete.
Real named experts · corrections over time · the nuance an AI answer skips
Sign up Log in
2 replies · 3K views
aminayousuf
Messages
2
Reaction score
0
hello evryone ..
can somebody help me with a PASCAL coverter prog for converting keyboard keys to correspondig morse code values!
i noe of no languages other than c and c++ .this is actually an electronic project i#m making and its based on ic 555 timer that upon clicking on keyboard keys generate the respective morse value sound pulses and transmits using F.M
 
Physics news on Phys.org
Hello

i read your Question but i have no idea how you want to do this exactly but its
an interesting Problem. There are some ways it seems and one is maybe you
send to the printerport the State of the key because you have much output
lines for doing this ... 8 Data and others for control ..but at least you need only
one for the trigger output .. the signal

the old dos will be the best for it with the old good TurboPascal6 *gg

i don't know anything about morse codes except they are like this: .--...-..--...----..-.-

but how to put this to the line to the NE555,

in TurobPascal you are able to write directly to the Printerport so you can
set the Printer Data Pin1 to 1 or 0 and that's all you need .. the other is that you
have to programm the timersequenze for each key like a collection of 1 and 0
schematically like this routine
the first routine should for the point

procedure point
begin
port[$375]:=$FF;
delay(5);
port[$375]:=$0;
delay(10);
End;

then the procedure for the line

procedure Line
begin
port[$375]:=$FF;
delay(10); ;<------ here the Difference *gg
port[$375]:=$0;
delay(10);
End;

and now you can macke Procedures for the Keys

Procedure A
Begin
point;
Point;
Line;
Point;
Line;
Delay(20);
End;

Procedure B
Begin
Line;
Point;
Point;
Line;
Line;
LIne;
Delay(20);
End;

and so on

so you have Procedures for each Key or Text you can translate to morse-code

:-D

Good luck for your project

bye bye