Use of Alphanumeric datas ?

[F1CHF]

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

[malc-c]

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

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$

[F1CHF]

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

[SteveB]

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

[Melanie]

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

    '
    ' 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

[F1CHF]

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