برمجة شيفرة مورس

[علي جنيدي]

هذا البرنامج يقوم بقراءة ما تكتبه على الشاشة ثم يرسله إلى المنفذ COM1 فهو مفيد لمن يريد التحكم بضوء عن طريق الحاسب فبهذه الطريقة سيرسل الضوء اشارات ضوئية متقطعة أي أنت لاتحتاج لحفظ شيفرة مورس بل الحاسب يقوم بذلك.
طريقة وصل الضوء موضحة في منتدى الالكترونيات لمن يحب الاظلاع


# include <windows.h>
# include <stdio.h>
# include <time.h>
struct
{
char l;
char *c;
}
code[] =
{
'A', ".-",
'B', "-...",
'C', "-.-.",
'D', "-..",
'E', ".",
'F', "..-.",
'G', "--.",
'H', "....",
'I', "..",
'J', ".---",
'K', "-.-",
'L', ".-..",
'M', "--",
'N', "-.",
'O', "---",
'P', ".--.",
'Q', "--.-",
'R', ".-.",
'S', "...",
'T', "-",
'U', "..-",
'V', "...-",
'W', ".--",
'X', "-..-",
'Y', "-.--",
'Z', "--..",
'0', "-----",
'1', ".----",
'2', "..---",
'3', "...--",
'4', "....-",
'5', ".....",
'6', "-....",
'7', "--...",
'8', "---..",
'9', "----.",
'/', "-..-.",
'+', ".-.-.",
'=', "-...-",
'.', ".-.-.-",
',', "--..--",
'?', "..--..",
'(', "-.--.",
')', "-.--.-",
'-', "-....-",
'"', ".-..-.",
'_', "..--.-",
'\'', ".----.",
':', "---...",
';', "-.-.-.",
'$', "...-..-",
'\1', "=",
0, 0,
};

char *port = "com1:";
HANDLE hFile = INVALID_HANDLE_VALUE;
bool
opencomm( char *which )
{
int da = GENERIC_READ | GENERIC_WRITE;
int sm = FILE_SHARE_DELETE | FILE_SHARE_READ | FILE_SHARE_WRITE;
int cd = OPEN_EXISTING;
int flags = FILE_ATTRIBUTE_NORMAL | FILE_FLAG_NO_BUFFERING;
hFile = CreateFile( which, da, sm, 0, cd, flags, 0 );
if( hFile == INVALID_HANDLE_VALUE )
{
printf( "Can't open '%s'\n", which );
return false;
}
DCB dcb;
if( ! GetCommState( hFile, &dcb ) )
{
printf( "Can't get comm state for '%s'\n", which );
return false;
}
dcb.fOutxCtsFlow = FALSE;
dcb.fOutxDsrFlow = FALSE;
dcb.fDtrControl = DTR_CONTROL_ENABLE;
dcb.fDsrSensitivity = FALSE;
dcb.fRtsControl = RTS_CONTROL_DISABLE;
if( ! SetCommState( hFile, &dcb ) )
{
printf( "Can't set comm state for '%s'\n", which );
return false;
}
return true;
}
void
on( void )
{
EscapeCommFunction( hFile, SETDTR );
EscapeCommFunction( hFile, SETRTS );
}
void
off( void )
{
EscapeCommFunction( hFile, CLRDTR );
EscapeCommFunction( hFile, CLRRTS );
}

int dot_length = 100;
int dash_length = 300;
int token_sep = 100;
int char_sep = 300;
int space_length = 700;
enum e_mode { CW, AM };
e_mode mode = AM;
bool low_tone = false;
void
dot( void )
{
if( mode == CW )
{
on();
Sleep( dot_length );
off();
}
else if( mode == AM )
{
for( int i = 0; i < dot_length / 2; i++ )
{
on();
Sleep( 1 );
if( low_tone )
Sleep( 1 );
off();
Sleep( 1 );
if( low_tone )
Sleep( 1 );
}
}
Sleep( token_sep );
}
void
dash( void )
{
if( mode == CW )
{
on();
Sleep( dash_length );
off();
}
else if( mode == AM )
{
for( int i = 0; i < dash_length / 2; i++ )
{
on();
Sleep( 1 );
if( low_tone )
Sleep( 1 );
off();
Sleep( 1 );
if( low_tone )
Sleep( 1 );
}
}
Sleep( token_sep );
}
void
long_tone( void )
{
printf( "5 second tone\n" );
on();
Sleep( 5000 );
off();
}
char *
lookup( char c )
{
for( int i = 0; code[i].c; i++ )
if( code[i].l == c )
return code[i].c;
return "";
}
void
send_char( char c )
{
if( c == ' ' )
{
Sleep( space_length );
return;
}
c = toupper( c );
char *str = lookup( c );
while( *str )
{
if( *str == '.' )
dot();
else if( *str == '-' )
dash();
else if( *str == '=' )
long_tone();
str++;
}
Sleep( char_sep );
off();
}
void
send( char *str )
{
while( *str )
send_char( *str++ );
}

