Problem with code for reading data from ADC after pressing button

[ateyah]

Hi all;

I work on My graduated project, so I need a help

I want to read data from ADC when I press on a button.
so that I wrote a code to active the INT when RB5=1,
but the INT does not answer,i used microbasic compiler.
this is the code:
*********************************
program abbad

dim sound as word[14]
dim a as byte
dim i as byte

sub procedure interrupt
if TestBit(INTCON,INTF) = 1 then
sound[a] = ADC_read(2)
if a=14 then
a=0
else
a=a+1
end if
clearbit (intcon,intf)
end if
end sub

main:
INTCON=%10010000
ADCON1 = $80 ' configure analog inputs and Vref
TRISA = $FF ' designate PORTA as input
TRISB.0 = 1 ' designate RB7, RB6 pins as outputs
TRISD = $00 ' designate PORTD as output
TRISC = $00
a=0
while true
sound[a] = ADC_read(2)
for i =0 to 14
if sound[a]=sound then
portd=$FF
end if
next i

wend
end.
**************



thanks

 

[laktronics]

Re: heeeeeeeeeelp

Hi,
Assuming your interrupt sub procedure is correct, you have to :
1. Connect a Normally Closed switch from RB0 to ground and not to RB5.
2. Select pullup and Interrupt edge ( falling edge) bits in Option register.
3. Use a debounce delay in interrupt routine, and then start interrupt code.
4. Since 'a' is getting incremented in the interrupt routine, in your Main program, you only check if 'a'=14 to terminate the program under 'while true', do not read ADC there.

Regards,
Laktronics

 

[ateyah]

Re: heeeeeeeeeelp

Thank you for ur reply
but the compiler does'nt compile

 

[laktronics]

Re: heeeeeeeeeelp

Hi,
Check your interrupt routine carefully, do you need to declare the function ADC_read(2), or, anything else as per the language specifications?

Regards,
Laktronics