sixty9sandals
New Member
hi every body..
as a newbies, i need help n some advise from anyone who willing to help me..
im doing a temperature measurement project.. i try to display the result on three type of display which is a row of ten leds display, lcd and by pc.. the leds works just find but my lcd keep display black boxes ..im using pic 16f877 and 16X2 lcd..
my code as below..
DEFINE ADC_BITS 10 ' ADC PARAMETER
DEFINE ADC_CLOCK 3
DEFINE ADC_SAMPLEUS 50
DEFINE LCD_DREG PORTD 'CONFIGURE LCD
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTC
DEFINE LCD_RSBIT 2
DEFINE LCD_EREG PORTC
DEFINE LCD_EBIT 3
DEFINE LCD_BITS 8
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 200
Define HSER_RCSTA 90h ' serial setting
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 2400
DEFINE HSER_SPBRG 25
Define HSER_CLROERR 1
MEASURED_VALUE VAR word ' declare variable
TRISA = %00000001
TRISB = %00000000
TRISC.0 = %0
TRISC.1 = %0
ADCON0 = %10000101
ADCON1 = %10000000
pause 500
START:
ADCIN 0 , MEASURED_VALUE ' DISPLAY ON LEDS
pause 100
PORTB= ~MEASURED_VALUE.LOWBYTE
pause 100
PORTC.0= ~MEASURED_VALUE.8
pause 100
PORTC.1= ~MEASURED_VALUE.9
pause 100
START2:
LCDOUT $FE,1 ' DISPLAY ON LCD
PAUSE 100
LCDOUT "VALUE: ", BIN MEASURED_VALUE.lowbyte
PAUSE 1000
START3:
HSEROUT [ BIN MEASURED_VALUE, 10] ' SEND TO PC
PAUSE 100
GOTO START
END
anybody willing to lend me an advice n teach me on how to solve it?..thank you
as a newbies, i need help n some advise from anyone who willing to help me..
im doing a temperature measurement project.. i try to display the result on three type of display which is a row of ten leds display, lcd and by pc.. the leds works just find but my lcd keep display black boxes ..im using pic 16f877 and 16X2 lcd..
my code as below..
DEFINE ADC_BITS 10 ' ADC PARAMETER
DEFINE ADC_CLOCK 3
DEFINE ADC_SAMPLEUS 50
DEFINE LCD_DREG PORTD 'CONFIGURE LCD
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTC
DEFINE LCD_RSBIT 2
DEFINE LCD_EREG PORTC
DEFINE LCD_EBIT 3
DEFINE LCD_BITS 8
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 200
Define HSER_RCSTA 90h ' serial setting
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 2400
DEFINE HSER_SPBRG 25
Define HSER_CLROERR 1
MEASURED_VALUE VAR word ' declare variable
TRISA = %00000001
TRISB = %00000000
TRISC.0 = %0
TRISC.1 = %0
ADCON0 = %10000101
ADCON1 = %10000000
pause 500
START:
ADCIN 0 , MEASURED_VALUE ' DISPLAY ON LEDS
pause 100
PORTB= ~MEASURED_VALUE.LOWBYTE
pause 100
PORTC.0= ~MEASURED_VALUE.8
pause 100
PORTC.1= ~MEASURED_VALUE.9
pause 100
START2:
LCDOUT $FE,1 ' DISPLAY ON LCD
PAUSE 100
LCDOUT "VALUE: ", BIN MEASURED_VALUE.lowbyte
PAUSE 1000
START3:
HSEROUT [ BIN MEASURED_VALUE, 10] ' SEND TO PC
PAUSE 100
GOTO START
END
anybody willing to lend me an advice n teach me on how to solve it?..thank you
Last edited: