RS232 serial commands

[pxidr84]

Hi everyone,

It's maybe a dumbass question, but how to convert these incorrect commands:

IF HSERIN ["start"]=1 then
HIGH PORTD.4
ENDIF

into a correct syntax?

It's a very simple program, when I send the word "start" from HyperTerminal, I would turn on a LED connected on the PORTD.4.

Notice that my communications between my PC and the PIC works already in both ways (receive/transmit).
Thanks for your help.

[Charles Linquis]

It depends a lot on whether or not your program is going to wait around for
the input, or if it needs to do something else while waiting. Or whether or not your input will come from a keyboard (time between characters) or all at once.

One way would be to -

 
LookForStart:
 
 
FoundStart = 0  
 
 
HSERIN 1000,NoData,[WAIT ("start")] : FoundStart=1
 
 
Return
 
 
 
 
 
NoData:
 
 
Return

FoundStart will = 1 if the "start" was received after waiting for 1 second.

[pxidr84]

It depends a lot on whether or not your program is going to wait around for
the input, or if it needs to do something else while waiting. Or whether or not your input will come from a keyboard (time between characters) or all at once.

One way would be to -

LookForStart:
 
 
FoundStart = 0  
 
 
HSERIN 1000,NoData,[WAIT ("start")] : FoundStart=1
 
 
Return
 
 
 
 
 
NoData:
 
 
Return

FoundStart will = 1 if the "start" was received after waiting for 1 second.

I use this :

DEFINE OSC 40      
DEFINE LCD_DREG PORTD
DEFINE LCD_EREG PORTB
DEFINE LCD_RSREG PORTB
DEFINE LCD_EBIT 6
DEFINE LCD_RSBIT 7
DEFINE ADC_BITS 10
DEFINE HSER_RCSTA 90h 
DEFINE HSER_TXSTA 20h 
DEFINE HSER_BAUD 9600
DEFINE HSER_SPBRG 64


char var WORD
foundstart var bit


pause 1000
HIGH PORTE.2
LCDOUT $fe,1
Hserout ["Program has started."] 
pause 1000


LookForStart:
  
FoundStart = 0  
  
HSERIN 5000,noData,[WAIT ("start")] : FoundStart=1
 
Return
 
  
nodata:
 
if FoundStart=1 then 
   HIGH PORTD.4
   Lcdout $fe,2,"Backlight ON."
ENDIF
 
Return

And it doesn't work, every 5 seconds I receive "Program has started".
Now I'm using Terminal v1.9b by Bray, it's far better because I can send a word at once. So no time between characters.

And yeah, my program have a lot things to do (interrupts, etc.) during this time. Here I'm using a very simple program to get started.

[mister_e]

try something like that

        DEFINE OSC 40      
        DEFINE HSER_RCSTA 90h 
        DEFINE HSER_TXSTA 20h 
        DEFINE HSER_BAUD 9600
        DEFINE HSER_SPBRG 64
    
Start:        
        Hserout ["Program has started.",13,10] 
        gosub LookForStart
        Goto Start

LookForStart:
        HSERIN 5000,noData,[WAIT ("start")] 
        hserout ["Got it! Backlight ON",13,10]
        Return
 
nodata:
        HSEROUT ["NOPE... Life's so cruel...",13,10]
        Return

[pxidr84]

try something like that

        DEFINE OSC 40      
        DEFINE HSER_RCSTA 90h 
        DEFINE HSER_TXSTA 20h 
        DEFINE HSER_BAUD 9600
        DEFINE HSER_SPBRG 64
    
Start:        
        Hserout ["Program has started.",13,10] 
        gosub LookForStart
        Goto Start

LookForStart:
        HSERIN 5000,noData,[WAIT ("start")] 
        hserout ["Got it! Backlight ON",13,10]
        Return
 
nodata:
        HSEROUT ["NOPE... Life's so cruel...",13,10]
        Return

Thanks!

HSERIN command remind me the BUTTON command (with the label).

So I use this :

DEFINE OSC 40      
DEFINE LCD_DREG PORTD
DEFINE LCD_EREG PORTB
DEFINE LCD_RSREG PORTB
DEFINE LCD_EBIT 6
DEFINE LCD_RSBIT 7
DEFINE ADC_BITS 10
DEFINE HSER_RCSTA 90h 
DEFINE HSER_TXSTA 20h 
DEFINE HSER_BAUD 9600
DEFINE HSER_SPBRG 64

Hserout ["Varidrive V2011.00 has started"] 
 
mainlp:        
      
LCDOUT $fe,2,"Main loop"
        
HSERIN ret,[WAIT ("blon")] 
       HIGH PORTD.4
ret:

HSERIN ret1,[WAIT ("bloff")] 
       LOW PORTD.4
ret1:

Goto mainlp

And it works flawlessly.

However, when I type "blonn" instead of "blon", the backlight is activated.
Same thing with "blofffff" instead off "bloff", the backlight is disabled.

So I need a stop bit or something like that?

[mister_e]

OK, so you need to check a couple of different Strings possibilities and act upon right?

Is this really need to be string? Did you built the "Transmitting unit" or it's just for learning purpose?

Most common and easiest way to implement such thing is to wait for a specific header and then use the next Byte for specific command.
ex:
Transmitter send: "NextCommandIs", 10
Receiver Wait for "NextCommandIs" and store 10 in a byte variable. Depending the value of that Byte Variable, it process various task.

So Easy as
Transmitter Side:
HSEROUT ["NextCommandIs", 10]

Receiver Side:
HSERIN [WAIT ("NextCommandIs"), ByteA]
SELECT CASE ByteA
'
'
'
'

Should you really need to wait for a specific String, then you'll need to build a string with each single character you receive parse them. Not hard, just a tad longer to implement.