18f25k22 hserin

[jackberg1]

Hello,

I've tried to use the Hserin with no success, let me explain,

I used the example from the PBP3 compiler reference manual p:150

and scanning with hand barcode scanner nothing show or random character show up on the serial terminal.

the scanner is set at 9600,8,1,n and it's working on other application

I'm looking for the code to wait until I scan a code then it send to a serial port and come back waiting for the next scan.

is there someone who can help.

thanks to everyone



[/

'-------------------------------------------------------------------------
' Name  : Hserin Test  (18F25K22)
' Serout Baud rate: 188:4800,84:9600,49:14400,32:19200,15:28800,6:38400  'ok
' Serout : p296,297
' 9600 Open Inverted None 49236
' HSERIN [WAIT("!"), STR MyArray\200, STR MyArray(200)\200, _
' STR MyArray(400)\200, STR MyArray(600)\100]
'
'-------------------------------------------------------------------------
 Include "modedefs.bas" ' Include serial modes
;----[18F25K22 Hardware Configuration]------------------------------------------
#CONFIG
  CONFIG  FOSC = INTIO67
  CONFIG  PLLCFG = On   
  CONFIG  WDTEN = Off       
  CONFIG  MCLRE = INTMCLR   
  CONFIG  LVP = Off
#ENDCONFIG


    ANSELA = 0  ; All Digital
    ANSELB = 0
    ANSELC = 0
DEFINE OSC 64                     
TRISA = 111111    '1:IN, 0:OUT             
TRISB = 111110
TRISC = 111111                   
OSCCON = $70
OSCTUNE = $40                     




' Set receive register to receiver enabled
DEFINE HSER_RCSTA 90h
DEFINE HSER2_RCSTA 90h
' Set transmit register to transmitter enabled
DEFINE HSER_TXSTA 20h
DEFINE HSER2_TXSTA 20h
' Set baud rate
DEFINE HSER_BAUD 9600 
DEFINE HSER2_BAUD 9600
DEFINE HSER_CLROERR 1




AArray VAR BYTE[12]
BArray VAR BYTE[12]   




' code to scan sample : 0 59749 96859 1                     
MAIN:                             


HSERIN [wait ("0"), str AArray\12]
serOut2 PORTB.0,84, [str BArray\12,13,10]

GoTo MAIN

[rsocor01]

I don't have the manual in front of me now, but I think that you are missing some parameters in the HSERIN command.

[jackberg1]

the manual is in PDF format.

Let me know what is missing when you can.

from the data sheet only 3 setup as to be done for receiving.





thank you

[rsocor01]

Check this thread.
https://www.picbasic.co.uk/forum/sho...IN-with-a-WAIT

[rsocor01]

Also, HSERIN starts saving the variables after the WAIT requirement has been met. In your case, it will only save 11 numbers instead of 12.

' code to scan sample : 0 59749 96859 1                     
MAIN:                             


HSERIN [wait ("0"), str AArray\11]

[jackberg1]

I rectified it (hserin 5,MAIN,[STR AARRAY\12])

[jackberg1]

here's the code from today post:

HSERIN [wait ("0"), str AArray\12]
serOut2 PORTB.0,84, [str BArray\12,13,10]

[jackberg1]

Thanks for your time, I'll look at it, also I did used a timeout label (hserin 5,MAIN,[STR AARRAY\12])
still no result.

Thanks again.

[richard]

Works ok for me if BArray has something printable placed in it

perhaps u wired it up incorrectly

[jackberg1]

Works ok for me if BArray has something printable placed in it

perhaps u wired it up incorrectly

even this

MAIN:
hserin 5,MAIN,[STR AARRAY\12]
serOut2 PORTB.0,84, [str aarray\12,13,10]
GoTo MAIN