PIC to serial with visual basic

[skimask]

Code on PIC:
------------------
Include "modedefs.bas"
define HSER_CLROERR 1 : define HSER_RCSTA 90h : define HSER_BAUD 9600
define HSER_TXSTA 20h : define OSC 4 : rts var porta.2:cts var portd.3
led var portd.2 : rx var portc.7 : OK var word : input rts : output cts
output led : ADCON1=15 : low led : low cts
main:
while rts = 1
high cts : SERIN rx,N9600,OK
if ok = "4" then
high led
endif
wend
low cts
goto main

Why are you using the RTS & CTS lines? Just curious...I've never used them, never had a need, kinda complicates thing unneccesarily. Try this whole thing without the RTS and CTS lines. Set Windows to 'Handshaking-None' in the serial properties. See what happens then. Again, you're breaking it down, starting super-simple, then working your way up.

Another thing, you're using SERIN with HSER defines. Why?

And SERIN @ 4mhz isn't exactly reliable. Switch down to 2400 and see what happens.

You're also not using a MAX232. It should work with a PC using the inverted serial modes, but the voltage levels might not be high enough. You might end up using one. It's always worked for me, but you never know.

Incidentally, I got over 100 threads here on this site alone all about serial interfacing, PC's, visual basic, hyperterminal, etc.