Do i have to use max232??

[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