DS18s20 na 20X4 LCD zaslon za temperaturu

J

jojokatada

Guest
'prikazati poruku na 4 x 20 karaktera LCD koristeći pic16f84a i DS1820

Define LCD_DREG PORTA 'LCD podatkovni priključak
Define LCD_DBIT 0 'LCD bitni podaci počevši 0 ili 4
Define LCD_RSREG PORTA 'LCD registrirate odaberite port
Define LCD_RSBIT 4 'LCD registrirate odaberite bita
Define LCD_EREG PORTB 'LCD omogućili priključak
Define LCD_EBIT 3 'LCD omogućiti bita
Define LCD_BITS 4 'LCD veličini autobus 4 ili 8
Define LCD_LINES 4 'Broj redaka na LCD
Define LCD_COMMANDUS 2000 "Naredba vrijeme kašnjenja u nama
Define LCD_DATAUS 50 'Data vrijeme kašnjenja

simbol DQ = PORTB.4
var temp riječ
cou var byte
cou1 var byte
stanka 100
glavni:
owout DQ, 1, [$ CC, $ 44]
owin DQ, 4, [cou]
ako cou = 0 onda
owout DQ, 1, [$ cc, $ MOGU]
owin DQ, 0, [temp.lowbyte, temp.highbyte, preskočite 4, cou, cou1]
endif

temp = (((temp>> 1) * 100) - 25) (((cou-cou1) * 100) / cou)
lcdout $ Fe, 1. prosinac (temp / 100), "." dec2 temp, "C"
stanka 1000
goto glavni
krajkraj

Dobio sam poruku o pogrešci pogledajte privitak
može bilo tko pomoć mene što izvrnut sa mojim kompajler?

 
hi ja već znam zašto je problem to je greška jer neke datoteke od prevodilac su comflicted tako što sam učinio je deinstaliran i instalirati ga ponovno raditi više ne greška.

 

Welcome to EDABoard.com

Sponsor

Back
Top