hello
My project works fine in proteus
the more real it does not work
can someone tell me
here is the program
thank you
TX:
@ DEVICE PIC16F876A
@ DEVICE PIC16F876A, WDT_off
@ DEVICE PIC16F876A, PWRT_ON
@ DEVICE PIC16F876A, PROTECT_off
@ DEVICE PIC16F876A, XT_OSC

DEFINE OSC 4 ' DEFINE OSCILADOR EM 4MHz
DEFINE HSER_TXSTA 20h ' ABILITA TX , BRGH = 0
DEFINE HSER_BAUD 2400 ' SETA BAUD RATE
DEFINE HSER_SPBRG 25 ' 2400 BAUD @ 4MHz, 0,17%
DEFINE HSER_CLROERR 1 ' LIMPA OVERFLOW AUTOMATICAMENTE

DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2

CMCON=7
DEFINE ADC_BITS 10 ' ADCIN resolution (Bits)
DEFINE ADC_CLOCK 1 ' ADC clock source (Fosc/8)
DEFINE ADC_SAMPLEUS 11 ' ADC sampling time (uSec)
PORTA=0
TRISA=%00000111
PORTB=0
TRISB=0
ADCON1=%11000000




RAWA VAR WORD
RAWB VAR WORD
TOPA VAR word
TOPB VAR WORD
AOHM VAR BYTE
BOHM VAR BYTE
I VAR BYTE
REL VAR BYTE
LCDOUT $fe,1, " By Cesar"
pause 2000

START:

TOPA=0
FOR I=0 to 19
ADCIN 0, RAWA
PAUSEUS 50
TOPA=TOPA+RAWA+1
NEXT
RAWA=TOPA/20
AOHM=RAWA*/25

TOPB=0
FOR I=0 to 19
ADCIN 1, RAWB
PAUSEUS 50
TOPB=TOPB+RAWB+1
NEXT
RAWB=TOPB/20
BOHM=RAWB*/25
LCDOUT $fe,2,"ADC=",dec3 AOHM," TX1"
lcdout $fe,$C0,"ADC=",dec3 BOHM," TX2"
pause 100
HSEROUT [AOHM,BOHM]
GOTO START

RX:
@ DEVICE pic16F628A
@ DEVICE pic16F628A, WDT_OFF
@ DEVICE pic16F628A, PWRT_OFF
@ DEVICE pic16F628A, BOD_OFF
@ DEVICE pic16F628A, PROTECT_OFF
@ DEVICE pic16F628A, MCLR_OFF
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT

DEFINE OSC 4
CMCON = 7 'PortA digital
TRISB =%00000010
PORTB =%00000010
TRISA = 0
PORTA = 0
DEFINE OSC 4 'DEFINE OSCILADOR EM 4MHz
DEFINE HSER_RCSTA 90h 'ABILITA RX
DEFINE HSER_BAUD 2400 'SETA BAUD RATE
DEFINE HSER_SPBRG 25 '2400 BAUD @ 4MHz, 0,17%
DEFINE HSER_CLROERR 1 'LIMPA OVERFLOW AUTOMATICAMENTE

AOHM VAR BYTE
BOHM VAR BYTE
REL VAR BYTE

INICIO:
hSERIN [AOHM,BOHM]
if (AOHM>55) THEN
PORTB.4 = 1
PORTB.5 = 0
PORTB.6 = 0
PORTB.7 = 1
ELSE
IF (AOHM<45) THEN
PORTB.4 = 0
PORTB.5 = 1
PORTB.6 = 1
PORTB.7 = 0
else
PORTB.4 = 0
PORTB.5 = 0
PORTB.6 = 0
PORTB.7 = 0
IF (BOHM>55) THEN
PORTB.4 = 1
PORTB.5 = 0
PORTB.6 = 1
PORTB.7 = 0
ELSE
IF (BOHM<45) THEN
PORTB.4 = 0
PORTB.5 = 1
PORTB.6 = 0
PORTB.7 = 1
ELSE
PORTB.4 = 0
PORTB.5 = 0
PORTB.6 = 0
PORTB.7 = 0
ENDIF
ENDIF
ENDIF
ENDIF
GOTO INICIO