Kali ini akan saya jelaskan mengenai bagaimana cara mengakses trafo arus (current transformer) supaya bisa digunakan untuk pengukuran arus AC. Sensor ini sangat bagus sekali jika digunakan untuk mendeteksi arus atau membaca arus, kelebihan dari trafo arus ini yaitu bisa dilewati oleh arus lebih dari 200 A, tergantung tipe dan jenis trafo arus yang dipakai, pada contoh digunakan trafo arus 300/5 yang artinya jika ada arus yang lewat sebesar 300A maka akan terbaca di outputnya adalah 5A, sama seperti halnya trafo step down, tapi jika ingin diakses oleh mikrokontroller harus dikonversi terlebih dahulu ke tegangan karena ADC mikrokontroller tidak bisa membaca arus. untuk lebih jelasnya berikut skema dan programnya. Untuk cara kalibrasi sensor, cek disini LINK
a. Minium System ATMega16
*Note = IC yang dipakai bisa TL082, LM358, LM741, OP7.
d. Rangkaian Penyearah
e. Program Bascom AVR
$regfile = "m16def.dat"
$crystal = 12000000
$baud = 9600
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
Dim Dataadc As Word
Dim Volt As Single
Dim Teg As String * 5
Cls
Cursor Off
Start Adc
Do
Dataadc = Getadc(7)
Volt = Dataadc * 5
Volt = Volt / 1023
Teg = Fusing(volt , "#.##")
Upperline
Lcd "ADC = " ; Dataadc
Lowerline
Lcd "Volt = " ; Teg
Waitms 200
Loop
$crystal = 12000000
$baud = 9600
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
Dim Dataadc As Word
Dim Volt As Single
Dim Teg As String * 5
Cls
Cursor Off
Start Adc
Do
Dataadc = Getadc(7)
Volt = Dataadc * 5
Volt = Volt / 1023
Teg = Fusing(volt , "#.##")
Upperline
Lcd "ADC = " ; Dataadc
Lowerline
Lcd "Volt = " ; Teg
Waitms 200
Loop
f. VIDEO HASILNYA
No comments:
Post a Comment