Use of Alphanumeric datas ?

Hello, trust me, I try to find in this forum any inputs for this question !
I didn't find it ...
Question :
I want to input (let say at compilation time first)
a ALPHAnumeric chain like "HELLO" in the PIC
In the program, I will read this chain (character after character) and
make something like
If character(x) = "H" then goto H subroutine
if character(x) = "E" then goto xxxxx
(it is clear that I will use better command like Lookup or something better !)

Project is to give the possibility for a "HUMAN Normal Guy" to write his sentence, or send it using a serial connection .... anyway !
this "HNG" is not aware that letter "A" is DEC(65) and so on !

after that my program will use his sentence to produce MORSE CODE ...

a 20 characters (Alpha and numeric) sentence is the maximum length

any idea ?
thanks in advance

So if I understood you correctly, you want someone to type in a word and have the PIC translate that to morse code... ??

From the Picbasic Pro manual it states

Quote:

4.9. String Constants

PBP doesn't provide string handling capabilities, but strings can be used with some commands. A string contains one or more characters and is delimited by double quotes. No escape sequences are supported for non-ASCII characters (although most PBP commands have this handling built-in).

Lcdout "Hello" ' Output String (Short for "H","e","l","l","o")

Strings are usually treated as a list of individual character values.

So allthough it allows the use of strings to be displayed, I can't see any command that is the equivelent of "INPUT a$" to input a string of characters and store it in string a$

hello
More or less YES
for the beginning I would have a message like
"CQ CQ de xxxxx k k"
Two solution :
1/ the guy has PBP and modify the program to enter
"CQ CQ de F1CHF k k"
compile and program the PIC .... OK
2/ the guy didn't have PBP but a PC with Hyperterminal (for example)
I have a port to receive his new sentence
he will send a sentence like this "** CQ CQ de ABCDFE k k **"
not "2B 2B 66 78 etc ..."
I will save it in EEPROM

OK ?
thanks you

Have a look at Melanie's thread, Communications Example : PC to PIC bi-directional dialogue. This should give you a little tutorial on working with strings and serial comms. Read her code carefully, until you can see exactly what she has the PIC doing and how it handles the data. Then, not only will you probably have learned a couple of "tricks", but you should see at least a couple of possible solutions for you project.

HTH,
SteveB

From pre-history... originally posted way back in 2002 to the PICBasic List...

Hi Jim

