18f25k22 hserin

Printable View

- 19th January 2025, 02:02
jackberg1

1 Attachment(s)

18f25k22 hserin

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

[/

Code:

'------------------------------------------------------------------------- ' 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
- 19th January 2025, 02:51
rsocor01

Re: 18f25k22 hserin

I don't have the manual in front of me now, but I think that you are missing some parameters in the HSERIN command.
- 19th January 2025, 03:16
jackberg1

1 Attachment(s)

Re: 18f25k22 hserin

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.

Attachment 9897

thank you
- 19th January 2025, 04:06
rsocor01

Re: 18f25k22 hserin

Check this thread.
https://www.picbasic.co.uk/forum/sho...IN-with-a-WAIT
- 19th January 2025, 04:24
rsocor01

Re: 18f25k22 hserin

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:

' code to scan sample : 0 59749 96859 1 MAIN: HSERIN [wait ("0"), str AArray\11]
- 19th January 2025, 04:27
jackberg1

Re: 18f25k22 hserin

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.
- 19th January 2025, 04:28
jackberg1

Re: 18f25k22 hserin

I rectified it (hserin 5,MAIN,[STR AARRAY\12])
- 19th January 2025, 04:34
jackberg1

Re: 18f25k22 hserin

here's the code from today post:

HSERIN [wait ("0"), str AArray\12]
serOut2 PORTB.0,84, [str BArray\12,13,10]
- 19th January 2025, 04:50
richard

Re: 18f25k22 hserin

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

perhaps u wired it up incorrectly
- 19th January 2025, 13:20
jackberg1

Re: 18f25k22 hserin

Quote:

Originally Posted by richard

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
- 19th January 2025, 14:30
amgen

Re: 18f25k22 hserin

....."0" is decimal 48
- 19th January 2025, 21:59
jackberg1

1 Attachment(s)

Re: 18f25k22 hserin

Attachment 9898

Quote:

Originally Posted by amgen

....."0" is decimal 48

thanks to everyone involved to help me on this project.
I tried about every way to setup the HSerin1,2
still not working.
I'm realy suprise since these HSerin command are part of PBP3 for at least 15 years
and today in 2025 cannot find any reliable sample codes.
even the PBP3 examples does not work at all for my setup.

I had 1 rs232/ttl scanner bad (intermitent power on the rs232 rail)
connected another one and the only easy way to make work it's
with the code below.

Code:

MAIN: '-------------------------------------------- serin2 PORTB.0,84,50,MAIN,[STR AARRAY\12] serOut2 PORTB.1,84, [str aarray\12,13,10] serOut2 PORTB.1,84, ["Done!",13,10] '-------------------------------------------- GoTo MAIN
- 19th January 2025, 23:46
richard

1 Attachment(s)

Re: 18f25k22 hserin

works as expected
only slight change was to move serout to portb.7 to suit my pickit2 debug uart tool and put something printable
into BArray

Code:

'-------------------------------------------------------------------------' 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 = % 11111111 '1:IN, 0:OUT TRISB = % 11111111 TRISC = % 11111111 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] ARRAYWRITE BARRAY,["GOT IT",0] ' code to scan sample : 0 59749 96859 1 MAIN: HSERIN [wait ("0"), str AArray\12] serOut2 PORTB.7,84, [str BArray,13,10] GoTo MAIN

what doesn't work are code snippets and failure to provide connection details [ schematic]
and even a description of what happens versus what you expect to happen

Attachment 9899
- 19th January 2025, 23:55
richard

1 Attachment(s)

Re: 18f25k22 hserin

more useful would be

Code:

'-------------------------------------------------------------------------' 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 = % 11111111 '1:IN, 0:OUT TRISB = % 11111111 TRISC = % 11111111 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] ARRAYWRITE BARRAY,["GOT IT",0] ' code to scan sample : 0 59749 96859 1 MAIN: HSERIN [wait ("0"), str AArray\12] serOut2 PORTB.7,84, [str BArray,13,10] hserout ["got", str AArray\12 ,13,10] GoTo MAIN

Attachment 9900
- 20th January 2025, 02:35
jackberg1

3 Attachment(s)

Re: 18f25k22 hserin

Hello everyone, and thank to all for helping me

this case is solved!

1st

the GM65 scanner Tx/Rx line are at 3.3v not at standard 5V TTL logic, so I add a BSS138 between the Tx and the Rx (HSerin) of the PIC

2nd

I like to thank also BrianS (HSERIN issue with a 18F452 and IF THEN statements or Case statements)

while reading about his case I took part of the HSerin setup and added to my program, first try work just fine on HSerin/HSerin2.

Code:

'------------------------------------------------------------------------- ' Name : Hserin Test (18F25K22) '------------------------------------------------------------------------- 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 '------------------------- DEFINE HSER_CLROERR 1 DEFINE HSER_BAUD 9600 RCSTA = $90 TXSTA = $20 DEFINE HSER2_CLROERR 1 DEFINE HSER2_BAUD 9600 RCSTA2 = $90 TXSTA2 = $20 '------------------------- ANSELA = 0 ; All Digital ANSELB = 0 ANSELC = 0 DEFINE OSC 64 TRISA = 111101 '1:IN, 0:OUT TRISB = 000001 TRISC = 111101 OSCCON = $70 OSCTUNE = $40 AArray VAR BYTE[12] ' code to scan sample : 0 59749 96859 1 MAIN: HSERIN 50,MAIN,[STR AARRAY\12] 'HSERIN2 50,MAIN,[STR AARRAY\12] ' -------------------------------------------- serOut2 PORTB.1,84, [str aarray\12,13,10] ' -------------------------------------------- GoTo MAIN

Attachment 9901

Attachment 9902

Attachment 9903
- 20th January 2025, 02:36
jackberg1

Re: 18f25k22 hserin

Many thanks richard.

Take care.
- 20th January 2025, 02:45
richard

Re: 18f25k22 hserin

No code error , no compiler deficiency. as suggested in post #9 its wired incorrectly

who would have known
- 20th January 2025, 03:06
jackberg1

Re: 18f25k22 hserin

Specialy when the GM65 user manual mention TTL logic level, yes the DC supply is 5V, for the USB / UART ports.

but it's not specify 3.3V Tx/Rx output line.

Learning everyday like everyone here.