GETADC on 8515

rollo62 · Joined: 08 Jun 2005 Posts: 2

Hello friends,

I need to use the GETADC on a 8515 chip.

I tried (for testing) to use the sample ADC.bas program (changing the $regfile to "8515def.dat") but when i try to compile it, i get the following error :

Error : 101 Line : 29 Can't find HW-register [ADMUX ] , in File : C:\DOCUMENTS AND SETTINGS\ROLLO\DESKTOP\PROGRAMMAZIONE\AVR SAMPLES\ADC.BAS

If i compile it for the 8535 i get no error, but on the sample program it is specified that i work with any chip with an ADC, so it should work with the 8515.

Can anyone help me ?

Thank you in advance

Rolando

DToolan · Posted: Thu Jun 09, 2005 1:02 am Post subject:

There are no ADC (Analog to Digital Converter) channels in the 8515. Look over the parametric table for AVR's at... http://www.atmel.com/dyn/products/param_table.asp?family_id=607&OrderBy=part_no&Direction=ASC

rollo62 · Joined: 08 Jun 2005 Posts: 2

I am sorry, you are right, i had confused the two analog comparator inputs with adc converters.

No the question could be : how do I have access to the comparators on the AVR bascom ?

Thank you again

Duval JP · Joined: 22 Jun 2004 Posts: 1198 Location: France

hi,
try this small program, I wrote it to test on a M32 but it's must be the same with the 8515 :

bon courage !
JP

'on all samples I write, I use a LCD so I need time to display and read
' that why I use wait or waitms so often.

' comparer 2 tensions avec un M8
' analog comparator
' j'utilise 2 potentiometre de 10K dont 1 est de 20 tours
' I use 2 pot of 10K (1 pot is a 20 laps)
'gnd----^^^^^^----vcc
' -^----------portD.6 (Ain0)
'gnd---^^^^^^-----vcc
' -^----------portD.7(Ain1)

'on 5 Volts I can check a change of 2/100° of volt !
'------[variables]---------------
Dim , J As Word
'-------[ config ]-----------------------------------

'config must be writen on 1 lign
Config Lcdmode = Port ' config 4 bit
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
'-------------------------------------------------

'config the interrupts
Config Aci = On , Compare = Off , Trigger = Toggle
Enable Interrupts
Enable Aci
On Aci Inter 'name of the interrupt
Wait 1
Cls
'main loop----------
Do
Locate 1 , 1 : Lcd "wait"
Wait 1
Loop
End 'end program

Inter: 'the interruption
J = J + 1
Locate 2 , 1 : Lcd "change:" ; J 'nb of toggle
Waitms 200
Return
Return 'yes 2 return on an interrupts