' İŞLEMCİ 12F675 KULLANILMIŞTIR. J TİPİ TERMOKUPL'dan 0-10V. ELDE EDİLECEKTİR.
' OPAMP OLARAK LM358 KULLANILMIŞTIR
CMCON = 7 ' disable analog comparator
TRISIO.0 = 1
TRISIO.1 = 0
ADCON0 = %00000000 ' 10 bit çözünürlük için
define adc_bits 8
define adc_clock 3
define adc_sampleus 50
HAM var word
A VAR BYTE
ISI VAR BYTE
GPIO.1 = 0
A=0
Pause 500
'************************ ANALOG OKUMA ***************************************
BASLA:
ADCIN 0,HAM
ISI=HAM
'************************ ANALOG CIKIS ***************************************
pwm GPIO.1,ISI,5
PAUSE 100
GoTo BASLA
End