int the_speed = 5;
int character_speed = 15.0;
void
set_speed( char *str )
{
the_speed = atoi( str );
if( character_speed < the_speed )
character_speed = the_speed; // all letters sent at 15 wpm minimum
dot_length = 60 * 1000 / character_speed / 50; // 60 seconds, 50 units
dash_length = 3 * dot_length;
token_sep = dot_length;
int milliseconds_per_word = 60 * 1000 / the_speed;
int milliseconds_in_36_units = 36 * 60 * 1000 / character_speed / 50;
char_sep = (milliseconds_per_word - milliseconds_in_36_units) / 7;
space_length = (milliseconds_per_word - milliseconds_in_36_units) / 3.5;
if( low_tone && mode == AM )
{
dot_length /= 2;
dash_length /= 2;
}
}
bool speed_test = false;
bool tone = false;
int repeat = 1;
char *message = 0;
char *file = 0;
int
main( int ac, char **av )
{
ac--;
av++;
char *speed = "5";
while( ac > 0 )
{
if( av[0][0] == '-' )
{
if( av[0][1] == 'p' ) // port
{
port = av[1];
ac--;
av++;
}
else if( av[0][1] == 'r' ) // repeat
{
repeat = atoi( av[1] );
ac--;
av++;
}
else if( av[0][1] == 'f' ) // file
{
file = av[1];
ac--;
av++;
}
else if( av[0][1] == 'm' ) // message
{
message = av[1];
ac--;
av++;
}
else if( av[0][1] == 's' ) // speed
{
speed = av[1];
ac--;
av++;
}
else if( av[0][1] == 'l' ) // low
{
low_tone = true;
}
else if( av[0][1] == 't' ) // test
{
speed_test = true;
}
else if( av[0][1] == 'o' ) // on
{
tone = true;
}
else if( av[0][1] == 'c' ) // continuous wave
{
mode = CW;
}
else if( av[0][1] == 'a' ) // amplitude modulation
{
mode = AM;
}
else
{
printf( "Usage: morse [-p port] [-s speed] [-r repeat_count]"
" [-f file] [-m message] [-c]\n\n" );
printf( "Example: morse -p com2: -s 5\n" );
printf( " gives 5 words per minute to com2\n" );
printf( "\n" );
printf( "Complete list of all options:\n" );
printf( " -p port use 'port' for the serial port\n" );
printf( " -r number repeat 'number' times\n" );
printf( " -f file read text from a file\n" );
printf( " -m message send message from command line\n" );
printf( " -t send the word 'paris ' for a minute\n" );
printf( " -o keep the transmitter on\n" );
printf( " -c Use CW instead of AM\n" );
printf( " -l Use 500 hz tone instead of 1,000 hz\n" );
return 0;
}
}
av++;
ac--;
}
set_speed( speed );
opencomm( port );
off();
if( tone )
{
on();
printf( "Transmiter is on\n" );
for(;;)
Sleep( 1000 );
}
if( speed_test )
{
time_t t = time(0);
for( int i = 0; i < the_speed; i++ )
send( "paris " );
printf( "%d word%s in %d seconds\n", the_speed,
the_speed == 1 ? "" : "s", time(0) - t );
return 0;
}
printf( "Speed set to %d words per minute.\n", the_speed );
printf( "Mode is %s.\n", mode == AM ? "AM" : "CW" );
if( file )
{
printf( "File is '%s'.\n", file );
for( int i = 0; i < repeat; i++ )
{
char buf[1024];
FILE *fd = fopen( file, "r" );
if( fd == 0 )
{
printf( "Can't open '%s' for reading\n", file );
return 0;
}
for( ;; )
{
int cnt = fread( buf, 1, sizeof buf, fd );
if( cnt < 0 )
{
printf( "Can't read '%s'\n", file );
return 0;
}
if( cnt == 0 )
break;
buf[cnt] = 0;
send( buf );
}
fclose( fd );
}
return 0;
}
if( message )
{
for( int i = 0; i < repeat; i++ )
send( message );
return 0;
}
printf( "Type your messages:\n" );
printf( "> " );
fflush( stdout );
char out[1024];
while( gets( out ) )
{
for( int i = 0; i < repeat; i++ )
send( out );
printf( "> " );
fflush( stdout );
}
return 0;
}

[drbmsh]

ألف شكر واتمنى المزيد من المواضيع عن عملية التحكم عن طريق الحاسب

[علي جنيدي]

تريدها LPT أي منفذ الطابعة أو منافذ اخرى

[HAcker Inside]

السلام عليكم
و الله يا اخوي علي الجنيدي من فترة و أنا بتفرج على بعض مواضيعك و بصراحة رأيتك فهمان و هذا دليل أكبر على فهمك البرنامج رائع
و خصوصا مبدأه

[nobody01]

واااااااصل ولا تتعب ابدا