DEĞİŞKEN TAŞMASI

[Hattuşa]

ben 2 yıldır kullanıyorum hiç bir sorun yaşamadım. ete hocamın dediği gibi önemli olan datasheet

[Diagnosis3]

Ete hocam, son yazdığım kodlar ile adc verisi alıyorum. Ancak AN0 kanalından doğru veri alırken, AN1 kanalında %50 ADC'de 4 rakamı alıyorum. Kaçırdığım bir nokta var, ama ne.

Device=18F4431

'--------------------------------------CONFIGURATION BITS-----------------------
Config_Start
OSC=HS , FCMEN=OFF , IESO=OFF 'CONFIG1H
PWRTEN=On , BOREN=Off , BORV=20 'CONFIG2L
WDTEN=OFF 'CONFIG2H
PWMPIN=Off , HPOL=High , LPOL=High , T1OSCMX=OFF 'CONFIG3L
MCLRE=On , EXCLKMX=RC3 , PWM4MX=RB5 , SSPMX=RD1 , FLTAMX=RC1 'CONFIG3H
Debug=OFF , LVP=OFF , STVREN=On 'CONFIG4L
CP3=OFF , CP2=OFF , CP1=OFF , CP0=OFF 'CONFIG5L
CPD=OFF , CPB=OFF 'CONFIG5H
WRT3=OFF , WRT2=OFF , WRT1=OFF , WRT0=OFF 'CONFIG6L
WRTB=OFF , WRTC=OFF , WRTD=OFF 'CONFIG6H
EBTR3=OFF , EBTR2=OFF , EBTR1=OFF , EBTR0=OFF 'CONFIG7L
EBTRB=OFF 'CONFIG7H
Config_End
Xtal=40

OSCCON=%00000000

INTCON=%11000001
INTCON2.7=1
INTCON3.3=0
PIE1.6=1
IPR1.6=1

TRISA=%00000001
TRISB=%00000000

On_Interrupt GoTo KESME
'------------------------------------------------
Declare LCD_Type 0
Declare LCD_DTPin PORTD.0
Declare LCD_ENPin PORTD.4
Declare LCD_RSPin PORTD.5
Declare LCD_Interface 4
Declare LCD_Lines 4
'------------------------------------------------
ADCON0=%00010001
ADCON1=%00010000
ADCON2=%10110010
ADCON3=%11000000
ADCHS=%00000000
ANSEL0=%00001111
ANSEL1=0


Dim ADC1 As Word
Dim ADC2 As Word
Dim ZAMAN As Bit

PORTB=%11110000
BASLA:
Print At 1,1,Dec ADC1
Print At 2,1,Dec ADC2
Print At 3,1,Dec ADRESL

DelayMS 500
Cls
ADCON0.1 =1
ZAMAN=1
While ZAMAN=1
Wend
GoTo BASLA

KESME:
Context Save
Disable
PIR1.6=0
PIE1.6=1
If PORTB=%11110000 Then
PORTB=%00001111
Else
PORTB=%11110000
EndIf

ADCON1.0=0
ADCON1.1=0
'If ADCON0.2=1 Then
ADC1.HighByte=ADRESH
ADC1.LowByte=ADRESL
'ADCON0.2=0

ADCON1.0=1
ADCON1.1=0
ADC2.HighByte=ADRESH
ADC2.LowByte=ADRESL
'ADCON0.2=1

ZAMAN=0
Context Restore
Enable
End