i put the pic in the LCD in port a:
D4 - d7 RA0 -RA3
Rw- RA4
E - RA3
whow many usualy adcom for porta in digital?
Printable View
i put the pic in the LCD in port a:
D4 - d7 RA0 -RA3
Rw- RA4
E - RA3
whow many usualy adcom for porta in digital?
Place ADCON1 = 7 to turn portA all digital.
Cheers
Al.
my code is: but not ready ldc, whith adcom 1=7
include "modedefs.bas"
DEFINE LCD_DREG PORTA
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTA
DEFINE LCD_EBIT 5
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE ADC_BITS 8
adcon1=7
C0 var byte
C1 var byte
pause 1000
loop:
Lcdout $fe, 1
Lcdout "Setron Alarmes"
pause 1000
For C0= 1 to 13
Lcdout $fe, $13
Lcdout $fe, 24
pause 500
next
Lcdout $fe, 1
Lcdout $fe, 1
Lcdout "Alarmes"
pause 1000
Lcdout $fe, $14
Lcdout "CFTV"
pause 1000
Lcdout $fe, 1
Lcdout $fe, 1
Lcdout "Monitoramento"
pause 1000
For C0= 1 to 13
Lcdout $fe, 24
pause 500
next
Lcdout $fe, 1
Lcdout "24 Horas"
pause 1000
For C0= 1 to 8
Lcdout $fe, 28
pause 500
next
For C1= 1 to 3
Lcdout $fe, 1
Lcdout $fe, $80+17
Lcdout "Setron"
pause 1000
For C0= 1 to 27
Lcdout $fe, 24
pause 200
next
next
Goto loop