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 ENDAs 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...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
thanks for the help with the text boxes!




Bookmarks