Serin -> Hserout -> Hserin -> LCDOUT

[thasatelliteguy]

it started out that way. didn't work either. Also I need word-sized numbers to pass

[prstein]

The hardware serial port will only deal with individual bytes. Whatever else is or is not going on, you cannot read directly into a word variable in that manner. You could use

 Hserin [char.byte0]

. I rarely use LCDs so I have no idea what the implications of using a word in writing to one.

You are correct in that the hardware serial port sounds right for your application. You have a two-byte buffer that will happily receive data in the background while the PIC is busy doing other stuff. At your leisure you can test the flag for when the buffer has data in it ("If PIR1.5 = 1 then...") and grab it when you can.

but I cannot get hserin to respond, except from another pic

Ahh. Are you using a MAX232 type of level shifter, or have otherwise taken into account the the hardware port cannot invert the data like serin can?

For a test, I'd try writing "DEC char" to your LCD. See if maybe you are getting the reversed bits, although I'm not sure what effect this would have on the start/stop bits. Nothing good I'm sure! Neglecting that, "k" would show up as 107 but if it were inverted it would be 148 instead.

Just to make sure, you've confirmed that data is actually getting received by the port, it just appears garbled, right?

Although I've never used the PIC16f1829 specifically, I use the hardware port a *lot*. There is no reason it shouldn't work. A 50Hz signal will only interrupt about every 20 msec, an eternity in electronics terms. Handling a single byte shouldn't necessitate an additional PIC.

I understand your frustration, and apologize if I've mentioned items that have already been covered. However, I keep having to learn over and over again to (1) check *everything* and (2) make no assumptions.

Best Regards,
Paul

[EarlyBird2]

Paul is asking questions that have been asked before.

Ahh. Are you using a MAX232 type of level shifter, or have otherwise taken into account the the hardware port cannot invert the data like serin can?

This could be because he has not linked this thread with other threads you have started relating to your project. I am having difficulty keeping track and am thinking when you write a thread need to giving all the information and assume it is read in isolation.

In this case explain you are using BT links between PC and PIC the BT on the PIC runs at TTL and does not require a MAX232. Also serin works on another pin and Hserout works.

[prstein]

This how I'd change the code. Compiles for 16F1829. So what oscillator are you actually using?

' Name        : HSERX.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM or MPASM
' Target PIC  : 40-pin 16F877A, 18F452 or similar
' Hardware    : LAB-X1 Experimenter Board
' Oscillator  : 4MHz external crystal
' Keywords    : HSERIN, HSEROUT, LCDOUT
' Description : PICBASIC PRO to send and receive from the hardware
' serial port.
'

DEFINE OSC 8  'Put this right at the top

' Define LOADER_USED to allow use of the boot loader.
' This will not affect normal program operation.
Define LOADER_USED 1


DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
'DEFINE HSER_SPBRG 77 ' 9600 Baud @ 20MHz, 0.16%
DEFINE HSER_BAUD 9600 'Let PBP handle SPBRG
DEFINE HSER_CLROERR 1 ' Clear overflow automatically
APFCON0.2 = 1    'TX Pin Select -  0 = Pin B7  1 = Pin C4
APFCON0.7 = 1    'RX Pin Select -  0 = Pin B5  1 = Pin C5
OPTION_REG.6 = 1

#CONFIG
    __config _CONFIG1, _FOSC_HS & _WDTE_OFF & _PWRTE_OFF & _MCLRE_ON & _CP_OFF & _CPD_OFF & _BOREN_OFF &  _CLKOUTEN_OFF & _IESO_OFF
    __config _CONFIG2, _PLLEN_OFF & _LVP_OFF
#ENDCONFIG

ANSELA = 0
ANSELB = 0
ANSELC = 0

DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTA
DEFINE LCD_EBIT 1
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 1500
DEFINE LCD_DATAUS 44
LED var PORTC.7
high LED

char Var word       ' Storage for serial character
col  Var Byte       ' Keypad column
row  Var Byte       ' Keypad row
key  Var Byte       ' Key value
lastkey Var Byte    ' Last key storage
bklt var PORTC.7
TRISC.7 = 0
TRISC.5 = 1   'Explicitly set RX as input
TRISC.4 = 0   'Explicitly set TX as output
bklt = 1


   ADCON1 = 7       ' Set PORTA and PORTE to digital
   Pause 500	    ' Wait for LCD to startup


   OPTION_REG.7 = 0 ' Enable PORTB pullups
   'This *also* enables PORTC pullups, so disable using:
   WPUC = 0


   key = 0          ' Initialize vars
   lastkey = 0
   Lcdout $fe, 1    ' Initialize and clear LCD display
   lcdout $FE, $01, "LCD IS WORKING"
   lcdout $FE, $C0, "LINE 2 WORKS 2"
   pause 5000
   LCdout $FE, $01
   
   'Load char with something so we get an inital display
   char = "k"
   
mainloop:
   Lcdout $FE, $01, "..."
   lcdout dec char             ' Send char to display  Do you see the initial "107"?
   Hserin [char.byte0] ' Get a char from serial port
Goto mainloop            ' Do it all over again

End

Best Regards,
Paul