Receive serial data

[ruijc]

The only thing i could find in the manual was the Serin and Serin2 commands.

The manual says that:
SERIN2 DataPin {\FlowPin}, Mode, {ParityLabel,}, {Timeout,Label,} [Item...]

with the example:

SERIN2 1,16780,[wait (“A”),B0]

( where A is the caracter to wait for. )

and
[code]SERIN2 PORTA.1,84,[skip 2,dec4 B0][code]
( where it will skip the first 2 digits and grab the next 4 digits)

I didnt test it yet, but can i use something like this?

SERIN2 PORTA.1,84,[wait (13,10),dec3 B0]

Its not making sense to me because i have values with one, two or three digits ( temps from 0 to 160). The idea is to grab each value - and this line knows when to start for the first value but doesnt know when to finish before grabbing a new one.

[skimask]

The only thing i could find in the manual was the Serin and Serin2 commands.

And you'll see the same 'type' of thing for HSERIN and DEBUGIN

I didnt test it yet, but can i use something like this?

SERIN2 PORTA.1,84,[wait (13,10),dec3 B0]

Its not making sense to me because i have values with one, two or three digits ( temps from 0 to 160). The idea is to grab each value - and this line knows when to start for the first value but doesnt know when to finish before grabbing a new one.

Now you're thinkin'! Except that it does know when to finish, because you specified when to finish in that line of code above with dec3 B0. As soon as it grabs a 3 digit decimal, the statement is done...
So in your case, you don't wait for a 13,10 then grab a decimal, flip it around.
Grab a decimal, then wait for the 13,10.

SERIN2 PORTA.1,84,[dec B0, wait (13,10)]

[Bruce]

Just use the string input option with the terminator set to 13.

MyVar VAR BYTE(3)

Main:
    HSERIN [STR MyVar\3\13] ' receive up to 3 characters, terminate input on receipt of 13
    HSEROUT [STR MyVar\3,13,10] ' show it
    PAUSE 100
    goto Main

This will receive up to 3 bytes, 0-160, and terminate reception on receipt of 13.

[ruijc]

Bruce, skimask,

Thank you very much for your help.

Will try when i get home, but it makes perfect sense !

.

[Darrel Taylor]

Another thing to try is just a plain DEC.

DEBUGIN [DEC MyVar]

DEC waits for a numeric character and discards anything else until it gets one. Once it receives a character that is a number, it continues receiving more digits until it gets a non-numeric char which would be the 13.

This way the value can be any length, and you don't have to convert it to a byte.
<br>

[ruijc]

Thanks Darrel Taylor,

will try your code too.


[edit]never mind

[ruijc]

Hi all,

just to let you know that it worked. I came across some issues but i managed to fix them.

One of the issues was that i had to use a 10K pull down resistor between my logger and the new receiver.

I kept a simple code and it works and no loss of data was found.

here's the tryout code:

'****************************************************************
'PINS

n5 	var GPIO.5 
n4 	var GPIO.4 
BUT 	var GPIO.3 
led     var GPIO.2 
n1	var GPIO.1 
IN   	var GPIO.0 

'*****************************************************************************

DEFINE OSCCAL_1K 1 
define OSC 4

'*****************************************************************************

@ DEVICE pic12F675, INTRC_OSC_NOCLKOUT
@ DEVICE pic12F675, WDT_OFF
@ DEVICE pic12F675, PWRT_OFF
@ DEVICE pic12F675, MCLR_OFF
@ DEVICE pic12F675, BOD_ON

'*****************************************************************************
Include "modedefs.bas" ' Include serial modes

DEFINE debug_reg gpio
DEFINE debug_bit 1
DEFINE debug_baud 9600
DEFINE debug_mode 1

DEFINE DEBUGIN_REG GPIO
DEFINE DEBUGIN_BIT 0
DEFINE DEBUGIN_MODE 1

'*****************************************************************************
ADCON0=0
ANSEL=0
CMCON=7   
trisio=%00111001    
GPIO=0

'*****************************************************************************
START:
led=0
if but=1 then
goto rc
else 
goto start
endif


rc:
led=1
DEBUGIN [DEC VALUE]
DEBUG dec VALUE,13,10
goto rc

end

Thanks for the help