Config Adc = Single , Prescaler = Auto , Reference = Avcc   'El punto de referencia es el voltaje de la CPU (5000mV)

     ' 5000mV/1024 ->4,88 mV por un punto ADC


Dim Vadc As Word
Dim X As Single
Dim Y As Single
Const Vout = 2.5
Const Sensibilidad = 0.185
Dim I As Single



Do
  Vadc = Getadc(0)
  Print Vadc
  X = Vadc / 2
  Print X
  Y = X - Vout
  Print Y
  I = Y / Sensibilidad
  Print "Corriente= " ; I
  Waitms 100
Loop
End

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32

$baud = 9600


Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Dim V_sensor As Integer



Do

  V_sensor = Getadc(0)
  Print V_sensor

Loop
End

Dim Voltaje_sensor As Single
Dim X As Integer
Dim Y As Integer
Dim I As Single
Const Sensibilidad = 0.185
 

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32
$baud = 9600

Config Adc = Single , Prescaler = Auto , Reference = Avcc   'El punto de referencia es el voltaje de la CPU (5000mV)
Start Adc
'*****************************************
' V= mI + 2.5
' V= 2.5 +/- I=0
'V=(Sensibilidad)(I)+2.5
'Por lo tanto:
'I=V-2.5/Sensibilidad
'****************************************


Dim Voltaje_sensor As Single
Dim X As Integer
Dim Y As Integer
Dim I As Single
Const Sensibilidad = 0.185



Do
'VOLTAJE DE SENSOR
X = Getadc(0) * 5
Voltaje_sensor = X / 1023
Print "Voltaje_sensor= " ; Voltaje_sensor

'ECUACION PARA OBTENER LA CORRIENTE
Y = Voltaje_sensor - 2.5
I = Y / Sensibilidad
Print "Corriente= " ; I

Loop
End