I have been wondering how to post code in box form for a while...
Code:
'transmitter side pic16f628a
Include "modedefs.bas"
Define OSC 4
CMCON = 7
input PORTB.0
OUTPUT PORTB.5
OUTPUT PORTA.0
SWITCH VAR PORTB.0
Buzzer VAR PORTB.5
x VAR BYTE
INTRO:
for x = 0 to 1
high buzzer
pause 50
low buzzer
pause 50
next x
main:
while switch = 0
SEROUT PORTB.5,N2400, ["A",#55]
PAUSE 1
WEND
GOTO INTRO
END
Code:
'receiver pic16f877
INCLUDE "modedefs.bas"
DEFINE OSC 12
ADCON1 = 7 'all digital inputs, good to go now!!
input PORTA.0 'SERIAL INPUT
Output PORTA.5 'L1
Output PORTE.0 'L2
Output PORTE.1 'L3
Output PORTE.2 'L4
Output PORTC.0 'L5
Output PORTC.1 'L6
Output PORTC.2 'L7
Output PORTC.3 'L8
INPUT PORTD.0 'RX1
INPUT PORTD.1 'RX2
Output PORTD.7 'RELAY4
Input PORTD.5 'BACK
Input PORTD.4 'NXTSLT
Input PORTC.7 'UP
Input PORTC.6 'DOWN
Input PORTC.5 'RX6
input PORTC.4 'RX5
input PORTD.3 'RX4
input PORTD.2 'RX3
L1 VAR PORTA.5 '8 lights
L2 VAR PORTE.0
L3 VAR PORTE.1
L4 VAR PORTE.2
L5 VAR PORTC.0
L6 VAR PORTC.1
L7 VAR PORTC.2
L8 VAR PORTC.3
Relay4 VAR PORTD.7
tx1 VAR PORTD.0 'reciever 6 inputs
tx2 VAR PORTD.1
tx3 VAR PORTD.2
tx4 VAR PORTD.3
tx5 VAR PORTC.4
tx6 VAR PORTC.5
back VAR PORTD.5
nxtslt VAR PORTD.4
up VAR PORTC.7
down VAR PORTC.6
B0 VAR byte
low l1:low l2:low l3:low l4:low l5:low l8: low relay4
start:
LCDOut 254,1
Pause 1000
High L1
Pause 90
Low L1
High L2
Pause 90
Low L2
High L3
Pause 90
Low L3
High L4
Pause 90
Low L4
High L5
Pause 90
Low L5
High L6
Pause 90
Low L6
High L7
Pause 90
Low L7
High L8
Pause 90
Low L8
HIGH Relay4
PAUSE 90
LOW RELAY4
main:
SERIN PORTA.0,N2400, ["A"],B0
'PAUSE 1
PORTC = B0
GOTO MAIN
As this is only a test, I just want to see something on my pcb to show that I have good serial data coming in (leds on portc) then I will move on to LCD text input output from pic16f628a multiplexed keypad...
thanks for the help with the text boxes!
Bookmarks