Mengakses Sensor Arus ACS712 20A bascom avr

Mengakses Sensor Arus ACS712 - 20A bascom avr

               Malam ini saya akan bercerita mengenai bagaimana cara mengakses sensor ACS712 dengan maksimal arus 20A menggunakan mikrokontroller dan bahasa bascom AVR, disini saya menggunakan sebuah resistor variabel yang besar yang mana bisa mengeluarkan arus hingga 3A lebih, karena supply-nya terbatas hanya sampai 30 volt 3A maka saya hanya melakukan pengujian sampai 2A saja, namun menurut datasheet, sensor ini bisa sampai 20A. berikut adalah penjelasan lengkapnya.

 a. Minimum System

b. Program Bascom AVR

$regfile = "m16def.dat"
$crystal = 12000000

Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2

Ddrb.0 = 1

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

Cursor Off
Cls

Dim Dataadc As Word
Dim V As Single
Dim X As String * 5

Start Adc

Do

Dataadc = Getadc(0)

V = Dataadc * 5
V = V / 1023

X = Fusing(v , "#.##")


Locate 1 , 1
Lcd "adc= " ; Dataadc

Locate 2 , 1
Lcd "V= " ; X
Loop




c. Grafik Linierisasi ( DATASHEET )






d. Cara merubah ADC ke Arus terukur menggunakan regresi linier

Silahkan masuk ke link berikut, di POINT E , rubah parameternya menjadi arus

LINK




e. VIDEO HASILNYA