Hserout/Hserin via bluetooth

[Scampy]

Sending data via an HC bluetooth module is no different to sending it via normal serial, just that there is no physical cable between the two devices (such as a PC and the PIC).

You could try using an FTDI usb to serial module and get the code working via hardwired setup and then use the HC module which should function exactly the same, if it doesn't then this would suggest that there may be a fault with the hardware.

I use these in a couple of my projects to send decimal values from word variables to an application running on a PC

HSEROUT [dec4 CH1_MAX]
HSEROUT [dec4 CH2_MAX]

etc

then
HSERIN 1000, RX_Bombed, [dec4 CH1_MAX] 
to read it back

The RX Bombed is a time out

RX_Bombed:
    TimeoutCount = TimeOutCount + 1 
    end select 
Goto main

I then have this bit of code at the start of my comms subroutines

coms:

HSERIN [nTest]
    SELECT CASE nTest
    CASE "Q"                    ; if Q then send data to PC
    Goto Term_TX 
    CASE "S"                    ; if S then receive data from PC
    goto Term_RX
return

In the main program loop I have this to check the buffer and jump to the comms subroutine

FOR TempWD = 0 TO 500
    IF RCIF=1 THEN GOSUB coms                   ; Check to see if PC application connected
    PAUSE 1
next TempWD

Hope this helps

Sorry for got to add

RCIF                VAR PIR1.5                    ' USART receive flag

[louislouis]

Thank You for answer, maybe I found the problem. If I comment the "lcdout $fe,$80, dec datain" and "lcdout $fe,1" lines in my code the value in datain var come correct an stable.
Then I put the datain value to other variable like:

main:
hserin 500, main, [dec3 datain]
pause 10
let lcd_out = datain
lcdout $fe,$80, dec3 lcd_out
pause 20
goto main

And it works how I wish, luckily :-)