Di malam minggu yang sunyi ini saya akan menjelaskan tentang bagaimana mengukur arus AC dan bagaimana cara agar arus AC bisa terukur di mikrokontroller, sebenarnya caranya sama dengan cara mengukur tegangan AC yang telah aku posting sebelumnya, yaitu dengan membuat rangkaian penyearah, jadi sinyal sinus dinaikkan offsetnya sebesar 2,5 volt kemudian sinyal sinus tersebut di masukkan ke kapasitor, sehingga tegangan yang dihasilkan tidak sinus lagi, melainkan mendekati ke sinyal DC, sebenarnya ada cara lain lagi yaitu dengan teknik sampling data, namun jika menggunakan cara ini mikrokontroller dituntut untuk bisa men-sampling data dengan kecepatan tinggi, dan ini sulit (sebenarnya bisa tapi tidak sempurna sinus hasil samplingnya) untuk MCU AVR yang hanya memiliki clock maksimal 16Mhz, maka dari itu dipakailah cara lain dengan penyearah, berikut adalah penjelasan rangkaian dan programnya..
a. Minimum System
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
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Cursor Off
Cls
Dim Dataadc As Integer
Dim V As Single
Dim X As String * 5
Dim Vint As Integer
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
$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
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Cursor Off
Cls
Dim Dataadc As Integer
Dim V As Single
Dim X As String * 5
Dim Vint As Integer
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