Analog Girişe Bağlı Pot'dan Yalnızca 2sn Boyunca Değişen Çıkış Gerilimi Alıyorum

[ImLeGenD]

Arkadaşlar merhaba

ETE hocanın ADC örnekleriyle ilgileniyordum. ADC ile ilgili 1. örneğinde bir pot yardımıyla değişen gerilim ölçülerek LDC ye yansıtılıyor. Ben de örnek kodu yazdım ve devreyi gerçekledim çıkışda almış bulunuyorum fakat ilk iki saniye içinde pot yardımı ile değişen gerilimi okuyorum fakat ondan sonra ekrandaki son çıktı değişmiyor. Nedenini çözemedim. Bir bakarsanız sevinirim.

Devrenin Şeması:


Yazılan Kod:

@ __config _XT_OSC & _WDT_ON & _LVP_OFF & _CP_OFF
       
'-----------------------------------------------------
define LCD_DREG PORTB
Define LCD_DBIT 4
define LCD_EREG PORTB
define LCD_EBIT 3
DEFINE LCD_RWREG PORTB
define LCD_RWBIT 2
define LCD_RSREG PORTB
DEFine LCD_RSBIT 1
define LCD_BITS 4
define LCD_LINES 2
'----------------------------------------------------
DEfine ADC_BITS 10
define ADC_CLOCK 3
define ADC_SAMPLEUS 100
'-----------------------------------------------------                                        
ADCON1=%10001110
'---------------------------------------------------
HAM var WORD
VOLT var word
Mvolt var byte
'-------------------------------------------------------
TRISA=%00000001
TRISB=0
TRISC=0
TRISD=0
'---------------------------------------------------------
low PORTB.2
LCDout $FE,1
pause 200
'--------------------------------------------------------

Basla:

adcin 0,HAM

BAK: IF ADCON0.2=1 then BAK

LCDout $FE,1,"HAM:",#HAM

HAM=HAM+1


VOLT=(HAM*/1250)/100

Mvolt= VOLT MOD 10

VOLT=VOLT/10

Lcdout $FE,$C0,"VOLT:",#VOLT,",",#Mvolt

Pause 500
GOto Basla

End

Sayfa linki:
https://320volt.com/picbasic-dersleri-pic-basic-pro-ile-pic-programlama-5/