Tywais
- 18th June 2013, 05:23
Having designed a few hundred PIC circuits at work I thought perhaps I could contribute some of my more useful designs.
This is an LCD interface that allows a serial communications connection either via RS232 COM port or connected to another PIC. It uses a standard parallel LCD module connected to it (4-bit mode). It also has an interface for analog or digital addons. Example a LM35 or similar 5V solid state temperature sensor (10mV/Degree) can be added. In this case a 1.024V reference is available to make conversion easy with a resolution of 1 bit = .1 degree. Or put a pot on and use voltage ref = VCC for the ADC configuration.
A digital temperature sensor can also be added. The code here is only for the serial-parallel control and any additional addon code is up to the user. I refer to it as Universal as it can use a power supply from +5V to 24V and a jumper to select serial inverted or non-inverted logic. Prevents having to reprogram it depending on interface used.
Communication protocol is straight forward. "S" for start followed by line number (1-4) then string data terminated with EOL (10). Baud rate default is 9600 8,n,1
Schematic
7012
PCB
7011
Code
'Serial LCD program for PCB SERLCD4B.PCB - SERLCD4B.SCH
'Version 3.0 GOOD
'December 2003 original design
'Sept 25 Increased buffer to 40 and initialize it everytime in the main loop
'
'Sept 6, 2007 modified to support 4 line displays
'Buffer count increased to 40 for 4x20 character displays
'
'Sept 24, 2011 modified for new board & 16F819. Includes jumper to select
'Between TTL or RS232 modes.
'
'May 3, 2012 - support for LM35 or Serial Temp/Hum digital sensor
'
'************************************************* ******************
@ __CONFIG _INTRC_IO & _WDT_OFF & _PWRTE_ON & _LVP_OFF & _CP_OFF & _MCLR_OFF 'FOR 819
'
TRISA = %11111100
TRISB = %00001111 ' 1=INPUT 0=OUTPUT
ADCON0 = 0 ' ADC OFF
ADCON1 = 7 ' ALL DIGITAL
DEFINE OSC 8 ' PIC16F819
OSCCON = %01110010 ' 8 MHz
CCP1CON = 0 ' DISABLE COMPARATORS
'
'Port Definitions
'PORTA.0 ANALOG INPUT (LM35) OR TH CLOCK
'PORTA.1 TH DATA (HUMIDITY/TEMPERATURE SENSOR)
'PORTA.2 CHIP ENABLE
'PORTA.3 ADC VREF 1.024V
'PORTA.4 RS (REGISTER SELECT)
'
'PORTB.1 - SERIAL RX DATA
'PORTB.4 - PORTB.7 LCD DATA (4-BIT)
'PORTB.5 - MCLR - RESET
'
'LCD Control Registers
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTA
DEFINE LCD_EBIT 2
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
'
EOL con 10 'End of line character (Line Feed)
START con "S" 'Serial Wait character
LINENUM var byte 'Which line data is arriving 1=line 1 2=line2
'EG. "S1" = Read line 1 "S2" = Read line 2
LINEDATA var byte(40) '"S3" = Clear Display "S4" = Change serial mode
charcount var byte
testchar var byte 'Look for nulls in array
COMM VAR PORTB.0 '1=TTL(INVERTED) 0=RS232(NONINV) JUMPER IN FOR RS232
SERIAL VAR PORTB.1 'SERIAL input
MODE VAR BIT 'FLAG TO DETERMINE COMMUNICATION MODE, SEE COMM ABOVE
TTL CON 1
RS232 CON 0
'
IF COMM = 1 THEN
MODE = TTL
ELSE
MODE = RS232
ENDIF
'
pause 500 'Let LCD initialize
lcdout $FE, 1, " SYSTEM READY " 'Clear Display and display message
' $FE=COMMAND $C0 = line2 $94 = line3 $D4 = line 4 1 = CLEAR DISPLAY 2=BEGINNING OF LINE 1
Main:
'wait for start then load array
FOR charcount = 0 to 39 'Initialize array
linedata(charcount) = " "
next
IF MODE = TTL THEN
SERIN2 SERIAL, 16468 , [WAIT (start), linenum, str linedata\40\eol] '9600
ELSE 'NONINV RS232
SERIN2 SERIAL, 94 , [WAIT (start), linenum, str linedata\40\eol] '9600
ENDIF
for charcount = 0 to 19
testchar = linedata(charcount)
if testchar = 0 then 'if null then make it a space character
linedata(charcount) = " "
endif
next
if LINENUM = "1" then
lcdout $FE,2," " 'fill with spaces rather then reset display
lcdout $FE, 2, STR LINEDATA\20 'faster this way
endif
if LINENUM = "2" then
lcdout $FE,$C0," " 'fill with spaces rather then reset display
LCDOUT $FE, $C0, STR LINEDATA\20
endif
if LINENUM = "3" then
lcdout $FE,$94," " 'fill with spaces rather then reset display
LCDOUT $FE, $94, STR LINEDATA\20
endif
if LINENUM = "4" then
lcdout $FE,$D4," " 'fill with spaces rather then reset display
LCDOUT $FE, $D4, STR LINEDATA\20
endif
if LINENUM = "R" then 'RESET
lcdout $FE, 1, " SYSTEM READY " 'Clear Display and display message
endif
GoTo main
This is an LCD interface that allows a serial communications connection either via RS232 COM port or connected to another PIC. It uses a standard parallel LCD module connected to it (4-bit mode). It also has an interface for analog or digital addons. Example a LM35 or similar 5V solid state temperature sensor (10mV/Degree) can be added. In this case a 1.024V reference is available to make conversion easy with a resolution of 1 bit = .1 degree. Or put a pot on and use voltage ref = VCC for the ADC configuration.
A digital temperature sensor can also be added. The code here is only for the serial-parallel control and any additional addon code is up to the user. I refer to it as Universal as it can use a power supply from +5V to 24V and a jumper to select serial inverted or non-inverted logic. Prevents having to reprogram it depending on interface used.
Communication protocol is straight forward. "S" for start followed by line number (1-4) then string data terminated with EOL (10). Baud rate default is 9600 8,n,1
Schematic
7012
PCB
7011
Code
'Serial LCD program for PCB SERLCD4B.PCB - SERLCD4B.SCH
'Version 3.0 GOOD
'December 2003 original design
'Sept 25 Increased buffer to 40 and initialize it everytime in the main loop
'
'Sept 6, 2007 modified to support 4 line displays
'Buffer count increased to 40 for 4x20 character displays
'
'Sept 24, 2011 modified for new board & 16F819. Includes jumper to select
'Between TTL or RS232 modes.
'
'May 3, 2012 - support for LM35 or Serial Temp/Hum digital sensor
'
'************************************************* ******************
@ __CONFIG _INTRC_IO & _WDT_OFF & _PWRTE_ON & _LVP_OFF & _CP_OFF & _MCLR_OFF 'FOR 819
'
TRISA = %11111100
TRISB = %00001111 ' 1=INPUT 0=OUTPUT
ADCON0 = 0 ' ADC OFF
ADCON1 = 7 ' ALL DIGITAL
DEFINE OSC 8 ' PIC16F819
OSCCON = %01110010 ' 8 MHz
CCP1CON = 0 ' DISABLE COMPARATORS
'
'Port Definitions
'PORTA.0 ANALOG INPUT (LM35) OR TH CLOCK
'PORTA.1 TH DATA (HUMIDITY/TEMPERATURE SENSOR)
'PORTA.2 CHIP ENABLE
'PORTA.3 ADC VREF 1.024V
'PORTA.4 RS (REGISTER SELECT)
'
'PORTB.1 - SERIAL RX DATA
'PORTB.4 - PORTB.7 LCD DATA (4-BIT)
'PORTB.5 - MCLR - RESET
'
'LCD Control Registers
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTA
DEFINE LCD_EBIT 2
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
'
EOL con 10 'End of line character (Line Feed)
START con "S" 'Serial Wait character
LINENUM var byte 'Which line data is arriving 1=line 1 2=line2
'EG. "S1" = Read line 1 "S2" = Read line 2
LINEDATA var byte(40) '"S3" = Clear Display "S4" = Change serial mode
charcount var byte
testchar var byte 'Look for nulls in array
COMM VAR PORTB.0 '1=TTL(INVERTED) 0=RS232(NONINV) JUMPER IN FOR RS232
SERIAL VAR PORTB.1 'SERIAL input
MODE VAR BIT 'FLAG TO DETERMINE COMMUNICATION MODE, SEE COMM ABOVE
TTL CON 1
RS232 CON 0
'
IF COMM = 1 THEN
MODE = TTL
ELSE
MODE = RS232
ENDIF
'
pause 500 'Let LCD initialize
lcdout $FE, 1, " SYSTEM READY " 'Clear Display and display message
' $FE=COMMAND $C0 = line2 $94 = line3 $D4 = line 4 1 = CLEAR DISPLAY 2=BEGINNING OF LINE 1
Main:
'wait for start then load array
FOR charcount = 0 to 39 'Initialize array
linedata(charcount) = " "
next
IF MODE = TTL THEN
SERIN2 SERIAL, 16468 , [WAIT (start), linenum, str linedata\40\eol] '9600
ELSE 'NONINV RS232
SERIN2 SERIAL, 94 , [WAIT (start), linenum, str linedata\40\eol] '9600
ENDIF
for charcount = 0 to 19
testchar = linedata(charcount)
if testchar = 0 then 'if null then make it a space character
linedata(charcount) = " "
endif
next
if LINENUM = "1" then
lcdout $FE,2," " 'fill with spaces rather then reset display
lcdout $FE, 2, STR LINEDATA\20 'faster this way
endif
if LINENUM = "2" then
lcdout $FE,$C0," " 'fill with spaces rather then reset display
LCDOUT $FE, $C0, STR LINEDATA\20
endif
if LINENUM = "3" then
lcdout $FE,$94," " 'fill with spaces rather then reset display
LCDOUT $FE, $94, STR LINEDATA\20
endif
if LINENUM = "4" then
lcdout $FE,$D4," " 'fill with spaces rather then reset display
LCDOUT $FE, $D4, STR LINEDATA\20
endif
if LINENUM = "R" then 'RESET
lcdout $FE, 1, " SYSTEM READY " 'Clear Display and display message
endif
GoTo main