PIC 12F675 - Milivoltmetru

[78ATI]

Multumesc pentru sfaturi. Am scris si testat urmatorul cod (PicBasic). Merge perfect:

 

Device = 12F675 DECLARE ADIN_RES 10       ' 10-bit result required  DECLARE ADIN_TAD FRC      ' RC OSC chosen  DECLARE ADIN_STIME 50     ' Allow 50us sample time  DIM VAR1 as WORD   Cmcon=7  TRISIO =  %00000100        ' Configure AN2 (GPIO.2) as an input  Gpio=0 ADCON0 =  %10001000        ' Set analogue input on GPIO.2   Again:  VAR1 = ADIN 2     ' Place the conversion into variable VAR1  if var1 < 200 then    Gpio.5=1    Gpio.4=0 elseif var1 > 200 then    Gpio.5=0    Gpio.4=1   end if  DELAYus 1         ' Wait for 1ms GOTO Again        ' Read the ADC forever