VB sending serial data to PIC

[Tissy]

Thanks for yur reply Keith.

What should the settings be?

Currently:

DTREnable = False
InputLen = 0
RThreshold = 0

Cheers,

Steve

[keithdoxey]

Thanks for yur reply Keith.

What should the settings be?

Currently:

DTREnable = False
InputLen = 0
RThreshold = 0

Cheers,

Steve

Looking at one of my old projects

DTREnable = False
InputLen = 1
RThreshold = 1

And that works fine.

Regards

[Tissy]

Don't quite know what i have done, but i am getting some kind of comms.

If using the text1 box i put a 1 in there and send it, the PIC doesn't do anything. If i use ANY character first, such as Z1, then the LED flashes fine.

I have also put a text box to read a line coming back of the PIC. If a 1 is successfully received then the PIC should output "That Worked". However i'm getting "??????2rked" in VB.

It also takes two button presses in VB, one to send the 1 which will flash the LED, another press gets the garbled "IT WORKED", and then another press will flash the LED again. Who can this be done with one button push. ie, each time the button is pressed it sends the 1 and displays the input message. Do you have any exmaples of what you have done which you wouldn't mind sharing ?

Obvioulsy haven't quite mastered this yet !!

Cheers,

Steve

[elektroline]

You look at this program.

[Tissy]

Thanks elektroline, your VB allowed me to compare with what i had and the reason the serial data coming back was goofed was because of one of the setting in Comm1.

I'm still not convinced i have the PIC code right though, does this look right?

As i say, if i send a 1 from VB nothing if i send t1 or a1 or any letter followed by 1, then the LED flashes and the command is sent back to VB.

include "modedefs.bas"

Clear
DEFINE OSC 20          
DEFINE LOADER_USED 1
ADCON1 = %00001111

In      VAR PORTA.5
Out     VAR PORTA.4
Loop    Var Byte
LED     VAR PORTB.1
test    var word

test = 1

TRISB = %10000001       ' Set PORTB (0)INPUT (1-5)OUTPUTS

Start:
   SERIN IN, N2400, [#TEST]
    IF TEST = 1 THEN 
        GOSUB FLASH
    ENDIF

    write 3, test
'    IF test = 1 THEN GOSUB FLASH
    pause 500
'    low PortB.1
    read 3, test
    SEROUT out, N2400, ["That Worked ", #test + 5] ' Senda the wording "That Worked" and a number
GOTO Start

Flash:
    For loop = 1 to 5
        LED = 1
        Pause 100
        LED = 0
        Pause 100

Cheers,

[picster]

Try changing your "test" variable to a byte. Then don't bother with the serial qualifier, just jump right to the data input, and do a compare.

-----------------PICSTER--------------