Contents
hide
@ device pic16f877
define osc 4
define adc_bits 8
Define LCD_DREG PORTD ' Define LCD connections
Define LCD_DBIT 4
Define LCD_RSREG PORTD
Define LCD_RSBIT 1
Define LCD_EREG PORTD
Define LCD_EBIT 0
RW var portd.2
low RW 'LCD R/W low = write
trisa = $ff
trisd = $00
adcon1 = 7
SW1 VAR PORTA.0
SW2 VAR PORTA.1
num var byte
LCDOUT $FE,1,"lcd_read"
pause 3000
main:
gosub set_value
gosub display
pause 200
GoTo main
End
display:
LCDOUT $FE,$80," setting value "
Pause 20
LCDOut $FE,$C0,"temp_set=",dec3 num ," 'C"
Pause 20
return
set_value:
if(!sw1) then
pause 150
if(num>255)then
num=0
else
num=num+1
endif
else
if(!sw2) then
pause 150
if(num<0)then
num=254
else
num=num-1
endif
else
endif
endif
return
About The Author
Ibrar Ayyub
I am an experienced technical writer holding a Master's degree in computer science from BZU Multan, Pakistan University. With a background spanning various industries, particularly in home automation and engineering, I have honed my skills in crafting clear and concise content. Proficient in leveraging infographics and diagrams, I strive to simplify complex concepts for readers. My strength lies in thorough research and presenting information in a structured and logical format.
Follow Us:LinkedinTwitter