I threw this together for a giggle... (there's a secret message embedded within specially aimed it at you - and all the other budding radio hams out there)...

This little ditty reads ASCII (in this case stored in EEPROM) and outputs Morse on a pin... all of EEPROM is read sequentially only stopping when it encounters an ASCII null ($00) or reaches the end of EEPROM space.

Stick it in your favourite PIC, add a piezo transducer or speaker on PORTB.0 and enjoy...

Melanie

Code:

' ' Hardware Assignments ' -------------------- BeeperA var PORTB.0 ' Hang your PIEZO Transducer on this pin ' ' EEPROM ' ------ ' Supported Characters ' Alphabetic A-Z in upper or lowercase ASCII ' Numeric 0-9 ' Special Characters ' () ch : , - / . ? " ' Note that ASCII space is used between words ' Data is terminated with an ASCII NUll ($00) ' This example isn't because it is exactly 64 bytes ' long and equals the variable EEPROMMax, so it will ' fit into a 16F84 with only 64 bytes EEPROM ' DATA @0,73,32,109,117,115,116,32,114,101,97,100,32,116,104,101 ' I must read the DATA 32,80,73,67,66,65,83,73,67,32,109,97,110,117,97,108,32 ' PICBASIC manual DATA 102,114,111,109,32,99,111,118,101,114,32,116,111,32 ' from cover to DATA 99,111,118,101,114,32,68,101,32 ' cover De DATA 74,73,77,32,66,65,76,76,83 ' JIM BALLS ' ' RAM Assignments and Variables ' ----------------------------- ASCIIData var byte ' variable holding the ASCII data to translate CounterA var byte ' General Purpose varable MorseBitPointer var byte ' bit pointer within MorseCode data byte MorseCode var byte ' translated Character for Morse Code Signalling MorseEnable var word ' Word Character for Flags and Morse Timing ToneOut var word ' Variable used in Beeper Tone Generation routine TonePitch var word ' Variable used to Time Pitch of Beep (in uS) ToneTime var word ' Variable used to Time length of Tone Beep (in mS) ' ' Program Constants ' ----------------- DefaultBeepPitch con 185 ' Default Tone Sound/Pitch (in uS) EEPROMMax con 64 ' assumes this PIC has 64 bytes of EEPROM MorseDot con 10 ' Time Interval for Dot (in 10mS increments) ' MorseDash would be 3*MorseDot ' MorseGap wpuld be 1*MorseDot (inter dot/dash space) ' MorseChar would 3*MorseDot (pause at end of character) ' MorseWord would be 8*MorseDot (pause at end of word) ' ' Start Program ' ============= goto JumpStart ' ' Subroutine Nest Area ' ==================== ' ' Subroutine produces 2700Hz Beep ' ------------------------------- ' ToneOut - tone loop counting variable ' TonePitch - variable determines PITCH of Beep (in uS) ' ToneTime - variable setting LENGTH of Beep (in mS) BeepOut: TonePitch=DefaultBeepPitch BeepRaw: For ToneOut=0 to ToneTime High BeeperA PauseUS TonePitch Low BeeperA PauseUS TonePitch Next ToneOut Return ' ' Subroutine Sounds Out Morse Character ' ------------------------------------- SendMorseCode: If MorseCode=$FF then ' Execute Word Pause MorseEnable=MorseDot*80 Pause MorseEnable Return endif MorseEnable=0 ' Reset Enable For MorseBitPointer=0 to 7 ' Loop Up to 8 Times If MorseEnable=0 then ' Check for Character Start Flag If MorseCode.7=1 then MorseEnable=1 ' Set Morse Character Start Flag else ' If Morse sub-element Enabled, Send sub-element ToneTime=(50000/DefaultBeepPitch/10)*MorseDot ' Determine Morse Dot Time If MorseCode.7=1 then ToneTime=ToneTime*3 ' Determine Morse Dash Time endif Gosub BeepOut ToneTime=MorseDot*10 Pause ToneTime endif MorseCode=MorseCode<<1 ' Shift to next Morse sub-element Next MorseBitPointer MorseEnable=MorseDot*30 ' Determine & Execute End of Character Pause Pause MorseEnable Return ' ' Subroutine Translates ASCII to Morse ' ------------------------------------ ' ' in case you were wondering, it's written the ' way it is (with short Looup tables) to minimise ' possible word-wrap when emailing this text ' TranslateASCIIMorse: MorseCode=0 ' ' Translate Numerics (0-9) ' ------------------------ If ASCIIData>47 then If ASCIIData<58 then Lookup (ASCIIData-53),[$20,$30,$38,$3C,$3E],MorseCode ' 5 6 7 8 9 endif If ASCIIData<53 then Lookup (ASCIIData-48),[$3F,$2F,$27,$23,$21],MorseCode ' 0 1 2 3 4 endif endif ' ' Translate Alphabetics (A-Z) ' --------------------------- If ASCIIData>96 then If ASCIIData<123 then ASCIIData=ASCIIData-32 endif If ASCIIDATA>64 then If ASCIIData<91 then Lookup (ASCIIData-82),[$0A,$08,$03,$09,$11,$0B,$19,$1B,$1C],MorseCode ' R S T U V W X Y Z endif If ASCIIData<82 then Lookup (ASCIIData-73),[$04,$17,$0D,$14,$07,$06,$0F,$16,$1D],MorseCode ' I J K L M N O P Q endif If ASCIIData<73 then Lookup (ASCIIData-65),[$05,$18,$1A,$0C,$02,$12,$0E,$10],MorseCode ' A B C D E F G H endif endif ' ' Translate special characters ' ---------------------------- If ASCIIData=39 then MorseCode=$5E ' ' Apostrophe If ASCIIData=40 then MorseCode=$6D ' ( Brackets If ASCIIData=41 then MorseCode=$6D ' ) Brackets If ASCIIData=58 then MorseCode=$78 ' : Colon If ASCIIData=44 then MorseCode=$73 ' , Comma If ASCIIData=45 then MorseCode=$61 ' - Hyphen If ASCIIData=47 then MorseCode=$32 ' / Oblique Stroke If ASCIIData=46 then MorseCode=$55 ' . Period If ASCIIData=63 then MorseCode=$4C ' ? Question If ASCIIData=34 then MorseCode=$52 ' " Quotation Moarks ' ' Translate Space ' --------------- If ASCIIData=32 then MorseCode=$FF Return ' ' End of Subroutine Nest Area ' --------------------------- ' ' Actual Start of Real Program ' ============================ JumpStart: ' ' Set Hardware Directions ' ----------------------- TRISB=%00000000 ' ' Timeout to Reset Hardware ' ------------------------- Pause 250 ' ' Read EEPROM and Output Morse ' ---------------------------- RepeatLoop: For CounterA=0 to EEPROMMax-1 Read CounterA,ASCIIData If ASCIIData=0 then goto ExitLoop Gosub TranslateAsciiMorse Gosub SendMorseCode Next CounterA ' ' Timeout 5 seconds and start all over again ' ------------------------------------------ ExitLoop: Pause 5000 Goto RepeatLoop ' End

MORSE code

Hllo Melanie
Happy Happy year !
As usual a very very good answer
I will try to use it ..
super MERCI
Francois