Do i have to use max232??

[SuB-ZeRo]

I did all of them but not working.
1. Make sure your Pins that you are using are I/O pins.
2. Make sure your chip is running (MCLR not on Reset)
3. Make sure there is no noise between the two pins. You may need a Resistor to Ground for this.
4. Make sure you are using the simplest of the SerOut commands. No "Additives" yet!... Got to get the basics going first.
5. Use the same Baud Rates, and use a SLOW Baud rate.
6. Its best to use the same Clock speed at first, until communications has been established.

2.do u mean i will not connect a resistor to mclr?(on both pics?)
3.do u mean i must connect TX and RX to ground with a resistor like 1 K?

[NavMicroSystems]

Have a look at PBP Manual Sections 5.68 & 5.70

serin porte.1,5,30,gel1,#t1
gel1:

Doesn't make much sense

[SuB-ZeRo]

i change the commands like u re suggestion
like this
serout porte.0,5,[1,13]
serin porte.1,5,t1
but this time nothing works

[NavMicroSystems]

I'm sorry Sub,

I did not suggest to change it to what you have changed it to,

I suggested to have a look at the Manual !

[SuB-ZeRo]

I really don't undestand in proteus simulation program it say's it is working i set up the circuit in the real world and it is not working i looked every connection and there is no mistake it must work 16F628 and 16F877 are working 4 mhz i remove the mclr resistors and i put resistors to the serin and serout pins that has been connected to the ground i use little commands. I do everything that u write or another friend write or PBP manuel or another book writen in Turkey.I am losting my hope
PLEASE LOOK AT THE PICTURES.
''''''''''''''''''16F628 PROGRAM CODES
include "modedefs.bas"
define CHAR_PACING 100
CMCON = 7
TRISA =%11111111
b0 var byte
b0=0
COUNTER var word
COUNTER = 0
b1 var byte
b1 =0
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
sil:
COUNTER=0
lcdout $FE, 1
lcdout "COUNTER=" , #COUNTER
lcdout $fe,$c0
lcdout #COUNTER

loop:
serin portb.1,5,10,kontrol,B0
if b0=1 then goto ok
goto kontrol
goto loop

kontrol:
button porta.4 ,0,0,0,b1,1,goster
goto loop

goster:
COUNTER = COUNTER + 1
lcdout $FE, 1
lcdout "COUNTER=",#COUNTER
goto loop

ok:
pause 20
serout portb.2,5,[#COUNTER,13]
lcdout $FE, 1
lcdout "COUNTER=" , #COUNTER
lcdout $fe,$c0
lcdout "SENT!!!"
pause 1000
GOTO sil

end

'''''''''''''''''''''''16F877 PROGRAM CODES
include "modedefs.bas"
define CHAR_PACING 100
DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 1
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
adcon1=7

t1 var word
t1=0

top var word
top=0

basla:

t1=0
top=0

lcdout $fe,1
lcdout "CHOSE"
loop:
if portb.0=0 then goto birinci
goto loop

birinci:
serout porte.0,5,[1,13]
serin porte.1,5,30,gel1,#t1
gel1:
top=t1*10
lcdout $fe,1
lcdout "COUNTER=",#t1
lcdout $fe,$c0
lcdout #top
pause 2000
goto basla
end

[mister_e]

quick test, remove all your timeout label, delay and such and redo the test.
if it's working, increase them.

case not... i'll prefer to use the internal USART.

[MaurI]

The problem might be much simpler than you think!
1)Are those PICs on separate PCBs?
2)Do they have separate power supplies?

My Idea is if the answers are yes and no then you should join the grounds together. You must join the pics with the signal wire and a ground wire.

When I was younger and just started with electronics that was my problem, I connected the ground and everything started to work!!