I have a problem with my a port on the 18F2550 device. When i use this code the a port will toggle all the time. What do I wrong.
I have the following code:
Include "modedefs.bas"
Define OSC 20
DEFINE DEBUG_REG PORTC
DEFINE DEBUG_BIT 7
DEFINE DEBUG_BAUD 9600
DEFINE DEBUG_MODE 1
LEDGroen VAR PORTB.7
LEDRood VAR PORTA.2
Relais1 VAR PORTA.5 ' Relaiscontact'
LATA = 0
ADCON1 = 7 'poort a op digitaal
'ADCON1 = 0 'poort a op analoog
ADCON0 = 0
ADCON2 = 0
'CMCON = 7
TRISB.3 = 1 'Input
TRISB.2 = 1 'Input
TRISA.1 = 1 'Input
TRISA = 255
DEFINE ADC_BITS 8 ' Set number of bits in result (8, 10 or 12)
DEFINE ADC_CLOCK 2 ' Set clock source (rc = 3)
DEFINE ADC_SAMPLEUS 50 ' Set sampling time in microseconds
Init:
HIGH LEDGroen
PAUSE 500
LOW LEDGroen
Pause 500
HIGH LEDRood
PAUSE 500
LOW LEDRood
Pause 500
Debug "->Start<-", 13,10
Goto Main
Main:
High Relais1
Goto Main:
Bookmarks