Communication between PC and PIC16f876

[knsteam]

Hello Dave

Baud rate from PC: 19200bps, No Parity, 8 bits, and 1 stop bit.

The fastest i can transfer data at is 9600bps, so i need to fool the PIC to send data faster.
I do this by saying that I have a 10MHz oscillator, but in fact i am using a 20MHz oscillator. By doing this, everything will run twice as fast, therefore, 9600*2=19200.

Program:

' C O M M U N I C A T I N G W I T H T H E C O M P U T E R '


PCtalk:
i = 0 : pause 100
CTS = 1

SERIN PORTA.4,N9600,["@"],char

getserial:

Serin PORTA.4,N9600,char

write i, char


if char = EOM then
CTS = 0
Goto start
endif

i = i + 1

goto getserial


I hope to have given more information and that you can help me.
Excuse me for my English (I am French).

Knsteam

[skimask]

SERIN PORTA.4,N9600,["@"],char

Look thru the '876 datasheet...see if you can find anything special about PortA.4.

[mackrackit]

Look at this
http://www.picbasic.co.uk/forum/showthread.php?t=561

Playing with the clock speed might work, but I think you are asking for problems doing this.

Why not slow the VB program dow to 9600 or use the SERIN2/SEROUT2 command at the PIC. 19200bps is supported with SERIN2/SEROUT2.

[mister_e]

My 2 cents... why using SERIN anyways as this PIC have a built-in USART?

For once Skimask says a nice pointer...

ADCON1=7

Should help a little bit

Ca devrais marcher

[skimask]

My 2 cents... why using SERIN anyways as this PIC have a built-in USART?
For once Skimask says a nice pointer...
ADCON1=7
Should help a little bit
Ca devrais marcher

Not to mention the other 'special thing' about RA4...

[mister_e]

Yeah but... used as input i won't change anything... and it's not a A version, so no comparator thingy... even if... it's already disabled at POR...

[knsteam]

Hello everybody
Thank you for your answers

I would like to know how to initialize the UART.
Here is how I have make but that does not work.

(19200bps,No parity,8 bits,and 1 stop bit)

TXSTA = $20 '//Transmission sur 8 bits, pas de parité, mode asynchrone
RCSTA = $90
SPBRG=25