potetojb
Member level 3

- Joined
- Feb 25, 2006
- Messages
- 63
- Helped
- 1
- Reputation
- 2
- Reaction score
- 0
- Trophy points
- 1,286
- Location
- Johor,Malaysia
- Activity points
- 1,931
Need Help
I write the serout and serin command to send data from PIC to another PIC
can anyone tell me, how to solve it, thank you
i am try many way to solve it , but still cant solve it
i am using PIC16F84A model try a simple code below
TX DATA
INCLUDE "modedefs.bas"
DEFINE OSC 4
loop:
IF PORTB.0=0 Then
GoSub led_on
Else
GoSub led_off
EndIF
GoTo loop
led_on:
SerOut PORTB.1,N2400,[$FF,$FF,"OK","A"]
Return
led_off:
SerOut PORTB.1,N2400,[$FF,$FF,"OK","B"]
Return
End
RX DATA
INCLUDE "modedefs.bas"
DEFINE OSC 4
dataon VAR BYTE
led1 VAR PORTB.1
led2 VAR PORTB.2
Loop:
SerIn PORTB.0,N2400,["OK"],dataon
IF dataon="A" Then led_on
IF dataon="B" Then led_off
GoTo Loop
led_on:
High led1
Low led2
GoTo Loop
led_off:
Low led1
High led2
GoTo Loop
End
after i on the supply and push the switch the led does not light
to see the led light on/off how could be???
really need a help
thank you
I write the serout and serin command to send data from PIC to another PIC
can anyone tell me, how to solve it, thank you
i am try many way to solve it , but still cant solve it
i am using PIC16F84A model try a simple code below
TX DATA
INCLUDE "modedefs.bas"
DEFINE OSC 4
loop:
IF PORTB.0=0 Then
GoSub led_on
Else
GoSub led_off
EndIF
GoTo loop
led_on:
SerOut PORTB.1,N2400,[$FF,$FF,"OK","A"]
Return
led_off:
SerOut PORTB.1,N2400,[$FF,$FF,"OK","B"]
Return
End
RX DATA
INCLUDE "modedefs.bas"
DEFINE OSC 4
dataon VAR BYTE
led1 VAR PORTB.1
led2 VAR PORTB.2
Loop:
SerIn PORTB.0,N2400,["OK"],dataon
IF dataon="A" Then led_on
IF dataon="B" Then led_off
GoTo Loop
led_on:
High led1
Low led2
GoTo Loop
led_off:
Low led1
High led2
GoTo Loop
End
after i on the supply and push the switch the led does not light
to see the led light on/off how could be???
really need a help
thank you