Problem runing my code

[Mus.me]

HELLO EVERYONES AGAIN LOL, IM TRYING TO SEND DEC NUMBERS FROM PC TO PIC BUT I DONNO HOW TO WHY WHEN I SEND EX: 15 IT STORES $60 IN EEPROM OR DEC 20 IT STOR $08 . AND IT STUCKS I SEND 5 TIMES OR MORE THEN IT RECEIVE THEM 1 TIME ....????????

@ DEVICE WDT_ON, PWRT_OFF,MCLR_ON,CPD_OFF, BOD_OFF, PROTECT_OFF,INTRC_OSC_NOCLKOUT  
  INCLUDE "MODEDEFS.BAS"

intcon = 0		
vrcon = 0
CMCON = 7



PORTB =%00000010
TRISB = %00000010


SO      con     2                       
SI      con     1                       
B0      var     byte

mainloop:
 Serin2 SI,N2400,[B0]        ' GETTING DECIMAL  NUMBERS FROM PC
                                  'USING SERIAL COMMUNICATOR 
        If B0  Then print  
GOTO MAINLOOP
print:
  
WRITE 5,B0      'SAVE NUMBERS IN EEPROM
PAUSE 100
Serout2 SO,N2400,[B0]                    
        Goto mainloop

[aratti]

HELLO EVERYONES AGAIN LOL, IM TRYING TO SEND DEC NUMBERS FROM PC TO PIC BUT I DONNO HOW TO WHY WHEN I SEND EX: 15 IT STORES $60 IN EEPROM OR DEC 20 IT STOR $08 . AND IT STUCKS

Mus.me,
Serin2 SI,N2400,[B0] is wrong. For 2400 bauds use : Serin2 SI,396,[B0]. The same apply for SEROUT2.

Do you use hyperterminal for RS232 com with the pic?

...... I SEND 5 TIMES OR MORE THEN IT RECEIVE THEM 1 TIME ....????????

WRITE 5,B0 'SAVE NUMBERS IN EEPROM

You are writing "5 TIMES OR MORE" in the same location, so at the end you will see only the last byte Txed.

Al.

[Mus.me]

hello everyones again lol, im trying to send dec numbers from pc to pic but i donno how to why when i send ex: 15 it stores $60 in eeprom or dec 20 it stor $08 . And it stucks

mus.me,
serin2 si,n2400,[b0] is wrong. For 2400 bauds use : serin2 si,396,[b0]. The same apply for serout2.

Do you use hyperterminal for rs232 com with the pic?



write 5,b0 'save numbers in eeprom

you are writing "5 times or more" in the same location, so at the end you will see only the last byte txed.

Al.

thank you aratti im using serial communicator in microcode studio . But still gettin wiered symboles when i send from pic to the pc . I want to send dec and ascii but i donno how

[aratti]

...... But still gettin wiered symboles when i send from pic to the pc . I want to send dec and ascii but i donno how

Mus.me, all the ascii from 0 to 31 will give you wierd symboles, and 32 will show nothing because is space. This is the reason why you use the notation DEC before the variable to Tx.

If you want to receive both decimal and ascii you can Tx twice the variable

Serout2 SO,390,[DEC B0, " ", B0,13,10]

or you can select in which format to send out the variable depending on its value

IF B0<33 Then
Serout2 SO,390,[DEC B0,13,10]
ELSE
Serout2 SO,390,[B0,13,10]
ENDIF

Al.

[Mus.me]

mus.me, all the ascii from 0 to 31 will give you wierd symboles, and 32 will show nothing because is space. This is the reason why you use the notation dec before the variable to tx.

If you want to receive both decimal and ascii you can tx twice the variable

serout2 so,390,[dec b0, " ", b0,13,10]

or you can select in which format to send out the variable depending on its value

if b0<33 then
serout2 so,390,[dec b0,13,10]
else
serout2 so,390,[b0,13,10]
endif

al.

thank you very much aratti for ur help .i tryed it whith baud 16780 it works good i send from pc to pc and from pic to pc its the same i get using serial communicator of microcode studio .i will try with transmeter and receiver bcz i tryed it using ir it does error .got a amall robot to test likw remote control than i carry on have agreat day ARATTI ...

[Mus.me]

HI ARATTI,

I DID THIS CODE IT WORKS GREAT THNK U FOR HELP

SYNC CON "A"

SO      con     1                       
SI      con     0                       
B0      var     WORD
B0 = 0
MAIN:
Serin2 SI,16780,10,MAIN,[WAIT(SYNC), DEC4 B0]
      
SerOUT2 SO,16780,["OK MUS ..!  ",DEC4 B0]  

GOTO MAIN

NOW IM TRYING INFRARED BUT STILL NOT WORKIN I KNOW IR RUNS ON 40KHZ, AND IVE GOT TRANSMITTER AND RECEIVER I FOUND THEM IN PROBASIC STATION METEO WAS SENDING FROM OUTSIDE TO THE CLOCK IN MY ROOM I TOOK THEM OFF BUT AINT WORKIN .
REGARDS