dummies guide to serin/serout by a dummie
Hello All,
I have come to this forum so many times for help and have always been able to find it conditinal only that I give the coding my best shot before asking blindly researched topics.
I have really appreciated all the help I have been given and just wanted to give back in some small way. I realize that I am no Jedi Master even after 3 years of weekend warrior coding, but I thought hey this works for me, maybe I can help someone else out.
This code does the following...
Allows the user to serial out from a PIC16F628A to a PIC16F877 and then output the entire ASCII Table to a 4x20 line LCD. (see pics). You can also turn to page 207-210 of the PPB manual to see where my code is going. The data is also sends binary "B0" to PORTC of the 16f877 so you can compare ASCII key displays,decimal, binary, and hexidecimal values all at the same time.
Yes my coding is not perfect, and you can certainly modify this code to work on almost all pics, give it a shot and let know what you think. Once again this was written by a padawon but I think it make milk of the meaty ASCII table.
Enjoy!
Code:'**************************************************************** '* Name : SERIAL TRANSMITTER BOARD * '* Author : TYSON EARL * '* Notice : Copyright (c) 2008 Ty's Custom Electronics * '* : All Rights Reserved * '* Date : 3/19/2008 * '* Version : 2.0 pic16f628a * '* Notes : once switch is pressed on breadboard code begins * '* : sending values 0-127 (see ASCII table) every sec * * '**************************************************************** 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 B0 var byte INTRO: for x = 0 to 1 high buzzer pause 50 low buzzer pause 50 next x main: while switch = 0 FOR B0 = 0 to 127 SEROUT PORTA.0,N2400, ["A",B0] PAUSE 1 pause 1000 NEXT B0 wend GOTO INTRO END
Code:'**************************************************************** '* Name : SERIAL RECIEVER BOARD * '* Author : TYSON EARL * '* Notice : Copyright (c) 2008 * '* : All Rights Reserved * '* Date : October 20th * '* Version : 2.0 PIC16F877 * '* Notes : This program recieves serial data in and outputs * '* : display, decimal, binary, and hex to 4x20 lcd * '**************************************************************** INCLUDE "modedefs.bas" DEFINE OSC 12 ADCON1 = 7 'all digital inputs, good to go now!! DEFINE LCD_LINES 4 DEFINE LCD_DREG PORTB DEFINE LCD_DBIT 4 DEFINE LCD_COMMANDUS 2005 DEFINE LCD_DATAUS 55 DEFINE ADC_BITS 8 Row1 CON 128 'constant for LCD line1 Row2 CON 192 'constant for LCD line2 Row3 CON 148 'comstant for LCD line3 Row4 CON 212 'constant for LCD line4 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 B0 VAR byte low l1:low l2:low l3:low l4:low l5:low l8: Loop1: lcdout 254, 1 while back = 0:wend LCDOut 254,1 LCDOut 254,Row1," KEYPAD Monitoring " LCDOut 254,Row2," beginning in ... " pause 1000 LCDOut 254,Row3," 3" pause 1000 LCDOut 254,Row3," 2" pause 1000 LCDOut 254,Row3," 1" pause 1000 lcdout 254,1 FROMKEYPAD: LCDOut 254,1 bubba: SERIN PORTA.0,N2400,["A"],B0 LCDOut 254,Row1,"DISPLAY ",B0 lcdout 254,Row2,"DECIMAL ",DEC b0 LCDOut 254,Row3,"BINARY ",BIN B0 lcdout 254,Row4,"HEX $ ",HEX b0 PORTC.3 = B0.0 PORTC.2 = B0.1 PORTC.1 = B0.2 PORTC.0 = B0.3 PORTE.2 = B0.4 PORTE.1 = B0.5 PORTE.0 = B0.6 PORTA.5 = b0.7 pause 200 GOTO bubba
Originally Posted by mbox
Bookmarks