با bascom-avr کار می کنم.اینم کد برنامه:
regfile = "m32def.dat"
$crystal = 4000000
Config Adc = Single , Prescaler = Auto , Reference = Off
Start Adc
Dim W(20) As Word , C As Long , I As Byte
Do
C = 0
For I = 1 To 20
W(i) = Getadc(0)
Next I
For I = 1 To 20
C = C + W(i)...