Selamat malam, kali ini saya akan menjelaskan mengenai bagaimana cara mengakses sensor arus LA-55-P pada sumber arus DC, pada media sumber DC pembacaan bisa dengan mudah dilakukan tanpa harus melakukan sampling data atau melakukan pengolahan data, jadi data yang dihasilkan bisa langsung dibaca oleh mikrokontroller menggunakan fitur ADC-nya, namun yang harus diingat bahwa sensor ini bisa untuk mengukur arus DC maupun AC, sehingga jika mau digunakan untuk mengukur sumber arus AC haruslah dinaikkan offset terlebih dahulu sebesar 2.5 volt sehingga nilai yang terbaca jika terbalik akan tetap bisa terbaca, karena titik 0 nya berada pada 2.5 volt bukan pada 0 volt. pada pengujian ini saya menggunakan rangkaian penaik tegangan dengan menggunakan LM317 dan OP-AMP LM741 sebagai amplifiernya, sebelumnya, harus diketahui bahwa sensor ini memiliki output 1:1000, maka dari itu harus digunakan non-inverting amplifier untuk membesarkan nilai tegangan yang terbaca, karena jika perubahan tegangan terlalu kecil akan menyulitkan mikrokontroller untuk membacanya. berikut penjelasan mengenai skema dan programnya.
a. Minimum System
c. Rangkaian Supply 2,5 volt
d. Rangkaiam Amplifier
e. 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
$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
f. Cara merubah ADC ke Arus terukur menggunakan regresi linier
Silahkan masuk ke link berikut, di POINT E , rubah parameternya menjadi arus
LINK
g. VIDEO HASILNYA
No comments:
Post a Comment