adc sorunu

[cann]

adc ölçümü için aşağıdaki adc ile ilgili dizileri kullandım,  değer lineer değişmesine rağmen ekranda 65000 li değer çıkıyor, kararsız ve uygulanan voltajla düzenli değişmiyor, doğal olarak beklentim 0-5 voltta 0-1024 değer almam. hata nerede? dizide declare adin_tad eksik ve 6 Mhz kristal bağlı. teşekkürler

Device 18F4620

Declare Xtal = 4
Declare Adin_Res=10
Declare Adin_Delay=50

TRISA = %00100000

ADCON1 = %11111111


Dim var1 As Word
basla:
var1 = ADIn 5
           Print At 0,1, Dec var1
goto basla

[t2]

Tris ve adcon1 satırlarini geçici olarak iptal ederek deneyin

[cann]

denedim olmadı

[isikyasar]

ADCON1 = %11111111

analog girişte sadece kullanmak isteğini set ederek dene.

[cann]

word yazıyorum 65 binli çıkıyor
byte yazıyorum 256 lı çıkıyor
8 bit yazıyorum 256 lı çıkıyor
10 bit yazıyorum 65 binli çıkıyor
2 tane adc var biri kararlı,diğeri kararsız aynı uyarı ile.

set etmeye örnek verbilirmisiniz.

[isikyasar]

http://s3.dosya.tc/server8/zoRnFQ/18f4620.rar.html


dosyayı indirip bir bak. ben bu şekilde çözdüm. umarım işini görür.

[Hattusa]

s.a.
üzerime vazifemidir bilmem ama az-çok bende protonda yazıyorum, senin kodu bu şekilde deneyip isisde çalıştırdım, sorun yok istersen sende bir dene 

Device 18F4620
Xtal = 4
Config_Start
   OSC = XT ; XT
   FCMEN = OFF ; Disabled
   IESO = OFF ; Disabled
   PWRT = OFF ; Disabled
   BOREN = OFF ; Disabled
   WDT = OFF ; Disabled
   MCLRE = On ; Enabled
   LPT1OSC = OFF ; Disabled
   PBADEN = OFF ; PORTB<4:0> digital on Reset
   CCP2MX = PORTC ; Multiplexed with RC1
   STVREN = OFF ; Disabled
   LVP = OFF ; Disabled
   XINST = OFF ; Disabled
   Debug = OFF ; Disabled
Config_End
TRISA = %00000001 :PORTA =0
TRISB =%0000000  :PORTB =0
TRISC =%0000000  :PORTC =0
TRISD =%0000000  :PORTD =0
TRISE =%0000000  :PORTE =0

Declare LCD_ENPin PORTB.3
Declare LCD_RSPin PORTB.2
Declare LCD_DTPin PORTB.4
 

ADCON0 =%00000011
ADCON1 =%00001110 '1 kanal secildi an0,an1,AN2 
ADCON2 =%10010111
Dim var1 As  Dword
var1=0
Dim bol As Word
bol=0


'-------------------------------------------------------------------
Print At 2,1,"deneme"
basla:

var1 = ADIn 0 
While ADCON0.1==1 :Wend

bol=var1 / 64
Print At 1,1, Dec var1,"   "
DelayMS 10
Print At 1,10, Dec6 bol," "
DelayMS 10

GoTo basla

[cann]

çok teşekkürler
cevaplar için
bendeki sorun
A0,1,2,3,4 ün digital seçili olması, 5 ve 7 nin anolog olması.
ayrıca adcon0 ve 2 ile ilgili düzenleme yok.
bende adcon1=%111111111 olması referans sorunu yaratıyor sanırım