send data from pc(Visual Basic) to pic16f877a through serial port(DB9)

[HenrikOlsson]

Have a look here

[texas5]

thanx man...

[texas5]

here's the code for micro controller:

PinNumber var byte
PinState var byte

Main:

' Use the programming port to receive
' data at 2400 baud
' Wait for the synch byte (255) and then
' get the PinNumber and PinState
Serin 16,16780,[WAIT(255),PinNumber,PinState]

' If PinState=0 Then go to GoLow
' otherwise go to GoHigh
Branch PinState,[GoLow,GoHigh]
Goto Main


' Set The pin low
GoLow:
LOW PinNumber
Goto Main


' Set the pin high
GoHigh:
HIGH PinNumber
Goto Main
END

i have problem when compile it....the 'Serin 16,16780,[WAIT(255),PinNumber,PinState]' appear as bad expression...why is it???

[HenrikOlsson]

Hi,

i have problem when compile it....the 'Serin 16,16780,[WAIT(255),PinNumber,PinState]' appear as bad expression...why is it???

That's probably because WAIT isn't supported by the SERIN command, you'd need to change that to SERIN2 i think.

[Archangel]

Or might be because PIN 16 is not a valid pin , funny I have never used PINs always used PortA, PortB etc . . less confusing I guess . . . anyway only 0-15 are valid: SEC. 4.11. PINS

[texas5]

so what is your suggestion joe s.????

[mackrackit]

HenrikOlsson and Joe are saying change your code from

Serin 16,16780,[WAIT(255),PinNumber,PinState]

to

SERIN2 PORT?.?,16780,[WAIT(255),PinNumber,PinState]

Seems to work much better using for example:
PORTC.3
instead of
PIN?