changing letters - GameCreators Forum

Author

Message

hpfan273

17

Years of Service

User Offline

Joined: 19th Jan 2007

Location:

Posted: 13th May 2007 11:46

Link

hi... i'm working on a morse code encoder thing... how would i change the letters to the morse code symbols?

this is my code:

+ Code Snippet

INK RGB(0,255,0),1
SET TEXT SIZE 24
SET TEXT FONT "Romantic"
CENTER TEXT SCREEN WIDTH()/2,0,"Morse Code Incoder"
CENTER TEXT SCREEN WIDTH()/2,24,"-- --- .-. ... .  |  -.-. --- -.. .  |  .. -. -.-. --- -.. . .-."
SET TEXT SIZE 16
CENTER TEXT SCREEN WIDTH()/2,196,"~Type in the word/sentence that you want incoded.~"
CENTER TEXT SCREEN WIDTH()/2,218,"~The |'s in the phrase means a new word.~"
SET TEXT SIZE 12
CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()-16,"~Press N to Go to the incoding screen~"
DO
IF KEYSTATE(49)=1 THEN CLS : GOSUB _encoder
LOOP

_encoder:
SET TEXT SIZE 16
INPUT "Type Here > ",A$
RETURN

if the person that wanted there word to say: sensor
how would i change it to this: ... . -. ... --- .-.

with the spaces inbetween... and i want it so that it works with any word they type in... also... if they decide that they want to type a full blown sentance... how would i replace the spaces in the sentence with a "space | space"?

thanx for your help... it's much appreciated

Why do they turn against me? Especially when i need them the most?

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 13th May 2007 22:09

Link

Create an array called something like Morse$ and dimension it to 26 (number of letters in the alphabet):

When the word is entered, loop through it getting the ASCII value of each character. Deduct 64 from this value to give you the array element which stores that letter's morse code.

Build up the word in morse and print it.

This should get you started:

+ Code Snippet

Dim MorseCode$(26)
For N=1 To 26
  Read M$
  MorseCode$(N) = M$
Next N

Input "Enter Word: ";Word$
Word$ = Upper$(Word$)

MorseWord$=""
For N=1 To Len(Word$)
  Char$=Mid$(Word$,N)
  MorseWord$ = MorseWord$ + MorseCode$(ASC(Char$)-64)+"   ": Rem '   ' represents a medium gap between words
Next N

Print MorseWord$

Wait Key
End

Rem A To J
Data ". -","- . . . "," - . - . "," - . . "," . "," - - . - "," - - . "," . . . . "," . . "," . - - - "

Rem K To T
Data " - . - "," . - . . "," - - "," - . "," - - - "," . - - . "," - - . - "," . - . "," . . . "," - "

Rem U To Z
Data " . . - "," . . . - "," . - - "," - . . - "," - . - - "," - - . . "

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / changing letters